fmloginu.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit FMLoginU;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, ExtCtrls, Buttons, ADODB;

type
  TFMLogin = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    idtPwd: TEdit;
    idtUser: TEdit;
    Label2: TLabel;
    Image1: TImage;
    btnOK: TBitBtn;
    BitBtn2: TBitBtn;
    QrySQL: TADOQuery;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnOKClick(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure idtUserKeyPress(Sender: TObject; var Key: Char);
    procedure idtPwdKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    FSuccess :integer ;
  public
    { Public declarations }
    aUserId,aUserName,aCustName :string ; 
    property DSuccess :integer  read FSuccess write FSuccess ;
  end;

var
  FMLogin: TFMLogin;

implementation

{$R *.DFM}
uses FMDBU ;

procedure TFMLogin.FormActivate(Sender: TObject);
begin
 FSuccess :=0 ; 
end;

procedure TFMLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if FSuccess=1 then
      ModalResult := mrOK;
end;

procedure TFMLogin.btnOKClick(Sender: TObject);
var
  strPwd :string ;
begin
  aUserId :=trim(idtUser.Text) ;
  strPwd :=trim(idtPwd.Text);

  QrySQL.Active :=False ;
  QrySQL.SQL.Text :=' select fPwd,fUserName,fStatu from ts_User where fUserNO='+#39+aUserId+#39;
  QrySQL.Active :=True ;
  if trim(QrySQL.fields[0].AsString)<>'' then
   begin
     if strPwd <>trim(QrySQL.fields[0].AsString) then
      begin
        MessageBox(handle,PChar('密码不正确.'),'提示',MB_OK+MB_ICONWARNING);
        idtPwd.Clear ;
        idtPwd.SetFocus ;
        exit ;
      end ;
     if (LowerCase(aUserId)<>'system') and (QrySQL.fields[2].AsInteger=0) then
      begin
        MessageBox(handle,PChar('该用户禁止登陆.'),'提示',MB_OK+MB_ICONWARNING);
        idtUser.Clear ;
        idtUser.SetFocus ;
        exit;
      end ;
     aUserName :=QrySQL.Fields[1].AsString ;
     QrySQL.Active :=false ;
     QrySQL.SQL.Text :='select fPameValue from ts_Pame where fPameNo=1';
     QrySQL.Active :=true ;
     if QrySQL.Fields[0].AsString<>'' then
         aCustName :=QrySQL.Fields[0].AsString
     else
         aCustName :='测试客户';
     ModalResult := mrOK;
     FSuccess :=1 ;
   end
  else
    begin
      MessageBox(handle,PChar('无此用户.'),'提示',MB_OK+MB_ICONWARNING);
      idtUser.Clear ;
      idtUser.SetFocus ;
    end ;
end;

procedure TFMLogin.BitBtn2Click(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TFMLogin.idtUserKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=#13) and (trim(idtUser.Text)<>'') then
   begin
      if trim(idtPwd.Text)<>'' then
         btnOKClick(nil)
      else
         idtPwd.SetFocus ;
   end ;
end;

procedure TFMLogin.idtPwdKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=#13) and (trim(idtPwd.Text)<>'') then
   begin
      if trim(idtUser.Text)<>'' then
         btnOKClick(nil)
      else
         idtUser.SetFocus ;
   end ;
end;

end.