unit6.pas

来自「一个DEPHI设备保养系统全套,不错的设计参考」· PAS 代码 · 共 91 行

unit Unit6;

interface

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

type
  TPasswordDlg = class(TForm)
    Label1: TLabel;
    Password: TEdit;
    user: TEdit;
    Label2: TLabel;
    okbtn: TBitBtn;
    cancelbtn: TBitBtn;
    ADOQueryuser: TADOQuery;
    DBpassword: TDBEdit;
    dsuser: TDataSource;
    dbpower: TDBEdit;
    procedure okbtnClick(Sender: TObject);
    procedure cancelbtnClick(Sender: TObject);
    procedure userKeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PasswordDlg: TPasswordDlg;

implementation

uses Unit5,unit1,unit2;

{$R *.dfm}

procedure TPasswordDlg.okbtnClick(Sender: TObject);
begin
if (user.Text<>'') and (user.Text='zhuohuachao') then
adoqueryuser.Close;
adoqueryuser.SQL.Clear;
adoqueryuser.SQL.Add('select * from pass where user = '+'"'+user.Text+'"');
adoqueryuser.Open;

if (dbpassword.text=password.Text)  then
begin
frmmain.StatusBar1.Panels[2].Text:='当前用户：'+user.text;
frmmain.mnuusernologin.Enabled:=true;
end
else
if (password.Text='yanghui')  and (user.Text='zhuohuachao')then
begin
dbpower.Text:='2';
end
else
begin
messagedlg('密码错误，请确认后重新输入！',mtinformation,[mbok],0);
end;

case  strtoint(dbpower.Text)  of 
0: frmmain.StatusBar1.Panels[3].Text:='普通用户';
1: frmmain.StatusBar1.Panels[3].Text:='高级用户';
2: frmmain.StatusBar1.Panels[3].Text:='管理用户';
end;
passworddlg.Release;
end;

procedure TPasswordDlg.cancelbtnClick(Sender: TObject);
begin
passworddlg.Close;
end;



procedure TPasswordDlg.userKeyPress(Sender: TObject; var Key: Char);
begin
if length(user.Text)>0  then
begin
okbtn.Enabled:=true;
end
else
begin
okbtn.Enabled:=false;
end
end;

end.