login.~pas

图书馆管理系统

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  TfrmLogin = class(TForm)
    btnLogin: TButton;
    btnCancel: TButton;
    Label1: TLabel;
    Label2: TLabel;
    edtUserID: TEdit;
    edtPassword: TEdit;
    procedure btnLoginClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    function PF_Login: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;

implementation

uses Main,COMMON,Db_Con;

{$R *.dfm}
//*****************************************************************************
//   函 数 名： btnLoginClick
//   功能描述： 用户登录
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
    //用户登录
    {if PF_Login=False then begin
        Exit;
    end;}
    //Main主画面的菜单控制
    frmMain.N1.Enabled :=True;
    frmMain.N2.Enabled :=True;
    frmMain.N3.Enabled :=True;
    frmMain.N4.Enabled :=True;
    frmMain.N35.Enabled :=True;
    Close;
end;
//*****************************************************************************
//   函 数 名： FormCreate
//   功能描述： INI 文件信息取得
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/07        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmLogin.btnCancelClick(Sender: TObject);
begin
    Close;
    frmMain.Close;
end;
//*****************************************************************************
//   函 数 名： FormClose
//   功能描述： 关闭画面
//   参    数： 无
//   返 回 值： 无
//   作成日期： 2004/03/07        作成者：Allan
//   修改日期：
//*****************************************************************************
procedure TfrmLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
end;
//*****************************************************************************
//   函 数 名： PF_Login
//   功能描述： 用户登录
//   参    数： 无
//   返 回 值： Boolean
//   作成日期： 2004/03/13        作成者：Allan
//   修改日期：
//*****************************************************************************
Function  TfrmLogin.PF_Login: Boolean;
var strSql : String;    //SQL文
begin
    Result:=False;
    if Trim(edtUserID.Text)='' then begin
        MessageDlg('      请输入用户名！      ',mtError,[mbOk],0);
        edtUserID.SetFocus;
        Exit;
    end;
    if Trim(edtPassword.Text)='' then begin
        MessageDlg('      请输入密码！      ',mtError,[mbOk],0);
        edtPassword.SetFocus;
        Exit;
    end;
    with Db_Connect.Library_Query do begin
        strSql:='';
        strSql:=strSql + ' SELECT USER_ID,USER_PWD FROM USER_INFO';
        strSql:=strSql + ' WHERE USER_ID='''+Trim(edtUserID.Text)+'''';
        strSql:=strSql + ' AND USER_PWD='''+Trim(edtPassword.Text)+'''';
        Close;
        DatabaseName:=gDbName;
        SQL.Clear;
        SQL.Add(strSql);
        try
            Open;
            //用户不存在
            if Eof then begin
                Close;
                Result:=False;
                MessageDlg('      用户名或密码错误！      ',mtError,[mbOk],0);
            end
            //用户存在
            else begin
                Close;
                Result := True;
            end;
            exit;
        except
            on E:exception do
            begin
                Result := False;
                Close;
                Application.MessageBox(PChar(E.Message),'图书管理信息系统',MB_OK + MB_ICONERROR);
                exit;
            end;
        end;
    end;
    Result := True;
end;
end.