mufm.pas

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

unit mufm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdCtrls, Grids, DBGrids, ExtCtrls, Db, DBTables;

type
  Tmenu = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N16: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N23: TMenuItem;
    N6: TMenuItem;
    N20: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N9: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N4: TMenuItem;
    N19: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N21: TMenuItem;
    N48: TMenuItem;
    Image1: TImage;
    N51: TMenuItem;
    N27: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N7: TMenuItem;
    N12: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    procedure N15Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N43Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  menu: Tmenu;

implementation

uses dataproc,about, login, xfxg, rmstatus, xfcx, djcx, unlkall, changepas,
  groupcx, sanhroom, newdj, newxf, hf,exitrm, seerz, addpos, zz,  newjzform,
  exitsan, roomhsan, jb,  jk,  seejzlf, zdznozd, nozdzzd, fz, djqx, jzjz,
  lsrmcx;

{$R *.DFM}
var
  curbc:string;

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

procedure Tmenu.N6Click(Sender: TObject);
begin
  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),'登录系统');
     n5.enabled:=true;
     n8.enabled:=true;
     n2.enabled:=true;
     n27.Enabled :=true;
     n1.enabled:=true;
     n42.enabled:=true;
     end
  else
     begin
     n5.enabled:=false;
     n8.enabled:=false;
     n2.enabled:=false;
     n27.Enabled :=false;
     n1.enabled:=false;
     n42.enabled:=false;
     end;
end;

procedure Tmenu.N11Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'来客登记');
  Application.CreateForm(Tdjform, djform);
  djform.showmodal;
end;

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

procedure Tmenu.N21Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'交班');
  Application.CreateForm(Tjbform, jbform);
  jbform.showmodal;
end;

procedure Tmenu.N4Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'查看房态表');
  Application.CreateForm(Trmstatusform, rmstatusform);
  rmstatusform.showmodal;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

end.