ulogin.~pas

delphi 开发的完整的仓库管理系统（带数据库）

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('用户编号').AsString;
  Main.Auser.UserName:=DM.QUSER.FieldByName('用户名称').AsString;
  if DM.QUSER.FieldByName('用户编号').AsString='' then
    Application.MessageBox('没有用户存在，请预先设定好用户！','提示',4);
  if Trim(Edit1.Text)=DM.QUSER.FieldByName('密码').AsString then
   begin
   Close;
    Main.Caption:='仓库管理系统V2.0版';
    DM.QUSER.Open;
  end
  else
    begin
      Messagebox(0,'用户名或密码错误，请重新输入！'+#13#10+'并请确定您有进入的权限。','',MB_OK+MB_ICONSTOP);
      Edit1.Text:='';
    end;
    IF iTimes=4 then
    begin
      Application.MessageBox('您进行系统身份确认程序错误已经超过3次，本系统将停止执行！','提示！',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 //当输入完密码，敲入回车键，Button1执行单击操作
    SpeedButton1Click(Sender);
end;

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

end.