'backup database dbname To disk = '''+trim(FilePathEdit1.Text)+'''';'restore database dbname from disk = '''+trim(FilePathEdit2.Text)+'''';
procedure Tsys_datamodule.DataBaseBack; var FileName:string; ADOQ:TADOQuery; begin ADOQ:=TADOQuery.Create(nil); ADOQ.Connection:=sys_datamodule.con1; if MessageDlg('你確定要備份數據庫嗎?',mtInformation,[mbYes,mbNo],0)=idyes then begin try if SaveDialog1.Execute then begin FileName:=SaveDialog1.FileName; if (Copy(FileName,Length(FileName)-3,4)<>'.BAK') or (Copy(FileName,Length(FileName)-3,4)<>'.bak') then FileName:=FileName+'.BAK'; ADOQ.SQL.Text:='Use Master Backup Database MES to Disk='''+ FileName+''' Use MES'; ADOQ.ExecSQL; MessageDlg('數據庫備份成功!',mtInformation,[mbOK],0); end; except MessageDlg('數據庫備份失敗!',mtInformation,[mbOK],0); Exit; end; end; end;procedure Tsys_datamodule.RestoreBaseBack; var StrFile:string; ADOQ:TADOQuery; begin ADOQ:=TADOQuery.Create(nil); ADOQ.Connection:=sys_datamodule.con1; if MessageDlg('你確定要還原數據庫嗎?',mtInformation,[mbYes,mbNo],0)=idyes then begin try if OpenDialog1.Execute then begin StrFile:=OpenDialog1.FileName; ADOQ.SQL.Text:='Use Master Restore Database MES From Disk='''+ StrFile+''' Use MES'; ADOQ.ExecSQL; MessageDlg('數據庫還原成功!',mtInformation,[mbOK],0); end; except MessageDlg('數據庫還原失敗!',mtInformation,[mbOK],0); Exit; end; end; end;
var
FileName:string;
ADOQ:TADOQuery;
begin
ADOQ:=TADOQuery.Create(nil);
ADOQ.Connection:=sys_datamodule.con1;
if MessageDlg('你確定要備份數據庫嗎?',mtInformation,[mbYes,mbNo],0)=idyes then
begin
try
if SaveDialog1.Execute then
begin
FileName:=SaveDialog1.FileName;
if (Copy(FileName,Length(FileName)-3,4)<>'.BAK') or (Copy(FileName,Length(FileName)-3,4)<>'.bak') then
FileName:=FileName+'.BAK';
ADOQ.SQL.Text:='Use Master Backup Database MES to Disk='''+ FileName+''' Use MES';
ADOQ.ExecSQL;
MessageDlg('數據庫備份成功!',mtInformation,[mbOK],0);
end;
except
MessageDlg('數據庫備份失敗!',mtInformation,[mbOK],0);
Exit;
end;
end;
end;procedure Tsys_datamodule.RestoreBaseBack;
var
StrFile:string;
ADOQ:TADOQuery;
begin
ADOQ:=TADOQuery.Create(nil);
ADOQ.Connection:=sys_datamodule.con1;
if MessageDlg('你確定要還原數據庫嗎?',mtInformation,[mbYes,mbNo],0)=idyes then
begin
try
if OpenDialog1.Execute then
begin
StrFile:=OpenDialog1.FileName;
ADOQ.SQL.Text:='Use Master Restore Database MES From Disk='''+ StrFile+''' Use MES';
ADOQ.ExecSQL;
MessageDlg('數據庫還原成功!',mtInformation,[mbOK],0);
end;
except
MessageDlg('數據庫還原失敗!',mtInformation,[mbOK],0);
Exit;
end;
end;
end;