备份忘了写了,把备份按钮中代码更新一下 var sDb, sBak,AppPath: string; begin AppPath := ExtractFilePath(Application.ExeName); if AppPath[length(AppPath)]<>'\' then AppPath := AppPath +'\'; if lstdb2.Count = 0 then begin showmessage('请先选择数据库!'); exit; end;
if lstDb2.SelCount = 0 then begin showmessage('请先选择数据库!'); exit; end; sDb := lstDb2.Items[lstDb2.ItemIndex]; sBak := FormatDateTime('yyyymmddhhmmsszzz', now()); InputQuery('请输入备份文件', '数据库', sBak); if sBak <> ' then begin qry1.Close; qry1.SQL.Text := ' BACKUP DATABASE '+sdb+' to disk=''+apppath + sBak +''; qry1.ExecSQL; end;