procedure Tfrm_planmana.N20Click(Sender: TObject);
var
ado:TADOCommand;
msg:tfrm_hfdb_list;
begin
//操作员没有些权限
if admin_flag='2' then
begin
MessageBox(handle,'您没有权限进行此操作!','提 示',MB_OK);
exit;
end;
// 确实要备份吗?
if(MessageBox(handle,'确实要备份吗?','提 示',mb_IconInformation+mb_YesNo)=mrno) then exit;
//如果没有这个目录将创建此目录
msg := tfrm_hfdb_list.Create(application);
//msg.SetMessage('正在备份,可能需要几分钟时间。');
ado := TADOCommand.Create(nil);
ado.Connection := dm1.ADOConnection1;
ado.CommandTimeout := 300;
//deletefile('d:/工作计划管理软件数据备份/plan_mana');//只能删除本机的文件
msg.Show;
application.ProcessMessages;
//ado.CommandText := 'BACKUP DATABASE plan_mana TO DISK = ''' + SaveDialog1.FileName + '''';
ado.CommandText := 'BACKUP DATABASE plan_mana TO DISK = ''d:/工作计划管理软件数据备份/plan_mana''';
msg.Close;
msg.Free;
try
ado.Execute;
except
MessageBox(handle,'数据库备份失败',' 提 示',MB_OK);
Exit;
end;
ado.Free;
MessageBox(handle,'操作成功,数据库已备份。',' 提 示',MB_OK);
end;