djmenu.pas

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

 // end else
 // Application.MessageBox('不能换房','提示信息',48);

end;

procedure Tmenu.m3Click(Sender: TObject);
begin
    Application.CreateForm(Tsanhfform, sanhfform);
    sanhfform.showmodal;
    sanhfform.free;

end;

procedure Tmenu.m4Click(Sender: TObject);
begin
  Application.CreateForm(Ttfform, tfform);
  tfform.showmodal;
  tfform.free;

end;

procedure Tmenu.m5Click(Sender: TObject);
begin
  Application.CreateForm(Ttsan, tsan);
  tsan.showmodal;
  tsan.free;

end;

procedure Tmenu.m6Click(Sender: TObject);
begin
  Application.CreateForm(Tzdform, zdform);
  zdform.showmodal;
  zdform.Free;

end;

procedure Tmenu.m7Click(Sender: TObject);
begin
  Application.CreateForm(Tnozdform, nozdform);
  nozdform.showmodal;
  nozdform.free;

end;

procedure Tmenu.x6Click(Sender: TObject);
begin
  Application.CreateForm(Tfzform, fzform);
  fzform.showmodal;
  fzform.free;

end;

procedure Tmenu.z2Click(Sender: TObject);
var ls:string;
begin
   ls:='';
 { Application.CreateForm(Tqxrzform, qxrzform);
  qxrzform.showmodal;
  if qxrzform.name.Caption<>'' then ls:=qxrzform.name.Caption;
  qxrzform.free;
  if ls<>'' then
  begin}
    Application.CreateForm(Tdjqxform, djqxform);
    djqxform.czy.Text:=ls;
    djqxform.showmodal;
    djqxform.free;
 // end else
 // Application.MessageBox('不能撤消','提示信息',48);

end;

procedure Tmenu.v1Click(Sender: TObject);
begin
  Application.CreateForm(Tdjcxform, djcxform);
  djcxform.showmodal;
  djcxform.free

end;

procedure Tmenu.x12Click(Sender: TObject);
begin
  Application.CreateForm(Tjzjzform, jzjzform);
  jzjzform.showmodal;
  jzjzform.free;

end;

procedure Tmenu.c1Click(Sender: TObject);
begin
  Application.CreateForm(TbbForm, bbForm);
  bbForm.kk.Caption:='日';
  bbForm.showmodal;
  bbForm.free;

end;

procedure Tmenu.c2Click(Sender: TObject);
begin
  Application.CreateForm(TbbForm, bbForm);
  bbForm.kk.Caption:='月';
  bbForm.showmodal;
  bbForm.free;

end;

procedure Tmenu.t21Click(Sender: TObject);
begin
  Application.CreateForm(Txfcxform, xfcxform);
  xfcxform.showmodal;
  xfcxform.free;

end;

procedure Tmenu.t23Click(Sender: TObject);
begin
  Application.CreateForm(Txflscxform, xflscxform);
  xflscxform.showmodal;
  xflscxform.free;

end;

procedure Tmenu.x13Click(Sender: TObject);
begin
  Application.CreateForm(Thyklrform, hyklrform);
  hyklrform.showmodal;
  hyklrform.free;

end;

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

end;

procedure Tmenu.x15Click(Sender: TObject);
begin
  Application.CreateForm(Thykczform, hykczform);
  hykczform.showmodal;
  hykczform.free;

end;

procedure Tmenu.t5Click(Sender: TObject);
begin
  Application.CreateForm(Tzdxftjform, zdxftjform);
  zdxftjform.showmodal;
  zdxftjform.free;
end;

procedure Tmenu.t6Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),n7.Caption);
  Application.CreateForm(Tzdkctjform, zdkctjform);
  zdkctjform.showmodal;
  zdkctjform.free; }
end;

procedure Tmenu.c61Click(Sender: TObject);
begin
  Application.CreateForm(Tdjcxform, djcxform);
  djcxform.showmodal;
  djcxform.free
 { addlogo(curper.code,datetimetostr(now),n11.Caption+'资料查询');
  Application.CreateForm(Tbkzlcxform, bkzlcxform);
  bkzlcxform.Label1.Caption:='GuestMx';
  bkzlcxform.showmodal;
  bkzlcxform.free; }
end;

procedure Tmenu.c62Click(Sender: TObject);
begin
  Application.CreateForm(Tbkzlcxform, bkzlcxform);
  bkzlcxform.Label1.Caption:='lsGuestMx';
  bkzlcxform.showmodal;
  bkzlcxform.free;
