groupjz.pas

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

  memberxfmx.sql.clear;
  memberxfmx.sql.add('select a.roomno,b.name,a.cusname,a.money,a.isxj,a.ismd,a.ispay,a.regtime');
  memberxfmx.sql.add('from lscustom a,lsguestmx b where (a.welid=b.welid) and (a.welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid))) and ');
  memberxfmx.sql.add(' not custype in (select Custype from GroupZfCus where Groupid=:pid)');
  memberxfmx.sql.add('union (select d.roomno,e.name,d.cusname,d.money,d.isxj,d.ismd,d.ispay,d.regtime');
  memberxfmx.sql.add('from membercustom d,memberguestmx e where (d.welid=e.welid) and (d.welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid))) and ');
  memberxfmx.sql.add(' not custype in (select Custype from GroupZfCus where Groupid=:pid))');
  memberxfmx.ParamByName ('pid').asstring:=trim(groupno);
  memberxfmx.Prepare;
  memberxfmx.open;
  chinesegrid(dbgrid5);
  //pagecontrol1.ActivePage :=pagecontrol1.Pages [5]
  memberzzmx.Active :=false;
{  memberzzmx.sql.clear;
  memberzzmx.sql.add('select sum(money) from lscustom where (substring(custype,1,2) in (select Custype from GroupZfCus where GroupZfCus.GroupID=:pid )) and (welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid)))');
  memberzzmx.ParamByName ('pid').asstring:=trim(groupno);
  memberzzmx.open;
  yjz.Text:=floattostr(memberzzmx.Fields[0].AsCurrency);  }
  memberzzmx.sql.clear;
  memberzzmx.sql.add('select sum(money) from membercustom where welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid)) and substring(custype,1,2) in (select Custype from GroupZfCus where Groupid=:pid)');
  memberzzmx.ParamByName ('pid').asstring:=trim(groupno);
  memberzzmx.Prepare;
  memberzzmx.open;
  yjz.Text:=floattostr(memberzzmx.Fields[0].AsCurrency);
  tyxfmoney.Text:=yjz.Text;
  memberzzmx.sql.clear;
  memberzzmx.sql.add('select a.roomno,b.name,a.cusname,a.money,a.isxj,a.ismd,a.ispay,a.regtime');
  memberzzmx.sql.add('from lscustom a,lsguestmx b where (a.welid=b.welid) and (a.welid in (select welid from lsnowin where (isgroup=1) and (groupid=:pid))) and ');
  memberzzmx.sql.add(' custype in (select Custype from GroupZfCus where Groupid=:pid)');
  memberzzmx.sql.add('union (select d.roomno,e.name,d.cusname,d.money,d.isxj,d.ismd,d.ispay,d.regtime');
  memberzzmx.sql.add('from membercustom d,memberguestmx e where (d.welid=e.welid) and (d.welid in (select welid from membernowin where (isgroup=1) and (groupid=:pid))) and ');
  memberzzmx.sql.add(' custype in (select Custype from GroupZfCus where Groupid=:pid))');
  memberzzmx.ParamByName ('pid').asstring:=trim(groupno);
  memberzzmx.Prepare;
  memberzzmx.open;
  chinesegrid(dbgrid6);
  end;
end;


procedure Tgroupjzform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     close;
end;

procedure Tgroupjzform.calbutClick(Sender: TObject);
begin
  if length(trim(name.items[name.itemindex]))>0 then
     begin
     seemx;
     cal;
     prnbut.Enabled :=true;
     jzbut.Enabled :=true;
     zk.SetFocus ;
     end;
end;

procedure Tgroupjzform.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
{  groupmeet.free;
  groupxf.free;
  membermx.free;
  memberrmmx.free;
  memberphmx.free;
  memberxfmx.free;
  memberzzmx.free;
  s1.free;
  s2.free;
   action:=cafree;  }
end;

procedure Tgroupjzform.BitBtn3Click(Sender: TObject);
begin
   close;
end;

procedure Tgroupjzform.nameClick(Sender: TObject);
var
  aa:array [0..1] of string;ls:string;
