procedure TMain.N2Click(Sender: TObject);
var
F:TShFileOpStruct;
begin
if (login.admin<>true) then
messagebox(getactivewindow(),'你无权进行此操作,请联系管理员!','错误!' ,MB_OK + MB_ICONINFORMATION)
else
begin
F.wnd:=Handle;
F.wFunc:=Fo_COPY;
F.pFrom:=pAnsichar(ExtractFileDir(Application.ExeName)+'计费系统.mdb'+#0);
F.pTo:=pAnsichar('db.bak') ;
if ShFileOperation(F)<>0 then
MessageBox(getactivewindow(), '数据文件备份失败!', '错误', MB_OK + MB_ICONSTOP)
else
MessageBox(getactivewindow(), '数据文件备份成功!', '成功', MB_OK + MB_ICONINFORMATION);
end;
end;这段代码是我从别人那里拷贝的,可为什么执行不了,谢谢解释一下这段程序,如果哪位大侠有本地数据库备份的程序,给我看看,了
var
F:TShFileOpStruct;
begin
if (login.admin<>true) then
messagebox(getactivewindow(),'你无权进行此操作,请联系管理员!','错误!' ,MB_OK + MB_ICONINFORMATION)
else
begin
F.wnd:=Handle;
F.wFunc:=Fo_COPY;
F.pFrom:=pAnsichar(ExtractFileDir(Application.ExeName)+'计费系统.mdb'+#0);
F.pTo:=pAnsichar('db.bak') ;
if ShFileOperation(F)<>0 then
MessageBox(getactivewindow(), '数据文件备份失败!', '错误', MB_OK + MB_ICONSTOP)
else
MessageBox(getactivewindow(), '数据文件备份成功!', '成功', MB_OK + MB_ICONINFORMATION);
end;
end;这段代码是我从别人那里拷贝的,可为什么执行不了,谢谢解释一下这段程序,如果哪位大侠有本地数据库备份的程序,给我看看,了
解决方案 »
- ADO数据库问题,语法问题 delphi 带源码
- 求救一個人事薪資程式?其主要有以下模塊,給個演示例子也可,再好是源代碼。。。
- HDC = type LongWord;是什么意思
- Delphi中的Shape控件问题
- FastReport 怎么快速入门??原来用QR的,最简单的就好,怎么做?能几分钟内会吗?
- ado是什么???
- 急!求教了
- 这个问题好像并不太容易解决掉,大家看看!!!!!!!!!!!!!!!!!!!!!
- 这两天玩了一下corba,发现比dcom易用很多倍,请问哪能找到visibroker正式版下载?
- 如何在开发过程中控制delphi窗口的弹出效果。
- 如何把clipboard上的文本数据copy到光标所在的位置?
- 3000元现金求购IP隐藏、指定显示IP源代码
var
MyFileName: string;
begin
MyFileName := '';
try
if SaveDialog1.Execute then
begin
MyFileName := SaveDialog1.FileName;
if MyFileName <> '' then
begin
if CopyFile(Pchar(ExtractFilePath(Application.ExeName) + 'HYTJ.mdb'), Pchar(MyFileName), false) then
begin
Application.MessageBox('数据备份成功','提示',Mb_ok + mb_iconinformation);
end;
end;
end;
except
Application.MessageBox('数据备份失败','提示',Mb_ok + mb_iconError);
end;
end;procedure TFormMain.RestorDateClick(Sender: TObject);
var
MyFileName, aa: string;
begin
MyFileName := '';
try
if OpenDialog1.Execute then
begin
MyFileName := OpenDialog1.FileName;
if MyFileName <> '' then
begin
aa := ExtractFilePath(Application.ExeName) + 'HYTJ.mdb';
if CopyFile(Pchar(MyFileName),Pchar(aa), false) then
begin
DM.ADOConnect.Close;
DM.ADOConnect.Open;
Application.MessageBox('数据恢复成功','提示',Mb_ok + mb_iconinformation);
end;
end;
end;
except
Application.MessageBox('数据恢复失败','提示',Mb_ok + mb_iconError);
end;
end;