backupunit.pas

龙矿集团工资管理系统2004源码

unit BackUpUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, FileCtrl, Db, DBTables, Animate, GIFCtrl;

type
  TBackUp = class(TForm)
    dl: TDirectoryListBox;
    SpeedButton1: TSpeedButton;
    DriveComboBox1: TDriveComboBox;
    Table1: TTable;
    DataSource1: TDataSource;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    RxGIFAnimator1: TRxGIFAnimator;
    procedure dlChange(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BackUp: TBackUp;

implementation

uses  Dateunit, DataTUnit;

{$R *.DFM}

procedure TBackUp.dlChange(Sender: TObject);
begin
//speedbutton1.Caption:=dl.Directory;
end;

procedure TBackUp.SpeedButton1Click(Sender: TObject);
var
   t:ttable;
begin
 datat.table4.Close;
 if  fileexists(dl.Directory+'\xxk.dbf') then
    begin
    application.messagebox('在此目录下发现  xxk.dbf 不能转在同一目录下!!!','消息框',mb_ok+mb_iconstop);
    abort;
     end;
  begin
    datat.table4.active:=true;
    t:=ttable.create(self);
    t.DatabaseName:=dl.Directory;
    t.TableName:='xxk.dbf';
    t.FieldDefs.Assign(datat.table4.fielddefs);
    datat.Table4.IndexDefs.Update;
    t.IndexDefs.Clear;
    t.IndexDefs.Assign(datat.table4.indexdefs);
    t.CreateTable;
    t.BatchMove(datat.table4,batappend);
    t.Close;
     application.messagebox('恭喜,恭喜,基本资料库备份成功!!!','消息框',mb_ok+mb_iconinformation);
     end;
 end;






procedure TBackUp.SpeedButton2Click(Sender: TObject);
var    t:ttable;
begin
if  FileExists(dl.Directory+'\lyk.dbf') then
  begin
    application.messagebox('发现历月数据lyk.dbf,不能转在同一目录下!!!','消息框',mb_ok+mb_iconstop);
    abort;
  end;
     begin
    datat.table1.active:=true;
    t:=ttable.create(self);
    t.DatabaseName:=dl.Directory;
    t.TableName:='lyk.dbf';
    t.FieldDefs.Assign(datat.table1.fielddefs);
    datat.Table1.IndexDefs.Update;
    t.IndexDefs.Clear;
    t.IndexDefs.Assign(datat.table1.indexdefs);
    t.CreateTable;
    t.BatchMove(datat.table1,batappend);
    t.Close;
     application.messagebox('恭喜,恭喜,历月库备份成功,注意你已经覆盖了原来的工资库!!!','消息框',mb_ok+mb_iconinformation);
  end;
end;


procedure TBackUp.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;


procedure TBackUp.SpeedButton3Click(Sender: TObject);
var t:Ttable;
begin
if  FileExists(dl.Directory+'\bmk.dbf') then
  begin
    application.messagebox('发现部门数据bmk.dbf,不能转在同一目录下!!!','消息框',mb_ok+mb_iconstop);
    abort;
  end;
     begin
    datat.bmtable2.active:=true;
    t:=ttable.create(self);
    t.DatabaseName:=dl.Directory;
    t.TableName:='bmk.dbf';
    t.FieldDefs.Assign(datat.bmtable2.fielddefs);
    datat.bmTable2.IndexDefs.Update;
    t.IndexDefs.Clear;
    t.IndexDefs.Assign(datat.bmtable2.indexdefs);
    t.CreateTable;
    t.BatchMove(datat.bmtable2,batappend);
    t.Close;
     application.messagebox('恭喜,恭喜,部门库备份成功,注意你已经覆盖了原来的工资库!!!','消息框',mb_ok+mb_iconinformation);
  end;
end;

procedure TBackUp.SpeedButton4Click(Sender: TObject);
var t:Ttable;
begin
if  FileExists(dl.Directory+'\unit.dbf') then
  begin
   application.messagebox('发现单位数据,不能转在同一目录下!!!','消息框',mb_ok+mb_iconstop);
   abort;
  end;
     begin
    datat.unittable1.active:=true;
    t:=ttable.create(self);
    t.DatabaseName:=dl.Directory;
    t.TableName:='unit.dbf';
    t.FieldDefs.Assign(datat.unittable1.fielddefs);
    datat.unitTable1.IndexDefs.Update;
    t.IndexDefs.Clear;
    t.IndexDefs.Assign(datat.unittable1.indexdefs);
    t.CreateTable;
    t.BatchMove(datat.unittable1,batappend);
    t.Close;
     application.messagebox('恭喜,恭喜,单位库备份成功,注意你已经覆盖了原来的工资库!!!','消息框',mb_ok+mb_iconinformation);
  end;
end;

end.