hm_loginout.~pas

本课题是为企业人事管理提供现代化技术支持的管理信息系统

unit hm_loginOut;

interface

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

type
  Thm_loginOutForm = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    CheckBox1: TCheckBox;
    ADOConnection1: TADOConnection;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    //自定义单元
    idright:integer;//用户编号
    idnum:integer; //权限
    uname:string; //用户名
    { Public declarations }
  end;

var
  hm_loginOutForm: Thm_loginOutForm;

implementation

uses hm_main, hm_dp, hm_roll, hm_pinf, hm_emp, hm_user;
{$R *.dfm}
//--------------登录窗口显示时，清除上一次输入
procedure Thm_loginOutForm.FormShow(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
end;

//----------------选择隐身登陆------------------
procedure Thm_loginOutForm.CheckBox1Click(Sender: TObject);
begin
    if CheckBox1.Checked then
    begin
        Edit1.PasswordChar:='0';
    end
    else
    begin
        Edit1.PasswordChar:='*'; //用*号显示用户名输入
    end;

end;

//----------------------取消登录，退出程序-----------------------
procedure Thm_loginOutForm.BitBtn2Click(Sender: TObject);
begin
  Application.Terminate;
end;

//----------------------确定登录-----------------------
procedure Thm_loginOutForm.BitBtn1Click(Sender: TObject);
begin

  //从用户清单表中提取信息
    ADOQuery1.close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Text := 'select * from 用户清单 where 用户名 = '''+Edit1.Text+''' and  密码 = '''+Edit2.Text+'''';
    ADOQuery1.Open;
    //如果没有该用户
    if ADOQuery1.RecordCount =0 then
    begin
        ShowMessage('用户名或密码错误，请重新登录');
    end
    else//找到用户
    begin
        //记录用户信息
        idright:=ADOQuery1.FieldByName('权限').AsInteger;
        idnum:=ADOQuery1.FieldByName('编号').AsInteger;
        //决定是否显示用户名
        if CheckBox1.Checked then
        begin
            uname:='隐身登陆';
        end
        else
        begin
            uname:=ADOQuery1.FieldByName('用户名').AsString;
        end;
        //生成其他窗口
        hm_loginOutForm.Visible := False;
        Application.CreateForm(Thm_mainForm, hm_mainForm);
        Application.CreateForm(Thm_userForm, hm_userForm);
        Application.CreateForm(Thm_dpForm, hm_dpForm);
        Application.CreateForm(Thm_pinfForm, hm_pinfForm);
        Application.CreateForm(Thm_rollForm, hm_rollForm);
        Application.CreateForm(Thm_empForm, hm_empForm);
        hm_mainForm.ShowModal;
    end;
end;

end.