sanhroom.pas

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

     begin
     if  length(trim(oldwomanno.Cells [0,oldwomanno.row]))>0 then
          oldwomanno.Cells [0,oldwomanno.row]:='';
     end;
end;


procedure addtotable(handh,xb:string);
var
   aa:array[0..1] of string;
begin
with sanhfform do
  begin                                                       //and sex='''+xb+'''
  aa[0]:='';
  getvalue(aa,'select begtime from nowin where handno='''+handh+''' ');
  if length(trim(aa[0]))>0 then
     begin
     q1.Active :=false;
     q1.sql.clear;
     q1.sql.add('insert into sanhroompara values(:phandno,:pacc,:psex,:pbegtime)');
     q1.ParamByName ('phandno').asstring:=trim(handh);
     q1.ParamByName ('pacc').asstring:=acc;
     q1.ParamByName ('psex').asstring:=xb;
     q1.ParamByName ('pbegtime').asdatetime:=strtodatetime(trim(aa[0]));
     q1.Prepare;
     q1.execsql;
     q1.active:=false;
     end;
  end;
end;

procedure Tsanhfform.Button1Click(Sender: TObject);
var
  i:integer;
  ls:string;
begin
  if  length(trim(sanhd.text))=0 then
      begin
      showmessage('散座号不能为空');
      sanhd.setfocus;
      exit;
      end;
  if  length(trim(rmhd.text))=0 then
      begin
      showmessage('新房间号不能为空');
      rmhd.setfocus;
      exit;
      end;
  if  (SpinEdit1.Value<>12) and (SpinEdit1.Value<>24) and (SpinEdit1.Value<>3)   then
      begin
      showmessage('周转时间不对');
      SpinEdit1.setfocus;
      exit;
      end;
  if  rmmoney.Value=0 then
      begin
      showmessage('新房价不能为0');
      rmmoney.setfocus;
      exit;
      end;
  if (checkgrid(sanhfform.oldmanno)=false) and (checkgrid(sanhfform.oldwomanno)=false) then
      begin
      showmessage('无可换的散座号');
      exit;
      end;
  ls:='';
  if  checkgrid(sanhfform.oldmanno)=true then
      begin
      i:=1;
      while i<=oldmanno.rowcount do
         begin
         ls:=trim(oldmanno.cells[0,i]);
         if length(ls)>0 then
            begin
            addtotable(ls,'1');
            end;
         i:=i+1;
         end;
      end;
  if  checkgrid(sanhfform.oldwomanno)=true then
      begin
      i:=1;
      while i<=oldwomanno.rowcount do
         begin
         ls:=trim(oldwomanno.cells[0,i]);
         if length(ls)>0 then
            begin
              addtotable(ls,'0');
            end;
         i:=i+1;
         end;
      end;
   //************************//
   s1.UnPrepare;
   s1.Prepare;
   if man.Checked =true then
      s1.ParamByName ('@isex').asstring:='1';
   if woman.Checked =true then
      s1.ParamByName ('@isex').asstring:='0';
   s1.ParamByName ('@iscal').asboolean:=cal.Checked ;
   s1.ParamByName ('@inum').asinteger:=newsps.Value;
   s1.ParamByName ('@ihandno').asstring:=trim(sanhd.text);
   s1.ParamByName ('@iroomno').asstring:=trim(rmhd.text);
   s1.ParamByName ('@iszd').asboolean:=zd.Checked ;
   s1.ParamByName ('@roomprice').asinteger:=rmmoney.Value;
   s1.ParamByName ('@truntime').asinteger:=SpinEdit1.Value;
 {  if zd.Checked=false then
     s1.ParamByName ('@newprice').asfloat:=newroomprice1
   else
     s1.ParamByName ('@newprice').asfloat:=newroomprice2; }
   s1.Prepare;
   s1.ExecProc ;
   s1.UnPrepare;
   addlogo(curper.code,datetimetostr(now),trim(sanhd.text)+'散换房'+trim(rmhd.text));
   showmessage('散座换房间成功');
   if trim(hfr.Caption)<>'' then
   begin
     query2.Active:=false;
     query2.SQL.Clear;
     query2.SQL.Add('update nowin set pzr='''+trim(hfr.Caption)+''' where roomno='''+trim(rmhd.text)+'''');
     query2.Prepare;
     query2.ExecSQL;
   end;
   sanhd.text:='';
   jg.Caption:='';
   ZDjg.Caption:='';
   jg.Visible:=true;
   zdjg.Visible:=false;
   newsps.Visible:=false;
   formini;
   rmhd.Text :='';
   zd.Checked :=false;
  // sanhd.setfocus;
end;

procedure Tsanhfform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   q1.Free;
   s1.free;
end;

procedure Tsanhfform.oldmannoDblClick(Sender: TObject);
begin
  oldtonew(oldmanno,blmanno,1);
end;

procedure Tsanhfform.oldwomannoDblClick(Sender: TObject);
begin
  oldtonew(oldwomanno,blwomanno,1);

end;

procedure Tsanhfform.blmannoDblClick(Sender: TObject);
begin
  oldtonew(blmanno,oldmanno,1);

end;

procedure Tsanhfform.blwomannoDblClick(Sender: TObject);
begin
  oldtonew(blwomanno,oldwomanno,1);

end;

procedure Tsanhfform.oldmannoEnter(Sender: TObject);
begin
  ls:='oldm';

end;

procedure Tsanhfform.oldwomannoEnter(Sender: TObject);
begin
  ls:='oldw';

end;

procedure Tsanhfform.blmannoEnter(Sender: TObject);
begin
  ls:='blm';

end;

procedure Tsanhfform.blwomannoEnter(Sender: TObject);
begin
  ls:='blw';

end;

procedure Tsanhfform.addClick(Sender: TObject);
begin
  if ls='blm' then
     oldtonew(blmanno,oldmanno,1);
  if ls='blw' then
     oldtonew(blwomanno,oldwomanno,1);

end;

procedure Tsanhfform.addallClick(Sender: TObject);
var i:integer;
begin
  sanhdExit(nil);
  i:=1 ;
  while trim(blmanno.Cells[0,i])<>'' do
  begin
    oldmanno.Cells[0,i]:=blmanno.Cells[0,i];
    blmanno.Cells[0,i]:='';
    i:=i+1;
  end;
  i:=1 ;
  while trim(blwomanno.Cells[0,i])<>'' do
  begin
    oldwomanno.Cells[0,i]:=blwomanno.Cells[0,i];
    blwomanno.Cells[0,i]:='';
    i:=i+1;
  end;
end;

procedure Tsanhfform.delClick(Sender: TObject);
begin
    if ls='oldm' then
     oldtonew(oldmanno,blmanno,1);
   if ls='oldw' then
     oldtonew(oldwomanno,blwomanno,1);

end;

procedure Tsanhfform.delallClick(Sender: TObject);
begin
  sanhdExit(nil);
end;

procedure Tsanhfform.rmhdDblClick(Sender: TObject);
begin
  Application.CreateForm(Txgftform, xgftform);
  xgftform.Caption:='   ';
  xgftform.Button2.Visible:=false;
  xgftform.Timer1.Free;
  xgftform.showmodal;
  rmhd.text:=xgftform.xgrmno.Text;
  xgftform.Free;
  activecontrol:=Button1;

end;

procedure Tsanhfform.sanhdDblClick(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Caption:='请选择散座号';
  djform.Height:=99;
  djform.Position:=poDefault;
  djform.Panel1.Visible:=false;
  djform.grid1.Visible:=false;
  djform.grid2.Visible:=false;
  djform.rmnogrid.Visible:=false;
//  djform.Button1.Enabled:=false;
  djform.Timer1.Free;
  djform.showmodal;
  sanhd.Text:=copy(trim(djform.xfrmno.Text),1,6);
  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;
  djform.Free;
  activecontrol:=Button1;


end;

procedure Tsanhfform.zdClick(Sender: TObject);
begin
 { if zd.Checked then
  begin
    zdjg.Visible:=true;
    jg.Visible:=false;         
    SpinEdit1.Value:=3;
    if trim(rmhd.Text)<>'' then
    rmmoney.text:=copy(trim(zdjg.Caption),7,3);
  end
  else
  begin
    jg.Visible:=true;
    ZDjg.Visible:=false;
  end;}

end;

procedure Tsanhfform.Button3Click(Sender: TObject);
begin
     application.CreateForm(TszhfdyForm,szhfdyForm);
     szhfdyForm.hfsj.Caption:=formatdatetime('yyyy-MM-dd HH:mm:ss',now);
     szhfdyForm.ysh.Caption:=sanhd.Text;
     szhfdyForm.xsh.Caption:=rmhd.Text;
     {  szhfdyForm.yfj.Caption:=jfj.Caption;
     szhfdyForm.xfj.Caption:=copy(jg.Caption,7,4);}
     //szhfdyForm.yyrs.Caption:=oldsps.Caption;
     szhfdyForm.xyrs.Caption:=inttostr(newsps.Value);
     szhfdyForm.jsr.Caption:=czy.Text;
     szhfdyForm.hide;
    // if dy.Checked then
     //  hfdyForm.QuickRep1.print
   //  else
     szhfdyForm.QuickRep1.Preview;
     szhfdyForm.Close;
     szhfdyForm.free;

end;

end.