loginfrmunit3.~pas

信息管理系统

unit loginfrmUnit3;

interface

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

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

var
  loginfrm: Tloginfrm;

implementation

uses mainfrmUnit2, dblinkfrmUnit4;

{$R *.dfm}

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

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);
user:= user_ed.Text   ;
loginfrm.Hide ;
mainfrm.show;
 end
else
begin
application.MessageBox('对不起，你的密码不对！','提示：',mb_ok);
pwd_ed.SetFocus ;
end;
end;
end;


end.