摘要:
procedure TFrmMain.NSystBackupClick(Sender: TObject);var strFile:string;begin // 数据库备份 SaveDlgData.Filter:='All files (*.*)|*.*'; SaveDlgData.FileName:='DataBack'+DateToStr(now); if SaveDlgData.Execute then begin strFile:=SaveDlgData.FileName; StatusBar1.Panels[1].Text:='正在备份数据库. 阅读全文