usc.pas

公积金监管系统客户端,是新疆公积金监管系统的客户端软件

    else
    begin
      if vIp = '' then
      begin
        showmessage('请设置软件网关IP地址及端口！');
        exit;
      end;
      if rPort = '' then
        rPort := '80';
      DM.HTTPRIO_SC.URL := 'http://' + vIp + ':' + vPort
        + '/scripts/pPJgWsServer.dll/soap/IPJgWsServer'
        + '?realhost=' + rIp + #38 + 'realport=' + rPort;
    end;
    DM.dsbh:= DM.IptoDsbh(ConnectServerIp(INISYSTEMTYPE));
    SJSC;
}
  end;

end;

procedure TSJSC.SetData6;
var
  Zhmc, Khyh, Yhzh: string;
  Ary: array of double;
  ret: smallint;
begin
  with DM do
  begin
    setlength(Ary, 4);
    P_Zhksyeb1(Jtb_Ny);
    ret := 0;
    while not cds_LR.Eof do
    begin
      ret := -1;
      Zhmc := cds_LR.FieldByName('ZHMC').AsString;
      Khyh := cds_LR.FieldByName('KHYH').AsString;
      Yhzh := cds_LR.FieldByName('YHZH').AsString;
      Ary[0] := cds_LR.FieldByName('QCYE').AsFloat;
      Ary[1] := cds_LR.FieldByName('SR').AsFloat;
      Ary[2] := cds_LR.FieldByName('ZC').AsFloat;
      Ary[3] := cds_LR.FieldByName('QMYE').AsFloat;

      ret := F_Zhksyeb_Save1(Jtb_Ny, Zhmc, Khyh, Yhzh, Ary);
      if ret <> 0 then
        break;
      cds_LR.Next;
    end;
    if ret <> 0 then
      memo1.Lines.Add('专户开设及其余额情况统计表上传失败！')
    else
      memo1.Lines.Add('专户开设及其余额情况统计表上传成功！');
  end;
end;

procedure TSJSC.SetData7;
var
  Ary: array of double;
  Ary0: array of integer;
  ret: smallint;
begin
  setlength(Ary, 34);
  setlength(Ary0, 3);
  with DM do
  begin
    P_Zfgjjtjb(Jtb_Ny);
    cds_LR.First;
    Ary0[0] := cds_LR.FieldByName('GRDKBQFDHS').AsInteger;
    Ary0[1] := cds_LR.FieldByName('GRDKSQMLJFDHS').AsInteger;
    Ary0[2] := cds_LR.FieldByName('BQMYQDKHS').AsInteger;
    Ary[0] := cds_LR.FieldByName('DWJCBL').AsFloat;
    Ary[1] := cds_LR.FieldByName('GRJCBL').AsFloat;
    Ary[2] := cds_LR.FieldByName('BQYJZGS').AsFloat;
    Ary[3] := cds_LR.FieldByName('BQSJZGS').AsFloat;
    Ary[4] := cds_LR.FieldByName('SQMJCYE').AsFloat;
    Ary[5] := cds_LR.FieldByName('BQYJCE').AsFloat;
    Ary[6] := cds_LR.FieldByName('BQSJCE').AsFloat;
    Ary[7] := cds_LR.FieldByName('BQGRTQE').AsFloat;
    Ary[8] := cds_LR.FieldByName('BQMGRTQE').AsFloat;
    Ary[9] := cds_LR.FieldByName('JZLX').AsFloat;
    Ary[10] := cds_LR.FieldByName('BQMJCZE').AsFloat;
    Ary[11] := cds_LR.FieldByName('BQMJCYE').AsFloat;
    Ary[12] := cds_LR.FieldByName('BNYWSR').AsFloat;
    Ary[13] := cds_LR.FieldByName('BNYWZC').AsFloat;
    Ary[14] := cds_LR.FieldByName('BNZZSY').AsFloat;
    Ary[15] := cds_LR.FieldByName('BNGLFY').AsFloat;
    Ary[16] := cds_LR.FieldByName('BNMFXZBJZE').AsFloat;
    Ary[17] := cds_LR.FieldByName('BNMFXZBJYE').AsFloat;
    Ary[18] := cds_LR.FieldByName('BNMZFBCZJZE').AsFloat;
    Ary[19] := cds_LR.FieldByName('BNMZFBCZJYE').AsFloat;
    Ary[20] := cds_LR.FieldByName('GRDKSQMYE').AsFloat;
    Ary[21] := cds_LR.FieldByName('GRDKBQFFE').AsFloat;
    Ary[22] := cds_LR.FieldByName('GRDKBQHSE').AsFloat;
    Ary[23] := cds_LR.FieldByName('GRDKBQMDKZE').AsFloat;
    Ary[24] := cds_LR.FieldByName('GRDKBQMDKYE').AsFloat;
    Ary[25] := cds_LR.FieldByName('GRDKYQDKE').AsFloat;
    Ary[26] := cds_LR.FieldByName('QTDKSQMDKYE').AsFloat;
    Ary[27] := cds_LR.FieldByName('QTDKBQFFE').AsFloat;
    Ary[28] := cds_LR.FieldByName('QTDKBQHSE').AsFloat;
    Ary[29] := cds_LR.FieldByName('QTDKBQMDKZE').AsFloat;
    Ary[30] := cds_LR.FieldByName('QTDKBQMDKYE').AsFloat;
    Ary[31] := cds_LR.FieldByName('QTDKYQE').AsFloat;
    Ary[32] := cds_LR.FieldByName('BQGZGME').AsFloat;
    Ary[33] := cds_LR.FieldByName('BQMGZYE').AsFloat;

    ret := DM.F_Zfgjjtjb_Save1(Jtb_Ny, Ary, Ary0);
    if ret <> 0 then
      memo1.Lines.Add('住房公积金统计表上传失败！')
    else
      memo1.Lines.Add('住房公积金统计表上传成功！');
  end;
