u_data_yasuo.pas

对SQLSERVER数据库实现备份、恢复、压缩

unit U_data_yasuo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPrgres, StdCtrls, RzLabel, ExtCtrls, DB, ADODB;

type
  Tfrm_data_yasuo = class(TForm)
    RzLabel1: TRzLabel;
    Bar1: TRzProgressBar;
    Timer1: TTimer;
    DS_Q: TDataSource;
    ADOQ: TADOQuery;
    ADOConn: TADOConnection;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    mm:integer;
    S_server,S_database,S_user:string;
    str_con:string;
  public
    { Public declarations }
  end;

var
  frm_data_yasuo: Tfrm_data_yasuo;

implementation

uses U_dm,U_main;

{$R *.dfm}

procedure Tfrm_data_yasuo.FormCreate(Sender: TObject);
begin
 //连接数据库
    //接口-----------------------------------------------  
   S_server:=u_main.str_server;
   S_database:=u_main.str_database;
   S_user:=u_main.str_user;
   //---------------------------------------------------
   str_con:='Provider=SQLOLEDB.1;Password=sxxy;User ID=sa;Initial Catalog='+S_database+';Data Source='+S_server;
      ADOConn.Connected:=False;
      ADOconn.ConnectionString:=str_con;
      ADOconn.LoginPrompt:=False;
      ADOconn.Connected:=true;
end;

procedure Tfrm_data_yasuo.Timer1Timer(Sender: TObject);
begin
   mm:=mm+1;
   if mm=3 then begin
      ADOQ.Close;
      ADOQ.SQL.Clear;
      ADOQ.SQL.Add('DBCC SHRINKDATABASE('+S_database+')');
      ADOQ.ExecSQL;
   end;
   bar1.Percent:=20*mm;
   if MM>=5 then begin
       frm_data_yasuo.Caption:='数据压缩--完成';
       frm_data_yasuo.Close;
   end
   else begin
      frm_data_yasuo.Caption:='数据压缩--正在处理请稍后';
   end;



end;

procedure Tfrm_data_yasuo.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=CaFree;
end;

end.