frmjgsetwgtj.pas

ProviceSystem-公积金监管系统中心端

         Edit4.Text := c1;

         CheckBox5.Checked := l5;
         Edit5.Enabled := l5;
         Edit5.Text := c2;
       end;
    1: begin
         YjSet2Info(i1,i2,l1,is1,is2,l2,is3,l3,is4,is5,l4);
         SpinEdit4.Value := i2;
         SpinEdit5.Value := i1;
         SpinEdit4.Enabled := l1;
         SpinEdit5.Enabled := l1;
         CheckBox6.Checked := l1;

         SpinEdit1.Value := is2;
         SpinEdit2.Value := is1;
         SpinEdit1.Enabled := l2;
         SpinEdit2.Enabled := l2;
         CheckBox7.Checked := l2;

         SpinEdit3.Value := is3;
         SpinEdit3.Enabled := l3;
         CheckBox8.Checked := l3;

         SpinEdit6.Value := is4;
         if is5=0 then
         begin
           RadioButton1.Checked := true;
           RadioButton2.Checked := false;
         end
         else
         begin
           RadioButton1.Checked := false;
           RadioButton2.Checked := true;
         end;
         SpinEdit4.Enabled := l5;
         CheckBox9.Checked := l5;
         RadioButton1.Enabled := l5;
         RadioButton2.Enabled := l5;
       end;
    2: begin
         YjSet3Info(is1,is2,l1);
         SpinEdit7.Value := is2;
         SpinEdit8.Value := is1;
         SpinEdit7.Enabled := l1;
         SpinEdit8.Enabled := l1;
         CheckBox10.Checked := l1;
       end;
    3: begin
         YjSet4Info(i1,l1,i2,l2,i3,l3);
         SpinEdit10.Value := i1;
         SpinEdit10.Enabled := l1;
         CheckBox24.Checked := l1;

         SpinEdit11.Value := i2;
         SpinEdit11.Enabled := l2;
         CheckBox25.Checked := l2;

         SpinEdit12.Value := i3;
         SpinEdit12.Enabled := l3;
         CheckBox26.Checked := l3;
       end;
    4: begin
         YhGrid.Cells[0,0]:='编号';
         YhGrid.Cells[1,0]:='名称';
         SpinEdit9.Value := KhyhHsInfo;
         KhyhInfo(aKhyh);
         is2:= High(aKhyh);
         for is1:=0 to is2 do
         begin
           yhGrid.Cells[0,is1+1]:= aKhyh[is1].bh;
           yhGrid.Cells[1,is1+1]:= aKhyh[is1].mc;
           YhGrid.RowCount := YhGrid.RowCount+1;
         end;
         YhGrid.RowCount := YhGrid.RowCount-1;
       end;
    5: begin
         YjSet6Info(d1,c1,l1,d2,c2,l2,d3,c3,l3);
         str(d1:5:2,cVal);
         Edit6.Text := cVal;
         Edit7.Text :=c1;
         CheckBox13.Checked := l1;
         Edit6.Enabled := l1;
         Edit7.Enabled := l1;
         Button3.Enabled := l1;

         str(d2:5:2,cVal);
         Edit8.Text := cVal;
         Edit9.Text :=c2;
         CheckBox14.Checked := l2;
         Edit8.Enabled := l2;
         Edit9.Enabled := l2;
         Button4.Enabled := l2;

         str(d3:5:2,cVal);
         Edit10.Text := cVal;
         Edit11.Text := c3;
         CheckBox15.Checked := l3;
         Edit10.Enabled := l3;
         Edit11.Enabled := l3;
         Button5.Enabled := l3;
       end;
    6: begin
         LlGrid.Cells[0,0]:='贷款年限';
         LlGrid.Cells[1,0]:='贷款年利率';
         LlGrid.Cells[2,0]:='罚息日利率';
         DkllInfo(aDkll);
         is2:= high(aDkll);
         for is1:=0 to is2 do
         begin
           llGrid.Cells[0,is1+1]:= inttostr(aDkll[is1].Dkqx);
           llGrid.Cells[1,is1+1]:= floattostr(aDkll[is1].DkNll);
           llGrid.Cells[2,is1+1]:= floattostr(aDkll[is1].FxTll);
           llGrid.RowCount := llGrid.RowCount+1;
         end;
         llGrid.RowCount := llGrid.RowCount-1;

         CkLlGrid.Cells[0,0]:='执行日期';
         CkLlGrid.Cells[1,0]:='活期利率';
         CkLlGrid.Cells[2,0]:='定期利率';
         CkllInfo(aCkll);
         is2:= high(aCkll);
         for is1:=0 to is2 do
         begin
           CkllGrid.Cells[0,is1+1]:= aCkll[is1].ZxRq;
           CkllGrid.Cells[1,is1+1]:= floattostr(aCkll[is1].Hqll );
           CkllGrid.Cells[2,is1+1]:= floattostr(aCkll[is1].Dqll );
           CkllGrid.RowCount := CkllGrid.RowCount+1;
         end;
         CkllGrid.RowCount := CkllGrid.RowCount-1;
       end;
    7: begin
         YjSet8Info(c1,l1);
         Edit26.Text :=c1;
         CheckBox27.Checked := l1;
       end;
    8: begin
         YjSet9Info(d1,c1,l1,d2,c2,l2);
         str(d1:5:2,cVal);
         Edit14.Text := cVal;
         Edit15.Text :=c1;
         CheckBox18.Checked := l1;
         Edit14.Enabled := l1;
         Edit15.Enabled := l1;
         Button6.Enabled := l1;

         str(d2:5:2,cVal);
         Edit16.Text := cVal;
         Edit17.Text :=c2;
         CheckBox19.Checked := l2;
         Edit16.Enabled := l2;
         Edit17.Enabled := l2;
         Button7.Enabled := l2;
       end;
    9: begin
         YjSet10Info(d1,d2,c1,l1,d3,d4,c2,l2,d5,d6,c3,l3,d7,d8,c4,l4);
         str(d1:11:2,cVal);
         Edit18.Text := cVal;
         str(d2:11:2,cVal);
         Edit19.Text := cVal;
         CheckBox20.Checked := l1;
         Edit18.Enabled := l1;
         Edit19.Enabled := l1;
         Edit27.Text := c1;
         Edit27.Enabled := l1;

         str(d3:11:2,cVal);
         Edit20.Text := cVal;
         str(d4:11:2,cVal);
         Edit21.Text := cVal;
         CheckBox21.Checked := l2;
         Edit20.Enabled := l2;
         Edit21.Enabled := l2;
         Edit28.Text := c2;
         Edit28.Enabled := l2;

         str(d5:11:2,cVal);
         Edit22.Text := cVal;
         str(d6:11:2,cVal);
         Edit23.Text := cVal;
         CheckBox22.Checked := l3;
         Edit22.Enabled := l3;
         Edit23.Enabled := l3;
         Edit29.Text :=c3;
         Edit29.Enabled := l3;

         str(d7:11:2,cVal);
         Edit24.Text := cVal;
         str(d8:11:2,cVal);
         Edit25.Text := cVal;
         CheckBox23.Checked := l4;
         Edit24.Enabled := l4;
         Edit25.Enabled := l4;
         Edit30.Text := c4;
         Edit30.Enabled := l4;
       end;
    10:begin
         YjSet11Info(d1,d2,l1,d3,d4,l2,d5,d6,l3);
         str(d1:11:2,cVal);
         Edit31.Text := cVal;
         str(d2:11:2,cVal);
         Edit34.Text := cVal;
         CheckBox28.Checked := l1;
         Edit31.Enabled := l1;
         Edit34.Enabled := l1;

         str(d3:11:2,cVal);
         Edit32.Text := cVal;
         str(d4:11:2,cVal);
         Edit35.Text := cVal;
         CheckBox29.Checked := l2;
         Edit32.Enabled := l2;
         Edit35.Enabled := l2;

         str(d5:11:2,cVal);
         Edit33.Text := cVal;
         str(d6:11:2,cVal);
         Edit36.Text := cVal;
         CheckBox30.Checked := l3;
         Edit33.Enabled := l3;
         Edit36.Enabled := l3;
       end;
  end;
