login.pas

商品销售系统完全的功能SQL和JAVA

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons;

type
  Tloginfrm = class(TForm)
    BitBtn1: TBitBtn;
    users: TEdit;
    Label2: TLabel;
    pasw: TEdit;
    Label1: TLabel;
    MainMenu1: TMainMenu;
    admin1: TMenuItem;
    windows1: TMenuItem;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfrm: Tloginfrm;

implementation

uses mainunt,datam,maind;

{$R *.dfm}

procedure Tloginfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
loginfrm:=nil;
loginfrm.Free;
end;

procedure Tloginfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    begin
      Perform(CM_DialogKey,Vk_TAB,0);
      key:=#0;
    end;
end;

procedure Tloginfrm.BitBtn1Click(Sender: TObject);
begin
     if user_check(users.Text,pasw.Text)=true then
       begin
          usrname:=users.text;
          main.statusbar1.Panels.Items[1].Text :='收银员 '+usrname;
          loginfrm.close;
       end
   else
    begin
    Tag:=tag+1;
    MessageBox(Getactivewindow(),'用户登录失败,请重新确认用户身份!',
     '警告框', mb_Ok + mb_IconWarning);
    users.SelectAll;
    users.SetFocus;
    pasw.Text:='';
    if Tag>4 then
       begin
           MessageBox(Getactivewindow(),'用户三次登录失败，系统退出!',
     '警告框', mb_Ok + mb_IconWarning);
     dynamicchangedisplay(load_displayw('屏幕分辨率',800),load_displayh('屏幕分辨率',600));
           application.Terminate;
       end;
   end;
end;

procedure Tloginfrm.FormActivate(Sender: TObject);
begin
users.SetFocus;
end;

end.