procedure TF_Backup.BitBtn_BackupClick(Sender: TObject); var DBName: string; begin if ADOConnection_DB.Connected = true then ADOConnection_DB.Connected:=false; DbName:=ExtractFilePath(ParamStr(0))+'Data\BackUp.Mdb'; if FileExists(DbName) then DeleteFile(DbName); CopyFile(Pchar('Data\Book.mdb'), Pchar(DBName), True); MessageBox(handle, '数据库备份成功!', '提示', mb_IconInformation + mb_Ok); if ADOConnection_DB.Connected = false then ADOConnection_DB.Connected := true; end;