hf.pas

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

  if length(trim(usemsg))>0  then
     msg:=msg+chr(13)+'女散座'+usemsg+' 被用';
  if length(trim(msg))>0 then
     begin
     showmessage(msg);
     newwomanno.setfocus;
     newwomanno.row:=y;
     exit;
     end;
  i:=1;
  y:=newwomanno.rowcount;
  while i<=newwomanno.rowcount do
     begin
     exno:=trim(newwomanno.cells[0,i]);
     if length(exno)>0 then
        begin
        x:=i+1;
        while x<=newwomanno.rowcount do
           begin
           if y>i then y:=i;
           if length(trim(newwomanno.cells[0,x]))>0 then
              if  trim(newwomanno.cells[0,x])=exno then
                  begin
                  msg:=msg+' '+exno;
                  break;
                  end;
           x:=x+1;
           end;
        end;
     i:=i+1;
     end;
  if length(trim(msg))>0 then
     begin
     showmessage('男散座'+msg+' 重号');
     newwomanno.setfocus;
     newwomanno.row:=y;
     exit;
     end;
end;

procedure Thfform.Button1Click(Sender: TObject);
begin
  servertime(NIL);
 // if messagedlg('需要打印吗？',mtInformation, [mbYes, mbNo], 0) = mryes then  exit;
  if length(trim(oldrmno.text))=0 then
     begin
     showmessage('旧房间不能为空');
     oldrmno.SetFocus ;
     exit;
     end;
  if length(trim(newrmno.text))=0 then
     begin
     showmessage('新房间不能为空');
     newrmno.SetFocus ;
     exit;
     end;
  if SpinEdit1.Value=0 then
     begin
     showmessage('新房间周转不能为零');
     SpinEdit1.SetFocus ;
     exit;
     end;
  if (rmmoney.Value=0) or (trim(rmmoney.Text)='')  then
     begin
     showmessage('新房间价格不对');
     rmmoney.SetFocus ;
     exit;
     end;
     s1.UnPrepare ;
  if (checkgrid(oldmanno)=false) and (checkgrid(oldwomanno)=false) and (checkgrid(newmanno)=false) and (checkgrid(newwomanno)=false) then
     s1.ParamByName ('@issan').asboolean:=false
  else
     begin
     s1.ParamByName ('@issan').asboolean:=true;
     if checkgrid(oldmanno) then
        gridaddtable(oldmanno,'1',false);
     if checkgrid(oldwomanno) then
        gridaddtable(oldwomanno,'0',false);
     if checkgrid(newmanno) then
        gridaddtable(newmanno,'1',true);
     if checkgrid(newwomanno) then
        gridaddtable(newwomanno,'0',true);
     end;
   s1.ParamByName ('@ioldroomno').asstring:=trim(oldrmno.text);
   s1.ParamByName ('@inewroomno').asstring:=trim(newrmno.text);
   s1.ParamByName ('@inowtime').asdatetime:=now;
   s1.ParamByName ('@czy').asstring:=trim(czy.Text);
   s1.ParamByName ('@inum').asinteger:=newsps.Value;
   s1.ParamByName ('@roomprice').asinteger:=rmmoney.Value;
   s1.ParamByName ('@turntime').asinteger:=SpinEdit1.Value;
   s1.ParamByName ('@iscal').asboolean:=CheckBox1.checked;
   s1.ParamByName ('@iszd').asboolean:=checkbox2.Checked ;
   s1.Prepare;
   s1.ExecProc ;
   s1.UnPrepare ;
   addlogo(curper.code,datetimetostr(now),trim(oldrmno.text)+'换'+trim(newrmno.text));
   showmessage('换房成功');
   if trim(hfr.Caption)<>'' then
   begin
     query2.Active:=false;
     query2.SQL.Clear;
     query2.SQL.Add('update nowin set pzr='''+hfr.Caption+''' where roomno='''+trim(newrmno.text)+'''');
     query2.Prepare;
     query2.ExecSQL;
   end;
   oldrmno.text:='';
   newrmno.text:='';
   jg.Caption:='';
   newsps.Visible:=false;
   oldsps.Caption:='';
  SpinEdit1.Value:=0;
  rmmoney.Value:=0;
   formini;
//   oldrmno.setfocus;
end;

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

procedure Thfform.CheckBox1Click(Sender: TObject);
begin
    if checkbox1.Checked =true then
       checkbox2.Enabled :=true
    else
       begin
       checkbox2.checked :=false;
       checkbox2.Enabled :=false;
       end
end;

procedure Thfform.addClick(Sender: TObject);

begin
  if ls='blm' then
     oldtonew(blmanno,oldmanno,1);
  if ls='blw' then
     oldtonew(blwomanno,oldwomanno,1);

  //  while
end;

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

end;

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

end;

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

end;

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

end;

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

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

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

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

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


end;

procedure Thfform.addallClick(Sender: TObject);
var i:integer;
begin
  oldrmnoExit(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 Thfform.delallClick(Sender: TObject);
begin
  oldrmnoExit(nil);

end;

procedure Thfform.newrmnoDblClick(Sender: TObject);
begin
  Application.CreateForm(Txgftform, xgftform);
  xgftform.Caption:='   ';
  xgftform.Button2.Visible:=false;
  xgftform.Timer1.Free;
  xgftform.showmodal;
  newrmno.text:=xgftform.xgrmno.Text;
  xgftform.Free;
  activecontrol:=Button1;
//  xgftform.r
end;

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

end;

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

procedure Thfform.oldrmnoEnter(Sender: TObject);
begin
  oldrmno.Text:='';
  formini;
end;

procedure Thfform.newrmnoEnter(Sender: TObject);
begin
  newrmno.Text:='';
  SpinEdit1.Value:=0;
  rmmoney.Value:=0;
end;

procedure Thfform.GroupBox1DblClick(Sender: TObject);
begin
  Application.CreateForm(Tdjform, djform);
  djform.Caption:='请选择散座号';
  djform.Height:=100;
  djform.Position:=poDefault;
  djform.Panel1.Visible:=false;
  djform.grid1.Visible:=false;
  djform.grid2.Visible:=false;
  djform.rmnogrid.Visible:=false;
  djform.xfrmno.Text:='1';
  //  djform.Button1.Enabled:=false;
  djform.Timer1.Free;
  djform.showmodal;
  djform.Free;

end;

procedure Thfform.newrmnoExit(Sender: TObject);
var   aa:array[0..8] of string;
      curroomtype:string;
begin
  if length(trim(newrmno.text))>0 then
  begin
    query1.Active:=false;
    query1.SQL.Clear;
    query1.SQL.Add('select (select roomtype from room where roomno='''+trim(oldrmno.text)+''') as roomtype1,(select roomtype from room where roomno='''+trim(newrmno.text)+''') as roomtype2 from   room');
    query1.Prepare;
    query1.Open;
    if trim(query1.Fields[0].AsString)=trim(query1.Fields[1].AsString)  then
    begin
     SpinEdit1.Text:=turntime.Text;
     rmmoney.Text:=oldprice.Text;
    end else
    begin
    { getvalue(aa,'select room.Name,roomtype.Price,room.BedNum from room,roomtype where room.RoomType=RoomType.RoomType and roomno='''+trim(newrmno.text)+'''');
//     acc:=aa[0];
     newsps.Visible:=true;
     jg.Caption:='价格：'+aa[1];
     newsps.Value:=strtoint(aa[2]);
     newsps.MaxValue:=strtoint(aa[2]);
     SpinEdit1.Text:=turntime.Text;
     rmmoney.Text:=oldprice.Text;}
        getvalue(aa,'select roomtype from room where roomno='''+trim(newrmno.Text)+'''');
        curroomtype:=aa[0];
               aa[0]:='';
               aa[1]:='';
               aa[2]:='';
               aa[3]:='';
               aa[4]:='';
               getvalue(aa,'select bednum,Price,zdPrice,deposit,zddeposit,havetime,select1,hyprice12,Turntime2 from roomtype where roomtype='''+trim(curroomtype)+'''');
           Application.CreateForm(Tbkzlhfform, bkzlhfform);
            bkzlhfform.roomno.Text:=trim(newrmno.Text);
           if  (aa[5]='True') or (aa[5]='1') then bkzlhfform.zd.Enabled:=true else
           bkzlhfForm.zd.Enabled:=false;
           if  (aa[6]='True') or (aa[6]='1') then bkzlhfform.th.Enabled:=true else
           bkzlhfform.th.Enabled:=false;
           if  (aa[8]='24') then bkzlhfform.swf.Enabled:=true else
           bkzlhfform.swf.Enabled:=false;
           bkzlhfform.rs.Text:=aa[0];
           if trim(hfform.djfs.Text)='会员卡' then
           begin
             bkzlhfform.hyj.Enabled:=true;
             bkzlhfform.hyj.Checked:=true;
             bkzlhfform.rmmoney.Text:=aa[7];
             bkzlhfform.bzj.Enabled:=false;
             bkzlhfform.gbj.Enabled:=false;
             bkzlhfform.th.Enabled:=false;

           end else
           begin
             bkzlhfform.hyj.Enabled:=false;
             bkzlhfform.hyj.Checked:=false;
             bkzlhfform.rmmoney.Text:=aa[1];
           end;
                // bkzlform.rs.Text:=aa[0];
             bkzlhfform.spinEdit1.Value:=12;

             bkzlhfform.showmodal;
             bkzlhfform.Free;
             exit;
         end;

  end;

end;

procedure Thfform.newmannoDblClick(Sender: TObject);
var i:integer;
begin
   if trim((Sender as tstringgrid).Cells[0,(Sender as tstringgrid).Row])<>'' then
   begin
     i:=(Sender as tstringgrid).Row;
     while trim((Sender as tstringgrid).Cells[0,i])<>'' do
     begin
       (Sender as tstringgrid).Cells[0,i]:=(Sender as tstringgrid).Cells[0,i+1];
       i:=i+1;
     end;
   end;

end;

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

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

end;

end.