unit ULOGIN;

interface

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

type
  TLOGIN = class(TForm)
    Panel1: TPanel;
    XPManifest1: TXPManifest;
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox1DropDown(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Change(Sender: TObject);
  private
    iTimes: Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LOGIN: TLOGIN;

implementation

uses UMAIN, UDM;

{$R *.dfm}

procedure TLOGIN.SpeedButton1Click(Sender: TObject);
var
  i,j:integer;
begin
  Inc(iTimes);
  Main.Auser.UserID:=DM.QUSER.FieldByName('用戶編號(hào)').AsString;
  Main.Auser.UserName:=DM.QUSER.FieldByName('用戶名稱').AsString;
  if DM.QUSER.FieldByName('用戶編號(hào)').AsString='' then
    Application.MessageBox('沒有用戶存在，請預(yù)先設(shè)定好用戶！','提示',4);
  if Trim(Edit1.Text)=DM.QUSER.FieldByName('密碼').AsString then
   begin
   Close;
    Main.Caption:='倉庫管理系統(tǒng)V2.0版';
    DM.QUSER.Open;
  end
  else
    begin
      Messagebox(0,'用戶名或密碼錯(cuò)誤，請重新輸入！'+#13#10+'并請確定您有進(jìn)入的權(quán)限。','',MB_OK+MB_ICONSTOP);
      Edit1.Text:='';
    end;
    IF iTimes=4 then
    begin
      Application.MessageBox('您進(jìn)行系統(tǒng)身份確認(rèn)程序錯(cuò)誤已經(jīng)超過3次，本系統(tǒng)將停止執(zhí)行！','提示！',0);
      Application.Terminate;
    end;
end;

procedure TLOGIN.SpeedButton2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TLOGIN.ComboBox1Change(Sender: TObject);
begin
  DM.QUSER.Locate('用戶名稱', ComboBox1.text,[]);
  Edit1.SetFocus;
end;

procedure TLOGIN.ComboBox1DropDown(Sender: TObject);
var
  i:integer;
begin
  ComboBox1.Clear;
  DM.QUSER.Open;
  if (DM.QUSER.RecordCount>0) then
    DM.QUSER.First;
  for i:=0 to DM.QUSER.RecordCount-1 do
  begin   //得到所有用戶名稱
    ComboBox1.Items.Add(DM.QUSER.FieldByName('用戶名稱').AsString);
    DM.QUSER.Next;
  end;
end;
procedure TLOGIN.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key = #13) then //當(dāng)輸入完密碼，敲入回車鍵，Button1執(zhí)行單擊操作
    SpeedButton1Click(Sender);
end;

procedure TLOGIN.Edit1Change(Sender: TObject);
begin
  Edit1.Text:=Trim(Edit1.Text);
end;

end.