begin
  if trim(name.text)='' then exit;
  aa[0]:='';
  getvalue(aa,'select groupid,jzfs from groupnowin where groupname='''+trim(name.items[name.itemindex])+'''');
  groupno:=trim(aa[0]);
  if trim(aa[1])='01' then
     xj.Checked :=true;
  if trim(aa[1])='02' then
     zp.Checked :=true;
  if trim(aa[1])='04' then
     gz.Checked :=true;
  if trim(aa[1])='05' then
     begin
     mmeet.Checked :=true;
     mgroupxf.Checked :=true ;
     end;
  if trim(aa[1])='13' then
     begin
     card.Checked :=true;
     cardlist.ItemIndex :=0;
     end;
  if trim(aa[1])='23' then
     begin
     card.Checked :=true;
     cardlist.ItemIndex :=1;
     end;
  if trim(aa[1])='33' then
     begin
     card.Checked :=true;
     cardlist.ItemIndex :=2;
     end;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   fm.Query2.SQL.Add('select roomno from nowin where GroupID='''+trim(groupno)+'''');
   fm.Query2.Open;
   ls:='';
   while not fm.Query2.Eof do
   begin
     ls:=ls+','+fm.Query2.Fields[0].AsString;
     fm.Query2.Next;
   end;
   if trim(ls)<>'' then
   begin
      Application.MessageBox(pchar(ls+#13+'房间没有退房，请退房后在结帐。'), '提示信息', 48);
//      name.SetFocus;
      calbut.Enabled:=false;
      exit;
   end;
   calbut.Enabled:=true;
   ff:=false;dh:=false;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   fm.Query2.SQL.Add('select Custype from groupzfcus where GroupID='''+trim(groupno)+'''');
   fm.Query2.Open;
   while not fm.Query2.Eof do
   begin
     if trim(fm.Query2.Fields[0].AsString)='-1' then ff:=true;
     if trim(fm.Query2.Fields[0].AsString)='-2' then dh:=true;
     fm.Query2.Next;
   end;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
end;

procedure groupjzprn;
{var
  MyFile: TextFile;
  beg,ed,r_m,ss1,ss2,ss3:string;
  i:integer;
  aa:array [0..1] of string;   }
begin
{with groupjzform do
   begin
   i:=1;
   ss1:='===========================================================';
   ss2:='-----------------------------------------------------------';
   ss3:='                          ';
   r_m:=' (';
   showrm.First ;
   while not showrm.Eof do
     begin
     if trim(showrm.FieldByName ('roomno').asstring)<>trim(rmno.text) then
        r_m:=rm+trim(showrm.FieldByName ('roomno').asstring)+',';
     showrm.Next ;
     end;
   r_m:=copy(r_m,1,length(r_m)-1)+')';
   getvalue(aa,'select begtime from nowin where welid='''+trim(wel)+'''');
   beg:=copy(aa[0],1,10);
   ed:=copy(datetimetostr(now),1,10);
   Assignprn(myfile);
   Rewrite(MyFile);
   printer.Canvas.Font.name:=jzform.Font.name;
   printer.Canvas.Font.size:=16;
   writeln(myfile,'');
   Writeln(MyFile, '         结帐宾客帐单');
   Writeln(MyFile, '       ~~~~~~~~~~~~~~~~');
   printer.Canvas.Font.size:=10;
   writeln(myfile,'操 作 员: '+copy(trim(curper.name)+ss3,1,10)+'   时间: '+datetimetostr(now));
   writeln(myfile,copy(ss1,1,50));
   writeln(myfile,'房 间 号: '+trim(rmno.text)+rm);
   writeln(myfile,'姓    名: '+trim(name.items[name.itemindex]));
   writeln(myfile,'在店日期: '+beg+' -- '+ed+'    天数：'+datediff(strtodatetime(aa[0]),now)) ;
   writeln(myfile,copy(ss1,1,50));
   writeln(myfile,'房    费: '+copy(floattostr(strtofloat(trim(myrmf.text))+strtofloat(trim(otherrmf.text)))+ss3,1,10)+
                  '话费: '+copy(floattostr(strtofloat(trim(myphonef.text))+strtofloat(trim(otherphonef.text)))+ss3,1,10)+
                  '消费: '+copy(floattostr(strtofloat(trim(myxf.text))+strtofloat(trim(otherxf.text)))+ss3,1,10));
   writeln(myfile,'总 消 费: '+copy(yf.text+ss3,1,10)+'押金：'+copy(yj.text+ss3,1,10)+'结余：'+copy(jy.text+ss3,1,10));
   if xj.Checked then
      writeln(myfile,'支付方式：现金');
   if zp.Checked then
      writeln(myfile,'支付方式：支票');
   if gz.Checked  then
      writeln(myfile,'支付方式：挂帐');
   if card.Checked then
      writeln(myfile,'支付方式：'+cardlist.text);
   writeln(myfile,copy(ss1,1,50));
   System.CloseFile(MyFile);
   end; }
end;

procedure Tgroupjzform.prnbutClick(Sender: TObject);
begin
     application.CreateForm(Tzdprintform,zdprintform);
     zdprintform.QRLabel1.Caption:='房费： '+floattostr(strtofloat(rm.Text));
     zdprintform.QRLabel2.Caption:='话费： '+floattostr(strtofloat(phonem.Text));
     zdprintform.QRLabel3.Caption:='消费： '+floattostr(strtofloat(groupxfmoney.Text)+strtofloat(tyxfmoney.Text));
     zdprintform.QRLabel4.Caption:='会议： '+floattostr(strtofloat(meetmoney.Text));
     zdprintform.QRLabel5.Caption:='应付： '+yf.text;
     zdprintform.QRLabel6.Caption:='押金： '+yj.text;
     zdprintform.hide;
     zdprintform.QuickRep1.preview;//print;
     //preview;
     zdprintform.free;
{  prnbut.Enabled :=false;
  jzbut.Enabled :=true;
  jzbut.SetFocus ; }
end;

procedure Tgroupjzform.jzbutClick(Sender: TObject);
var
  ttjz,ttmtjz,ttcusjz,mmrmjz,mmcusjz,calcur:string;
begin
  if xj.Checked =true then
     ttjz:='01';
  if zp.Checked =true then
     ttjz:='02';
  if gz.Checked =true then
     ttjz:='04';
  if card.Checked =true then
     begin
     if cardlist.ItemIndex =0 then
        ttjz:='13';
     if cardlist.ItemIndex =1 then
        ttjz:='23';
     if cardlist.ItemIndex =2 then
        ttjz:='33';
     end;
  ttmtjz:=ttjz;
  ttcusjz:=ttjz;
  mmrmjz:=ttjz;
  mmcusjz:=ttjz;
  if mmeet.Checked =true then
     ttmtjz:='05';
  if mgroupxf.Checked =true then
     ttcusjz:='05';
  if mfj.Checked =true then
     mmrmjz:='05';
  if mxf.Checked =true then
     mmcusjz:='05';
  jzbut.Enabled :=false;
  s2.ParamByName ('@igroupid').asstring:=trim(groupno);
  s2.ParamByName ('@igroupjzfs').asstring:=ttjz;
  s2.ParamByName ('@igroupmeetjzfs').asstring:=ttmtjz;
  s2.ParamByName ('@igroupcusjzfs').asstring:=ttcusjz;
  s2.ParamByName ('@imemrmjzfs').asstring:=mmrmjz;
  s2.ParamByName ('@imemcusjzfs').asstring:=mmcusjz;
  s2.ParamByName ('@ijztime').asdatetime:=strtodatetime(trim(jztime.text));
  s2.ParamByName ('@icurrm').asstring:=calcur;
  s2.Prepare;
  s2.ExecProc ;
  showmessage('团体结帐成功');
  formini;
  groupmeet.Active :=false;
  groupxf.Active :=false;
  membermx.Active :=false;
  memberrmmx.Active :=false;
  memberxfmx.Active :=false;
  memberzzmx.Active :=false;
  comadd(name,1,'select groupname from groupnowin');
  name.setfocus;
end;

procedure Tgroupjzform.mmeetClick(Sender: TObject);
begin
  cal;
end;

procedure Tgroupjzform.FormShow(Sender: TObject);
var
  aa:array [0..1] of string;
begin
   shortdateformat:='yyyy-mm-dd';
   cardlist.Clear;
   cardlist.items.add('牡丹卡');
   cardlist.items.add('龙卡');
   cardlist.items.add('长城卡');
   cardlist.itemindex:=0;
   formini;
   comadd(name,1,'select groupname from groupnowin');
   aa[0]:='';
   groupjzform.nameClick(nil);
   pagecontrol1.ActivePage :=pagecontrol1.Pages [0];
end;

end.