data_bak_bakunit.pas

来自「DELPHI 编写的人事管理系统,根据职工查询各种信息」· PAS 代码 · 共 135 行

unit Data_Bak_BakUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Gauges, DB, ADODB, DBTables;

type
  TData_Bak_BakForm = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    p1: TGauge;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    ADOTable2: TADOTable;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data_Bak_BakForm: TData_Bak_BakForm;

implementation
  uses Login_Unit,Data_BakUnit;
{$R *.dfm}

procedure TData_Bak_BakForm.BitBtn1Click(Sender: TObject);
var
  i:integer;
begin
if Data_BakForm.CheckBox1.Checked then
 begin
   self.ADOTable1.close;
   self.ADOTable2.close;
   self.ADOTable1.TableName:='ZG_Table';
   self.ADOTable2.TableName:='ZG_TableBak';
   self.ADOTable1.Active:=true;
   self.ADOTable2.Active:=true;
   with Self.ADOTable2 do
       begin
       self.ADOTable2.Close;
       self.ADOTable2.Open;
       for i:=1 to Self.ADOTable2.RecordCount do
           begin
              self.ADOTable2.Delete;
              self.ADOTable2.Next;
           end;
       end;
   p1.MaxValue:=self.ADOTable1.RecordCount;
   for i:=1 to self.ADOTable1.RecordCount+1 do
     begin
     p1.Visible:=true;
     p1.Progress:=i;
     if p1.Progress=self.ADOTable1.RecordCount then
        begin
        p1.Progress:=0;
        end;
      self.ADOTable2.append;
      self.ADOTable2.Fields[0].Value:=self.ADOTable1.Fields[0].Value;
      self.ADOTable2.Fields[1].Value:=self.ADOTable1.Fields[1].Value;
      self.ADOTable2.Fields[2].Value:=self.ADOTable1.Fields[2].Value;
      self.ADOTable2.Fields[3].Value:=self.ADOTable1.Fields[3].Value;
      self.ADOTable2.Fields[4].Value:=self.ADOTable1.Fields[4].Value;
      self.ADOTable2.Fields[5].Value:=self.ADOTable1.Fields[5].Value;
      self.ADOTable2.Fields[6].Value:=self.ADOTable1.Fields[6].Value;
      self.ADOTable2.Fields[7].Value:=self.ADOTable1.Fields[7].Value;
      self.ADOTable2.Fields[8].Value:=self.ADOTable1.Fields[8].Value;
      self.ADOTable2.Fields[9].Value:=self.ADOTable1.Fields[9].Value;
      self.ADOTable2.Fields[10].Value:=self.ADOTable1.Fields[10].Value;
      self.ADOTable2.Fields[11].Value:=self.ADOTable1.Fields[11].Value;
      self.ADOTable2.Fields[12].Value:=self.ADOTable1.Fields[12].Value;
      self.ADOTable2.Fields[13].Value:=self.ADOTable1.Fields[13].Value;
      self.ADOTable2.Fields[14].Value:=self.ADOTable1.Fields[14].Value;
      self.ADOTable1.Next;
      end;
 end;
if Data_BakForm.CheckBox2.Checked then
  begin
   self.ADOTable1.close;
   self.ADOTable2.close;
   self.ADOTable1.TableName:='GZ_Table';
   self.ADOTable2.TableName:='GZ_TableBak';
   self.ADOTable1.Active:=true;
   self.ADOTable2.Active:=true;
   with Self.ADOTable2 do
       begin
       self.ADOTable2.Close;
       self.ADOTable2.Open;
       for i:=1 to Self.ADOTable2.RecordCount do
           begin
              self.ADOTable2.Delete;
              self.ADOTable2.Next;
           end;
       end;

   p1.MaxValue:=self.ADOTable1.RecordCount;
   for i:=1 to self.ADOTable1.RecordCount+1 do
     begin
     p1.Visible:=true;
     p1.Progress:=i;
     if p1.Progress=self.ADOTable1.RecordCount then
        begin
        p1.Progress:=0;
        end;
      self.ADOTable2.append;
      self.ADOTable2.Fields[0].Value:=self.ADOTable1.Fields[0].Value;
      self.ADOTable2.Fields[1].Value:=self.ADOTable1.Fields[1].Value;
      self.ADOTable2.Fields[2].Value:=self.ADOTable1.Fields[2].Value;
      self.ADOTable2.Fields[3].Value:=self.ADOTable1.Fields[3].Value;
      self.ADOTable2.Fields[4].Value:=self.ADOTable1.Fields[4].Value;
      self.ADOTable2.Fields[5].Value:=self.ADOTable1.Fields[5].Value;
      self.ADOTable2.Fields[6].Value:=self.ADOTable1.Fields[6].Value;
      self.ADOTable2.Fields[7].Value:=self.ADOTable1.Fields[7].Value;
      self.ADOTable2.Fields[8].Value:=self.ADOTable1.Fields[8].Value;
      self.ADOTable2.Fields[9].Value:=self.ADOTable1.Fields[9].Value;
      self.ADOTable2.Fields[10].Value:=self.ADOTable1.Fields[10].Value;
      self.ADOTable2.Fields[11].Value:=self.ADOTable1.Fields[11].Value;
      self.ADOTable1.Next;
      end;
  end;
  p1.Visible:=false;
  self.ADOTable1.close;
  self.ADOTable2.close;
  messagebox(Data_Bak_BakForm.Handle,'数据备份完毕!!','提示',mb_iconasterisk);
  close;
end;

end.