end;

procedure TJGWgTj.Edit10Exit(Sender: TObject);
var
  dVal : Double;
  cVal : string;
begin
  inherited;
  try
    dVal := strtofloat((Sender as tEdit).Text);
    str(dVal:5:2,cVal);
    (Sender as tEdit).Text := cVal;
  except
    (Sender as tEdit).Text := ' 0.00';
  end;
end;

procedure TJGWgTj.CheckBox27Click(Sender: TObject);
begin
  Edit26.Enabled :=(Sender as tCheckBox).Checked;
  Button8.Enabled :=(Sender as tCheckBox).Checked;

end;

procedure TJGWgTj.CheckBox28Click(Sender: TObject);
begin
  if Sender = CheckBox28 then
  begin
    Edit31.Enabled := (Sender as tCheckBox).Checked;
    Edit34.Enabled := (Sender as tCheckBox).Checked;
  end
  else
    if Sender = CheckBox29 then
    begin
      Edit32.Enabled := (Sender as tCheckBox).Checked;
      Edit35.Enabled := (Sender as tCheckBox).Checked;
    end
    else
      if Sender = CheckBox30 then
      begin
        Edit33.Enabled := (Sender as tCheckBox).Checked;
        Edit36.Enabled := (Sender as tCheckBox).Checked;
      end;
