取得任一时刻的活动窗体的标题？有高人会吗？？分少了还可给
发布时间：2010-01-20 |
1楼: 请高手们指点指点小弟,先谢谢啦!程序代码如下：
//备份数据库
procedure TBackup.Button1Click(Sender： TObject);
var
BackupFile ： string;
DB ： string;
begin
DB ：= ‘JYKJ_db‘;
if SaveDialog.Execute then
if trim(SaveDialog.FileName) <> ‘‘ then
if DM.ADOConnDB.Connected = true then begin
DM.ADOConnDB.Connected ：= false;
BackupFile ：= SaveDialog.FileName + ‘.bak‘;
try
DM.ADOCommBak.CommandText ：= ‘use Master‘;
DM.ADOCommBak.Execute;
DM.ADOCommBak.CommandText ：= ‘execute sp_helpdevice‘;
DM.ADOCommBak.Execute;
DM.ADOCommBak.CommandText ：= ‘backup database ‘ + DB + ‘ to disk=‘‘‘ +BackupFile+ ‘‘‘ with init‘;
DM.ADOCommBak.Execute;
DM.ADOCommBak.CommandText ：= ‘Use ‘ + DB ;
DM.ADOCommBak.Execute;
MessageBox(getactivewindow(),‘成功备份数据库！‘,‘提示！‘ ,MB_OK + MB_ICONINFORMATION);
if DM.ADOConnDB.Connected = false then
DM.ADOConnDB.Connected ：= true;
except
MessageBox(getactivewindow(),‘备份数据库失败！‘,‘错误！‘ ,MB_OK + MB_ICONERROR);
end;
end;
end;
//还原数据库
procedure TBackup.Button3Click(Sender： TObject);
var
RestoreFile ： string;
DB ： string;
begin
DB ：= ‘JYKJ_db‘;
if OpenDialog.Execute then
if trim(OpenDialog.FileName) <> ‘‘ then
if DM.ADOConnDB.Connected = true then begin
DM.ADOConnDB.Connected ：= false;
RestoreFile ：= OpenDialog.FileName;
try
DM.ADOCommBak.CommandText ：= ‘use Master‘;
DM.ADOCommBak.Execute;
DM.ADOCommBak.CommandText ：= ‘restore database ‘ + DB + ‘ from disk=‘‘‘ +RestoreFile+ ‘‘‘ with replace‘;
DM.ADOCommBak.Execute;
DM.ADOCommBak.CommandText ：= ‘use ‘ + DB ;
DM.ADOCommBak.Execute;
MessageBox(getactivewindow(),‘成功恢复备份！‘,‘提示！‘ ,MB_OK + MB_ICONINFORMATION);
if MessageBox(GetActiveWindow(),‘恢复成功后必须退出系统！‘,‘信息！‘,MB_OKCANCEL + MB_ICONINFORMATION) = IDOK then
Application.Terminate//还原成功后则退出系统
else
if DM.ADOConnDB.Connected = false then
DM.ADOConnDB.Connected ：= true;
except
MessageBox(getactivewindow(),‘恢复备份失败！‘,‘错误！‘ ,MB_OK + MB_ICONERROR);
end;
end;
end; 字串2 2楼: 真的没有高手了吗？自己顶一下! 字串1 3楼: 帮顶一下 字串1 4楼: 你这种备份方式只能在本地进行，就是有高手估计也难以帮你。
字串7
5楼: 因为你的OpenDialog最终返回的是本地路径，而远程服务器不一定有这样的路径，故备份/恢复就可能不成功了；
企业管理器有一种选择远程服务器的路径的对话框，只是不知它是怎么实现的（没仔细研究过）。 字串2
6楼: 很急啊!帮帮心吗？各位高手 字串8
7楼: 可以在服務端建立一FTP 服務.執行你的程序備份到服務端的本地磁盤. 然后在遠程通過ftp登錄下載所備份的數據庫.字串3
8楼: 这样不是很好啊!很麻烦啊!
有没有其他好办法啊! 字串5
9楼: SQL只能在本地保存备份吧，你通过FTP在传过来不可以吗？ 字串5 10楼: 大富翁真是没有高手啦! 没人能够给一点代码分析分析!字串2