login.pas

基于DELPHI+SQL的药品管理系统

unit login;

interface

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

type
  TfrmLogin = class(TForm)
    edtUserName: TEdit;
    edtUserPassword: TEdit;
    btnLogin: TButton;
    btnCancel: TButton;
    qryLogin: TQuery;
    Database1: TDatabase;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure btnLoginClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtUserNameKeyPress(Sender: TObject; var Key: Char);
    procedure edtUserPasswordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses medicine, Common;

{$R *.DFM}

procedure TfrmLogin.btnLoginClick(Sender: TObject);
var
   lstrSql: string;
begin
     if edtUserName.Text = '' then
     begin
        Application.MessageBox('请填写用户名称！','提示',mb_ok);
        edtUserName.SetFocus ;
        exit;
     end;

     if edtUserPassWord.Text = '' then
     begin
        Application.MessageBox('请填写用户密码！','提示',mb_ok);
        edtUserPassWord.SetFocus ;
        exit;
     end;

     qryLogin.Close;
     qryLogin.sql.Clear;
     lstrSql := 'select user,password,pope from usersystem where user = '''
                + edtUserName.Text + ''' and password = '''
                + edtUserPassword.Text + '''';
     qryLogin.sql.Add(lstrSql);
     qryLogin.open;

     if qryLogin.RecordCount <= 0 then
     begin
        Application.MessageBox('用户名称或用户密码错误！','提示',mb_ok);
        edtUserName.SetFocus ;
        exit;
     end;

     if qryLogin.FieldByName('pope').AsString = '0' then
     begin
        Application.MessageBox('此用户已被禁用，请选用别的用户登陆！','提示',mb_ok);
        edtUserName.SetFocus ;
        exit;
     end;

     gUserInfo.UserName := edtUserName.Text;
     gUserInfo.UserPassWord := edtUserPassWord.Text;
     gUserInfo.UserPope := qryLogin.FieldByName('pope').AsString;
     self.Close;
end;

procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
     gUserInfo.UserName := '';
     gUserInfo.UserPassWord := '';
     gUserInfo.UserPope := '';

     self.Close;
end;

procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmLogin.edtUserNameKeyPress(Sender: TObject; var Key: Char);
begin
 if Key = #13 then
  begin
    Key := #0;
    SelectNext( TWinControl(Sender), True, True);
  end;
end;

procedure TfrmLogin.edtUserPasswordKeyPress(Sender: TObject;
  var Key: Char);
begin
 if Key = #13 then
  begin
    Key := #0;
    btnLoginClick(nil)
  end;
end;

end.