mainsail.pas

完成酒店管理系统

unit MainSail;

interface

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

type
  TMainSailFrm = class(TForm)
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    U1: TMenuItem;
    N1: TMenuItem;
    P1: TMenuItem;
    X1: TMenuItem;
    I1: TMenuItem;
    S2: TMenuItem;
    R1: TMenuItem;
    D1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    D2: TMenuItem;
    fuwu1: TMenuItem;
    C1: TMenuItem;
    yingye1: TMenuItem;
    R2: TMenuItem;
    D3: TMenuItem;
    N4: TMenuItem;
    R3: TMenuItem;
    C2: TMenuItem;
    O1: TMenuItem;
    H1: TMenuItem;
    A1: TMenuItem;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    procedure U1Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure P1Click(Sender: TObject);
    procedure S2Click(Sender: TObject);
    procedure yingye1Click(Sender: TObject);
    procedure R1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure D2Click(Sender: TObject);
    procedure R2Click(Sender: TObject);
    procedure D3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainSailFrm: TMainSailFrm;

implementation

uses UserReg, PassWd, SaleInput, DinnerInput, RoomInput, TaxSet,
  DiscountSet, Salequery, DinnerQuery, RoomQuery, SaleRep, SaleRepot;

{$R *.dfm}

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

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

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

procedure TMainSailFrm.S2Click(Sender: TObject);
begin
//进入营业信息界面
SaleInputFrm.Show;
end;

procedure TMainSailFrm.yingye1Click(Sender: TObject);
begin
SaleQueryFrm.Show;
end;

procedure TMainSailFrm.R1Click(Sender: TObject);
begin
RoomInputFrm.Show;
end;

procedure TMainSailFrm.D1Click(Sender: TObject);
begin
DinnerInputFrm.Show;
end;

procedure TMainSailFrm.N3Click(Sender: TObject);
begin
TaxSetFrm.Show;
end;

procedure TMainSailFrm.D2Click(Sender: TObject);
begin
DiscountSetFrm.Show;
end;

procedure TMainSailFrm.R2Click(Sender: TObject);
begin
RoomQueryFrm.Show;
end;

procedure TMainSailFrm.D3Click(Sender: TObject);
begin
DinnerQueryFrm.Show;
end;

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

end.