delphi备份与恢复的问题？请大家帮我看下代码
备份代码如下procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Edit1.Text:=SaveDialog1.FileName;
end;
procedure TForm7.BitBtn1Click(Sender: TObject);
var
i:string;
failure:boolean;
begin
failure:=false;
i:=ExtractFilePath(Application.ExeName);
if not copyfile(pchar(i+'shijuan'),pchar(trim(edit1.Text)),false) then
failure:=true;
if failure then
ShowMessage('数据备份没有成功!')
else
showmessage('数据备份成功!');
end;
恢复代码如下
procedure TForm8.BitBtn1Click(Sender: TObject);
var
i:string;
failure:boolean;
begin
failure:=false;
i:=ExtractFilePath(Application.ExeName);
if fileexists(pchar(i+'shijuan')) then
begin
deletefile(pchar(i+'shijuan'));
if not copyfile(pchar(trim(edit1.Text)),pchar(i+'shijuan'),false) then
failure:=true;
end;
if failure then
ShowMessage('数据恢复没有成功!')
else
showmessage('数据恢复成功!');
edit1.Clear;
huanyuan.Form8.Close;
end;
procedure TForm8.BitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm8.SpeedButton1Click(Sender: TObject);
begin
if self.OpenDialog1.Execute then
相关问答：
由于客戶端有的文件經常更新（遠程的，不是局域網），
所以想寫個自動更新的 程序。
看網上的 方法資料，知道些方法，但不知道具體怎么寫。
......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
delphi 2007 + access 2007 +odbc +TADODataset,TADOConnection,TADOCommand
//删除数据
procedure TCDSSelectTools.DeleteMachine(byMachineID: string);
tmpCmd := TADOCommand.Create(ni ......
在一个网页上有两个submit 按钮。。。。一个是搜索的。一个是发帖的。。。如果直接
o :=WebBrowser1.oleobject.document.all.item('submit',0);
......
