password.pas

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

unit password;

interface

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

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

var
  Form2: TForm2;
  currentuser:string;
implementation

uses main;

{$R *.DFM}

procedure TForm2.Button2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm2.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
begin

       if table.FieldByName('qx').asstring='总经理'
       then
       begin
       main_frm.n26.enabled:=true;

       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;

             end
           else
         if table.FieldByName('qx').asstring='餐饮部总管'
           then
             begin
               main_frm.n26.enabled:=true;
               main_frm.n27.enabled:=false;
               main_frm.n30.enabled:=false;
               main_frm.n31.enabled:=false;

             end
           else
           begin
           {普通操作员}
           end;
  form2.Close;
  
  Application.Run;

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


end;

procedure TForm2.FormCreate(Sender: TObject);
begin

table.Open;
end;

end.