unit5.pas

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Label3: TLabel;
    Table: TTable;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

uses main, password;

{$R *.DFM}

procedure TForm5.Button2Click(Sender: TObject);
begin
  form5.Close;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
table.First;
while not table.Eof do
begin
  if edit1.Text=table.FieldByName('yhm').asstring then
    if edit2.Text=table.FieldByName('mm').asstring then
    begin
    currentuser:=edit1.Text;
    break;
    end;
  table.Next;
end;
if not table.Eof then

       if table.FieldByName('qx').asstring='总经理'
       then
       begin
       main_frm.n26.enabled:=true;
       main_frm.n27.enabled:=true;
       main_frm.n28.enabled:=true;
       main_frm.n30.enabled:=true;
       main_frm.n31.enabled:=true;
       main_frm.n32.enabled:=true;
       form5.Close;
       end
       else
         if table.FieldByName('qx').asstring='客房部总管'
           then
             begin
               main_frm.n26.enabled:=true;
               main_frm.n28.enabled:=false;
               main_frm.n30.enabled:=false;
               main_frm.n31.enabled:=false;
               form5.Close;
             end
           else
         if table.FieldByName('qx').asstring='餐饮部总管'
           then
             begin
               main_frm.n26.enabled:=true;
               main_frm.n27.enabled:=false;
               main_frm.n28.enabled:=true;
               main_frm.n30.enabled:=false;
               main_frm.n31.enabled:=false;
               form5.Close;
             end
           else
           begin
           main_frm.n26.enabled:=false;
           {普通操作员}form5.Close;
           end


       else application.messagebox('用户名或密码输入有误，请重新输入。','错误信息',Mb_ok+Mb_iconwarning)


end;

end.