unit_screenlock.pas

影院售票系统完整源码

unit Unit_ScreenLock;

interface

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

type
  TFrmLock = class(TForm)
    LblTimes: TLabel;
    lblpwd: TLabel;
    EdtPwd: TMaskEdit;
    LblCount: TLabel;
    CyberXPMenu1: TCyberXPMenu;
    procedure EdtPwdKeyPress(Sender: TObject; var Key: Char);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
    ErrorCount: Integer;
  public
    { Public declarations }
  end;

var
  FrmLock: TFrmLock;

implementation

uses
  unit_frmmain,unit_public;

{$R *.dfm}

procedure TFrmLock.EdtPwdKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then close;
end;

procedure TFrmLock.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := EdtPwd.Text = publicinfo.Password;
  if not CanClose then
  begin
    Inc(ErrorCount);
    MessageDlg('密码错误!', mtInformation, [mbOK], 0);

    lblCount.Caption := IntToStr(3 - ErrorCount);

    if (ErrorCount >=3) then
    begin
      MessageDlg('密码错误次数太多，程序将退出。', mtInformation, [mbOK], 0);
      PostMessage(Frmmain.Handle, WM_QUIT, 0, 0);
      CanClose := True;
    end;
  end;
end;

procedure TFrmLock.FormCreate(Sender: TObject);
begin
  Caption :=Trim(publicInfo.OperName) + Caption ;
  ErrorCount := 0;
  lblCount.Caption := '3';
end;

procedure TFrmLock.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
end;

end.