cxmenu.pas

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

unit cxmenu;

interface

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

type
  Tcxzmenu = class(TForm)
    MainMenu1: TMainMenu;
    n14: TMenuItem;
    n6: TMenuItem;
    N2w: TMenuItem;
    n15: TMenuItem;
    z0: TMenuItem;
    z1: TMenuItem;
    h0: TMenuItem;
    h1: TMenuItem;
    N4w: TMenuItem;
    h2: TMenuItem;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    m0: TMenuItem;
    m1: TMenuItem;
    m2: TMenuItem;
    t0: TMenuItem;
    x0: TMenuItem;
    x1: TMenuItem;
    x3: TMenuItem;
    v0: TMenuItem;
    v1: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    ToolBar3: TToolBar;
    jh: TToolButton;
    jhth: TToolButton;
    xsth: TToolButton;
    ToolButton4: TToolButton;
    ToolButton16: TToolButton;
    ToolButton36: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Panel2: TPanel;
    ListView1: TListView;
    Panel3: TPanel;
    ListView2: TListView;
    Timer1: TTimer;
    x2: TMenuItem;
    z2: TMenuItem;
    z5: TMenuItem;
    z6: TMenuItem;
    m3: TMenuItem;
    m4: TMenuItem;
    Panel4: TPanel;
    c0: TMenuItem;
    c1: TMenuItem;
    c2: TMenuItem;
    z7: TMenuItem;
    z8: TMenuItem;
    n39: TMenuItem;
    v2: TMenuItem;
    v3: TMenuItem;
    t4: TMenuItem;
    t5: TMenuItem;
    t6: TMenuItem;
    c3: TMenuItem;
    m6: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    ff1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    Label3: TLabel;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    t8: TMenuItem;
    procedure FormShow(Sender: TObject);
    procedure n6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure z1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure n15Click(Sender: TObject);
    procedure t1Click(Sender: TObject);
    procedure v2Click(Sender: TObject);
    procedure z7Click(Sender: TObject);
    procedure z8Click(Sender: TObject);
    procedure h2Click(Sender: TObject);
    procedure h1Click(Sender: TObject);
    procedure x1Click(Sender: TObject);
    procedure v3Click(Sender: TObject);
    procedure z6Click(Sender: TObject);
    procedure m1Click(Sender: TObject);
    procedure m2Click(Sender: TObject);
    procedure m3Click(Sender: TObject);
    procedure m4Click(Sender: TObject);
    procedure x2Click(Sender: TObject);
    procedure z2Click(Sender: TObject);
    procedure z5Click(Sender: TObject);
    procedure v1Click(Sender: TObject);
    procedure c1Click(Sender: TObject);
    procedure c2Click(Sender: TObject);
    procedure t2Click(Sender: TObject);
    procedure t3Click(Sender: TObject);
    procedure t6Click(Sender: TObject);
    procedure c3Click(Sender: TObject);
    procedure t4Click(Sender: TObject);
    procedure t5Click(Sender: TObject);
    procedure m6Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ff1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure t8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cxzmenu: Tcxzmenu;
implementation

uses dataproc, xfcx, djcx, changepas, about, groupcx, seejzlf, lsrmcx, xgft,
  roomczl, rbcx, bbcx, dqcx, dqczlcx, dqsrcx, rywh, ryyj, xftj, dhftj, login,zyryyj,
  newdj, seerz, jkcx, jbcx, srbb, czlbb, xflscx, xfxmtj, krxfmxUnit,kxfmxunit,xffltj,
  cxsrrb, tjsrbb, cxsryb,xfzzcx,ryyjtj,bcmdunit,lsdjcx,gzfkcxunit,hysrbb,hfcxunit,jzmfunit,
  kczmxUnit, jzmxcxUnit, xfdhcx, ctrifx, rzdhcx, djdhcx, kczxfmxUnit, jzdhz,
  HYSRXX;
{$R *.DFM}

procedure Tcxzmenu.FormShow(Sender: TObject);
begin
{   fm.query1.close;
   fm.query1.sql.clear;
   fm.query1.sql.add('Select UnitName from syssetup');
   fm.query1.open;
   Label1.Caption:=trim(unpassname(fm.query1.Fields[0].asstring));
   Label1.Left:=strtoint(floattostr(int((Width-Label1.Width)/2)));
   fm.query1.close;
}
    n6Click(nil);
end;

procedure Tcxzmenu.n6Click(Sender: TObject);
begin
  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;
  c3.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),'登录系统');
    if trim(log.qx.Items[1])='True' then
    begin
     z0.enabled:=true;
     z1.enabled:=true;
     x0.enabled:=true;
     x1.enabled:=true;
    end;
    if trim(log.qx.Items[2])='True' then
    begin
     m0.enabled:=true;
     m1.enabled:=true;
     c0.enabled:=true;

    end;
    if trim(log.qx.Items[3])='True' then
    begin
     t0.enabled:=true;
