SQLServer:用Delphi开发数据库备份工具

原理：利用SQLServer的DML操作分离数据库，再复制文件，再附加数据库。
制作过程：利用SQLServer2000帮助查出相关的SQL语句→Delphi开发。
好处：可以对数据库的数据进行完全备份
坏处：由于采取文件复制方式，所以备份程序与SQLServer数据库必须在同一机器。

核心代码
 1//分离数据库
 2Function TfrmMain.flsjk(dbname:String):Boolean;
 3var s_sql:String;
 4begin
 5  result:=true;
 6  s_sql:='EXEC sp_detach_db %s,true';
 7  s_sql:=format(s_sql,[dbname]);
 8  with dm.qrytmp do begin
 9      close;
10      sql.clear;
11      sql.Add(s_sql);
12      try
13         execsql;
14         StatusBar.Caption:=dbname+' 数据库暂停使用';
15       except
16          on e:exception do begin
17             box('分离'+dbname+'数据库失败！'+#13#10+e.Message);
18             result:=false;
19          end;
20       end;
21  end;
22end;
23
24//附加数据库
25Function TfrmMain.fjsjk(dbname:String):Boolean;
26var s_sql:String;
27begin
28  result:=true;
29  s_sql:='EXEC sp_attach_db @dbname = N''%s'',@filename1 = N''%S'',@filename2 = N''%S''';
30  s_sql:=format(s_sql,[dbname,path+dbname+'_Data.MDF',path+dbname+'_Log.LDF']);
31  with dm.qrytmp do begin
32      close;
33      sql.Clear;
34      sql.add(s_sql);
35      try
36        execsql;
37      except begin
38        box('附加数据库'+dbname+'失败');
39        result:=false;
40      end;
41      end;
42      close;
43  end;
44  StatusBar.Caption:=dbname+' 数据库恢复使用';
45end;

附件：下载地址