syszxt.pas

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

unit syszxt;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, ToolWin, Menus, ImgList, ExtCtrls, Db,
  DBTables;

type
  TZsysForm = class(TForm)
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    Panel1: TPanel;
    ToolBar3: TToolBar;
    xf: TToolButton;
    room: TToolButton;
    yydate: TToolButton;
    logid: TToolButton;
    xglog: TToolButton;
    quit: TToolButton;
    help: TToolButton;
    ImageList1: TImageList;
    Panel2: TPanel;
    ListView1: TListView;
    Panel3: TPanel;
    ListView2: TListView;
    Timer1: TTimer;
    Panel4: TPanel;
    MainMenu1: TMainMenu;
    f0: TMenuItem;
    f2: TMenuItem;
    N22: TMenuItem;
    f3: TMenuItem;
    r0: TMenuItem;
    r1: TMenuItem;
    r2: TMenuItem;
    r3: TMenuItem;
    N44: TMenuItem;
    r4: TMenuItem;
    r5: TMenuItem;
    t0: TMenuItem;
    t1: TMenuItem;
    t2: TMenuItem;
    m0: TMenuItem;
    m1: TMenuItem;
    N39: TMenuItem;
    m2: TMenuItem;
    m3: TMenuItem;
    k0: TMenuItem;
    k1: TMenuItem;
    k2: TMenuItem;
    k3: TMenuItem;
    k4: TMenuItem;
    N15: TMenuItem;
    k5: TMenuItem;
    k6: TMenuItem;
    N26: TMenuItem;
    k7: TMenuItem;
    k8: TMenuItem;
    k9: TMenuItem;
    d0: TMenuItem;
    d1: TMenuItem;
    d2: TMenuItem;
    d3: TMenuItem;
    d4: TMenuItem;
    d5: TMenuItem;
    d6: TMenuItem;
    d7: TMenuItem;
    b0: TMenuItem;
    b1: TMenuItem;
    b2: TMenuItem;
    b3: TMenuItem;
    b4: TMenuItem;
    n0: TMenuItem;
    h0: TMenuItem;
    h1: TMenuItem;
    N46: TMenuItem;
    h2: TMenuItem;
    Image1: TImage;
    f1: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Query1: TQuery;
    Label3: TLabel;
    N7: TMenuItem;
    procedure f1Click(Sender: TObject);
    procedure f2Click(Sender: TObject);
    procedure f3Click(Sender: TObject);
    procedure r1Click(Sender: TObject);
    procedure r2Click(Sender: TObject);
    procedure r3Click(Sender: TObject);
    procedure r4Click(Sender: TObject);
    procedure r5Click(Sender: TObject);
    procedure t1Click(Sender: TObject);
    procedure t2Click(Sender: TObject);
    procedure t3Click(Sender: TObject);
    procedure m1Click(Sender: TObject);
    procedure m2Click(Sender: TObject);
    procedure m3Click(Sender: TObject);
    procedure k1Click(Sender: TObject);
    procedure k2Click(Sender: TObject);
    procedure k3Click(Sender: TObject);
    procedure k4Click(Sender: TObject);
    procedure k5Click(Sender: TObject);
    procedure k6Click(Sender: TObject);
    procedure k7Click(Sender: TObject);
    procedure k8Click(Sender: TObject);
    procedure k9Click(Sender: TObject);
    procedure d1Click(Sender: TObject);
    procedure d2Click(Sender: TObject);
    procedure d3Click(Sender: TObject);
    procedure d4Click(Sender: TObject);
    procedure d5Click(Sender: TObject);
    procedure d6Click(Sender: TObject);
    procedure d7Click(Sender: TObject);
    procedure b1Click(Sender: TObject);
    procedure b2Click(Sender: TObject);
    procedure b3Click(Sender: TObject);
    procedure b4Click(Sender: TObject);
    procedure h1Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure h2Click(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure logidClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZsysForm: TZsysForm;
implementation
uses dataproc,about, login, rywh, changepas,seerz, bmwh, cssjwh, roomtp,
  sanwh, rmsetup, xfwh, rylbwh, jysj, rzsc, lsbksc, cttabtp, ctzhsetup,
  cdwh, hyklrUnit,hykczunit,hykwhunit,gzbmwh,bcsetup, fjxgunit;


{$R *.DFM}
procedure TZsysForm.f1Click(Sender: TObject);
begin
  Application.CreateForm(Tchangepass, changepass);
  changepass.showmodal;
  changepass.free;
end;

procedure TZsysForm.f2Click(Sender: TObject);
begin
  Application.CreateForm(TrzForm,rzForm);
  rzForm.showmodal;
  rzForm.free;

end;

procedure TZsysForm.f3Click(Sender: TObject);
begin
   Close;

end;

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

procedure TZsysForm.r2Click(Sender: TObject);
begin
  Application.CreateForm(Trmsetupform, rmsetupform);
  rmsetupform.showmodal;
  rmsetupform.free;

end;

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

procedure TZsysForm.r4Click(Sender: TObject);
begin
   {    addlogo(curper.code,datetimetostr(now),'备份房间数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from sanbak.dbo.room1');
       fm.query2.sql.add('delete from sanbak.dbo.roomtype');
       fm.query2.sql.add('delete from sanbak.dbo.roomsetup');
       fm.query2.sql.add('delete from sanbak.dbo.mansan');
       fm.query2.sql.add('delete from sanbak.dbo.womansan');
       fm.query2.sql.add('insert into sanbak.dbo.room1 select * from room1');
       fm.query2.sql.add('insert into sanbak.dbo.roomtype select * from roomtype');
       fm.query2.sql.add('insert into sanbak.dbo.roomsetup select * from roomsetup');
       fm.query2.sql.add('insert into sanbak.dbo.mansan select * from mansan');
       fm.query2.sql.add('insert into sanbak.dbo.womansan select * from womansan');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('备份完毕');}

end;

procedure TZsysForm.r5Click(Sender: TObject);
begin
     {  addlogo(curper.code,datetimetostr(now),'恢复房间数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from room1');
       fm.query2.sql.add('delete from roomtype');
       fm.query2.sql.add('delete from roomsetup');
       fm.query2.sql.add('delete from mansan');
       fm.query2.sql.add('delete from womansan');
       fm.query2.sql.add('insert into room1 select * from sanbak.dbo.room1');
       fm.query2.sql.add('insert into roomtype select * from sanbak.dbo.roomtype');
       fm.query2.sql.add('insert into roomsetup select * from sanbak.dbo.roomsetup');
       fm.query2.sql.add('insert into mansan select * from sanbak.dbo.mansan');
       fm.query2.sql.add('insert into womansan select * from sanbak.dbo.womansan');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕'); }

end;

procedure TZsysForm.t1Click(Sender: TObject);
begin
  Application.CreateForm(Tcttypeform, cttypeform);
  cttypeform.showmodal;
  cttypeform.free;

end;

procedure TZsysForm.t2Click(Sender: TObject);
begin
  {addlogo(curper.code,datetimetostr(now),'餐厅桌号设置');
  Application.CreateForm(Tzhsetupform, zhsetupform);
  zhsetupform.showmodal;
  zhsetupform.free;}

end;

procedure TZsysForm.t3Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),'餐厅菜单维护');
  Application.CreateForm(TcdwhForm, cdwhForm);
  cdwhForm.showmodal;
  cdwhForm.free; }

end;

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

end;

procedure TZsysForm.m2Click(Sender: TObject);
begin
 { addlogo(curper.code,datetimetostr(now),'备份消费数据');
  fm.query2.Active :=false;
  fm.query2.sql.clear;
  fm.query2.sql.add('delete from sanbak.dbo.custype');
  fm.query2.sql.add('delete from sanbak.dbo.cusitem');
  fm.query2.sql.add('insert into sanbak.dbo.custype select * from custype');
  fm.query2.sql.add('insert into sanbak.dbo.cusitem select * from cusitem');
  fm.query2.Prepare;
  fm.query2.ExecSQL;
  fm.query2.Active :=false;
  fm.query2.sql.clear;
  showmessage('备份完毕');}

end;

procedure TZsysForm.m3Click(Sender: TObject);
begin
   {    addlogo(curper.code,datetimetostr(now),'恢复消费数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from custype');
       fm.query2.sql.add('delete from cusitem');
       fm.query2.sql.add('insert into custype select * from sanbak.dbo.custype');
       fm.query2.sql.add('insert into cusitem select * from sanbak.dbo.cusitem');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕'); }
end;

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

end;

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

end;

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

end;

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

end;

procedure TZsysForm.k5Click(Sender: TObject);