superuserdialog.pas

来自「一个Delphi写的跟考勤机门禁机收款机的接品软件源码」· PAS 代码 · 共 69 行

unit SuperUserDialog;

interface

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

type
  TdlgSuperUser = class(TForm)
    gbDoors: TGroupBox;
    cbDoor1: TCheckBox;
    cbDoor2: TCheckBox;
    cbDoor3: TCheckBox;
    cbDoor4: TCheckBox;
    edPwd: TEdit;
    Label1: TLabel;
    plBottom: TPanel;
    btnOk: TButton;
    btnCancel: TButton;
    procedure FormDestroy(Sender: TObject);
    procedure edPwdChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    PassDoors: string;
  end;

var
  dlgSuperUser: TdlgSuperUser;

implementation

{$R *.DFM}

procedure TdlgSuperUser.FormDestroy(Sender: TObject);
begin
  dlgSuperUser:=nil;
end;

procedure TdlgSuperUser.edPwdChange(Sender: TObject);
begin
  btnOk.Enabled:=(Length(edPwd.Text)=6) and (StrToInt('$'+edPwd.Text)>0);
end;

procedure TdlgSuperUser.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  PassDoors:='';
  if cbDoor1.Checked then PassDoors:=PassDoors+'1';
  if cbDoor2.Checked then PassDoors:=PassDoors+'2';
  if cbDoor3.Checked then PassDoors:=PassDoors+'3';
  if cbDoor4.Checked then PassDoors:=PassDoors+'4';
end;

procedure TdlgSuperUser.FormShow(Sender: TObject);
begin
  cbDoor1.Checked:=Pos('1', PassDoors)<>0;
  cbDoor2.Checked:=Pos('2', PassDoors)<>0;
  cbDoor3.Checked:=Pos('3', PassDoors)<>0;
  cbDoor4.Checked:=Pos('4', PassDoors)<>0;
  if edPwd.CanFocus then edPwd.SetFocus;
end;

end.