logofrm.pas

考勤管理是企业内部管理的重要环节和基础

unit logofrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, DBCtrls, Grids, DBGrids, Buttons;

resourcestring
  sPassword='您的口令不正确,请再输一遍!!';

type
  TLogoform = class(TForm)
    bbtnCancel: TBitBtn;
    lblUser: TLabel;
    edtID: TEdit;
    lblID: TLabel;
    dblcOprator: TDBLookupComboBox;
    bbtnConfrim: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure bbtnConfrimClick(Sender: TObject);
    procedure dblcOpratorClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Logoform: TLogoform;

implementation

uses Globals, unDM2, dialog;

{$R *.DFM}

procedure TLogoform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action:=caFree;
end;

procedure TLogoform.FormDestroy(Sender: TObject);
begin
   LogoForm:=nil;
end;

procedure TLogoform.bbtnCancelClick(Sender: TObject);
begin
  if Assigned(DM2) then begin
    Dm2.Free;
    DM2:=nil;
  end;
  AccSetselected:=False;
  LogoForm.close;
end;

procedure TLogoform.bbtnConfrimClick(Sender: TObject);
begin
   if UpperCase(Trim(edtID.text))=DM2.tblLogoPassWord.Value then begin
     AccSetselected:=True;
     glUserID:=DM2.tblLogoUserID.Value;
     Accredit:=DM2.tblLogoLiberty.Value;
     LogoForm.close;
   end
   else begin
     MessageDlg(Pchar(sPassword),mtInformation,[mbOK],0);
     edtID.text:='';
     edtID.SetFocus;
   end;
end;

procedure TLogoform.dblcOpratorClick(Sender: TObject);
begin
  bbtnConfrim.Enabled:=True;
  edtID.SetFocus;
end;

procedure TLogoform.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then begin
    if not (ActiveControl is TDBGrid) then begin
      key:=#0;
      perform(WM_NEXTDLGCTL,0,0);
    end else if (ActiveControl is TDBGrid) then begin
      with TDBGrid(ActiveControl) do
        if SelectedIndex<(FieldCount-1) then
          selectedIndex:=SelectedIndex+1
        else selectedIndex:=0;
      end;
    end;
end;

end.