syszxt.pas

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

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 TZsysForm.k6Click(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 TZsysForm.k7Click(Sender: TObject);
begin
  addlogo(curper.code,datetimetostr(now),'日志清除');
  Application.CreateForm(TrzscForm, rzscForm);
  rzscForm.showmodal;
  rzscForm.free;

end;

procedure TZsysForm.k8Click(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 TZsysForm.k9Click(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 TZsysForm.d1Click(Sender: TObject);
begin
   addlogo(curper.code,datetimetostr(now),'校验数据');
   Application.CreateForm(TjysjForm, jysjForm);
   jysjForm.showmodal;
   jysjForm.free;

end;

procedure TZsysForm.d2Click(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 TZsysForm.d3Click(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 TZsysForm.d4Click(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 TZsysForm.d5Click(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 TZsysForm.d6Click(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');
       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 TZsysForm.d7Click(Sender: TObject);
begin
{query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('delete from account');
query1.SQL.Add('delete from bak');
query1.SQL.Add('delete from bccustom');
query1.SQL.Add('delete from bcjz');
query1.SQL.Add('delete from beforein');
query1.SQL.Add('delete from beforeinmx');
query1.SQL.Add('delete from bjyjb');
query1.SQL.Add('delete from changebc');
query1.SQL.Add('delete from changeroom');
query1.SQL.Add('delete from changeroompara');
query1.SQL.Add('delete from ctjz');
query1.SQL.Add('delete from ctnowin');
query1.SQL.Add('delete from curbcinfo');
query1.SQL.Add('delete from currb');
query1.SQL.Add('delete from custom');
query1.SQL.Add('delete from customls');
query1.SQL.Add('delete from cwbak');
query1.SQL.Add('delete from cwedit');
query1.SQL.Add('delete from deposit');
query1.SQL.Add('delete from endaccpara');
query1.SQL.Add('delete from fjzk');
query1.SQL.Add('delete from fzpara');
query1.SQL.Add('delete from groupcustom');
query1.SQL.Add('delete from GroupCalPara');
query1.SQL.Add('delete from GroupMeet');
query1.SQL.Add('delete from GroupNowin');
query1.SQL.Add('delete from GroupRmMx');
query1.SQL.Add('delete from GroupRoom');
query1.SQL.Add('delete from GroupZfCus');
query1.SQL.Add('delete from guest');
query1.SQL.Add('delete from GuestJsMx');
query1.SQL.Add('delete from GuestMx');
query1.SQL.Add('delete from gzAccount');
query1.SQL.Add('delete from gzChangeRoom');
query1.SQL.Add('delete from gzCustom');
query1.SQL.Add('delete from gzdb');
query1.SQL.Add('delete from gzdbf');
query1.SQL.Add('delete from gzhisdbf');
query1.SQL.Add('delete from gzNowIn');
query1.SQL.Add('delete from hykmx');
query1.SQL.Add('delete from hykxfmx');
query1.SQL.Add('delete from jkmoney');
query1.SQL.Add('delete from jkmx');
query1.SQL.Add('delete from jsDeposit');
query1.SQL.Add('delete from jsjz');
query1.SQL.Add('delete from jslsCustom');
query1.SQL.Add('delete from jslsNowIn');
query1.SQL.Add('delete from jsNowIn');
query1.SQL.Add('delete from jsxf');
query1.SQL.Add('delete from lctedit');
query1.SQL.Add('delete from jsxf');
query1.SQL.Add('delete from lcwedit');
query1.SQL.Add('delete from LockAcc');
query1.SQL.Add('delete from logo');
query1.SQL.Add('delete from lsacc');
query1.SQL.Add('delete from lsChangeRoom');
query1.SQL.Add('delete from lsctedit');
query1.SQL.Add('delete from lsctNowIn');
query1.SQL.Add('delete from lsCustom');
query1.SQL.Add('delete from lscwedit');
query1.SQL.Add('delete from lsguest');
query1.SQL.Add('delete from lsGuestMx');
query1.SQL.Add('delete from lsgzdb');
query1.SQL.Add('delete from lsjk');
query1.SQL.Add('delete from lsjz');
query1.SQL.Add('delete from lsmonctedit');
query1.SQL.Add('delete from lsmoncwedit');
query1.SQL.Add('delete from lsNowIn');
query1.SQL.Add('delete from lsrb');
query1.SQL.Add('delete from lssrrb');
query1.SQL.Add('delete from lssryb');
query1.SQL.Add('delete from lsCustom');
query1.SQL.Add('delete from monctedit');
query1.SQL.Add('delete from moncwedit');
query1.SQL.Add('delete from NowIn');
query1.SQL.Add('delete from NowInls');
query1.SQL.Add('delete from qtt04');
query1.SQL.Add('delete from QxNowIn');
query1.SQL.Add('delete from rblj');
query1.SQL.Add('delete from Room_nb');
query1.SQL.Add('delete from Room_yb');
query1.SQL.Add('delete from Roomaccount');
query1.SQL.Add('delete from roomcal');
query1.SQL.Add('delete from roomdq');
query1.SQL.Add('delete from roomtosanpara');
query1.SQL.Add('delete from sanhroompara');
query1.SQL.Add('delete from srrb');
query1.SQL.Add('delete from sryb');
query1.SQL.Add('delete from sslj');
query1.SQL.Add('delete from T04');
query1.SQL.Add('delete from test');
query1.SQL.Add('delete from ydroommx');
query1.SQL.Add('delete from zdpk');
query1.SQL.Add('delete from zdpkls');
query1.SQL.Add('delete from 历史挂帐付款明细');
query1.SQL.Add('delete from 挂帐付款明细');
query1.Prepare;
query1.ExecSQL; }
{  addlogo(curper.code,datetimetostr(now),'历史宾客清除');
  Application.CreateForm(TlsbkscForm, lsbkscForm);
  lsbkscForm.showmodal;
  lsbkscForm.free; }

end;

procedure TZsysForm.b1Click(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 TZsysForm.b2Click(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 TZsysForm.b3Click(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 TZsysForm.b4Click(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;