guesthis.pas

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

  newform.jy.text:=floattostr(newform.q1.fieldbyname('jy').asfloat);
  newform.mroom.checked:=newform.q1.fieldbyname('ismrmf').asboolean;
  newform.mphone.checked:=newform.q1.fieldbyname('ismphonef').asboolean;
  newform.mxf.checked:=newform.q1.fieldbyname('ismxf').asboolean;
  if newform.q1.fieldbyname('jzfs').asstring='01' then
     newform.xj.Checked :=true;
  if newform.q1.fieldbyname('jzfs').asstring='02' then
     newform.zp.Checked :=true;
  if newform.q1.fieldbyname('jzfs').asstring='04' then
     newform.gz.Checked :=true;
  if newform.q1.fieldbyname('jzfs').asstring='13' then
     newform.cardlist.items.add('牡丹卡');
  if newform.q1.fieldbyname('jzfs').asstring='23' then
     newform.cardlist.items.add('龙卡');
  if newform.q1.fieldbyname('jzfs').asstring='33' then
     newform.cardlist.items.add('长城卡');
  if copy(trim(newform.q1.fieldbyname('jzfs').asstring),2,1)='3' then
     begin
     newform.card.Checked :=true;
     newform.cardlist.itemindex:=0;
     end;
  newform.q1.Active:=false;
  newform.q1.UnPrepare ;
  with newform do
  begin
  if myjz.Checked =true then
     begin
     //pagecontrol1.ActivePage =pagecontrol1.Pages[0]
     showrm.Active :=false; //a - gz_nowin     b - gz_guestmx c - lssex //
     showrm.sql.clear;      //d -gz_changeroom e - gz_guestmx f -lssex//
     showrm.sql.add('select a.roomno,b.name,c.sexname,a.isbj,a.begtime,a.acctime,a.endtime,a.rmmoney,a.phonemoney,a.paymoney from gz_nowin a,gz_guestmx b,lssex c where (a.welid=:pwel1) and (a.welid=b.welid) and (b.sex=c.sex)');
     showrm.sql.add('union (select  d.roomno,e.name,f.sexname,d.isbj,d.acctime,d.acctime,d.endtime,d.money as rmmoney,d.phonemoney,(d.money*0) as leftmoney from gz_changeroom d,gz_guestmx e,lssex f where (d.welid=:pwel2) and (d.welid=e.welid) and (e.sex=f.sex))');
     showrm.ParamByName('pwel1').asstring:=trim(jzwelid);
     showrm.ParamByName('pwel2').asstring:=trim(jzwelid);
     showrm.Prepare;
     showrm.open;
     chinesegrid(dbgrid1);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[1] then
     showph.Active :=false;
     showph.sql.clear;
     showph.sql.add('select RoomNo,Lsdate,fray,Djhbhd,hbfw,fujb,fuwu,jloe,djqxmq from gz_t04 where welid=:pwel');
     showph.ParamByName ('pwel').asstring:=trim(jzwelid);
     showph.Prepare;
     showph.open;
     chinesegrid(dbgrid2);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[2] then
     showxf.Active :=false;
     showxf.sql.clear;    // a - custom  b - guestmx
     showxf.sql.add('select a.roomno,b.name,a.cusname,a.money,a.isxj,a.ismd,a.ispay,a.regtime from gz_custom a,gz_guestmx b where (a.welid=b.welid) and (a.welid=:pwel)');
     showxf.ParamByName ('pwel').asstring:=trim(jzwelid);
     showxf.Prepare;
     showxf.open;
     chinesegrid(dbgrid3);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[3] then
     showzz.Active :=false;
     showzz.sql.clear;
     showzz.sql.add('select roomno,name,begtime as bgtime,endtime as edtime,isbj,rmmoney,phonemoney,cusmoney,payroomno,payname from gz_transfer where (gz_transfer.welid=:pwel1) or (gz_transfer.paywelid=:pwel2)');
     showzz.ParamByName ('pwel1').asstring:=trim(jzwelid);
     showzz.ParamByName ('pwel2').asstring:=trim(jzwelid);
     showzz.Prepare;
     showzz.Open;
     chinesegrid(dbgrid4);
     end;
  if rmjz.Checked =true then
     begin
     //pagecontrol1.ActivePage =pagecontrol1.Pages[0]
     showrm.Active :=false; //a - gz_nowin     b - gz_guestmx c - lssex //
     showrm.sql.clear;      //d -gz_changeroom e - gz_guestmx f -lssex//
     showrm.sql.add('select a.roomno,b.name,c.sexname,a.isbj,a.begtime,a.acctime,a.endtime,a.rmmoney,a.phonemoney,a.paymoney from gz_nowin a,gz_guestmx b,lssex c where (a.welid=b.welid) and (b.sex=c.sex) and (a.welid in (select welid from gz_nowin where roomno=:prmno1))');
     showrm.sql.add('union (select  d.roomno,e.name,f.sexname,d.isbj,d.acctime,d.acctime,d.endtime,d.money as rmmoney,d.phonemoney,(d.money*0) as leftmoney');
     showrm.sql.add('from gz_changeroom d,gz_guestmx e,lssex f where (d.welid=e.welid) and (e.sex=f.sex) and (d.welid in (select welid from gz_nowin where roomno=:prmno2)))');
     showrm.ParamByName('prmno1').asstring:=trim(rmno.Text);
     showrm.ParamByName('prmno2').asstring:=trim(rmno.Text);
     showrm.Prepare;
     showrm.open;
     chinesegrid(dbgrid1);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[1] then
     showph.Active :=false;
     showph.sql.clear;
     showph.sql.add('select RoomNo,Lsdate,fray,Djhbhd,hbfw,fujb,fuwu,jloe,djqxmq from gz_t04');
     showph.sql.add('where (welid in (select welid from gz_nowin where roomno=:prmno))');
     showph.ParamByName ('prmno').asstring:=trim(rmno.text);
     showph.Prepare;
     showph.open;
     chinesegrid(dbgrid2);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[2] then
     showxf.Active :=false;
     showxf.sql.clear;    // a - custom  b - guestmx
     showxf.sql.add('select a.roomno,b.name,a.cusname,a.money,a.isxj,a.ismd,a.ispay,a.regtime from gz_custom a,gz_guestmx b where (a.welid=b.welid) ');
     showxf.sql.add(' and (a.welid in (select welid from gz_nowin where roomno=:prmno))');
     showxf.ParamByName ('prmno').asstring:=trim(rmno.Text);
     showxf.Prepare;
     showxf.open;
     chinesegrid(dbgrid3);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[3] then
     showzz.Active :=false;
     showzz.sql.clear;
     showzz.sql.add('select roomno,name,begtime as bgtime,endtime as edtime,isbj,rmmoney,phonemoney,cusmoney,payroomno,payname from gz_transfer ');
     showzz.sql.add('where (gz_transfer.welid in (select welid from gz_nowin where roomno=:prmno1)) or (gz_transfer.paywelid in (select welid from gz_nowin where roomno=:prmno2))');
     showzz.ParamByName ('prmno1').asstring:=trim(rmno.text);
     showzz.ParamByName ('prmno2').asstring:=trim(rmno.text);
     showzz.Prepare;
     showzz.Open;
     chinesegrid(dbgrid4);
     end;
  if alljz.Checked =true then
     begin
     getvalue(aa,'select accno from gz_nowin where welid='''+trim(jzwelid)+'''');
     //pagecontrol1.ActivePage =pagecontrol1.Pages[0]
     showrm.Active :=false; //a - gz_nowin     b - gz_guestmx c - lssex //
     showrm.sql.clear;      //d - gz_changeroom e - gz_guestmx f -lssex//
     showrm.sql.add('select a.roomno,b.name,c.sexname,a.isbj,a.begtime,a.acctime,a.endtime,a.rmmoney,a.phonemoney,a.paymoney from gz_nowin a,gz_guestmx b,lssex c where (a.accno=:pacc1) and (a.welid=b.welid) and (b.sex=c.sex)');
     showrm.sql.add('union (select  d.roomno,e.name,f.sexname,d.isbj,d.acctime,d.acctime,d.endtime,d.money as rmmoney,d.phonemoney,(d.money*0) as leftmoney from gz_changeroom d,gz_guestmx e,lssex f where (d.accno=:pacc2) and (d.welid=e.welid) and (e.sex=f.sex))');
     showrm.ParamByName('pacc1').asstring:=trim(aa[0]);
     showrm.ParamByName('pacc2').asstring:=trim(aa[0]);
     showrm.Prepare;
     showrm.open ;
     chinesegrid(dbgrid1);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[1] then
     showph.Active :=false;
     showph.sql.clear;
     showph.sql.add('select RoomNo,Lsdate,fray,Djhbhd,hbfw,fujb,fuwu,jloe,djqxmq from gz_t04 where accno=:pacc');
     showph.ParamByName ('pacc').asstring:=trim(aa[0]);
     showph.Prepare;
     showph.open;
     chinesegrid(dbgrid2);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[2] then
     showxf.Active :=false;
     showxf.sql.clear;    // a - custom  b - guestmx
     showxf.sql.add('select a.roomno,b.name,a.cusname,a.money,a.isxj,a.ismd,a.ispay,a.regtime from gz_custom a,gz_guestmx b where (a.welid=b.welid) and (a.accno=:pacc) ');
     showxf.ParamByName ('pacc').asstring:=trim(aa[0]);
     showxf.Prepare;
     showxf.open;
     chinesegrid(dbgrid3);
     //pagecontrol1.ActivePage =pagecontrol1.Pages[3] then
     showzz.Active :=false;
     showzz.sql.clear;
     showzz.sql.add('select roomno,name,begtime as bgtime,endtime as edtime,isbj,rmmoney,phonemoney,cusmoney,payroomno,payname from gz_transfer where (gz_transfer.accno=:pacc1) or (gz_transfer.payaccno=:pacc2)');
     showzz.ParamByName ('pacc1').asstring:=trim(aa[0]);
     showzz.ParamByName ('pacc2').asstring:=trim(aa[0]);
     showzz.Prepare;
     showzz.Open;
     chinesegrid(dbgrid4);
     end;
  end;
  newform.showmodal;
end;



procedure Tguesthiscxform.FormCreate(Sender: TObject);
begin
  shortdateformat:='yyyy-mm-dd';
  rmno.Text :='';
  name.text:='';
  djtime.text:='';
  endtime.text:='';
  workunit.text:='';
end;

procedure Tguesthiscxform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     perform(cm_dialogkey,vk_tab,0);
  if key=27 then
     close;
end;

procedure Tguesthiscxform.BitBtn1Click(Sender: TObject);
begin
   cxqu.Active :=false;
   cxqu.sql.clear;
//   cxqu.sql.add('select lsguestmx.welid,lsguestmx.roomno,lsguestmx.name,lssex.sexname,lsguestmx.workunit,lsnowin.begtime,lsnowin.endtime');
//   cxqu.sql.add('from lsguestmx,lsnowin,lssex where (lsguestmx.welid=lsnowin.welid) and (lssex.sex=lsguestmx.sex)');
   cxqu.sql.add('select lsguestmx.welid,lsguestmx.roomno,lsguestmx.name,lssex.sexname,lsguestmx.workunit,lsnowin.begtime,lsnowin.endtime,lsguestjsmx.paywelid,lsguestjsmx.Cusmoney as cusze,lsguestjsmx.isjs');
   cxqu.sql.add('from lsguestmx,lsnowin,lssex,lsguestjsmx where (lsguestjsmx.welid)=(lsguestmx.welid) and (lsguestmx.welid=lsnowin.welid) and (lssex.sex=lsguestmx.sex)');

   if length(trim(rmno.text))>0 then
      cxqu.sql.add(' and (lsguestmx.roomno=:prmno)');
   if length(trim(name.text))>0 then
      cxqu.sql.add(' and (charindex(:pname,lsguestmx.name)>0)');
   if length(trim(workunit.text))>0 then
      cxqu.sql.add(' and (charindex(:pdw,lsguestmx.workunit)>0)');
   if length(trim(djtime.text))>4 then
      cxqu.sql.add(' and ((lsnowin.begtime >=:pdjtime1) and (lsnowin.begtime <=:pdjtime2))');
   if length(trim(endtime.text))>4 then
      cxqu.sql.add(' and ((lsnowin.endtime >=:pedtime1) and (lsnowin.endtime <=:pedtime2))');

//   cxqu.sql.add('union (select Gz_guestmx.welid,Gz_guestmx.roomno,Gz_guestmx.name,lssex.sexname,Gz_guestmx.workunit,Gz_nowin.begtime,Gz_nowin.endtime');
//   cxqu.sql.add('from gz_guestmx,gz_nowin,lssex where (gz_guestmx.welid=gz_nowin.welid) and (lssex.sex=gz_guestmx.sex)');
   cxqu.sql.add('union (select Gz_guestmx.welid,Gz_guestmx.roomno,Gz_guestmx.name,lssex.sexname,Gz_guestmx.workunit,Gz_nowin.begtime,Gz_nowin.endtime,lsguestjsmx.paywelid,lsguestjsmx.Cusmoney as cusze,lsguestjsmx.isjs');
   cxqu.sql.add('from gz_guestmx,gz_nowin,lssex,lsguestjsmx where (lsguestjsmx.welid)=(gz_guestmx.welid) and (gz_guestmx.welid=gz_nowin.welid) and (lssex.sex=gz_guestmx.sex)');

   if length(trim(rmno.text))>0 then
      cxqu.sql.add(' and (gz_guestmx.roomno=:pgzrmno)');
   if length(trim(name.text))>0 then
      cxqu.sql.add(' and (charindex(:pgzname,gz_guestmx.name)>0)');
   if length(trim(workunit.text))>0 then
      cxqu.sql.add(' and (charindex(:pgzdw,gz_guestmx.workunit)>0)');
   if length(trim(djtime.text))>4 then
      cxqu.sql.add(' and ((gz_nowin.begtime >=:pgzdjtime1) and (gz_nowin.begtime <=:pgzdjtime2))');
   if length(trim(endtime.text))>4 then
      cxqu.sql.add(' and ((gz_nowin.endtime >=:pgzedtime1) and (gz_nowin.endtime <=:pgzedtime2))');
   cxqu.sql.add(')');

   if length(trim(rmno.text))>0 then
      begin
      cxqu.ParamByName ('prmno').asstring:=trim(rmno.text);
      cxqu.ParamByName ('pgzrmno').asstring:=trim(rmno.text);
      end;
   if length(trim(name.text))>0 then
      begin
      cxqu.ParamByName ('pname').asstring:=trim(name.text);
      cxqu.ParamByName ('pgzname').asstring:=trim(name.text);
      end;
   if length(trim(workunit.text))>0 then
      begin
      cxqu.ParamByName ('pdw').asstring:=trim(workunit.text);
      cxqu.ParamByName ('pgzdw').asstring:=trim(workunit.text);
      end;
   if length(trim(djtime.text))>4 then
      begin
      cxqu.ParamByName ('pdjtime1').asdatetime:=strtodatetime(trim(djtime.text)+' 0:00');
      cxqu.ParamByName ('pdjtime2').asdatetime:=strtodatetime(trim(djtime.text)+' 23:59');
      cxqu.ParamByName ('pgzdjtime1').asdatetime:=strtodatetime(trim(djtime.text)+' 0:00');
      cxqu.ParamByName ('pgzdjtime2').asdatetime:=strtodatetime(trim(djtime.text)+' 23:59');
      end;
   if length(trim(endtime.text))>4 then
      begin
      cxqu.ParamByName ('pedtime1').asdatetime:=strtodatetime(trim(endtime.text)+' 0:00');
      cxqu.ParamByName ('pedtime2').asdatetime:=strtodatetime(trim(endtime.text)+' 23:59');
      cxqu.ParamByName ('pgzedtime1').asdatetime:=strtodatetime(trim(endtime.text)+' 0:00');
      cxqu.ParamByName ('pgzedtime2').asdatetime:=strtodatetime(trim(endtime.text)+' 23:59');
      end;
   cxqu.Prepare;
   cxqu.open;
   chinesegrid(dbgrid1);
   cxqu.fields[0].Visible:=false;
   cxqu.fields[7].Visible:=false;
   cxqu.Active :=true;
end;

procedure Tguesthiscxform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  cxqu.free;
   action:=cafree;
end;

procedure Tguesthiscxform.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tguesthiscxform.djtimeExit(Sender: TObject);
var
  rq:Tdate;
begin
  try
    if length(trim(djtime.text))>4 then
       rq:=strtodate(trim(djtime.text));
  except
    showmessage('时间错误');
    djtime.setfocus;
  end;
end;

procedure Tguesthiscxform.endtimeExit(Sender: TObject);
var
  rq:Tdate;
begin
  try
    if length(trim(endtime.text))>4 then
       rq:=strtodate(trim(endtime.text));
  except
    showmessage('时间错误');
    endtime.setfocus;
  end;
end;

procedure Tguesthiscxform.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then //F1
     seejzmx(cxqu.fieldbyname('paywelid').asstring);
  if key=113 then
     gzjzproc(cxqu.fieldbyname('paywelid').asstring);

end;

end.