djmenubak.pas

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

unit djmenubak;

interface

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

type
  Tmenubak = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N8: 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;
    N43: TMenuItem;
    N51: TMenuItem;
    N27: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N7: TMenuItem;
    N12: TMenuItem;
    N18: TMenuItem;
    N22: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    N17: TMenuItem;
    N38: TMenuItem;
    N10: TMenuItem;
    N41: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N21: TMenuItem;
    N48: 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 FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    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 N18Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
    procedure N47Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  menubak: Tmenubak;

implementation

uses dataproc,about, login,  xfcx, djcx, unlkall, changepas,
  groupcx, sanhroom, newdj, newxf, hf,exitrm, seerz, addpos, zz,  newjzform,
  exitsan, roomhsan, jb1,jk,seejzlf, zdznozd, nozdzzd, fz, djqx, jzjz,
  lsrmcx, xgft, roomczl,  Rbcx, srbb, bbcx;

{$R *.DFM}

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

procedure Tmenubak.N6Click(Sender: TObject);
begin
  n10.Enabled :=false;
  n5.enabled:=false;
  n2.enabled:=false;
  n1.enabled:=false;
  n8.enabled:=false;
  n41.enabled:=false;
  n42.enabled:=false;
  n27.Enabled :=false;
  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),'登录系统');
    n10.enabled:=true;
    if trim(log.qx.Items[1])='True' then
    begin
     n1.enabled:=true;
     n27.enabled:=true;
     n41.Enabled :=true;
    end;
    if trim(log.qx.Items[2])='True' then
    begin
     n2.enabled:=true;
    end;
    if trim(log.qx.Items[3])='True' then
    begin
     n5.enabled:=true;
     n42.Enabled :=true;
     n41.Enabled :=true;
    end ;
    if trim(log.qx.Items[4])='True' then
    begin
     n8.enabled:=true;
    end ;

  end;
  log.free;
end;

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

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

procedure Tmenubak.N21Click(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 Tmenubak.N4Click(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 Tmenubak.N19Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费查询');
  Application.CreateForm(Txfcxform, xfcxform);
  xfcxform.showmodal;
  xfcxform.free;
end;

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

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

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

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

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

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

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

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

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

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

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