u_data_ini.pas

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

unit U_data_ini;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton,  ExtCtrls, RzPanel, RzRadChk, RzPrgres, StdCtrls, RzLabel;

type
  TFrm_data_ini = class(TForm)
    Btn_Cancel: TRzBitBtn;
    Btn_ok: TRzBitBtn;
    RzPanel1: TRzPanel;
    Bar1: TRzProgressBar;
    RzLabel1: TRzLabel;
    chk_opc_server: TRzCheckBox;
    Chk_class: TRzCheckBox;
    Chk_ShiShi: TRzCheckBox;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Btn_CancelClick(Sender: TObject);
    procedure Btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Data_ini;
  end;

var
  Frm_data_ini: TFrm_data_ini;

implementation

uses U_dm;

{$R *.dfm}
//数据初始化
procedure TFrm_data_ini.Data_ini;
var
    connstr:string;
begin
  try
      //连接数据库
       connstr:='Provider=SQLOLEDB.1;Password=sxxy;User ID=sa;Initial Catalog=plc_data;Data Source=(local)';
      Frm_data_ini.Caption:='数据清理----数据正在清理';
      Bar1.Percent:=20;
      with DM do Begin
         if not Adoconn.Connected then begin
            Adoconn.Connected:=False;
            Adoconn.KeepConnection:=False;
            Adoconn.ConnectionString:=connstr;
            Adoconn.LoginPrompt:=False;
            Adoconn.Connected:=true;
         end;
      end;
       bar1.Percent:=40;
        //初始化OPC_SERVER数据表
       if chk_opc_server.Checked then begin
           with DM do Begin
               ADOQ_LOG.Close;
               ADOQ_LOG.SQL.Clear;
               ADOQ_LOG.SQL.Add('delete from opc_server');
               ADOQ_LOG.ExecSQL;
           end;
       end;
       bar1.Percent:=60;
       //初始化班产量表
        if chk_class.Checked then begin
           with DM do Begin
               ADOQ_LOG.Close;
               ADOQ_LOG.SQL.Clear;
               ADOQ_LOG.SQL.Add('delete from his_data');
               ADOQ_LOG.ExecSQL;
           end;
       end;
       bar1.Percent:=80;
        //初始化日志文件数据表
       if chk_ShiShi.Checked then begin
             with DM do Begin
                 ADOQ_LOG.Close;
                 ADOQ_LOG.SQL.Clear;
                 ADOQ_LOG.SQL.Add('delete from plc_log');
                 ADOQ_LOG.ExecSQL;
             End;
      End;
       bar1.Percent:=100;
       bar1.Percent:=0;
       Frm_data_ini.Caption:='数据清理----数据清理已完成';
       Btn_ok.Enabled:=TRUE;
   except
       DM.ADOQ.Close;
       DM.adoconn.Connected     :=false;
       DM.adoconn.KeepConnection:=False;
       showmessage('数据库清理失败！');
   end;

end;

procedure TFrm_data_ini.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Action:=caFree;
end;

procedure TFrm_data_ini.Btn_CancelClick(Sender: TObject);
begin
   dm.Adoconn.Connected:=false;
   Frm_data_ini.close;
end;

procedure TFrm_data_ini.Btn_okClick(Sender: TObject);
begin
    Btn_ok.Enabled:=False;
    Data_ini;
end;

end.