menu.pas

集成酒店桑拿食管管理的完整程序

unit menu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ToolWin, Menus, ImgList, ExtCtrls;

type
  Tmenuform = class(TForm)
    MainMenu1: TMainMenu;
    F0: TMenuItem;
    F1: TMenuItem;
    F2: TMenuItem;
    N2w: TMenuItem;
    F8: TMenuItem;
    E0: TMenuItem;
    E1: TMenuItem;
    L0: TMenuItem;
    n51: TMenuItem;
    N4w: TMenuItem;
    n52: TMenuItem;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    X0: TMenuItem;
    X1: TMenuItem;
    X2: TMenuItem;
    Z0: TMenuItem;
    Z1: TMenuItem;
    Z4: TMenuItem;
    G0: TMenuItem;
    G1: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    ToolBar3: TToolBar;
    jh: TToolButton;
    jhth: TToolButton;
    xs: TToolButton;
    xsth: TToolButton;
    ybfy: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton16: TToolButton;
    ToolButton36: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Panel2: TPanel;
    ListView1: TListView;
    Panel3: TPanel;
    ListView2: TListView;
    Timer1: TTimer;
    Z6: TMenuItem;
    E2: TMenuItem;
    E3: TMenuItem;
    E4: TMenuItem;
    E5: TMenuItem;
    E6: TMenuItem;
    X3: TMenuItem;
    X4: TMenuItem;
    X5: TMenuItem;
    Panel4: TPanel;
    E7: TMenuItem;
    H0: TMenuItem;
    H1: TMenuItem;
    H2: TMenuItem;
    H3: TMenuItem;
    H4: TMenuItem;
    n9: TMenuItem;
    G2: TMenuItem;
    G3: TMenuItem;
    Panel5: TPanel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label3: TLabel;
    gha: TLabel;
    Label8: TLabel;
    name: TLabel;
    jkl: TEdit;
    xkl1: TEdit;
    xkl2: TEdit;
    F3: TMenuItem;
    F4: TMenuItem;
    F5: TMenuItem;
    F6: TMenuItem;
    F7: TMenuItem;
    D0: TMenuItem;
    D1: TMenuItem;
    D2: TMenuItem;
    D3: TMenuItem;
    D4: TMenuItem;
    D5: TMenuItem;
    D6: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    Z2: TMenuItem;
    Z3: TMenuItem;
    Z5: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    G4: TMenuItem;
    G5: TMenuItem;
    G6: TMenuItem;
    G7: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    B0: TMenuItem;
    B1: TMenuItem;
    B11: TMenuItem;
    B12: TMenuItem;
    B13: TMenuItem;
    B2: TMenuItem;
    B3: TMenuItem;
    B4: TMenuItem;
    B5: TMenuItem;
    C0: TMenuItem;
    C1: TMenuItem;
    C2: TMenuItem;
    C3: TMenuItem;
    C4: TMenuItem;
    C5: TMenuItem;
    C6: TMenuItem;
    C7: TMenuItem;
    C8: TMenuItem;
    C9: TMenuItem;
    C10: TMenuItem;
    C11: TMenuItem;
    C12: TMenuItem;
    S0: TMenuItem;
    S1: TMenuItem;
    S2: TMenuItem;
    S3: TMenuItem;
    S4: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure F1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure E1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure F8Click(Sender: TObject);
    procedure t1Click(Sender: TObject);
    procedure G2Click(Sender: TObject);
    procedure z10Click(Sender: TObject);
    procedure t2Click(Sender: TObject);
    procedure E3Click(Sender: TObject);
    procedure z9Click(Sender: TObject);
    procedure z8Click(Sender: TObject);
    procedure E7Click(Sender: TObject);
    procedure F2Click(Sender: TObject);
    procedure n52Click(Sender: TObject);
    procedure n51Click(Sender: TObject);
    procedure Z1Click(Sender: TObject);
    procedure Z4Click(Sender: TObject);
    procedure E4Click(Sender: TObject);
    procedure G3Click(Sender: TObject);
    procedure E6Click(Sender: TObject);
    procedure X1Click(Sender: TObject);
    procedure m2Click(Sender: TObject);
    procedure X3Click(Sender: TObject);
    procedure X4Click(Sender: TObject);
    procedure X5Click(Sender: TObject);
    procedure m6Click(Sender: TObject);
    procedure m7Click(Sender: TObject);
    procedure x2Click(Sender: TObject);
    procedure E2Click(Sender: TObject);
    procedure E5Click(Sender: TObject);
    procedure G1Click(Sender: TObject);
    procedure Z6Click(Sender: TObject);
    procedure H1Click(Sender: TObject);
    procedure H3Click(Sender: TObject);
    procedure H4Click(Sender: TObject);
    procedure H2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  menuform: Tmenuform;
implementation

uses dataproc,sankdj, groupdj, skdjqx, groupdjqx, addpos, groupaddpos, sankxf,
  sankxfcx, meet, groupxf, groupxfcx, rmchangerm, rmtobed, bedchangerm,
  room, changermstatus, roomtp, perzz, allzz, sankjz, groupjz, exitrmbed,
  sankyd, sanydtoqx, groupyd, groupydzqx, groupydzdj, login, allinfo,
  sankdjcx, namecx, roomcx, guesthis, about, groupdjcx, sankbj,
  MeetSet, ChangeDjfs, Custype, ns, sanbjs, OpenPhone,
  ClosePhone, PhoneCx, zhrb, BcSetup, Timesetup, NoPhoneCx,
  roomck, xfcx, xfcxbak, cwcx, bedtobed, jb1, xfk, jk, Rbcx, Roomczl,
  dqczlcx, RoomSrrb, dqrmsr, jsbdb, newjb , newrywh, gz_jz, newsrrb;
{$R *.DFM}


