loginform.pas

来自「用Delphi编写的生产管理系统源码」· PAS 代码 · 共 81 行

unit LoginForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, RXCtrls, jpeg;

type
  TFrmLogin = class(TForm)
    Image1: TImage;
    RxLabel1: TRxLabel;
    LBUserName: TLabeledEdit;
    LBUserPassword: TLabeledEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure LBUserNameKeyPress(Sender: TObject; var Key: Char);
    procedure LBUserPasswordKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;
  doCount: integer = 0;

implementation

uses AdoDataMoudle, MainForm, UserInfo;

{$R *.dfm}

procedure TFrmLogin.Timer1Timer(Sender: TObject);
begin
  BorderStyle := bsDialog;
  Timer1.OnTimer := nil;
  Image1.Hide;
  BitBtn1.Show;
  BitBtn2.show;
  LBUserName.Show;
  LBUserPassword.Show;
  RxLabel1.Show;
  LBUserName.SetFocus;
end;

procedure TFrmLogin.LBUserNameKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      LBUserPassword.SetFocus;
      key := #0;
    end;
end;

procedure TFrmLogin.LBUserPasswordKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    begin
      BitBtn1.click;
      key := #0;
    end;

end;

procedure TFrmLogin.BitBtn1Click(Sender: TObject);
begin
  inc(doCount);
  if not Assigned(sysUser) then
    SysUser := TSysUser.Create(LBUserName.Text, LBUserPassword.Text, DataModuleAdo.ADOConnectionTS);
  if sysuser.Enable then
    close
  else
    begin
      if doCount >= 3 then
        begin
          showmessage('