whmenu.pas

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

       fm.query2.sql.add('delete from custom');
       fm.query2.sql.add('delete from deposit');
       fm.query2.sql.add('delete from changeroom');
       fm.query2.sql.add('update room set status='''+'0'+''' where status='''+'1'+''' or status='''+'4'+'''');
       fm.query2.sql.add('update mansan set status='''+'0'+''' where status='''+'1'+''' or status='''+'4'+'''');
       fm.query2.sql.add('update womansan set status='''+'0'+''' where status='''+'1'+''' or status='''+'4'+'''');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('删除完毕！');
     end;

end;

procedure Twhzmenu.N32Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'餐厅桌号维护');
  Application.CreateForm(Tcttypeform, cttypeform);
  cttypeform.showmodal;
  cttypeform.free;

end;

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

end;

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

end;

procedure Twhzmenu.N33Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'恢复本月报表');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from srrb');
       fm.query2.sql.add('insert into srrb select * from sanbak.dbo.srrb');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕');


end;

procedure Twhzmenu.N16Click(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 Twhzmenu.N4Click(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 Twhzmenu.N12Click(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 Twhzmenu.N14Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'备份运行数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from sanbak.dbo.syssetup');
       fm.query2.sql.add('delete from sanbak.dbo.stuff');
       fm.query2.sql.add('delete from sanbak.dbo.dept');
       fm.query2.sql.add('delete from sanbak.dbo.rytype');
       fm.query2.sql.add('insert into sanbak.dbo.syssetup select * from syssetup');
       fm.query2.sql.add('insert into sanbak.dbo.stuff select * from stuff');
       fm.query2.sql.add('insert into sanbak.dbo.dept select * from dept');
       fm.query2.sql.add('insert into sanbak.dbo.rytype select * from rytype');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('备份完毕');

end;

procedure Twhzmenu.N8Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'备份日志数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from sanbak.dbo.logo');
       fm.query2.sql.add('insert into sanbak.dbo.logo select * from logo');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('备份完毕');

end;

procedure Twhzmenu.N27Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'备份宾客数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from sanbak.dbo.nowin');
       fm.query2.sql.add('delete from sanbak.dbo.lslsnowin');
       fm.query2.sql.add('delete from sanbak.dbo.custom');
       fm.query2.sql.add('delete from sanbak.dbo.lslscustom');
       fm.query2.sql.add('insert into sanbak.dbo.nowin select * from nowin');
       fm.query2.sql.add('insert into sanbak.dbo.lslsnowin select * from lslsnowin');
       fm.query2.sql.add('insert into sanbak.dbo.custom select * from custom');
       fm.query2.sql.add('insert into sanbak.dbo.lslscustom select * from lslscustom');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('备份完毕');

end;

procedure Twhzmenu.N28Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'备份历史数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from sanbak.dbo.lsnowin');
       fm.query2.sql.add('delete from sanbak.dbo.lscustom');
       fm.query2.sql.add('insert into sanbak.dbo.lsnowin select * from lsnowin');
       fm.query2.sql.add('insert into sanbak.dbo.lscustom select * from lscustom');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('备份完毕');

end;

procedure Twhzmenu.N36Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'备份本月报表');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from sanbak.dbo.newsrrb');
       fm.query2.sql.add('insert into sanbak.dbo.newsrrb select * from newsrrb');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('备份完毕');

end;

procedure Twhzmenu.N37Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'备份历史报表');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from sanbak.dbo.lsnewsrrb');
       fm.query2.sql.add('insert into sanbak.dbo.lsrb select * from lsnewsrrb');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('备份完毕');

end;

procedure Twhzmenu.N50Click(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 Twhzmenu.N51Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'恢复运行数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from syssetup');
       fm.query2.sql.add('delete from stuff');
       fm.query2.sql.add('delete from dept');
       fm.query2.sql.add('delete from rytype');
       fm.query2.sql.add('insert into syssetup select * from sanbak.dbo.syssetup');
       fm.query2.sql.add('insert into stuff select * from sanbak.dbo.stuff');
       fm.query2.sql.add('insert into dept select * from sanbak.dbo.dept');
       fm.query2.sql.add('insert into rytype select * from sanbak.dbo.rytype');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕');

end;

procedure Twhzmenu.N52Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'恢复日志数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from logo');
       fm.query2.sql.add('insert into logo select * from sanbak.dbo.logo');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕');

end;

procedure Twhzmenu.N53Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'恢复宾客数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from nowin');
       fm.query2.sql.add('delete from lslsnowin');
       fm.query2.sql.add('delete from custom');
       fm.query2.sql.add('delete from lslscustom');
       fm.query2.sql.add('insert into nowin select * from sanbak.dbo.nowin');
       fm.query2.sql.add('insert into lslsnowin select * from sanbak.dbo.lslsnowin');
       fm.query2.sql.add('insert into custom select * from sanbak.dbo.custom');
       fm.query2.sql.add('insert into lslscustom select * from sanbak.dbo.lslscustom');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕');

end;

procedure Twhzmenu.N54Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'恢复历史数据');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from lsnowin');
       fm.query2.sql.add('delete from lscustom');
       fm.query2.sql.add('insert into lsnowin select * from sanbak.dbo.lsnowin');
       fm.query2.sql.add('insert into lscustom select * from sanbak.dbo.lscustom');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕');

end;

procedure Twhzmenu.N34Click(Sender: TObject);
begin
       addlogo(curper.code,datetimetostr(now),'恢复历史报表');
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       fm.query2.sql.add('delete from lsnewsrrb');
       fm.query2.sql.add('insert into lsnewsrrb select * from sanbak.dbo.lsnewsrrb');
       fm.query2.Prepare;
       fm.query2.ExecSQL;
       fm.query2.Active :=false;
       fm.query2.sql.clear;
       showmessage('恢复完毕');

end;

end.