end;

procedure TSJSC.SetData8;
var
  Ary: array of double;
  Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq: string;
  Dkqx, ret: integer;
begin
  setlength(Ary, 7);
  with DM do
  begin
    P_Xmdkb(Jtb_Ny);
    cds_LR.First;
    ret := 0;
    while not cds_LR.Eof do
    begin
      ret := -1;
      Xh := trim(cds_LR.FieldByName('XH').AsString);
      Dwmc := trim(cds_LR.FieldByName('DWMC').AsString);
      Xmmc := trim(cds_LR.FieldByName('XMMC').AsString);
      Lxspjg := trim(cds_LR.FieldByName('LXSPJG').AsString);
      Dkhth := trim(cds_LR.FieldByName('DKHTH').AsString);
      Ffrq := trim(cds_LR.FieldByName('FFRQ').AsString);
      Dkqx := cds_LR.FieldByName('DKQX').AsInteger;

      Ary[0] := cds_LR.FieldByName('DKJE').AsFloat;
      Ary[1] := cds_LR.FieldByName('FFJE').AsFloat;
      Ary[2] := cds_LR.FieldByName('DKLL').AsFloat;
      Ary[3] := cds_LR.FieldByName('QCYE').AsFloat;
      Ary[4] := cds_LR.FieldByName('BQHS').AsFloat;
      Ary[5] := cds_LR.FieldByName('QMYE').AsFloat;
      Ary[6] := cds_LR.FieldByName('QZYQ').AsFloat;

      ret := F_Xmdkb_Save1(Jtb_Ny, Xh, Dwmc, Xmmc, Lxspjg, Dkhth, Ffrq, Dkqx,
        Ary);
      if ret <> 0 then
        break;
      cds_LR.Next;
    end;
    if ret <> 0 then
      memo1.Lines.Add('项目贷款表上传失败！')
    else
      memo1.Lines.Add('项目贷款表上传成功！');
  end;
end;

procedure TSJSC.ApplicationEvents1Exception(Sender: TObject; E: Exception);
begin
  if (E is ESOAPHTTPException) then
  begin
    showmessage('无法连接指定Web服务器，请检查设置！');
    exit;
  end;
end;

procedure TSJSC.SetData9;
var
  //V_GZQK------GMRQ,PZ,QX,LL,GMJE,GMZQSL,GMFS,GZPZH,YE,RQ
  //V_GZQKMX----GZPZH,GMJE,GMZQSL,RQ,DFBJ_ZRBJ,LXSR
  gmrq, pz, gmfs, gzpzh, rq: string;
  ll, gmje, gmzqsl, ye, dfbj_zrbj, lxsr: double;
  qx, ret: smallint;
  sCmd: string;