procedure Tmenuform.F1Click(Sender: TObject);
begin
//////////////////////////////////////////////////////////////////////////////
{  n10.Enabled :=false;
  x0.enabled:=false;
  x1.enabled:=false;
  x3.enabled:=false;
  t0.enabled:=false;
  t1.enabled:=false;
  z0.enabled:=false;
  z1.enabled:=false;
  v0.enabled:=false;
  c0.enabled:=false;
 // n42.enabled:=false;
  m0.Enabled :=false;
  m1.Enabled :=false;
  if curper.code<>'' then
    addlogo(curper.code,datetimetostr(now),'退出系统');
  curper.code:='';
  Application.CreateForm(Tlog, log);
  log.showmodal;
  if length(trim(curper.code))>0 then
  begin
    addlogo(curper.code,datetimetostr(now),'登录系统');
    n10.enabled:=true;
    if trim(log.qx.Items[1])='True' then
    begin
     z0.enabled:=true;
     z1.enabled:=true;
     m0.enabled:=true;
     m1.enabled:=true;
     c0.Enabled :=true;
    end;
    if trim(log.qx.Items[2])='True' then
    begin
     t0.enabled:=true;
     t1.enabled:=true;
    end;
    if trim(log.qx.Items[3])='True' then
    begin
     x0.enabled:=true;
     x1.enabled:=true;
     x3.enabled:=true;
   //  n42.Enabled :=true;
     c0.Enabled :=true;
    end ;
    if trim(log.qx.Items[4])='True' then
    begin
     v0.enabled:=true;
    end ;

  end;
  log.free; }
end;

procedure Tmenuform.Timer1Timer(Sender: TObject);
var ls:string;
begin
   Label2.Caption:=formatdatetime('yyyy''年''mm''月''dd''日''  hh:mm:ss',now);

end;
/////////////////////////////////////////////////////////////////////////////////////////////////
procedure Tmenuform.ListView1Click(Sender: TObject);
begin
   if (ListView1.Selected=nil) then exit;
   StatusBar1.Panels[2].Text:='当前位置：'+ListView1.Items[ListView1.Selected.Index].Caption;
   case ListView1.Selected.Index of
   0:begin //宾客预订
     ListView2.Items.Clear;
     if D0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=12;
       ListView2.Items[0].Caption:=D1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=3;
       ListView2.Items[1].Caption:=D2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=23;
       ListView2.Items[2].Caption:=D3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=28;
       ListView2.Items[3].Caption:=D4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=56;
       ListView2.Items[4].Caption:=D5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=43;
       ListView2.Items[5].Caption:=D6.Caption;
     {  ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=55;
       ListView2.Items[6].Caption:=z7.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=56;
       ListView2.Items[7].Caption:=z8.Caption;}
 ///// **********************************     ////////////////////////////////
     {  ListView2.Items.Add;
       ListView2.Items[8].ImageIndex:=5;
       ListView2.Items[8].Caption:=z9.Caption;
       ListView2.Items.Add;
       ListView2.Items[9].ImageIndex:=35;
       ListView2.Items[9].Caption:=z10.Caption;}
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+D0.Caption+'！请与系统管理员联系！';
     end;
   end;
   1:begin //总台登记
     ListView2.Items.Clear;
     if E0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=40;
       ListView2.Items[0].Caption:=E1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=4;
       ListView2.Items[1].Caption:=E2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=43;
       ListView2.Items[2].Caption:=E3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=47;
       ListView2.Items[3].Caption:=E4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=54;
       ListView2.Items[4].Caption:=E5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=55;
       ListView2.Items[5].Caption:=E6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=61;
       ListView2.Items[6].Caption:=E7.Caption;
    end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+E0.Caption+'！请与系统管理员联系！';
     end;
   end;
   2:begin //客人消费
     ListView2.Items.Clear;
     if X0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=52;
       ListView2.Items[0].Caption:=X1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=11;
       ListView2.Items[1].Caption:=X2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=23;
       ListView2.Items[2].Caption:=X3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=30;
       ListView2.Items[3].Caption:=X4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=37;
       ListView2.Items[4].Caption:=X5.Caption;
      { ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=24;
       ListView2.Items[5].Caption:=T6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=25;
       ListView2.Items[6].Caption:=T7.Caption; }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+X0.Caption+'！请与系统管理员联系！';
     end;
   end;
   3:begin //帐务处理
     ListView2.Items.Clear;
     if Z0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=39;
       ListView2.Items[0].Caption:=Z1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=38;
       ListView2.Items[1].Caption:=Z2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=42;
       ListView2.Items[2].Caption:=Z3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=26;
       ListView2.Items[3].Caption:=Z4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=43;
       ListView2.Items[4].Caption:=Z5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=51;
       ListView2.Items[5].Caption:=Z6.Caption;
     {  ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=31;