mainroom.~pas

完成酒店管理系统

unit MainRoom;

interface

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

type
  TMainRoomFrm = class(TForm)
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    S1: TMenuItem;
    U1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    W1: TMenuItem;
    T1: TMenuItem;
    G1: TMenuItem;
    P1: TMenuItem;
    T2: TMenuItem;
    G2: TMenuItem;
    N4: TMenuItem;
    S2: TMenuItem;
    A1: TMenuItem;
    K1: TMenuItem;
    H1: TMenuItem;
    A2: TMenuItem;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure U1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure K1Click(Sender: TObject);
    procedure T2Click(Sender: TObject);
    procedure G2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure T1Click(Sender: TObject);
    procedure G1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainRoomFrm: TMainRoomFrm;

implementation

uses UserReg, PassWd, GuestSql, RoomState, GroupPay, TouristPay,
  HistorySql, tourist, Group, TouristSql, GroupSql;

{$R *.dfm}

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

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

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

end;

procedure TMainRoomFrm.A1Click(Sender: TObject);
begin
GuestSqlFrm.Show;
end;

procedure TMainRoomFrm.K1Click(Sender: TObject);
begin
RoomStateFrm.Show;
end;

procedure TMainRoomFrm.T2Click(Sender: TObject);
begin
//GroupPayFrm.Show;
TouristSqlFrm.Show;
end;

procedure TMainRoomFrm.G2Click(Sender: TObject);
begin
//TouristPayFrm.Show;
GroupSqlFrm.Show;
end;

procedure TMainRoomFrm.N4Click(Sender: TObject);
begin
HistorySqlFrm.Show;
end;

procedure TMainRoomFrm.T1Click(Sender: TObject);
begin
TouristFrm.Show;
end;

procedure TMainRoomFrm.G1Click(Sender: TObject);
begin
GroupFrm.Show;
end;

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

end;

procedure TMainRoomFrm.FormCreate(Sender: TObject);
begin
DBGrid1.Refresh;
end;

end.