whmenu.pas

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

unit whmenu;

interface

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

type
  Twhzmenu = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N13: TMenuItem;
    N20: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N19: TMenuItem;
    N43: TMenuItem;
    Image1: TImage;
    N18: TMenuItem;
    N9: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    N5: TMenuItem;
    N7: TMenuItem;
    N17: TMenuItem;
    N21: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N3: TMenuItem;
    N42: TMenuItem;
    N11: TMenuItem;
    N10: TMenuItem;
    N8: TMenuItem;
    N4: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N22: TMenuItem;
    N26: TMenuItem;
    N15: TMenuItem;
    N29: TMenuItem;
    N39: TMenuItem;
    N44: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N6: TMenuItem;
    N23: TMenuItem;
    N32: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N16: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N38: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    procedure N15Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N10Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N47Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  whzmenu: Twhzmenu;

implementation

uses dataproc,about, login, rywh, changepas,seerz, bmwh, cssjwh, roomtp,
  sanwh, rmsetup, xfwh, rylbwh, jysj, rzsc, lsbksc, cttabtp, ctzhsetup,
  cdwh;

{$R *.DFM}

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

procedure Twhzmenu.N6Click(Sender: TObject);
begin
  n1.enabled:=false;
  n2.enabled:=false;
  n30.enabled:=false;
  n5.enabled:=false;
  n21.enabled:=false;
  n10.enabled:=false;
  n31.enabled:=false;
  n23.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 (trim(log.qx.Items[5])='True') then
     begin
     addlogo(curper.code,datetimetostr(now),'登录系统');
     n1.enabled:=true;
     if (trim(log.qx.Items[2])='True') then n2.enabled:=true;
     n5.enabled:=true;
     n30.enabled:=true;
     if (trim(log.qx.Items[1])='True') then n21.enabled:=true;
     n10.enabled:=true;
     n31.enabled:=true;
//     if (trim(log.qx.Items[3])='True') then n23.enabled:=true;
     end;
  log.free;
end;

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

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

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

procedure Twhzmenu.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 Twhzmenu.N3Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'人员维护');
  Application.CreateForm(TrywhForm, rywhForm);
  rywhForm.showmodal;
  rywhForm.free;

end;

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

end;

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

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

end;

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

procedure Twhzmenu.N42Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'部门维护');
  Application.CreateForm(TbmwhForm, bmwhForm);
  bmwhForm.showmodal;
  bmwhForm.free;

end;

procedure Twhzmenu.N7Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'初始数据维护');
  Application.CreateForm(Tcssjwhform, cssjwhform);
  cssjwhform.showmodal;
  cssjwhform.free;

end;

procedure Twhzmenu.N13Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'房间类型维护');
  Application.CreateForm(Trmtypeform, rmtypeform);
  rmtypeform.showmodal;
  rmtypeform.free;

end;

procedure Twhzmenu.N18Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'散座维护');
  Application.CreateForm(TsanwhForm, sanwhForm);
  sanwhForm.showmodal;
  sanwhForm.free;

end;

procedure Twhzmenu.N43Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'房态盘维护');
  Application.CreateForm(Trmsetupform, rmsetupform);
  rmsetupform.showmodal;
  rmsetupform.free;

end;

procedure Twhzmenu.N19Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'消费项目维护');
  Application.CreateForm(TxfwhForm, xfwhForm);
  xfwhForm.showmodal;
  xfwhForm.free;

end;

procedure Twhzmenu.N47Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'人员类别维护');
  Application.CreateForm(TrylbwhForm, rylbwhForm);
  rylbwhForm.showmodal;
  rylbwhForm.free;

end;

procedure Twhzmenu.N35Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'校验数据');
  Application.CreateForm(TjysjForm, jysjForm);
  jysjForm.showmodal;
  jysjForm.free;

end;

procedure Twhzmenu.N17Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'日志清除');
  Application.CreateForm(TrzscForm, rzscForm);
  rzscForm.showmodal;
  rzscForm.free;

end;

procedure Twhzmenu.N41Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'历史宾客清除');
  Application.CreateForm(TlsbkscForm, lsbkscForm);
  lsbkscForm.showmodal;
  lsbkscForm.free;

end;

procedure Twhzmenu.N40Click(Sender: TObject);
begin
  if messagedlg('此操作将删除全部宾客数据，是否继续？',mtWarning,[mbYes, mbNo], 0) = mrYes then
     begin
       addlogo(curper.code,datetimetostr(now),'当前宾客清除');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from nowin');