图1　备份数据库窗体

备份窗体中可以让用户选择备份的目录，备份文件的格式可以这样定义：数据库名称+yyyy-mm-dd_hhnn，扩展名.dat。（如mydata2006-06-12_1405.Dat。）备份事件中按文件名生成备份命令串，并创建备份线程，在线程中执行备份命令。核心代码描述如下：

．．．．．．

sqlstr := trim(Edit3.Text);  //备份文件名称

   try

     with dmsw.adqbaksql do begin

        close;

        sql.Clear;

        sql.Text := 'BACKUP DATABASE HL_SGMS '+'TO DISK='+''''+sqlstr+'''';

        Err:=false;

        esql:=true;

        bakthread := Tbakthread.Create(true);

        bakthread.Resume;

        while esql do application.ProcessMessages;

     if not Err then

       application.MessageBox(pchar('数据备份成功!'),'

备份',MB_ok+MB_ICONInformation)

     else

application.MessageBox(pchar('备份失败!'+chr(13)+ErrDes),'备份',MB_ok+MB_ICONwarning);

  end;

except

     on EOleException do begin

showmessage('操作失败，请确认当前没有对数据库进行添加删除数据操作!');

     end;

   else

   raise;

   end;

．．．．．．

执行命令线程

procedure Tbakthread.Execute;

begin

  { Place thread code here }

  dmsw.adqbaksql.ExecSQL;

  if dmsw.adqbaksql.Connection.Errors.Count>0 then begin

  errdes:=dmsw.adqbaksql.Connection.Errors.Item[0].Get_Description;

  Err:=true; //调用备份窗口错误处理

  end;

  esql := false;

end;

2．数据库恢复

                         图2　数据库恢复窗体

在恢复窗体中选择要恢复的备份文件名，执行数据库恢复命令，核心代码如下：

try

  if fileexists(trim(edit3.Text)) then begin  //要恢复的备份文件是否存在

  if application.MessageBox(pchar('恢复操作将会覆盖现有数据，请确认是否真的要进行恢复？)'+chr(13)+

｀（恢复数据前请确保只有一个用户在使用当前软件）｀)｀,｀恢复',MB_OKCancel+MB_ICONInformation)=idok then

  with dmsw.adqrestore do

 begin

  close;

  sql.Clear;

  sql.Add('use master');

  sql.Add('Restore Database hl_sgms'+' from disk='''+trim(edit3.Text)+''' with REPLACE');

  sql.Add('use hl_swms');

  Err:=false;

  Exec:=true;

  restoredata:=Trestoredata.Create(true);

  restoredata.Resume;

  while exec do application.ProcessMessages;

  if not Err then

  application.MessageBox(pchar('数据恢复成功!'),'恢复',MB_ok+MB_ICONInformation)

  else

  application.MessageBox(pchar('恢复失败!'+chr(13)+ErrDes),'恢复',MB_ok+MB_ICONwarning);

  end;

 end;

  panel1.BringToFront;

  except

  end;

执行命令线程

procedure Trestoredata.Execute;

begin

  { Place thread code here }

  try

  dmsw.adqrestore.ExecSQL;

  if dmsw.adqrestore.Connection.Errors.Count>0 then begin

  ErrDes:=dmsw.adqrestore.Connection.Errors.Item[0].Get_Description;

  Err:=true;

  end;

  finally

  Exec:=false;

  end;

end;

四、结语

数据库应用系统在使用过程中，客户端会提出新的需求，新增功能模块可能要求程序对后台数据库进行维护，包括新增业务表、修改数据表、新增存储过程、数据库备份和数据库恢复功能等。所以，掌握SQL Server常用的数据库维护命令是必要的。