xlhymenu.pas

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

unit xlhymenu;

interface

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

type
  Tmenu = class(TForm)
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    Image1: TImage;
    ToolBar3: TToolBar;
    jh: TToolButton;
    jhth: TToolButton;
    xs: TToolButton;
    xsth: TToolButton;
    ybfy: TToolButton;
    ToolButton4: TToolButton;
    ToolButton36: TToolButton;
    ImageList1: TImageList;
    Label1: TLabel;
    Label2: TLabel;
    Panel3: TPanel;
    ListView2: TListView;
    Timer1: TTimer;
    Panel4: TPanel;
    MainMenu1: TMainMenu;
    M00_00: TMenuItem;
    M00_01: TMenuItem;
    M00_02: TMenuItem;
    M00_03: TMenuItem;
    M00_04: TMenuItem;
    M01_00: TMenuItem;
    M01_01: TMenuItem;
    M01_02: TMenuItem;
    M01_03: TMenuItem;
    M01_04: TMenuItem;
    N27: TMenuItem;
    M01_05: TMenuItem;
    M01_06: TMenuItem;
    M02_00: TMenuItem;
    M02_01: TMenuItem;
    M02_02: TMenuItem;
    M02_03: TMenuItem;
    M02_04: TMenuItem;
    M02_05: TMenuItem;
    M02_06: TMenuItem;
    M02_07: TMenuItem;
    M03_00: TMenuItem;
    M04_00: TMenuItem;
    M05_00: TMenuItem;
    M05_01: TMenuItem;
    M05_02: TMenuItem;
    M06_00: TMenuItem;
    M06_01: TMenuItem;
    M06_02: TMenuItem;
    M06_03: TMenuItem;
    HelpItem: TMenuItem;
    HelpItem_01: TMenuItem;
    HelpItem_02: TMenuItem;
    M07_00: 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 z10Click(Sender: TObject);
    procedure z3Click(Sender: TObject);
    procedure z9Click(Sender: TObject);
    procedure z8Click(Sender: TObject);
    procedure z7Click(Sender: TObject);
    procedure n10Click(Sender: TObject);
    procedure n25Click(Sender: TObject);
    procedure n24Click(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 m6Click(Sender: TObject);
    procedure m7Click(Sender: TObject);
    procedure x2Click(Sender: TObject);
    procedure z2Click(Sender: TObject);
    procedure z5Click(Sender: TObject);
    procedure v1Click(Sender: TObject);
    procedure x4Click(Sender: TObject);
    procedure c1Click(Sender: TObject);
    procedure c2Click(Sender: TObject);
    procedure t2Click(Sender: TObject);
    procedure t3Click(Sender: TObject);
    procedure x5Click(Sender: TObject);
    procedure x6Click(Sender: TObject);
    procedure x7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  menu: Tmenu;
implementation

uses dataproc,about, login,  xfcx, djcx, unlkall, changepas,
  groupcx, sanhroom, newdj, newxf, hf,exitrm, seerz, addpos, zz,  newjzform,
  exitsan, roomhsan, jb1,jk,seejzlf, zdznozd, nozdzzd, fz, djqx, jzjz,
  lsrmcx, xgft, roomczl,  Rbcx, srbb, bbcx, xflscx, hyklrUnit, hykwhUnit,
  hykczUnit;
{$R *.DFM}

procedure Tmenu.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 Tmenu.n6Click(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 Tmenu.Timer1Timer(Sender: TObject);
var ls:string;
begin
   Label2.Caption:=formatdatetime('yyyy''年''mm''月''dd''日'' hh:mm:ss',now);
   if (copy(Label2.Caption,19,5)<>'30:00') and (Timer1.Enabled) then
     exit;
   Timer1.Enabled:=true;
   fm.query1.close;
   fm.query1.sql.clear;
   fm.query1.sql.add('Select MoneyTime from syssetup');
   fm.query1.open;
   if trim(fm.query1.Fields[0].asstring)<>passname('199908191918') then
   begin
     ls:=trim(unpassname(fm.query1.Fields[0].asstring));
     fm.query1.close;
     fm.Query1.UnPrepare;
     fm.query1.RequestLive:=false;
     if ls='' then
     begin
        showmessage('请先在系统维护中设定试用时间');
        close;
        exit;
     end;
     try
       if strtodatetime(ls)-now>200 then
       begin
         showmessage('试用期设定不对，请重新设定');
         close;
         exit;
       end;
       if strtodatetime(ls)<now then
       begin
         showmessage('试用期已过，请与供应商联系');
         close;
         exit;
       end;
       if strtodatetime(ls)-now<30 then
       begin
          showmessage('试用期已剩'+floattostr(int((strtodatetime(ls)-now)+0.9))+'天了，请尽快与供应商联系');
       end;
     except
     begin
         showmessage('试用期已过，请与供应商联系');
         close;
         exit;
     end;
     end;
   end
   else
   begin
     fm.query1.close;
     fm.Query1.UnPrepare;
     fm.query1.RequestLive:=false;
   end;

end;
////////////////////////////////////////////////////////////////////////
procedure Tmenu.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
       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 Tmenu.ListView2Click(Sender: TObject);
begin
  if (ListView1.Selected=nil) or (ListView2.Selected=nil) then exit;
   case ListView1.Selected.Index of