xcxjmdjmenu.pas

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

       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:Z3Click(nil);
     3:Z4Click(nil);
     4:Z5Click(nil);
     5:Z6Click(nil);
     6:Z7Click(nil);
     7: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);
     end;
   end;
   2:begin //报表查询(T)
     case ListView2.Selected.Index of
     0:T1Click(nil);
     1:T2Click(nil);
     2:T3Click(nil);
     3:T4Click(nil);
     4:T5Click(nil);
     5:T6Click(nil);
  //   6:T7Click(nil);
     end;
   end;
   3:begin //当前情况(X)
     case ListView2.Selected.Index of
     0:X1Click(nil);
     1:X2Click(nil);
     2:X3Click(nil);
  //   3:X4Click(nil);
//     4:X5Click(nil);
 ///    5:X6Click(nil);
  //   6:X7Click(nil);
 //    7:X8Click(nil);
     end;
   end;
   4:begin //其他统计(v)
     case ListView2.Selected.Index of
     0:v1Click(nil);
     1:v2Click(nil);
     2:v3Click(nil);
    // 3:W4Click(nil);
     //4:W5Click(nil);
    // 5:W6Click(nil);
    // 6:W7Click(nil);
    // 7:W8Click(nil);
   //  8:W9Click(nil);
   //  9:W10Click(nil);
   //  10:W11Click(nil);
     end;
   end;
   5:begin //系统设置(c)
     case ListView2.Selected.Index of
     0:c1Click(nil);
     1:c2Click(nil);
     2:c3Click(nil);
//     3:c4Click(nil);
     //4:W5Click(nil);
    // 5:W6Click(nil);
    // 6:W7Click(nil);
    // 7:W8Click(nil);
   //  8:W9Click(nil);
   //  9:W10Click(nil);
   //  10:W11Click(nil);
     end;
   end;
   END;
end;
///////////////////////////////////////////////////////////////
procedure Tcxzmenu.z1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'总台查询');
  Application.CreateForm(Tdjcxform, djcxform);
  djcxform.showmodal;
  djcxform.free;
end;

procedure Tcxzmenu.FormCreate(Sender: TObject);
begin
 {  xt:=1;
   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;
   fm.Query1.UnPrepare;
   fm.query1.RequestLive:=false; }
end;

procedure Tcxzmenu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if curper.code<>'' then
     addlogo(curper.code,datetimetostr(now),'退出系统');
//  exitwindowsex(EWX_shutdown,0);
    Halt;

end;

procedure Tcxzmenu.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
      h1Click(nil);
end;

procedure Tcxzmenu.n15Click(Sender: TObject);
begin
   Close;
end;

procedure Tcxzmenu.t1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'出租日报表查询');
  Application.CreateForm(Troomczmx, roomczmx);
  roomczmx.showmodal;
  roomczmx.free;
end;

procedure Tcxzmenu.v2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'电话费统计');
  Application.CreateForm(TdhftjForm, dhftjForm);
  dhftjForm.showmodal;
  dhftjForm.free;
end;

procedure Tcxzmenu.z3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'交班查询');
  Application.CreateForm(TjbcxForm, jbcxForm);
  jbcxForm.showmodal;
  jbcxForm.free;
end;

procedure Tcxzmenu.z9Click(Sender: TObject);
begin
  Application.CreateForm(TForm1, Form1);
  form1.showmodal;
  form1.free;
end;

procedure Tcxzmenu.z8Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'查看房态表');
  Application.CreateForm(Tdjform, djform);
  djform.Caption:='查看房态表';
  djform.Panel1.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.showmodal;
  djform.free;
end;

procedure Tcxzmenu.h2Click(Sender: TObject);
begin
  Application.CreateForm(TAboutBox, AboutBox);
  AboutBox.showmodal;
  AboutBox.free;
end;

procedure Tcxzmenu.h1Click(Sender: TObject);
begin
   winhelp(0,Pchar('查询帮助.hlp'),HELP_FINDER,0);
end;

procedure Tcxzmenu.x1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'出租情况查询');
  Application.CreateForm(Tdqcxform, dqcxform);
  dqcxform.showmodal;
  dqcxform.free;
