unit2.pas

劳保管理 ACCESS数据库 作为设计的一个参考

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.BitBtn1Click(Sender: TObject);
var
  yy,mm,dd:word;
  pw:integer;
begin
   decodedate(Date,yy,mm,dd);
   pw:=yy+dd;
  //动态口令年＋日
if edit1.Text =inttostr(pw) then
  begin
  form1.show;
  form2.close;
  end
else
  BEGIN
   MessageDlg('密码错误,非法用户！' , mtWarning, [mbOk], 0);
   //exit;
   form1.close;
  END;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
form1.close;
form2.close;
end;

end.