end;

procedure TJGWgTj.ToolButton1Click(Sender: TObject);
var
  d1,d2,d3,d4,d5,d6,d7,d8: double;
  l1,l2,l3,l4,l5: boolean;
  i1,i2,i3,i4,i5,i6,i7:Longint;
  c1,c2,c3,c4,c5: string;
begin
  case PgTj.ActivePageIndex of
    0: begin
         d1:= strtofloat(Edit1.Text);
         d2:= strtofloat(Edit2.Text);
         d3:= strtofloat(Edit3.Text);
         l1:= CheckBox1.Checked;
         l2:= CheckBox2.Checked;
         l3:= CheckBox3.Checked;
         l4:= CheckBox4.Checked;
         l5:= CheckBox5.Checked;
         c4:= trim(Edit4.Text);
         c5:= trim(Edit5.Text);
         if YjSet1(sCityNum,d1,l1,d2,l2,d3,l3,c4,l4,c5,l5)=0 then
//       if fYjSet1(sCityNum,d1,l1,d2,l2,d3,l3,c4,l4,c5,l5)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);
       end;
    1: begin
         i1:=SpinEdit1.Value ;
         i2:=SpinEdit2.Value;
         i3:=SpinEdit3.Value;
         i4:=SpinEdit4.Value;
         i5:=SpinEdit5.Value;
         i6:=SpinEdit6.Value;
         if RadioButton1.Checked then
           i7:= 0
         else
           i7:=1;
         l1:= CheckBox6.Checked;
         l2:= CheckBox7.Checked;
         l3:= CheckBox8.Checked;
         l4:= CheckBox9.Checked;
         if YjSet2(sCityNum,i5,i4,l1,i2,i1,l2,i3,l3,i6,i7,l4)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);

       end;
    2: begin
         i1:=SpinEdit7.Value ;
         i2:=SpinEdit8.Value;
         l1:= CheckBox10.Checked;
         if YjSet3(sCityNum,i2,i1,l1)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);

       end;
    3: begin
         i1:=SpinEdit10.Value ;
         i2:=SpinEdit11.Value;
         i3:=SpinEdit12.Value;
         l1:= CheckBox24.Checked;
         l2:= CheckBox25.Checked;
         l3:= CheckBox26.Checked;
         if YjSet4(sCityNum,i1,l1,i2,l2,i3,l3)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);

       end;
    4: ;
    5: begin
         d1:= strtofloat(Edit6.Text);
         d2:= strtofloat(Edit8.Text);
         d3:= strtofloat(Edit10.Text);
         c1:=trim(Edit7.Text);
         c2:=trim(Edit9.Text);
         c3:=trim(Edit11.Text);
         l1:= CheckBox13.Checked;
         l2:= CheckBox14.Checked;
         l3:= CheckBox15.Checked;
         if YjSet6(sCityNum,d1,c1,l1,d2,c2,l2,d3,c3,l3)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);
       end;
    6: ;
    7: begin
         c1:=trim(Edit26.Text);
         l1:= CheckBox27.Checked;
         if YjSet8(sCityNum,c1,l1)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);
       end;
    8: begin
         d1:= strtofloat(Edit14.Text);
         d2:= strtofloat(Edit16.Text);
         c1:=trim(Edit15.Text);
         c2:=trim(Edit17.Text);
         l1:= CheckBox18.Checked;
         l2:= CheckBox19.Checked;
         if YjSet9(sCityNum,d1,c1,l1,d2,c2,l2)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);
       end;
    9: begin
         d1:= strtofloat(Edit18.Text);
         d2:= strtofloat(Edit19.Text);
         d3:= strtofloat(Edit20.Text);
         d4:= strtofloat(Edit21.Text);
         d5:= strtofloat(Edit22.Text);
         d6:= strtofloat(Edit23.Text);
         d7:= strtofloat(Edit24.Text);
         d8:= strtofloat(Edit25.Text);
         l1:= CheckBox20.Checked;
         l2:= CheckBox21.Checked;
         l3:= CheckBox22.Checked;
         l4:= CheckBox23.Checked;
         c1:= Trim(Edit27.Text);
         c2:= Trim(Edit28.Text);
         c3:= Trim(Edit29.Text);
         c4:= Trim(Edit30.Text);
         if YjSet10(sCityNum,d1,d2,c1,l1,d3,d4,c2,l2,d5,d6,c3,l3,d7,d8,c4,l4)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);
       end;
    10: begin
         d1:= strtofloat(Edit31.Text);
         d2:= strtofloat(Edit32.Text);
         d3:= strtofloat(Edit33.Text);
         d4:= strtofloat(Edit34.Text);
         d5:= strtofloat(Edit35.Text);
         d6:= strtofloat(Edit36.Text);
         l1:= CheckBox28.Checked;
         l2:= CheckBox29.Checked;
         l3:= CheckBox30.Checked;
         if YjSet11(sCityNum,d1,d4,l1,d2,d5,l2,d3,d6,l3)=0 then
            application.MessageBox('设置成功。',pMsgCaption,64)
         else
            application.MessageBox('设置失败！',pMsgCaption,16);
       end;
  end;
end;

{function TJGWgTj.fYjSetInfo(const sDsbh: String;
  var vData: Variant): Smallint;
var
  vObj: Variant;
begin
    vObj := CreateOleObject('pPJgComServer.PJgComServer');
    Result := vObj.YjSetInfo(sDsbh,vData);
end;
}
procedure TJGWgTj.ButtonKmClick(Sender: TObject);
var
  kmh:string;
  i,j,l: smallint;
begin
  l:= -1;
  j := (sender as TButton).TabOrder;
  for i:=0 to ((sender as tButton).Parent).ControlCount-1 do
  begin
    if (sender as tButton).Parent.Controls[i] is TEdit then
    begin
      if ((sender as tButton).Parent.Controls[i] as TEdit).TabOrder = j-1 then
      begin
        l:= i;
        break;
      end;
    end;
  end;
  if SelectKm(sURL,kmh) then
    ((sender as tButton).Parent.Controls[l] as TEdit).Text := kmh;
end;

end.