loginfrmunit3.pas

本系统是结合行业管理中实际的人力资源、工资制度

unit loginfrmUnit3;

interface

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

type
  Tloginfrm = class(TForm)
    GroupBox1: TGroupBox;
    login_btn: TButton;
    cancel_btn: TButton;
    user_lb: TLabel;
    pwd_lb: TLabel;
    user_ed: TEdit;
    pwd_ed: TEdit;
    procedure login_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
  private
   usertable:Tusertable;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginfrm: Tloginfrm;
  powerlevel:string;
implementation

uses  mainfrmUnit2, dblinkfrmUnit4, basefindUnit1, baseholdUnit1,
  checkhold, rewardfind, workagefind, pro_titlefind, protitle, wagefind,
  userhold;

{$R *.dfm}

procedure Tloginfrm.login_btnClick(Sender: TObject);
var
  b:bool;
begin
 //创建Tusertable实例
 usertable:=Tusertable.create ;
  try
//判断数据表中是否有记录存在
b:=usertable.CheckUser(user_ed.Text);
except
  loginfrm.Hide;
  dblinkfrm.show;
  exit;
end;
if b=false  then
begin
application.MessageBox('对不起，没有这个用户名！','提示：',mb_ok);
exit;
end
else
begin
if   pwd_ed.Text=usertable.GetUserPwd(user_ed.Text)  then
begin

powerlevel:=usertable.GetUserLevel(user_ed.Text);

mainfrm.show;
loginfrm.Hide;
end
else
begin
application.MessageBox('对不起，你的密码不对！','提示：',mb_ok);
pwd_ed.SetFocus ;
end;
end;
//释放类的实例
usertable.Free;
end;


procedure Tloginfrm.cancel_btnClick(Sender: TObject);
begin
application.Terminate ;
end;

end.