maindinner.pas

完成酒店管理系统

unit MainDinner;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Menus, Grids, DBGrids,Login,TaxSet;

type
  TMainDinnerFrm = class(TForm)
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    U1: TMenuItem;
    P1: TMenuItem;
    E1: TMenuItem;
    D1: TMenuItem;
    U2: TMenuItem;
    D2: TMenuItem;
    P2: TMenuItem;
    N1: TMenuItem;
    U3: TMenuItem;
    M1: TMenuItem;
    D3: TMenuItem;
    H1: TMenuItem;
    A1: TMenuItem;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    procedure U1Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure U2Click(Sender: TObject);
    procedure D2Click(Sender: TObject);
    procedure P2Click(Sender: TObject);
    procedure U3Click(Sender: TObject);
    procedure M1Click(Sender: TObject);
    procedure D3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainDinnerFrm: TMainDinnerFrm;

implementation

uses UserReg, PassWd, DinnerUser, DinnerMenu, DinnerOrder, DinnerUserSql,
  DinnerMenuSql, DinnerOrderSql;

{$R *.dfm}

procedure TMainDinnerFrm.U1Click(Sender: TObject);
begin
//进入用户和权限设置界面
UserRegFrm.Show;
end;

procedure TMainDinnerFrm.E1Click(Sender: TObject);
begin
//退出系统
close;
end;

procedure TMainDinnerFrm.P1Click(Sender: TObject);
begin
//进入修改密码界面
PassWdFrm.Show;
end;

procedure TMainDinnerFrm.U2Click(Sender: TObject);
begin
DinnerUserFrm.Show;
end;

procedure TMainDinnerFrm.D2Click(Sender: TObject);
begin
DinnerMenuFrm.Show;
end;

procedure TMainDinnerFrm.P2Click(Sender: TObject);
begin
DinnerOrderFrm.Show;
end;

procedure TMainDinnerFrm.U3Click(Sender: TObject);
begin
DinnerUserSqlFrm.Show;
end;

procedure TMainDinnerFrm.M1Click(Sender: TObject);
begin
DinnerMenuSqlFrm.Show;

end;

procedure TMainDinnerFrm.D3Click(Sender: TObject);
begin
DinnerOrderSqlFrm.Show;
end;

procedure TMainDinnerFrm.FormShow(Sender: TObject);
begin
MakeTax:= 0.03;
if UserPower <> '管理员' then
begin
U1.Enabled:= False;
DBGrid1.Visible:= False;
end;
end;

end.