unit2.pas

来自「这是个才财务管理系统！可能是哪个语言！但是我不认识！」· PAS 代码 · 共 91 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  Tfrm_sys = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys: Tfrm_sys;

implementation

uses Unit1, Unit4, Unit6;

{$R *.DFM}

procedure Tfrm_sys.BitBtn5Click(Sender: TObject);
begin
  self.close;
end;

procedure Tfrm_sys.BitBtn2Click(Sender: TObject);
begin
 frm_model.show;
 frm_sys.close;
end;

procedure Tfrm_sys.BitBtn1Click(Sender: TObject);
begin
  frm_pwdcheck.tag:=0;
  frm_pwdcheck.show;
end;

procedure Tfrm_sys.BitBtn3Click(Sender: TObject);
begin


if messagedlg('软盘插好了吗?',mtconfirmation,[mbyes,mbno],0)=mryes then

if copyfile('人员信息表.db','a:\人员信息表.db',false)
   and copyfile('安装记录表.db','a:\安装记录表.db',false)
   and copyfile('空调名称及型号表.db','a:\空调名称及型号表.db',false)
   and copyfile('口令表.db','a:\口令表.db',false)
   and copyfile('工资表.db','a:\工资表.db',false)
then
   messagedlg('数据已备份完毕!',mtconfirmation,[mbok],0)
else
   messagedlg('数据备份失败!',mterror,[mbok],0);


end;

procedure Tfrm_sys.BitBtn4Click(Sender: TObject);
begin

if messagedlg('软盘插好了吗?',mtconfirmation,[mbyes,mbno],0)=mryes then

if copyfile('a:\人员信息表.db','人员信息表.db',false)
   and copyfile('a:\安装记录表.db','安装记录表.db',false)
   and copyfile('a:\空调名称及型号表.db','空调名称及型号表.db',false)
   and copyfile('a:\口令表.db','口令表.db',false)
   and copyfile('a:\工资表.db','工资表.db',false)
then
   messagedlg('数据已恢复完毕!',mtconfirmation,[mbok],0)
else
   messagedlg('数据恢复失败!',mterror,[mbok],0);


end;

end.