djmenubak.pas

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

end;

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tmenubak.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;
   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;
//   Timer1Timer(nil);

end;

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

end;

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

end;

procedure Tmenubak.Timer1Timer(Sender: TObject);
var ls:string;
begin
   fm.query1.close;
   fm.query1.sql.clear;
   fm.query1.sql.add('Select MoneyTime from syssetup');
   fm.query1.open;
   if trim(fm.query1.Fields[0].asstring)<>passzh('199908191918') then
   begin
     ls:=trim(unpassname(fm.query1.Fields[0].asstring));
     fm.query1.close;
     fm.Query1.UnPrepare;
     fm.query1.RequestLive:=false;
     if ls='' then
     begin
        showmessage('请先在系统维护中设定试用时间');
        close;
        exit;
     end;
     try
       if strtodatetime(ls)-now>100 then
       begin
         showmessage('试用期设定不对，请重新设定');
         close;
         exit;
       end;
       if strtodatetime(ls)<now then
       begin
         showmessage('试用期已过，请与供应商联系');
         close;
         exit;
       end;
       if strtodatetime(ls)-now<3 then
       begin
          showmessage('试用期已剩'+floattostr(int((strtodatetime(ls)-now)+0.9))+'天了，请尽快与供应商联系');
       end;
     except
     begin
         showmessage('试用期已过，请与供应商联系');
         close;
         exit;
     end;
     end;
   end
   else
   begin
     fm.query1.close;
     fm.Query1.UnPrepare;
     fm.query1.RequestLive:=false;
   end;
end;

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

procedure Tmenubak.N45Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(TsrrbForm, srrbForm);
  srrbForm.CheckBox1.Checked:=true;
  srrbForm.showmodal;
  srrbForm.free;

end;

procedure Tmenubak.N46Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入月报表查询');
  Application.CreateForm(TsrbbForm, srbbForm);
  srbbForm.showmodal;
  srbbForm.free;

end;

procedure Tmenubak.Image1DblClick(Sender: TObject);
begin
     if n1.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'来客登记');
        Application.CreateForm(Tdjform, djform);
        djform.showmodal;
        djform.free;
        exit;
        end;
     if n5.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'结帐');
        Application.CreateForm(Tnewjz, newjz);
        newjz.showmodal;
        newjz.free;
        exit;
        end;
     if n2.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'消费入帐 ');
        Application.CreateForm(Txfform, xfform);
        xfform.showmodal;
        xfform.free;
        exit;
        end;
     if n8.Enabled then
        begin
        addlogo(curper.code,datetimetostr(now),'修改房态');
        Application.CreateForm(Txgftform, xgftform);
        xgftform.showmodal;
        xgftform.free;
        exit;
        end;

end;

procedure Tmenubak.N47Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(TbbForm, bbForm);
//  bbForm.CheckBox1.Checked:=true;
  bbForm.CheckBox1.Checked:=true;
  bbForm.showmodal;
  bbForm.free;

end;

end.