评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

delphi+access设备保养管理系统[开题报告＋论文＋源(3)

2013-06-07 01:23 nbsp;  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.

用户管理界面与代码设计实现

代码设计:
unit Unit9;

interface

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

type
  Tfrmusermang = class(TForm)
    DBGrid1: TDBGrid;
    adodsuser: TDataSource;
    adoqueuser: TADOQuery;
    adoqueuseruser: TWideStringField;
    adoqueuserpassword: TWideStringField;
    adoqueuserpower: TWideStringField;
    Label1: TLabel;
    btnok: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmusermang: Tfrmusermang;

implementation
uses unit5,unit6;
{$R *.dfm}

procedure Tfrmusermang.FormCreate(Sender: TObject);
var username:string;
begin
username:=copy(frmmain.StatusBar1.Panels[2].Text,11,7);
adoqueuser.Close;
adoqueuser.SQL.Clear;
if frmmain.StatusBar1.Panels[3].Text<>'管理用户' then
begin
adoqueuser.SQL.Add('select* from pass where user='+'"'+username+'"');
dbgrid1.Columns[0].Width:=105;
db