begin
  with DM do
  begin
    sCmd:= 'select isnull(GMRQ,'''') GMRQ,isnull(PZ,'''') PZ,'+
           'isnull(QX,0) QX,isnull(LL,0) LL,isnull(GMJE,0) GMJE,'+
           'isnull(GMZQSL,0) GMZQSL,isnull(GMFS,'''') GMFS,'+
           'isnull(GZPZH,'''') GZPZH,isnull(YE,0) YE,isnull(RQ,'''') RQ'+
           ' from V_GZQK';
    GzqkCx(sCmd);
    cds_LR.First;
    sCmd := 'if exists(select * from V_GZQK where dsbh='''+ Dsbh+''') '+
            'delete from V_GZQK where dsbh='''+ Dsbh+'''';
    ret := GzqkSav(sCmd);
    if ret <> 0 then
      memo1.Lines.Add('国债情况表数据清理失败！');
    ret := 0;
    while not cds_LR.Eof do
    begin
      ret := -1;
      gmrq := trim(cds_LR.FieldByName('GMRQ').AsString);
      pz := trim(cds_LR.FieldByName('PZ').AsString);
      gmfs := trim(cds_LR.FieldByName('GMFS').AsString);
      gzpzh := trim(cds_LR.FieldByName('GZPZH').AsString);
      rq := trim(cds_LR.FieldByName('RQ').AsString);
      ll := cds_LR.FieldByName('LL').AsFloat;
      gmje := cds_LR.FieldByName('GMJE').AsFloat;
      gmzqsl := cds_LR.FieldByName('GMZQSL').AsFloat;
      ye := cds_LR.FieldByName('YE').AsFloat;
      qx := cds_LR.FieldByName('QX').AsInteger;

      sCmd := 'insert V_GZQK values('''+ Dsbh+''','''+gmrq+''','''+pz+''','+inttostr(qx)+
              ','+floattostr(ll)+','+floattostr(gmje)+','+floattostr(gmzqsl)+
              ','''+gmfs+''','''+ gzpzh +''','+floattostr(ye)+','''+rq+''')';
      ret := GzqkSav(sCmd);
      if ret <> 0 then
        break;
      cds_LR.Next;
    end;
    if ret <> 0 then
      memo1.Lines.Add('国债情况表上传失败！')
    else
      memo1.Lines.Add('国债情况表上传成功！');

    //GZPZH,GMJE,GMZQSL,RQ,DFBJ_ZRBJ,LXSR
    sCmd:= 'select isnull(GZPZH,'''') GZPZH,isnull(GMJE,0) GMJE,'+
           'isnull(GMZQSL,0) GMZQSL,isnull(RQ,'''') RQ,'+
           'isnull(DFBJ_ZRBJ,0) DFBJ_ZRBJ,isnull(LXSR,0) LXSR'+
           ' from V_GZQKMX';
    GzqkCx(sCmd);
    cds_LR.First;
    sCmd := 'if exists(select * from V_GZQKMX where dsbh='''+ Dsbh+''') '+
            'delete from V_GZQKMX where dsbh='''+ Dsbh+'''';
    ret := GzqkSav(sCmd);
    if ret <> 0 then
      memo1.Lines.Add('国债情况明细表数据清理失败！');
    ret := 0;
    while not cds_LR.Eof do
    begin
      ret := -1;
      gzpzh := trim(cds_LR.FieldByName('GZPZH').AsString);
      rq := trim(cds_LR.FieldByName('RQ').AsString);
      gmje := cds_LR.FieldByName('GMJE').AsFloat;
      gmzqsl := cds_LR.FieldByName('GMZQSL').AsFloat;
      dfbj_zrbj := cds_LR.FieldByName('DFBJ_ZRBJ').AsFloat;
      lxsr := cds_LR.FieldByName('LXSR').AsFloat;
      //GZPZH,GMJE,GMZQSL,RQ,DFBJ_ZRBJ,LXSR

      sCmd := 'insert V_GZQKMX values('''+ Dsbh+''','''+gzpzh+''','+floattostr(gmje)+','+
               floattostr(gmzqsl)+','''+rq+''','+floattostr(gmzqsl)+','+
               floattostr(lxsr)+')';
      ret := GzqkSav(sCmd);
      if ret <> 0 then
        break;
      cds_LR.Next;
    end;
    if ret <> 0 then
      memo1.Lines.Add('国债情况明细表上传失败！')
    else
      memo1.Lines.Add('国债情况明细表上传成功！');
  end;

end;

procedure TSJSC.FormCreate(Sender: TObject);
begin
  DTP_1.Date:= date();
end;

end.