ORACLE数据备份的问题和DELPHI cmd 命令的问题

来源：百度知道 编辑：UC知道 时间：2024/05/28 20:11:48
我想实现数据备份的功能，请问具体的代码怎么写，在哪个事件下写代码，请写个详细的例子．
在DELPHI里怎么执行CMD命令，请写个例子的详细代码，还有就是这个代码应该写在哪里？
请各位高手赐教，急，急，急～～这个两个问题都请写个详细的例子代码，非常感谢～！～

我可以给你一个数据库备份的代码，另一个暂时还没研究：
使用savedialog对话框，指定数据备份路径代码：
procedure Tbeifen.Button1Click(Sender: TObject);
begin
savedialog1.InitialDir:=extractfiledir(application.ExeName);
savedialog1.Title:='保存文件' ;
savedialog1.Execute;
end;
备份代码：
procedure Tbeifen.Button2Click(Sender: TObject);
begin
if (edit1.Text='')then
begin
showmessage('请输入备份路径');
exit;
end
else
screen.Cursor:=crhourglass;
label2.Visible:=true;
label2.Update;
adocommand1.CommandText:='';
adocommand1.CommandText:='BACKUP DATABASE 人事管理 TO DISK=:path with init';
adocommand1.Parameters.ParamByName('path').Value:=trim(edit1.Text );
adocommand1.Execute;
label2.Visible:=false;
label2.Update;
showmessage('备份完毕！');
screen.Cursor:=crdefault;
end;

procedure Tbeifen.SaveDialog1CanClose(Sender: TObject;
var CanClose: Bool