end;

procedure Tcxzmenu.x3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'当前出租率查询');
  Application.CreateForm(Tdqczlcxform, dqczlcxform);
  dqczlcxform.showmodal;
  dqczlcxform.free;
end;

procedure Tcxzmenu.z4Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'交款查询');
  Application.CreateForm(TjkcxForm, jkcxForm);
  jkcxForm.showmodal;
  jkcxForm.free;
end;

procedure Tcxzmenu.v3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费统计');
  Application.CreateForm(Txfxmtjform, xfxmtjform);
  xfxmtjform.showmodal;
  xfxmtjform.free;
end;

procedure Tcxzmenu.z6Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'结帐留房查询');
  Application.CreateForm(Tjzlfform, jzlfform);
  jzlfform.showmodal;
  jzlfform.free;
end;

procedure Tcxzmenu.m1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费查询');
  Application.CreateForm(Txfcxform, xfcxform);
  xfcxform.showmodal;
  xfcxform.free;
end;

procedure Tcxzmenu.m2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'历史消费查询');
  Application.CreateForm(Txflscxform, xflscxform);
  xflscxform.showmodal;
  xflscxform.free;
end;

procedure Tcxzmenu.m3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费明细');
  Application.CreateForm(TxftjForm, xftjForm);
  xftjForm.showmodal;
  xftjForm.free;
end;

procedure Tcxzmenu.m4Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'客人消费单明细');
  Application.CreateForm(TxfmxForm, xfmxForm);
  xfmxForm.showmodal;
  xfmxForm.free;

end;

procedure Tcxzmenu.m5Click(Sender: TObject);
begin
  Application.CreateForm(TkxfcxForm, kxfcxForm);
  kxfcxForm.showmodal;
  kxfcxForm.free;
end;

procedure Tcxzmenu.x2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入情况查询');
  Application.CreateForm(Tdqsrcxform, dqsrcxform);
  dqsrcxform.showmodal;
//  dqsrcxform.free;
end;

procedure Tcxzmenu.z2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'团体查询');
  Application.CreateForm(Tgroupform, groupform);
  groupform.showmodal;
  groupform.free;
end;

procedure Tcxzmenu.z5Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'房间历史查询');
  Application.CreateForm(Trmlscxform, rmlscxform);
  rmlscxform.showmodal;
  rmlscxform.free;
end;

procedure Tcxzmenu.v1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'人员业绩统计');
  Application.CreateForm(TryyjForm, ryyjForm);
  ryyjForm.showmodal;
  ryyjForm.free;
end;

procedure Tcxzmenu.c1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'修改口令');
  Application.CreateForm(Tchangepass, changepass);
  changepass.showmodal;
  changepass.free;
end;

procedure Tcxzmenu.c2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'修改房态');
  Application.CreateForm(Txgftform, xgftform);
  xgftform.showmodal;
  xgftform.free;
end;

procedure Tcxzmenu.t2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'出租月报表查询');
  Application.CreateForm(Tczbbform, czbbform);
  czbbform.CheckBox1.Checked:=true;
  czbbform.showmodal;
  czbbform.free;
end;

procedure Tcxzmenu.t3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'出租年报表查询');
  Application.CreateForm(Tczbbform, czbbform);
  czbbform.CheckBox1.Checked:=false;
  czbbform.showmodal;
  czbbform.free;
end;

procedure Tcxzmenu.t6Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(Tbbform, bbform);
  bbform.kk.Caption:='月';
  bbform.showmodal;
  bbform.free;
end;

procedure Tcxzmenu.c3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'人员维护');
  Application.CreateForm(TrywhForm, rywhForm);
  rywhForm.showmodal;
  rywhForm.free;

end;

procedure Tcxzmenu.t4Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入报表查询');
  Application.CreateForm(Tbbform, bbform);
  bbform.showmodal;
  bbform.free;

end;

procedure Tcxzmenu.t5Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(Tbbform, bbform);
  bbform.kk.Caption:='日';
  bbform.showmodal;
  bbform.free;

end;

end.