cxmenu.pas

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

     7:n12Click(nil);
     8:n13Click(nil);
     9:n17Click(nil);
     end;
   end;
   2:begin //报表查询(T)
     case ListView2.Selected.Index of
     0:T4Click(nil);
     1:T8Click(nil);
     end;
   end;
   3:begin //当前情况(X)
     case ListView2.Selected.Index of
     0:X1Click(nil);
     1:X2Click(nil);
     2:n11Click(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:n2Click(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
  Application.CreateForm(Tdjcxform, djcxform);
  djcxform.showmodal;
  djcxform.free;
end;

procedure Tcxzmenu.FormCreate(Sender: TObject);
begin
   if (not FileExists('c:\windows\system\Dpnodemx.DLL')) and (not FileExists('c:\winnt\system32\Dpnodemx.DLL')) then
   begin
//     close;
   end;
   xt:=0;
   fm.query1.close;
   fm.query1.sql.clear;
   fm.query1.sql.add('Select UnitName from syssetup');
   fm.query1.open;
   curper.sydw:=trim(unpassname(fm.query1.Fields[0].asstring));
   Label1.Caption:=curper.sydw+'桑拿管理系统';
   Label1.Left:=strtoint(floattostr(int((Width-Label1.Width)/2)));
   fm.query1.close;
   fm.Query1.UnPrepare;
   fm.query1.RequestLive:=false;
   Timer1Timer(nil);
 {  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
  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.z7Click(Sender: TObject);
begin
  Application.CreateForm(TrzForm, rzForm);
  rzForm.showmodal;
  rzForm.free;
end;

procedure Tcxzmenu.z8Click(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Caption:='查看房态表';
  djform.Panel1.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.showmodal;
//  djform.Enabled:=false;
  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
  Application.CreateForm(Tdqcxform, dqcxform);
  dqcxform.showmodal;
  dqcxform.free;
end;

procedure Tcxzmenu.v3Click(Sender: TObject);
begin
  Application.CreateForm(Txfxmtjform, xfxmtjform);
  xfxmtjform.showmodal;
  xfxmtjform.free;
end;

procedure Tcxzmenu.z6Click(Sender: TObject);
begin
  Application.CreateForm(Tjzlfform, jzlfform);
  jzlfform.showmodal;
  jzlfform.free;
end;

procedure Tcxzmenu.m1Click(Sender: TObject);
begin
  Application.CreateForm(Txfcxform, xfcxform);
  xfcxform.showmodal;
  xfcxform.free;
end;

procedure Tcxzmenu.m2Click(Sender: TObject);
begin
  Application.CreateForm(Txflscxform, xflscxform);
  xflscxform.showmodal;
  xflscxform.free;
end;

procedure Tcxzmenu.m3Click(Sender: TObject);
begin
  Application.CreateForm(TxftjForm, xftjForm);
  xftjForm.showmodal;
  xftjForm.free;
end;

procedure Tcxzmenu.m4Click(Sender: TObject);
begin
  Application.CreateForm(TxfmxForm, xfmxForm);
  xfmxForm.showmodal;
  xfmxForm.free;
  {Application.CreateForm(TkxfcxForm, kxfcxForm);
  kxfcxForm.showmodal;
  kxfcxForm.free; }
  {Application.CreateForm(TkxfcxForm, kxfcxForm);
  kxfcxForm.showmodal;
  kxfcxForm.free; }
  {Application.CreateForm(TkxfcxForm, kxfcxForm);
  kxfcxForm.showmodal;
  kxfcxForm.free; }

end;

procedure Tcxzmenu.x2Click(Sender: TObject);
begin
  Application.CreateForm(Tdqsrcxform, dqsrcxform);
  dqsrcxform.showmodal;
//  dqsrcxform.free;
end;

procedure Tcxzmenu.z2Click(Sender: TObject);
begin
  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; }
  Application.CreateForm(Tlsdjcxform, lsdjcxform);
  lsdjcxform.showmodal;
  lsdjcxform.free;
end;

procedure Tcxzmenu.v1Click(Sender: TObject);
begin
  Application.CreateForm(TryyjForm, ryyjForm);
  ryyjForm.showmodal;
  ryyjForm.free;
end;

procedure Tcxzmenu.c1Click(Sender: TObject);
begin
  Application.CreateForm(Tchangepass, changepass);
  changepass.showmodal;
  changepass.free;
end;

procedure Tcxzmenu.c2Click(Sender: TObject);
begin
  Application.CreateForm(Txgftform, xgftform);
  xgftform.showmodal;
  xgftform.free;
end;

procedure Tcxzmenu.t2Click(Sender: TObject);
begin
  Application.CreateForm(Tczbbform, czbbform);
  czbbform.CheckBox1.Checked:=true;
  czbbform.showmodal;
  czbbform.free;
end;

procedure Tcxzmenu.t3Click(Sender: TObject);
begin
  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(Tcxsrybform, cxsrybform);
  cxsrybform.showmodal;
  cxsrybform.free;}
end;

procedure Tcxzmenu.c3Click(Sender: TObject);
begin
  Application.CreateForm(TrywhForm, rywhForm);
  rywhForm.showmodal;
  rywhForm.free;

end;

procedure Tcxzmenu.t4Click(Sender: TObject);
begin
 { Application.CreateForm(Ttjsrbbform, tjsrbbform);
  tjsrbbform.showmodal;
  tjsrbbform.free;}
  Application.CreateForm(ThybbForm, hybbForm);
  hybbForm.showmodal;
  hybbForm.free;

end;

procedure Tcxzmenu.t5Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(Tcxsrrbform, cxsrrbform);
  cxsrrbform.showmodal;
  cxsrrbform.free;  }

end;

procedure Tcxzmenu.m6Click(Sender: TObject);
begin
  Application.CreateForm(Txffltjform,xffltjform);
  xffltjform.showmodal;
  xffltjform.free;


end;

procedure Tcxzmenu.N1Click(Sender: TObject);
begin
  Application.CreateForm(Txfzzcxform, xfzzcxform);
  xfzzcxform.showmodal;
  xfzzcxform.free;
end;

procedure Tcxzmenu.N2Click(Sender: TObject);
begin
  Application.CreateForm(TryyjtjForm, ryyjtjForm);
  ryyjtjForm.showmodal;
  ryyjtjForm.free;

end;

procedure Tcxzmenu.N3Click(Sender: TObject);
begin
   //加时间限制
   Application.CreateForm(TbcmdForm, bcmdForm);
  { bcmdForm.query4.Active:=false;
   bcmdForm.query4.SQL.Clear;
   bcmdForm.query4.SQL.Add('select roomno,(select max(name) from guestmx where nowin.accno=guestmx.accno) as name,begtime,(select name from mode where code=nowin.jzfs) as 结帐方式,');
   bcmdForm.query4.SQL.Add(' (money+csmoney) as 房间费,ismd,zkl as 折扣,ismff as 免房费,ismxf as 免消费, czy,pzr as 负责人  from nowin where  (ismd=1 or zkl<>100 or ismff=1 or ismxf=1) ');
   bcmdForm.query4.SQL.Add('union(select roomno,(select max(name) from lsguestmx where lsnowin.accno=lsguestmx.accno) as name,begtime,(select name from mode where code=lsnowin.jzfs) as 结帐方式,');
   bcmdForm.query4.SQL.Add(' (money+csmoney) as 房间费,ismd,zkl as 折扣,ismff as 免房费,ismxf as 免消费, czy,pzr as 负责人  from lsnowin where  (ismd=1 or zkl<>100 or ismff=1 or ismxf=1)) ');
   bcmdForm.query4.Prepare;
   bcmdForm.query4.Open;
   chinesegrid(bcmdForm.dbgrid1);  }
   bcmdForm.showmodal;
   bcmdForm.free;

end;

procedure Tcxzmenu.N4Click(Sender: TObject);
begin
  Application.CreateForm(TgzfkcxForm, gzfkcxForm);
  gzfkcxForm.showmodal;
  gzfkcxForm.free;

end;

procedure Tcxzmenu.N5Click(Sender: TObject);
begin
  Application.CreateForm(ThfcxForm, hfcxForm);
  hfcxForm.showmodal;
  hfcxForm.free;

end;

procedure Tcxzmenu.ff1Click(Sender: TObject);
begin
   Application.CreateForm(TjzmfForm, jzmfForm);
   jzmfForm.showmodal;
   jzmfForm.free;
end;

procedure Tcxzmenu.N7Click(Sender: TObject);
begin
   Application.CreateForm(TkczcxForm, kczcxForm);
   kczcxForm.showmodal;
   kczcxForm.free;

end;

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

procedure Tcxzmenu.N9Click(Sender: TObject);
begin
   Application.CreateForm(TJZmxcxForm, JZmxcxForm);
   JZmxcxForm.showmodal;
   JZmxcxForm.free;

end;

procedure Tcxzmenu.N10Click(Sender: TObject);
begin
   Application.CreateForm(Txfdhcxform, xfdhcxform);
   xfdhcxform.showmodal;
   xfdhcxform.free;

end;

procedure Tcxzmenu.N11Click(Sender: TObject);
begin
   Application.CreateForm(TctrifxForm, ctrifxForm);
   ctrifxForm.showmodal;
   ctrifxForm.free;

end;

procedure Tcxzmenu.N12Click(Sender: TObject);
begin
   Application.CreateForm(Trzdhcxform, rzdhcxform);
   rzdhcxform.showmodal;
   rzdhcxform.free;

end;

procedure Tcxzmenu.N13Click(Sender: TObject);
begin
   Application.CreateForm(Tdjdhcxform, djdhcxform);
   djdhcxform.showmodal;
   djdhcxform.free;

end;

procedure Tcxzmenu.N16Click(Sender: TObject);
begin
   Application.CreateForm(TkczxfcxForm, kczxfcxForm);
   kczxfcxForm.showmodal;
   kczxfcxForm.free;

end;

procedure Tcxzmenu.N17Click(Sender: TObject);
begin
  Application.CreateForm(TjzdhzForm, jzdhzForm);
  jzdhzForm.showmodal;
  jzdhzForm.free;
end;

procedure Tcxzmenu.t8Click(Sender: TObject);
begin
  Application.CreateForm(ThyxxForm, hyxxForm);
  hyxxForm.showmodal;
  hyxxForm.free;

end;

end.