xcxjmdjmenu.pas

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

unit xcxjmdjmenu;

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;
    t1: TMenuItem;
    x0: TMenuItem;
    x1: TMenuItem;
    x3: TMenuItem;
    v0: TMenuItem;
    v1: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    ToolBar3: TToolBar;
    jh: TToolButton;
    jhth: TToolButton;
    xs: TToolButton;
    xsth: TToolButton;
    ybfy: 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;
    z3: TMenuItem;
    z4: TMenuItem;
    z5: TMenuItem;
    z6: TMenuItem;
    m3: TMenuItem;
    m4: TMenuItem;
    m5: TMenuItem;
    Panel4: TPanel;
    c0: TMenuItem;
    c1: TMenuItem;
    c2: TMenuItem;
    z7: TMenuItem;
    z8: TMenuItem;
    n39: TMenuItem;
    v2: TMenuItem;
    v3: TMenuItem;
    N1: TMenuItem;
    t2: TMenuItem;
    t3: TMenuItem;
    N4: TMenuItem;
    t4: TMenuItem;
    t5: TMenuItem;
    t6: TMenuItem;
    c3: 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 z3Click(Sender: TObject);
    procedure z9Click(Sender: TObject);
    procedure z8Click(Sender: TObject);
    procedure h2Click(Sender: TObject);
    procedure h1Click(Sender: TObject);
    procedure x1Click(Sender: TObject);
    procedure x3Click(Sender: TObject);
    procedure z4Click(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 m5Click(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);
  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,
  newdj, seerz, jkcx, jbcx, srbb, czlbb, xflscx, xfxmtj, krxfmxUnit,kxfmxunit;
{$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;
 // 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;
    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:=11;
       ListView2.Items[2].Caption:=z3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=53;
       ListView2.Items[3].Caption:=z4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=54;
       ListView2.Items[4].Caption:=z5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=57;
       ListView2.Items[5].Caption:=z6.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:='您无权使用'+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[5].ImageIndex:=61;
       ListView2.Items[5].Caption:=M6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=45;
       ListView2.Items[6].Caption:=M7.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:=28;
       ListView2.Items[0].Caption:=T1.Caption;
       ListView2.Items.Add;
       ListView2.Items[1].ImageIndex:=29;
       ListView2.Items[1].Caption:=T2.Caption;
       ListView2.Items.Add;
       ListView2.Items[2].ImageIndex:=22;
       ListView2.Items[2].Caption:=T3.Caption;
       ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=0;
       ListView2.Items[3].Caption:=T4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=23;
       ListView2.Items[4].Caption:=T5.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:='您无权使用'+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:=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:=v1.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;
      { ListView2.Items.Add;
       ListView2.Items[3].ImageIndex:=21;
       ListView2.Items[3].Caption:=W4.Caption;
       ListView2.Items.Add;
       ListView2.Items[4].ImageIndex:=28;
       ListView2.Items[4].Caption:=W5.Caption;
       ListView2.Items.Add;
       ListView2.Items[5].ImageIndex:=32;
       ListView2.Items[5].Caption:=W6.Caption;
       ListView2.Items.Add;
       ListView2.Items[6].ImageIndex:=41;
       ListView2.Items[6].Caption:=W7.Caption;
       ListView2.Items.Add;
       ListView2.Items[7].ImageIndex:=12;
       ListView2.Items[7].Caption:=W8.Caption;
       ListView2.Items.Add;
       ListView2.Items[8].ImageIndex:=35;
       ListView2.Items[8].Caption:=W9.Caption;
       ListView2.Items.Add;
       ListView2.Items[9].ImageIndex:=37;
       ListView2.Items[9].Caption:=W10.Caption;
       ListView2.Items.Add;
       ListView2.Items[10].ImageIndex:=33;
       ListView2.Items[10].Caption:=W11.Caption; }
     end
     else
     begin