jjjcxmenu.pas

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

unit cxmenu;

interface

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

type
  Tjjjcxzmenu = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    N6: TMenuItem;
    N20: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N40: TMenuItem;
    N4: TMenuItem;
    N19: TMenuItem;
    N43: TMenuItem;
    Image1: TImage;
    N51: TMenuItem;
    N18: TMenuItem;
    N22: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N3: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    N5: TMenuItem;
    N7: TMenuItem;
    N12: TMenuItem;
    N21: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N39: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N44: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N43Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jjjcxzmenu: Tjjjcxzmenu;

implementation

uses dataproc, xfcx, djcx, changepas, about, groupcx, seejzlf, lsrmcx, xgft,
  roomczl, rbcx, bbcx, dqcx, dqczlcx, dqsrcx, rywh, ryyj, xftj, dhftj, login,
  newdj, seerz, jkcx, jbcx, srbb, czlbb, xflscx, xfxmtj, krxfmxUnit,kxfmxunit;

{$R *.DFM}

procedure Tjjjcxzmenu.N6Click(Sender: TObject);
begin
     n8.enabled:=false;
     n2.enabled:=false;
     n1.enabled:=false;
     n5.enabled:=false;
     n21.enabled:=false;
     n30.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) and (copy(curper.Headship,1,1)='8')  then
  begin
     addlogo(curper.code,datetimetostr(now),'登录系统');
    if trim(log.qx.Items[1])='True' then
    begin
     n1.enabled:=true;
     n5.Enabled :=true;
    end;
    if trim(log.qx.Items[2])='True' then
    begin
     n2.enabled:=true;
     n5.Enabled :=true;
    end;
    if trim(log.qx.Items[3])='True' then
    begin
     n21.enabled:=true;
     n5.Enabled :=true;
    end;
    if trim(log.qx.Items[4])='True' then
    begin
     n21.enabled:=true;
     n5.enabled:=true;
     n8.Enabled :=true;
    end;
    if (trim(log.qx.Items[1])='True') and (trim(log.qx.Items[2])='True') and (trim(log.qx.Items[3])='True') and (trim(log.qx.Items[4])='True') then
    begin
     n30.enabled:=true;
    end;
  end;
  log.free;

end;

procedure Tjjjcxzmenu.N4Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'查看房态表');
  Application.CreateForm(Tdjform, djform);
  djform.Caption:='查看房态表';
  djform.Panel1.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.showmodal;
  djform.free;
end;

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

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

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

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

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

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

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

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

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

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

end;

procedure Tjjjcxzmenu.N11Click(Sender: TObject);
begin
   Close;
end;

procedure Tjjjcxzmenu.FormCreate(Sender: TObject);
begin
   xt:=1;
   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;

end;

procedure Tjjjcxzmenu.N14Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(Tbbform, bbform);
  bbform.kk.Caption:='月';
  bbform.showmodal;
  bbform.free;
end;

procedure Tjjjcxzmenu.N27Click(Sender: TObject);
begin

  addlogo(curper.code,datetimetostr(now),'出租情况查询');
  Application.CreateForm(Tdqcxform, dqcxform);
  dqcxform.showmodal;
  dqcxform.free;

end;

procedure Tjjjcxzmenu.N29Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'当前出租率查询');
  Application.CreateForm(Tdqczlcxform, dqczlcxform);
  dqczlcxform.showmodal;
  dqczlcxform.free;

end;

procedure Tjjjcxzmenu.N28Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入情况查询');
  Application.CreateForm(Tdqsrcxform, dqsrcxform);
  dqsrcxform.showmodal;
//  dqsrcxform.free;

end;

procedure Tjjjcxzmenu.N3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'人员维护');
  Application.CreateForm(TrywhForm, rywhForm);
  rywhForm.showmodal;
  rywhForm.free;

end;

procedure Tjjjcxzmenu.N25Click(Sender: TObject);
begin
 //  winhelp(0,Pchar('查询帮助.hlp'),HELP_FINDER,0);

end;

procedure Tjjjcxzmenu.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
      N25Click(nil);
end;

procedure Tjjjcxzmenu.N31Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'人员业绩统计');
  Application.CreateForm(TryyjForm, ryyjForm);
  ryyjForm.showmodal;
  ryyjForm.free;

end;

procedure Tjjjcxzmenu.N32Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费明细');
  Application.CreateForm(TxftjForm, xftjForm);
  xftjForm.showmodal;
  xftjForm.free;

end;

procedure Tjjjcxzmenu.N33Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'电话费统计');
  Application.CreateForm(TdhftjForm, dhftjForm);
  dhftjForm.showmodal;
  dhftjForm.free;

end;

procedure Tjjjcxzmenu.N35Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'交款查询');
  Application.CreateForm(TjkcxForm, jkcxForm);
  jkcxForm.showmodal;
  jkcxForm.free;

end;

procedure Tjjjcxzmenu.N34Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'交班查询');
  Application.CreateForm(TjbcxForm, jbcxForm);
  jbcxForm.showmodal;
  jbcxForm.free;

end;

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

end;

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

end;

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

end;

procedure Tjjjcxzmenu.N41Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'出租月报表查询');
  Application.CreateForm(Tczbbform, czbbform);
  czbbform.CheckBox1.Checked:=true;
  czbbform.showmodal;
  czbbform.free;

end;

procedure Tjjjcxzmenu.N42Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'出租年报表查询');
  Application.CreateForm(Tczbbform, czbbform);
  czbbform.CheckBox1.Checked:=false;
  czbbform.showmodal;
  czbbform.free;

end;

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

end;

procedure Tjjjcxzmenu.N36Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入报表查询');
  Application.CreateForm(Tbbform, bbform);
  bbform.showmodal;
  bbform.free;

end;

procedure Tjjjcxzmenu.N12Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'收入日报表查询');
  Application.CreateForm(Tbbform, bbform);
  bbform.kk.Caption:='日';
  bbform.showmodal;
  bbform.free;

end;

procedure Tjjjcxzmenu.N15Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费统计');
  Application.CreateForm(Txfxmtjform, xfxmtjform);
  xfxmtjform.showmodal;
  xfxmtjform.free;

end;

procedure Tjjjcxzmenu.N16Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'客人消费单明细');
  Application.CreateForm(TxfmxForm, xfmxForm);
  xfmxForm.showmodal;
  xfmxForm.free;


end;

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

end;

end.