newjzform.pas

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

  servertime(NIL);
//  execute;
  q1.Active:=false;
  q1.SQL.Clear;
  q1.SQL.Add('select nowin.roomno from nowin,room1 where room1.roomno=nowin.handno and accno='''+trim(paccount)+''' and sex=''2'' and (status<>''6'' and status<>''4'')');
  q1.SQL.Add('union (select nowin.roomno from nowin,mansan where mansan.roomno=nowin.handno and accno='''+trim(paccount)+''' and sex=''1'' and (status<>''6'' and status<>''4''))');
  q1.SQL.Add('union (select nowin.roomno from nowin,womansan where womansan.roomno=nowin.handno and accno='''+trim(paccount)+''' and sex=''0'' and (status<>''6'' and status<>''4''))');
  q1.SQL.Add('union (select nowin.roomno from nowin,jyl where jyl.roomno=nowin.handno and accno='''+trim(paccount)+''' and sex=''3'' and (status<>''6'' and status<>''4''))');
  q1.Open;
  ls:='';
  while not q1.Eof do
  begin
    ls:=ls+q1.Fields[0].AsString+';';
    q1.Next;
  end;
  q1.Active:=false;
  q1.SQL.Clear;
  if ls<>'' then
  begin
    showmessage('手号：'+ls+' 不能结帐！');
    exit;
  end;
  groupbox3.Enabled :=true;
  q1.active:=false;
  q1.sql.clear;
  q1.sql.add('delete from endaccpara');
  q1.prepare;
  q1.execsql;
  q1.active:=false;
  q1.UnPrepare;
  gridadd(rmgrid,'2');
  gridadd(mangrid,'1');
  gridadd(womangrid,'0');
  jjzz;
  rmmx.Checked :=true;
  seemx;
  jj.Enabled :=true;
//  mcs.Enabled :=true;
  mm.Enabled :=true;
//  zk.Enabled :=true;
  jzfs.Enabled :=true;
  if pmd then
     begin
     mxf.Checked :=true;
     mfj.Checked :=true;
     mxf.Enabled :=false;
     mfj.Enabled :=false;
     gzno.enabled:=false;
     end;
  bitbtn1.Enabled :=true;
  bitbtn2.Enabled :=true;
 // bitbtn6.Enabled :=true;
//  if (pleft=false) and (empeygrid(rmgrid)=true) and (empeygrid(mangrid)=true) and (empeygrid(womangrid)=true) then
 // if strtofloat(jym.text)>=0 then
 //    bitbtn5.Enabled :=true;
  if (trim(dhf.Text)='0') or (trim(dhf.Text)='') then
    dhmx.Enabled:=false
  else
    dhmx.Enabled:=true;
 { if (trim(xm.Text)='0') or (trim(xm.Text)='') then
    xfmx.Enabled:=false
  else }
    xfmx.Enabled:=true;
  if copy(xfhdno.Text,1,1)='Y' then
    xfmx.Checked:=true;
  sk.SetFocus ;
end;

procedure Tnewjz.manClick(Sender: TObject);
begin
   seeother;
end;

procedure Tnewjz.womanClick(Sender: TObject);
begin
   seeother;
end;

procedure Tnewjz.xfhdnoEnter(Sender: TObject);
begin
   djdh.Caption:='';
   q2.Close;
   xfhdno.Text:='';
   formini;
   pmd:=false;
   mxf.Enabled :=true;
   mxf.Checked :=false;
   mfj.Enabled :=true;
   mfj.Checked :=false;
   gzno.Enabled :=false;
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
  // bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
   groupbox3.Enabled :=false;
end;

procedure Tnewjz.manEnter(Sender: TObject);
begin
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
 //  bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
end;

procedure Tnewjz.womanEnter(Sender: TObject);
begin
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
  // bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
end;

procedure Tnewjz.MaskEdit1Enter(Sender: TObject);
begin
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
  // bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
end;

procedure Tnewjz.BitBtn5Click(Sender: TObject);
begin
  s3.UnPrepare;
  s3.ParamByName ('@ihdno').asstring:=trim(xfhdno.text);
  s3.ParamByName ('@isex').asstring:=plssex;
  s3.ParamByName ('@itime').asdatetime:=dqdate.DateTime;
  s3.ParamByName ('@lftime').asdatetime:=strtodatetime(datetostr(lfdate.date)+' '+timetostr(lftime.time));
  //strtodatetime(maskedit1.text);
  s3.Prepare;
  s3.ExecProc ;
  s3.UnPrepare;
  showmessage('结帐成功');
  bitbtn1.Enabled :=false;
  bitbtn2.Enabled :=false;
 // bitbtn6.Enabled :=false;
  bitbtn5.enabled :=false;
  q2.active:=false;
  q2.UnPrepare;
  s3.UnPrepare;
  xfhdno.setfocus;
  xfhdno.Text :='';
  formini;
end;

procedure Tnewjz.jzfsnameChange(Sender: TObject);
 var j:integer;
begin
  for j:=0 to jzfsname.Items.Count do
  if  jzfsname.Items[j]=trim(jzfsname.text) then
   jzfsname.ItemIndex:=j;
   jzfs.ItemIndex:=jzfsname.ItemIndex;
   jzfsname.TEXT:=jzfsname.Items[jzfsname.ItemIndex];
   if (trim(jzfsname.text)='记帐') or (trim(jzfsname.text)='挂帐') then
      gzno.Enabled:=true
   else
      gzno.Enabled:=false;
   if trim(jzfsname.text)='免费' then
   begin
      mxf.Checked:=true;
      mfj.Checked:=true;
      mxffjval;
   end
   else
   begin
      mxf.Checked:=false;
      mfj.Checked:=false;
      mxffjval;
   end;
end;

procedure Tnewjz.jzfsnameKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure Tnewjz.lftimeEnter(Sender: TObject);
begin
  if strtodatetime(datetostr(lfdate.date)+' '+timetostr(lftime.time))>dqDate.DateTime then
  begin
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
 //  bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
  end;

end;

procedure Tnewjz.DBGrid1DblClick(Sender: TObject);
var i:integer;
begin
   if messagedlg('需要结帐留:'+trim(q2.Fields[0].asstring)+'房吗？',mtInformation, [mbYes, mbNo], 0) = mrno then
    exit;
   if rmmx.Checked then
   begin
      if q2.Fields[1].asstring='女散' then
      begin
        i:=1;
        while trim(womangrid.Cells[0,i])<>'' do
        begin
          if trim(womangrid.Cells[0,i])=trim(q2.Fields[0].asstring) then exit;
          i:=i+1;
        end;
        womangrid.Cells[0,i]:=trim(q2.Fields[0].asstring);
      end;
      if q2.Fields[1].asstring='男散' then
      begin
        i:=1;
        while trim(mangrid.Cells[0,i])<>'' do
        begin
          if trim(mangrid.Cells[0,i])=trim(q2.Fields[0].asstring) then exit;
          i:=i+1;
        end;
        mangrid.Cells[0,i]:=trim(q2.Fields[0].asstring);
      end;
      if q2.Fields[1].asstring='包间' then
      begin
        i:=1;
        while trim(rmgrid.Cells[0,i])<>'' do
        begin
          if trim(rmgrid.Cells[0,i])=trim(q2.Fields[0].asstring) then exit;
          i:=i+1;
        end;
        rmgrid.Cells[0,i]:=trim(q2.Fields[0].asstring);
      end;
     bitbtn1.Enabled :=false;
     bitbtn2.Enabled :=false;
    // bitbtn6.Enabled :=false;
     bitbtn5.Enabled :=false;

   end;
end;

procedure Tnewjz.rmgridDblClick(Sender: TObject);
begin
 if trim(rmgrid.Cells[0,rmgrid.Row])<>'' then
 begin
   degrid(rmgrid);
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
  // bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
 end;

end;

procedure Tnewjz.mangridDblClick(Sender: TObject);
begin
 if trim(mangrid.Cells[0,mangrid.Row])<>'' then
 begin
   degrid(mangrid);
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
 //  bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
 end;

end;

procedure Tnewjz.womangridDblClick(Sender: TObject);
begin
 if trim(womangrid.Cells[0,womangrid.Row])<>'' then
 begin
   degrid(womangrid);
   bitbtn1.Enabled :=false;
   bitbtn2.Enabled :=false;
 //  bitbtn6.Enabled :=false;
   bitbtn5.Enabled :=false;
 end;
end;

procedure Tnewjz.lfdateChange(Sender: TObject);
var ll:string;
begin
  ll:=datetostr(lfdate.date)+' '+timetostr(lftime.time);
   activecontrol:=BitBtn4;

 // BitBtn4.setfocus;

end;

procedure Tnewjz.lfdateExit(Sender: TObject);
var ll:string;
begin
  ll:=datetostr(lfdate.date)+' '+timetostr(lftime.time);
  if strtodatetime(datetostr(lfdate.date)+' '+timetostr(lftime.time))<dqDate.DateTime then
  begin
    lfdate.date:=now;
    lftime.time:=now;
  end;

end;

procedure Tnewjz.Timer1Timer(Sender: TObject);
begin
   dqDate.DateTime:=now;
   dqtime.Time:=time;
   lfDate.DateTime:=now;
   lftime.Time:=time;
end;

procedure Tnewjz.xfhdnoDblClick(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Panel1.Visible:=false;
  djform.Position:=poScreenCenter;
  djform.rmnogrid.Visible:=false;
  djform.Button1.Enabled:=false;
  djform.N2.Enabled:=true;
  djform.Button1.Tag:=1;
  djform.Timer1.Free;
  djform.showmodal;
  xfhdno.Text:=trim(copy(trim(djform.xfrmno.Text),1,6));
  if length(trim(djform.xfrmno.Text))>6 then
  begin
    GroupBox4.Visible:=true;
    if trim(copy(trim(djform.xfrmno.Text),7,6))='1' then
    begin
      man.Checked:=true;
      woman.Checked:=false;
    end
    else
    begin
      man.Checked:=false;
      woman.Checked:=true;
    end;
  end
  else GroupBox4.Visible:=false;
  djform.Free;
  BitBtn4.SetFocus;

end;

procedure Tnewjz.xfhdnoKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure Tnewjz.Panel6Click(Sender: TObject);
begin
    if Panel3.Visible then
       Panel3.Visible:=false
    else
       Panel3.Visible:=true;
end;

procedure Tnewjz.Panel10DblClick(Sender: TObject);
begin
     application.CreateForm(Tjzbprintform,jzbprintform);
     jzbprintform.hide;
     jzbprintform.qr1.preview;
     jzbprintform.Close;
     jzbprintform.free;

end;

procedure Tnewjz.khDblClick(Sender: TObject);
var ls:string; aa:array[0..3] of string;
begin
   if messagedlg('请插入IC卡！',mtwarning,[mbok,mbcancel],0)=mrok then
   begin
     ls:=read_ic;
     if copy(ls,1,2)<>'ok' then
       showmessage(ls)
     else
     begin
       kh.Text:=trim(copy(ls,11,10));
       getvalue(aa,'select 卡号,储值,消费,ic卡号 from hykmx where 卡号='''+trim(copy(ls,11,10))+'''');
       kcz.Text:=trim(copy(ls,21,10));
       kxf.Text:=trim(copy(ls,31,10));
       kye.text:=floattostr(strtofloat(trim(copy(ls,21,10)))-strtofloat(trim(copy(ls,31,10))));
       if aa[3]<>trim(copy(ls,3,8)) then
       begin
         showmessage('卡已挂失!');
         kh.Text:='';
         kye.text:='';
         kcz.Text:='';
         kxf.Text:='';
         exit;
       end;
       if aa[1]<>trim(copy(ls,21,10)) then