end;

procedure Tmenu.N13Click(Sender: TObject);
begin

  Application.CreateForm(Tgroupydform, groupydform);
  groupydform.showmodal;
  groupydform.free;
end;

procedure Tmenu.N16Click(Sender: TObject);
begin
  Application.CreateForm(TTTydtodjform, TTydtodjform);
  TTydtodjform.showmodal;
  TTydtodjform.free;

end;

procedure Tmenu.N19Click(Sender: TObject);
begin
  Application.CreateForm(TTTydtoqxform, TTydtoqxform);
  TTydtoqxform.showmodal;
  TTydtoqxform.free;
end;

procedure Tmenu.N18Click(Sender: TObject);
begin
  Application.CreateForm(Tgroupdjform, groupdjform);
  groupdjform.showmodal;
  groupdjform.free;
end;

procedure Tmenu.N20Click(Sender: TObject);
begin
  Application.CreateForm(Tgroupdjqxform, groupdjqxform);
  groupdjqxform.showmodal;
  groupdjqxform.free;
end;

procedure Tmenu.c7Click(Sender: TObject);
begin
  Application.CreateForm(Tgroupdjcxform, groupdjcxform);
  groupdjcxform.showmodal;
  groupdjcxform.free;
end;

procedure Tmenu.m10Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),'修改房价');
  Application.CreateForm(Tfjxgform, fjxgform);
  fjxgform.showmodal;
  fjxgform.Free;}
end;

procedure Tmenu.m8Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),'转二十四小时');
  Application.CreateForm(Tsrzrsform, srzrsform);
  srzrsform.showmodal;
  srzrsform.Free;  }
end;

procedure Tmenu.t8Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),n26.Caption);
  Application.CreateForm(Tzdpkform, zdpkform);
  zdpkform.showmodal;
  zdpkform.free;}
end;

procedure Tmenu.c4Click(Sender: TObject);
begin
  Application.CreateForm(Tcxsrrbform, cxsrrbform);
  cxsrrbform.showmodal;
  cxsrrbform.free;

end;

procedure Tmenu.N33Click(Sender: TObject);
begin
  Application.CreateForm(Tsankydform, sankydform);
  sankydform.showmodal;
  sankydform.free;

end;

procedure Tmenu.N34Click(Sender: TObject);
begin
  Application.CreateForm(Tsanydtodjform, sanydtodjform);
  sanydtodjform.showmodal;
  sanydtodjform.free;

end;

procedure Tmenu.N36Click(Sender: TObject);
begin
  Application.CreateForm(Tsanydtoqxform, sanydtoqxform);
  sanydtoqxform.showmodal;
  sanydtoqxform.free;

end;

procedure Tmenu.c5Click(Sender: TObject);
begin
  Application.CreateForm(Tcxsrybform, cxsrybform);
  cxsrybform.showmodal;
  cxsrybform.free;
end;

procedure Tmenu.x10Click(Sender: TObject);
begin
  Application.CreateForm(Tjbbbform, jbbbform);
  jbbbform.showmodal;
  jbbbform.free;

end;

procedure Tmenu.t7Click(Sender: TObject);
begin
  Application.CreateForm(Tzdxffltjform, zdxffltjform);
  zdxffltjform.showmodal;
  zdxffltjform.free;

end;

procedure Tmenu.x11Click(Sender: TObject);
begin
  Application.CreateForm(ThyjbsyForm, hyjbsyForm);
  hyjbsyForm.showmodal;
  hyjbsyForm.free;
end;

procedure Tmenu.c8Click(Sender: TObject);
begin
  {Application.CreateForm(TzdbbcxForm, zdbbcxForm);
  zdbbcxForm.ShowModal;
  zdbbcxForm.Free;  }
end;

procedure Tmenu.c9Click(Sender: TObject);
begin
   Application.CreateForm(TbcmdForm, bcmdForm);
   bcmdForm.showmodal;
   bcmdForm.free;

end;

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

procedure Tmenu.c3Click(Sender: TObject);
begin
  Application.CreateForm(TQBbbForm, QBbbForm);
  QBbbForm.showmodal;
  QBbbForm.free;
end;

procedure Tmenu.x2Click(Sender: TObject);
begin
  Application.CreateForm(Tdjyjcxform, djyjcxform);
  djyjcxform.showmodal;
  djyjcxform.free;
end;

