frmlocksys.pas

来自「一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. 」· PAS 代码 · 共 75 行

unit FrmLocksys;

interface

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

type
  TFrm_Locksys = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    MyAdmin:TAdmin;
    CloseFlag:Boolean;
  public
    { Public declarations }
  end;
var
  Frm_Locksys: TFrm_Locksys;

implementation

uses FrmMain;

{$R *.dfm}

procedure TFrm_Locksys.FormCreate(Sender: TObject);
begin
 myAdmin:=Tadmin.Create;
 CloseFlag:=False;
end;

procedure TFrm_Locksys.Button1Click(Sender: TObject);
begin
 if myadmin.VerifyPwd(Trim(edit1.Text),Frm_Main.AdminID)=true Then
  Begin
   CloseFlag:=True;
   Frm_main.timer1.Enabled:= True;
   Close;
  end
 Else
  Begin
   Showmessage('解锁密码不正确~~~');
   Exit;
  End;
end;

procedure TFrm_Locksys.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  exit;
end;

procedure TFrm_Locksys.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
CanClose :=CloseFlag;
end;

procedure TFrm_Locksys.FormActivate(Sender: TObject);
begin
 edit1.Text:='';
 CloseFlag:=False;
end;

end.