yonghudenglu.pas

来自「Delphi实战演练一书的配套光盘」· PAS 代码 · 共 114 行

unit YonghuDenglu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, DBTables, Mask;

type
  TYonghuDengluFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Query1: TQuery;
    MaskEdit1: TMaskEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YonghuDengluFrm: TYonghuDengluFrm;

implementation

uses Main;

{$R *.DFM}

procedure TYonghuDengluFrm.BitBtn1Click(Sender: TObject);
begin
  MainFrm.MainMenu1.Items[0].Enabled:=False;
  MainFrm.MainMenu1.Items[1].Enabled:=False;
  MainFrm.MainMenu1.Items[2].Enabled:=False;
  MainFrm.MainMenu1.Items[3].Enabled:=False;
  MainFrm.MainMenu1.Items[4].Items[1].Enabled:=False;
  MainFrm.MainMenu1.Items[4].Items[2].Enabled:=False;
  MainFrm.MainMenu1.Items[5].Enabled:=False;
  Close;
end;

procedure TYonghuDengluFrm.BitBtn2Click(Sender: TObject);
begin
  if Edit1.Text='' then
    Edit1.SetFocus
  else
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add('Select 雇员号,口令,权限 from Guyuan');
    Query1.SQL.Add('Where 雇员号='+Edit1.Text);
    Query1.SQL.Add('And 口令='''+MaskEdit1.Text+'''');
    Query1.Open;

    if (Query1.RecordCount<>1) or (MaskEdit1.Text<>Query1.FieldValues['口令']) then
    begin
      showMessage('口令不对，请检查。');
      Edit1.SetFocus;
    end
    else
    begin
      if Query1.FieldValues['权限']='管理' then
      begin
        MainFrm.MainMenu1.Items[0].Enabled:=True;
        MainFrm.MainMenu1.Items[1].Enabled:=True;
        MainFrm.MainMenu1.Items[2].Enabled:=True;
        MainFrm.MainMenu1.Items[3].Enabled:=True;
        MainFrm.MainMenu1.Items[4].Items[0].Enabled:=False;
        MainFrm.MainMenu1.Items[4].Items[1].Enabled:=True;
        MainFrm.MainMenu1.Items[4].Items[2].Enabled:=True;
        MainFrm.MainMenu1.Items[5].Enabled:=True;
      end;
      if Query1.FieldValues['权限']='维护' then
      begin
        MainFrm.MainMenu1.Items[0].Enabled:=True;
        MainFrm.MainMenu1.Items[1].Enabled:=True;
        MainFrm.MainMenu1.Items[2].Enabled:=False;
        MainFrm.MainMenu1.Items[3].Enabled:=False;
        MainFrm.MainMenu1.Items[4].Items[0].Enabled:=False;
        MainFrm.MainMenu1.Items[4].Items[1].Enabled:=True;
        MainFrm.MainMenu1.Items[4].Items[2].Enabled:=False;
        MainFrm.MainMenu1.Items[5].Enabled:=False;
      end;
      if Query1.FieldValues['权限']='查询' then
      begin
        MainFrm.MainMenu1.Items[0].Enabled:=False;
        MainFrm.MainMenu1.Items[1].Enabled:=True;
        MainFrm.MainMenu1.Items[2].Enabled:=True;
        MainFrm.MainMenu1.Items[3].Enabled:=True;
        MainFrm.MainMenu1.Items[4].Items[0].Enabled:=False;
        MainFrm.MainMenu1.Items[4].Items[1].Enabled:=True;
        MainFrm.MainMenu1.Items[4].Items[2].Enabled:=False;
        MainFrm.MainMenu1.Items[5].Enabled:=False;
      end;
//      showmessage('合法用户');
      Close;
    end;
  end;
end;

procedure TYonghuDengluFrm.FormShow(Sender: TObject);
begin
  Edit1.Text:='';
  MaskEdit1.Text:='';
end;

end.