//     t1.enabled:=true;
     v0.Enabled :=true;
     c0.Enabled :=true;
    end ;
    if trim(log.qx.Items[4])='True' then
    begin
     v0.enabled:=true;
    end ;
    if (trim(log.qx.Items[1])='True') and (trim(log.qx.Items[2])='True') and (trim(log.qx.Items[3])='True') and (trim(log.qx.Items[4])='True') then
    begin
     v0.enabled:=true;   c3.enabled:=true;

    end;

  end;
  log.free;
end;

procedure Tcxzmenu.Timer1Timer(Sender: TObject);
//var ls:string;
begin
   Label2.Caption:=formatdatetime('yyyy''年''MM''月''dd''日'' hh:mm:ss',now);
end;
////////////////////////////////////////////////////////////////////////
procedure Tcxzmenu.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 z0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=63;
       ListView2.Items[0].Caption:=z1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=48;
       ListView2.Items[1].Caption:=z2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=54;
       ListView2.Items[2].Caption:=z5.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=57;
       ListView2.Items[3].Caption:=z6.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=55;
       ListView2.Items[4].Caption:=z7.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=56;
       ListView2.Items[5].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:='您无权使用'+z0.Caption+'！请与系统管理员联系！';
     end;
   end;
   1:begin //客人消费
     ListView2.Items.Clear;
     if m0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=58;
       ListView2.Items[0].Caption:=M1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=7;
       ListView2.Items[1].Caption:=M2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=59;
       ListView2.Items[2].Caption:=M3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=12;
       ListView2.Items[3].Caption:=M4.Caption;
      { ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=60;
       ListView2.Items[4].Caption:=M5.Caption; }
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=61;
       ListView2.Items[4].Caption:=M6.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=45;
       ListView2.Items[5].Caption:=n9.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=23;
       ListView2.Items[6].Caption:=n10.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=25;
       ListView2.Items[7].Caption:=n12.Caption;
       ListView2.Items.Add;
       ListView2.Items[8].ImageIndex:=27;
       ListView2.Items[8].Caption:=n13.Caption;
       ListView2.Items.Add;
       ListView2.Items[9].ImageIndex:=26;
       ListView2.Items[9].Caption:=n17.Caption;
    end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+M0.Caption+'！请与系统管理员联系！';
     end;
   end;
   2:begin //报表查询
     ListView2.Items.Clear;
     if T0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=0;
       ListView2.Items[0].Caption:=T4.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=0;
       ListView2.Items[1].Caption:=T8.Caption;
      { ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=23;
       ListView2.Items[1].Caption:=T5.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=24;
       ListView2.Items[2].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:='您无权使用'+T0.Caption+'！请与系统管理员联系！';
     end;
   end;
   3:begin //当前情况
     ListView2.Items.Clear;
     if X0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=23;
       ListView2.Items[0].Caption:=X1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=15;
       ListView2.Items[1].Caption:=X2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=4;
       ListView2.Items[2].Caption:=n11.Caption;
{       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=4;
       ListView2.Items[2].Caption:=X3.Caption;
      // ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=5;
       ListView2.Items[3].Caption:=X4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=X5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=29;
       ListView2.Items[5].Caption:=X6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=31;
       ListView2.Items[6].Caption:=X7.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=14;
       ListView2.Items[7].Caption:=X8.Caption; }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+X0.Caption+'！请与系统管理员联系！';
     end;
   end;
   4:begin //其他统计
     ListView2.Items.Clear;
     if v0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=41;
       ListView2.Items[0].Caption:=n2.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=51;
       ListView2.Items[1].Caption:=v2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=0;
       ListView2.Items[2].Caption:=v3.Caption;
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+v0.Caption+'！请与系统管理员联系！';
     end;
   end;
   5:begin //系统设置
     ListView2.Items.Clear;
     if c0.Enabled then
     begin
       Panel4.Visible:=false;
       ListView2.Items.Add;
       ListView2.Items[0].ImageIndex:=19;
       ListView2.Items[0].Caption:=c1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=22;
       ListView2.Items[1].Caption:=c2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=43;
       ListView2.Items[2].Caption:=c3.Caption;
      { ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=14;
       ListView2.Items[3].Caption:=c4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=W5.Caption;
     end;  }
     end
     else
     begin
       Panel4.Visible:=true;
       Panel4.Caption:='您无权使用'+c0.Caption+'！请与系统管理员联系！';
     end;
   end;
   end;
 end;

procedure Tcxzmenu.ListView2Click(Sender: TObject);
begin
  if (ListView1.Selected=nil) or (ListView2.Selected=nil) then exit;
   case ListView1.Selected.Index of
   0:begin //总台查询 (z)
     case ListView2.Selected.Index of
     0:Z1Click(nil);
     1:Z2Click(nil);
     2:Z5Click(nil);
     3:Z6Click(nil);
     4:Z7Click(nil);
     5:Z8Click(nil);
     end;
   end;
   1:begin //客人消费 (M)
     case ListView2.Selected.Index of
     0:M1Click(nil);
     1:M2Click(nil);
     2:M3Click(nil);
     3:M4Click(nil);
   //  4:M5Click(nil);
     4:M6Click(nil);
     5:n9Click(nil);
     6:n10Click(nil);