procedure Tmenu.x3Click(Sender: TObject);
begin
  Application.CreateForm(Tsankaddposform, sankaddposform);
  sankaddposform.showmodal;
  sankaddposform.free;

end;

procedure Tmenu.t3Click(Sender: TObject);
begin
  Application.CreateForm(Tyldjform, yldjform);
  yldjform.showmodal;
  yldjform.free;
end;

procedure Tmenu.c11Click(Sender: TObject);
begin
  query2.Active:=false;
  query2.SQL.Clear;
  query2.SQL.Add('select * from stuff where code='''+curper.code+'''');
  query2.Prepare;
  query2.Open;
  if query2.FieldByName('iscw').asstring<>'2' then
  begin
    showmessage('对不起！你不是系统维护员，不可以维护，请与系统管理员联系！');
    exit;
  end;
  addlogo(curper.code,datetimetostr(now),c11.Caption);
  Application.CreateForm(Tzdwhform, zdwhform);
  zdwhform.showmodal;
  zdwhform.free;
end;

procedure Tmenu.N3Click(Sender: TObject);
begin
   Application.CreateForm(TjysjForm, jysjForm);
   jysjForm.showmodal;
   jysjForm.free;

end;

procedure Tmenu.c12Click(Sender: TObject);
begin
   Application.CreateForm(Tdqcxform, dqcxform);
   dqcxform.showmodal;
   dqcxform.free;

end;

procedure Tmenu.t22Click(Sender: TObject);
begin
   Application.CreateForm(Tzdxfcxform, zdxfcxform);
   zdxfcxform.showmodal;
   zdxfcxform.free;

end;

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

end;

procedure Tmenu.v2Click(Sender: TObject);
begin
  Application.CreateForm(Thkcxform, hkcxform);
  hkcxform.showmodal;
  hkcxform.free;

end;

procedure Tmenu.v3Click(Sender: TObject);
begin
  Application.CreateForm(Tcxlshkform, cxlshkform);
  cxlshkform.showmodal;
  cxlshkform.free;

end;

procedure Tmenu.v4Click(Sender: TObject);
begin
  Application.CreateForm(Tcxcxform, cxcxform);
  cxcxform.showmodal;
  cxcxform.free;

end;

procedure Tmenu.v5Click(Sender: TObject);
begin
  Application.CreateForm(Tgroupform, groupform);
  groupform.showmodal;
  groupform.free

end;

procedure Tmenu.v6Click(Sender: TObject);
begin
  Application.CreateForm(ThfcxForm, hfcxForm);
  hfcxForm.ShowModal;
  hfcxForm.Free;

end;

procedure Tmenu.v7Click(Sender: TObject);
begin
  Application.CreateForm(Trmlscxform, rmlscxform);
  rmlscxform.showmodal;
  rmlscxform.free;

end;

procedure Tmenu.v8Click(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Panel1.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.showmodal;
  djform.Free;

end;

procedure Tmenu.v9Click(Sender: TObject);
begin
  Application.CreateForm(Tdjfjcxform, djfjcxform);
  djfjcxform.showmodal;
  djfjcxform.free

end;

procedure Tmenu.m9Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),'转十二小时');
  Application.CreateForm(Tzsrxsform, zsrxsform);
  zsrxsform.showmodal;
  zsrxsform.Free; }

end;

procedure Tmenu.z3Click(Sender: TObject);
begin
  Application.CreateForm(Thkdjform, hkdjform);
  hkdjform.showmodal;
  hkdjform.free;

end;

procedure Tmenu.z4Click(Sender: TObject);
begin
  { Application.CreateForm(Tdjfsform, djfsform);
   djfsform.showmodal;
   djfsform.free; }

end;

procedure Tmenu.f1Click(Sender: TObject);
begin
  Application.CreateForm(Txgftform, xgftform);
  xgftform.showmodal;
  xgftform.free;

end;

procedure Tmenu.c13Click(Sender: TObject);
begin
   Application.CreateForm(TkczcxForm, kczcxForm);
   kczcxForm.showmodal;
   kczcxForm.free;
end;

procedure Tmenu.N5Click(Sender: TObject);
begin
   Application.CreateForm(TkxfcxForm, kxfcxForm);
   kxfcxForm.showmodal;
   kxfcxForm.free;

end;

procedure Tmenu.x16Click(Sender: TObject);
begin
   Application.CreateForm(Tbrownewjz, brownewjz);
   brownewjz.showmodal;
   brownewjz.free;

end;

end.