login.pas

库房管理系统

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  StdCtrls, DB, ADODB,  DBCtrls, ExtCtrls ;

type
  Tloginfrm = class(TForm)
    qry1: TADOQuery;
    ds1: TDataSource;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    db_user: TDBComboBox;
    Label3: TLabel;
    OKbtn: TButton;
    Button2: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure OKbtnClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfrm: Tloginfrm;

implementation

uses mainfm;

{$R *.dfm}

procedure Tloginfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qry1.Active:=False;
end;

procedure Tloginfrm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
     OKbtn.Click;
end;

procedure Tloginfrm.OKbtnClick(Sender: TObject);
var
  user_1:string;
begin
  //ShowMessage(Trim(RzDBLookupComboBox1.Text)+'  '+Trim(Edit2.Text));
  user_1:=Trim(db_user.Text);
  qry1.SQL.Clear;       //that's very important to set the limited name
  qry1.SQL.Add('select * from tuser where Fcode=:usr1 and fpwd=:psw1 ');
  qry1.Parameters.ParamByName('usr1').Value:=user_1;
  qry1.Parameters.ParamByName('psw1').Value:=Trim(Edit2.Text);
  qry1.Active:=True;
  if qry1.RecordCount>0 then
     begin
//       yhsq(user_1);//调用授权函数
       Close;
       Edit2.Text:='';
   //    mainfrm.RzStatusPane1.Caption:='当前用户为:' + Trim(qry1.FieldByName('sm').value);
     end
  else
     begin
       Application.MessageBox('密码错误!请检查用户名和密码!', '出错了', MB_OK
         + MB_ICONSTOP);
       Edit2.Text:='';
  //     FormCreate(Self);
     end;
end;

procedure Tloginfrm.Button2Click(Sender: TObject);
begin
    if Application.MessageBox('确认退出本系统吗?', '提示信息', MB_OKCANCEL + 
    MB_ICONQUESTION) = IDOK then
  begin
    qry1.Active:=False;
    try
      Application.Terminate;
    except
    end;

  end;
end;

end.