xlhymenu.pas

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

   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);
     8:Z9Click(nil);
     9:Z10Click(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);
     5:M6Click(nil);
     6:M7Click(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 Tmenu.z1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'来客登记');
  Application.CreateForm(Tdjform, djform);
  djform.showmodal;
  djform.free;
end;

procedure Tmenu.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);


end;

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

end;

procedure Tmenu.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
      N25Click(nil);
  if key=13 then
  begin
     if z0.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'来客登记');
        Application.CreateForm(Tdjform, djform);
        djform.showmodal;
        djform.free;
        exit;
        end;
     if x0.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'结帐');
        Application.CreateForm(Tnewjz, newjz);
        newjz.showmodal;
        newjz.free;
        exit;
        end;
     if t0.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'消费入帐 ');
        Application.CreateForm(Txfform, xfform);
        xfform.showmodal;
        xfform.free;
        exit;
        end;
     if v0.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'修改房态');
        Application.CreateForm(Txgftform, xgftform);
        xgftform.showmodal;
        xgftform.free;
        exit;
        end;
  end;

end;

procedure Tmenu.n15Click(Sender: TObject);
begin
 close;
end;

procedure Tmenu.t1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费入帐 ');
  Application.CreateForm(Txfform, xfform);
  xfform.showmodal;
  xfform.free;

end;

procedure Tmenu.v2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'交班');
  Application.CreateForm(Tjbform1, jbform1);
  jbform1.showmodal;
  if not jbform1.Panel3.Enabled then
   begin
     jbform1.free;
     N6Click(nil);
   end
   else
    jbform1.free;


end;

procedure Tmenu.z10Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'查看房态表');
  Application.CreateForm(Tdjform, djform);
  djform.Panel1.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.showmodal;
  djform.Free;

end;

procedure Tmenu.z3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'总台查询');
  Application.CreateForm(Tdjcxform, djcxform);
  djcxform.showmodal;
  djcxform.free

end;

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

end;

procedure Tmenu.z8Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'全部解锁');
  Application.CreateForm(Tunlockall, unlockall);
  unlockall.showmodal;
  unlockall.free;

end;

procedure Tmenu.z7Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'补交押金');
  Application.CreateForm(Taddyj, addyj);
  addyj.showmodal;
  addyj.free;

end;

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

end;

procedure Tmenu.n25Click(Sender: TObject);
begin
  Application.CreateForm(TAboutBox, AboutBox);
  AboutBox.showmodal;
  aboutbox.free;
end;

procedure Tmenu.n24Click(Sender: TObject);
begin
    winhelp(0,Pchar('前台帮助.hlp'),HELP_FINDER,0);

end;

procedure Tmenu.x1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'转帐');
  Application.CreateForm(Tzzform, zzform);
  zzform.showmodal;
  zzform.free;

end;

procedure Tmenu.x3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'结帐');
  Application.CreateForm(Tnewjz, newjz);
  newjz.showmodal;
  newjz.free;

end;

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

end;

procedure Tmenu.v3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'交款');
  Application.CreateForm(Tjkform, jkform);
  jkform.showmodal;

end;

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

end;

procedure Tmenu.m1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'换房');
  Application.CreateForm(Thfform, hfform);
  hfform.showmodal;
  hfform.Free;

end;

procedure Tmenu.m2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'房间换散座');
  Application.CreateForm(Trmhsan, rmhsan);
  rmhsan.showmodal;
  rmhsan.free;

end;

procedure Tmenu.m3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'散座换房间');
  Application.CreateForm(Tsanhfform, sanhfform);
  sanhfform.showmodal;
  sanhfform.free;

end;

procedure Tmenu.m4Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'退房');
  Application.CreateForm(Ttfform, tfform);
  tfform.showmodal;
  tfform.free;

end;

procedure Tmenu.m5Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'退散座');
  Application.CreateForm(Ttsan, tsan);
  tsan.showmodal;
  tsan.free;

end;

procedure Tmenu.m6Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'钟点转非钟点');
  Application.CreateForm(Tzdform, zdform);
  zdform.showmodal;
  zdform.Free;

end;

procedure Tmenu.m7Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'非钟点转钟点');
  Application.CreateForm(Tnozdform, nozdform);
  nozdform.showmodal;
  nozdform.free;

end;

procedure Tmenu.x2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'分帐');
  Application.CreateForm(Tfzform, fzform);
  fzform.showmodal;
  fzform.free;

end;

procedure Tmenu.z2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'登记撤消');
  Application.CreateForm(Tdjqxform, djqxform);
  djqxform.showmodal;
  djqxform.free;

end;

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

end;

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

end;

procedure Tmenu.x4Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'延期结帐');
  Application.CreateForm(Tjzjzform, jzjzform);
  jzjzform.showmodal;
  jzjzform.free;

end;

procedure Tmenu.c1Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(TbbForm, bbForm);
  bbForm.kk.Caption:='日';
  bbForm.showmodal;
  bbForm.free;

end;

procedure Tmenu.c2Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入月报表查询');
  Application.CreateForm(TbbForm, bbForm);
  bbForm.kk.Caption:='月';
  bbForm.showmodal;
  bbForm.free;

end;

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

end;

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

end;

procedure Tmenu.x5Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'会员卡录入');
  Application.CreateForm(Thyklrform, hyklrform);
  hyklrform.showmodal;
  hyklrform.free;

end;

procedure Tmenu.x6Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'会员卡维护');
  Application.CreateForm(Thykwhform, hykwhform);
  hykwhform.showmodal;
  hykwhform.free;

end;

procedure Tmenu.x7Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'会员卡储值');
  Application.CreateForm(Thykczform, hykczform);
  hykczform.showmodal;
  hykczform.free;

end;

end.