uuserlogin.pas

天涯進銷存系統

unit uUserlogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, LBCtrls, ExtCtrls, jpeg, StdCtrls, LBMorphVCLBase, LBMorphButton,
  DB, DBClient, SimpleDS;

type
  TfrmUserlogin = class(TForm)
    SysCloseButton: TLBMorphButton;
    WindowCaption: TLabel;
    Image1: TImage;
    Shape1: TShape;
    Shape2: TShape;
    Shape4: TShape;
    EnterButton: TLBButton;
    CancelButton: TLBButton;
    Label1: TLabel;
    Label3: TLabel;
    Image2: TImage;
    LBEdit1: TLBEdit;
    LBEdit2: TLBEdit;
    sdsUserLogon: TSimpleDataSet;
    procedure EnterButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CancelButtonClick(Sender: TObject);
    procedure LBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure LBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private

    { Private declarations }
  public
       isexit: Boolean;
    { Public declarations }
  end;

var
  frmUserlogin: TfrmUserlogin;
  i: integer;

implementation

uses uPublicvar, uDataMo, uConst, Tools;

{$R *.dfm}

procedure TfrmUserlogin.FormCreate(Sender: TObject);
begin
  i:=1;
  isLogon:=False;
end;

procedure TfrmUserlogin.EnterButtonClick(Sender: TObject);
var
  Msg: string;
begin
  OpenData('select * from UserKey where UserCode='+#39+Trim(LBEdit1.Text)+#39,
           sdsUserLogon);
  if sdsUserLogon.IsEmpty then
  begin
    if i<3 then
    begin
      Application.MessageBox('用户编号不存在。',Hintinfo, $30);
      LBEdit1.SetFocus;
      i:=i+1;
      Exit;
    end
    else
    begin
      Application.MessageBox('用户编号不存在，请与系统管理员联系！',Errorinfo, $10);
      Close;
      Exit;
    end;   
  end;
  if sdsUserLogon.FieldByName('UserPassword').AsString<>Trim(LBEdit2.Text) then
  begin
    if i<4 then
    begin
      Application.MessageBox('用户密码输入不正确，请重新输入。',Errorinfo, $30);
      LBEdit2.SetFocus;
      i:=i+1;
      Exit;
    end
    else
    begin
      Application.MessageBox('用户密码输入不正确，请与系统管理员联系！',Errorinfo, $10);
      Close;
      Exit;
    end;   
  end;
  UserCode :=sdsUserLogon.Fieldbyname('UserCode').asstring;
  UserPass :=sdsUserLogon.Fieldbyname('UserPassword').asstring;
  UserName :=sdsUserLogon.Fieldbyname('UserName').asstring;
  UserKey  :=sdsUserLogon.Fieldbyname('UserKey').asstring;
  isLogon:=True;
  Close;
end;


procedure TfrmUserlogin.CancelButtonClick(Sender: TObject);
begin
  isexit:=true;
  Close;
end;

procedure TfrmUserlogin.LBEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TfrmUserlogin.LBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then EnterButtonClick(Sender);
end;

procedure TfrmUserlogin.Image1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Handle, wm_SysCommand ,$F012, 0);
end;

end.