guesthis.pas

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

unit guesthis;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, StdCtrls, Buttons, Mask, Grids, DBGrids, ComCtrls;

type
  Tguesthiscxform = class(TForm)
    Label1: TLabel;
    rmno: TEdit;
    Label2: TLabel;
    name: TEdit;
    Label3: TLabel;
    workunit: TEdit;
    DBGrid1: TDBGrid;
    Label4: TLabel;
    djtime: TMaskEdit;
    Label5: TLabel;
    endtime: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    cxqu: TQuery;
    DataSource1: TDataSource;
    StatusBar1: TStatusBar;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure djtimeExit(Sender: TObject);
    procedure endtimeExit(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  guesthiscxform: Tguesthiscxform;

implementation
uses dataproc,lsjzcx,gzjz;

{$R *.DFM}

procedure seejzmx(jzwelid:string);
var
  NewForm:Tlsjzcxform;
  aa:array [0..1] of string;
begin
  newform:=Tlsjzcxform.Create (nil);
  newform.welid :=jzwelid;
  newform.q1.active:=false;
  newform.q1.sql.clear;
  newform.q1.sql.add('select roomno,name from lsguestmx where welid=:pwel');
  newform.q1.ParamByName ('pwel').asstring:=trim(jzwelid);
  newform.q1.Prepare ;
  newform.q1.open;
  newform.rmno.text :=newform.q1.fieldbyname('roomno').asstring;
  newform.name.items.add(newform.q1.fieldbyname('name').asstring);
  newform.name.itemindex:=0;
  newform.q1.active:=false;
  newform.q1.unprepare;
  newform.q1.Active :=false;
  newform.q1.sql.clear;
  newform.q1.sql.add('select * from lsjz where welid=:pwelid');
  newform.q1.ParamByName ('pwelid').asstring:=jzwelid;
  newform.q1.Prepare ;
  newform.q1.open;
  if newform.q1.FieldByName ('jzxs').asstring='0' then
     newform.myjz.Checked :=true;
  if newform.q1.FieldByName ('jzxs').asstring='1' then
     newform.rmjz.Checked :=true;
  if newform.q1.FieldByName ('jzxs').asstring='2' then
     newform.alljz.Checked :=true;
  if newform.q1.FieldByName ('curdayrm').asstring='2' then
     newform.calone.Checked :=true;
  if newform.q1.FieldByName ('curdayrm').asstring='1' then
     newform.calhalf.Checked :=true;
  if newform.q1.FieldByName ('curdayrm').asstring='0' then
     newform.nocal.Checked :=true;
  newform.myrmf.text:=floattostr(newform.q1.fieldbyname('myrmf').asfloat);
  newform.myphonef.text:=floattostr(newform.q1.fieldbyname('myphonef').asfloat);
  newform.myxf.text:=floattostr(newform.q1.fieldbyname('myxf').asfloat);
  newform.mytot.text:=floattostr(newform.q1.fieldbyname('mytot').asfloat);
  newform.otherrmf.text:=floattostr(newform.q1.fieldbyname('othermyf').asfloat);
  newform.otherphonef.text:=floattostr(newform.q1.fieldbyname('otherphonef').asfloat);
  newform.otherxf.text:=floattostr(newform.q1.fieldbyname('otherxf').asfloat);
  newform.othertot.text:=floattostr(newform.q1.fieldbyname('othertot').asfloat);
  newform.yj.text:=floattostr(newform.q1.fieldbyname('yj').asfloat);
  newform.zk.value:=newform.q1.fieldbyname('zklevel').asinteger;
  newform.yf.text:=floattostr(newform.q1.fieldbyname('yf').asfloat);
  newform.sf.text:=floattostr(newform.q1.fieldbyname('sf').asfloat);
  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 - lsnowin     b - lsguestmx c - lssex //
     showrm.sql.clear;      //d -lschangeroom e - lsguestmx 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 lsnowin a,lsguestmx 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 lschangeroom d,lsguestmx 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 lst04 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 lscustom a,lsguestmx 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 lstransfer where (lstransfer.welid=:pwel1) or (lstransfer.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 - nowin     b - guestmx c - lssex //
     showrm.sql.clear;      //d -changeroom e - 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 lsnowin a,lsguestmx b,lssex c where (a.welid=b.welid) and (b.sex=c.sex) and (a.welid in (select welid from lsnowin 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 lschangeroom d,lsguestmx e,lssex f where (d.welid=e.welid) and (e.sex=f.sex) and (d.welid in (select welid from lsnowin 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 lst04');
     showph.sql.add('where (welid in (select welid from lsnowin 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 lscustom a,lsguestmx b where (a.welid=b.welid) ');
     showxf.sql.add(' and (a.welid in (select welid from lsnowin 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 lstransfer ');
     showzz.sql.add('where (lstransfer.welid in (select welid from lsnowin where roomno=:prmno1)) or (lstransfer.paywelid in (select welid from lsnowin 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 lsnowin where welid='''+trim(jzwelid)+'''');
     //pagecontrol1.ActivePage =pagecontrol1.Pages[0]
     showrm.Active :=false; //a - nowin     b - guestmx c - lssex //
     showrm.sql.clear;      //d -changeroom e - 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 lsnowin a,lsguestmx 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 lschangeroom d,lsguestmx 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 lst04 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 lscustom a,lsguestmx 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 lstransfer where (lstransfer.accno=:pacc1) or (lstransfer.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 gzjzproc(jzwelid:string);
var
  NewForm:Tgzjzform;
  aa:array [0..1] of string;
begin
  newform:=Tgzjzform.Create (nil);
  newform.welid :=jzwelid;
  newform.q1.active:=false;
  newform.q1.sql.clear;
  newform.q1.sql.add('select roomno,name from gz_guestmx where welid=:pwel');
  newform.q1.ParamByName ('pwel').asstring:=trim(jzwelid);
  newform.q1.Prepare ;
  newform.q1.open;
  newform.rmno.text :=newform.q1.fieldbyname('roomno').asstring;
  newform.name.items.add(newform.q1.fieldbyname('name').asstring);
  newform.name.itemindex:=0;
  newform.q1.active:=false;
  newform.q1.unprepare;
  newform.q1.Active :=false;
  newform.q1.sql.clear;
  newform.q1.sql.add('select * from gz_jz where welid=:pwelid');
  newform.q1.ParamByName ('pwelid').asstring:=jzwelid;
  newform.q1.Prepare ;
  newform.q1.open;
  if newform.q1.FieldByName ('jzxs').asstring='0' then
     newform.myjz.Checked :=true;
  if newform.q1.FieldByName ('jzxs').asstring='1' then
     newform.rmjz.Checked :=true;
  if newform.q1.FieldByName ('jzxs').asstring='2' then
     newform.alljz.Checked :=true;
  if newform.q1.FieldByName ('curdayrm').asstring='2' then
     newform.calone.Checked :=true;
  if newform.q1.FieldByName ('curdayrm').asstring='1' then
     newform.calhalf.Checked :=true;
  if newform.q1.FieldByName ('curdayrm').asstring='0' then
     newform.nocal.Checked :=true;
  newform.myrmf.text:=floattostr(newform.q1.fieldbyname('myrmf').asfloat);
  newform.myphonef.text:=floattostr(newform.q1.fieldbyname('myphonef').asfloat);
  newform.myxf.text:=floattostr(newform.q1.fieldbyname('myxf').asfloat);
  newform.mytot.text:=floattostr(newform.q1.fieldbyname('mytot').asfloat);
  newform.otherrmf.text:=floattostr(newform.q1.fieldbyname('othermyf').asfloat);
  newform.otherphonef.text:=floattostr(newform.q1.fieldbyname('otherphonef').asfloat);
  newform.otherxf.text:=floattostr(newform.q1.fieldbyname('otherxf').asfloat);
  newform.othertot.text:=floattostr(newform.q1.fieldbyname('othertot').asfloat);
  newform.yj.text:=floattostr(newform.q1.fieldbyname('yj').asfloat);
  newform.zk.value:=newform.q1.fieldbyname('zklevel').asinteger;
  newform.yf.text:=floattostr(newform.q1.fieldbyname('yf').asfloat);
  newform.sf.text:=floattostr(newform.q1.fieldbyname('sf').asfloat);