browjzform.pas

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

procedure Tbrownewjz.zkChange(Sender: TObject);
begin
  if length(trim(hm.text))>0 then
  begin
     mxffjval;
     bitbtn2.Enabled :=false;
   //  bitbtn6.Enabled :=false;
  end;
end;

procedure Tbrownewjz.xfmxClick(Sender: TObject);
begin
  seemx;
end;

procedure Tbrownewjz.rmmxClick(Sender: TObject);
begin
  seemx;
end;

procedure Tbrownewjz.mcsExit(Sender: TObject);
begin
   if trim(mcs.text)='' then mcs.text:='0';
   if trim(jj.text)='' then jj.text:='0';
   if trim(mm.text)='' then mm.text:='0';
   if trim(sk.text)='' then sk.text:='0';
   mxffjval;
end;

procedure Tbrownewjz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  q1.free;
  q2.free;
  caljz.free;
  s1.free;
  s3.free;
end;


procedure Tbrownewjz.BitBtn6Click(Sender: TObject);
begin                                      
   {  application.CreateForm(Tjzbprintform,jzbprintform);
     jzbprintform.hide;
     if dy.Checked then
       jzbprintform.qr1.print
     else
       jzbprintform.qr1.Preview;
     jzbprintform.Close;
     jzbprintform.free;
  bitbtn1.SetFocus; }
     application.CreateForm(Tbrowjzprintform,browjzprintform);
     browjzprintform.hide;
     if dy.Checked then
       browjzprintform.qr1.print
     else
       browjzprintform.qr1.Preview;
     browjzprintform.Close;
     browjzprintform.free;
end;

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

procedure gridadd(gg:tstringGrid;lssex:string);
var i :integer;
begin
  with  brownewjz   do
   begin
     for i:=1 to gg.RowCount-1 do
        if length(trim(gg.cells[0,i]))>0 then
        begin
        q1.Active :=false;
        q1.sql.Clear ;
        q1.sql.add('insert into endaccpara values(:phdno,:paccno,:psex)');
        q1.ParamByName ('phdno').asstring:=trim(gg.cells[0,i]);
        q1.ParamByName ('paccno').asstring:=paccount;
        q1.Parambyname ('psex').asstring:=lssex;
        q1.Prepare;
        q1.ExecSQL;
        end;
    end
end ;

function empeygrid(tg:tstringgrid):boolean;
var
  i:integer;
begin
  i:=1;
  empeygrid:=true;
  while i<=tg.rowcount do
    begin
    if length(trim(tg.cells[0,i]))>0 then
       begin
       empeygrid:=false;
       break;
       end;
    i:=i+1;
    end;
end;

procedure Tbrownewjz.BitBtn4Click(Sender: TObject);
var ls:string;
begin
  servertime(NIL);
//  execute;
  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;
  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 Tbrownewjz.manClick(Sender: TObject);
begin
   seeother;
end;

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

procedure Tbrownewjz.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;
   bitbtn2.Enabled :=false;
  // bitbtn6.Enabled :=false;
   groupbox3.Enabled :=false;
end;

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

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

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

procedure Tbrownewjz.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 Tbrownewjz.jzfsnameKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

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

end;

procedure Tbrownewjz.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;
     bitbtn2.Enabled :=false;
    // bitbtn6.Enabled :=false;

   end;
end;

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

end;

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

end;

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

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

 // BitBtn4.setfocus;

end;

procedure Tbrownewjz.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 Tbrownewjz.Timer1Timer(Sender: TObject);
begin
   dqDate.DateTime:=now;
   dqtime.Time:=time;
   lfDate.DateTime:=now;
   lftime.Time:=time;
end;

procedure Tbrownewjz.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:=2;
  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 Tbrownewjz.xfhdnoKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure Tbrownewjz.Panel6Click(Sender: TObject);
begin