tdmpjgcom.pas

公积金监管系统服务端Com中间件,是新疆公积金监管系统的客户端软件

  end;
end;

procedure TPJgComServer.fZzsyfpbGjjInf(const sDsbh, sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Cx.Active := false;
  if sDsbh = '' then
    self.cds_Cx.CommandText := 'select * from V_ZZSYFPB_GJJ where ND=''' + sNy +
     ''''
  else
    self.cds_Cx.CommandText := 'select * from V_ZZSYFPB_GJJ where ND=''' + sNy +
     ''' and dsbh='''+ sDsbh +'''';
  try
    try
      self.cds_Cx.Active := true;
      vData := self.cds_Cx.XMLData;
    finally
      self.cds_Cx.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fZzsyfpbGjjSav(const sDsbh, sNy: WideString;
  aAry: OleVariant; var lResult: Integer);
var
  i: smallint;
  nn: string;
begin
  try
    if SP_Cx.Active = true then
      SP_Cx.Close;
    with SP_Cx do
    begin
      ProcedureName := 'p_ZZSYFPBGJJ_save';
      Parameters.Refresh;
      Parameters.ParamByName('@dsbh').Value := sDsbh;
      Parameters.ParamByName('@ND').Value := sNy;
      for i := 0 to 6 do
      begin
        Parameters[i + 3].DataType := ftFloat;
        Parameters[i + 3].Value := double(aAry[i]);
      end;
      Parameters.ParamByName('@nret').Direction := pdInputOutput;
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_Cx.ExecProc;
    SP_Cx.Close;
    nn := sNy;
    nn := inttostr(strtoint(nn) - 1);
    with SP_Cx do
    begin
      Parameters.ParamByName('@ND').Value := nn;
      for i := 0 to 6 do
        Parameters[i + 3].Value := double(aAry[i + 7]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_Cx.ExecProc;
    lResult := SP_Cx.Parameters.ParamByName('@nret').Value;
    SP_Cx.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fJfszbJfInf(const sDsbh, sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Cx.Active := false;
  if sDsbh = '' then
    self.cds_Cx.CommandText := 'select * from V_JFSZB_JF where NY=''' + sNy +
     ''''
  else
    self.cds_Cx.CommandText := 'select * from V_JFSZB_JF where NY=''' + sNy +
     ''' and dsbh='''+ sDsbh +'''';
  try
    try
      self.cds_Cx.Active := true;
      vData := self.cds_Cx.XMLData;
    finally
      self.cds_Cx.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fJfszbJfSav(const sDsbh, sNy: WideString;
  aAry: OleVariant; var lResult: Integer);
var
  i: smallint;
begin
  try
    if SP_Cx.Active = true then
      SP_Cx.Close;
    with SP_Cx do
    begin
      ProcedureName := 'p_JFSZBJF_save';
      Parameters.Refresh;
      Parameters.ParamByName('@dsbh').Value := sDsbh;
      Parameters.ParamByName('@NY').Value := sNy;
      for i := 0 to 13 do
      begin
        Parameters[i + 3].DataType := ftFloat;
        Parameters[i + 3].Value := double(aAry[i]);
      end;
      Parameters.ParamByName('@nret').Direction := pdInputOutput;
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_Cx.ExecProc;
    lresult := SP_Cx.Parameters.ParamByName('@nret').Value;
    SP_Cx.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fXmdkbInf(const sDsbh, sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Cx.Active := false;
  if sDsbh = '' then
    self.cds_Cx.CommandText := 'select * from V_XMDKB where NY=''' + sNy +''''
  else
    self.cds_Cx.CommandText := 'select * from V_XMDKB where NY=''' + sNy +
     ''' and dsbh='''+ sDsbh +'''';
  try
    try
      self.cds_Cx.Active := true;
      vData := self.cds_Cx.XMLData;
    finally
      self.cds_Cx.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fXmdkbSav(const sDsbh, sNy, sXh, sDwmc, sXmmc,
  sLxspjg, sDkhth, sFfrq: WideString; lDkqx: Integer; aAry: OleVariant;
  var lResult: Integer);
begin
  try
    if SP_Cx.Active = true then
      SP_Cx.Close;
    SP_Cx.ProcedureName := 'p_XMDKB_save';
    SP_Cx.Parameters.Refresh;
    with SP_Cx do
    begin
      Parameters.ParamByName('@dsbh').Value := sDsbh;
      Parameters.ParamByName('@NY').Value := sNy;
      Parameters.ParamByName('@XH').Value := sXh;
      Parameters.ParamByName('@DWMC').Value := sDwmc;
      Parameters.ParamByName('@XMMC').Value := sXmmc;
      Parameters.ParamByName('@LXSPJG').Value := sLxspjg;
      Parameters.ParamByName('@DKHTH').Value := sDkhth;

      Parameters.ParamByName('@DKJE').DataType := ftFloat;
      Parameters.ParamByName('@FFJE').DataType := ftFloat;

      Parameters.ParamByName('@DKJE').Value := double(aAry[0]);
      Parameters.ParamByName('@FFJE').Value := double(aAry[1]);
      Parameters.ParamByName('@DKQX').Value := lDkqx;
      Parameters.ParamByName('@FFRQ').Value := sFfrq;

      Parameters.ParamByName('@DKLL').DataType := ftFloat;
      Parameters.ParamByName('@QCYE').DataType := ftFloat;
      Parameters.ParamByName('@BQHS').DataType := ftFloat;
      Parameters.ParamByName('@QMYE').DataType := ftFloat;
      Parameters.ParamByName('@QZYQ').DataType := ftFloat;

      Parameters.ParamByName('@DKLL').Value := double(aAry[2]);
      Parameters.ParamByName('@QCYE').Value := double(aAry[3]);
      Parameters.ParamByName('@BQHS').Value := double(aAry[4]);
      Parameters.ParamByName('@QMYE').Value := double(aAry[5]);
      Parameters.ParamByName('@QZYQ').Value := double(aAry[6]);
      Parameters.ParamByName('@nret').Direction := pdInputOutput;
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_Cx.ExecProc;
    lResult := SP_Cx.Parameters.ParamByName('@nret').Value;
    SP_Cx.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fZcfzbJfInf(const sDsbh, sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Cx.Active := false;
  if sDsbh = '' then
    self.cds_Cx.CommandText := 'select * from V_ZCFZB_JF where NY=''' + sNy +
     ''''
  else
    self.cds_Cx.CommandText := 'select * from V_ZCFZB_JF where NY=''' + sNy +
     ''' and dsbh='''+ sDsbh +'''';
  try
    try
      self.cds_Cx.Active := true;
      vData := self.cds_Cx.XMLData;
    finally
      self.cds_Cx.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fZcfzbJfSav(const sDsbh, sNy: WideString;
  aAry: OleVariant; var lResult: Integer);
var
  i: smallint;
begin
  try
    if SP_Cx.Active = true then
      SP_Cx.Close;
    with SP_Cx do
    begin
      ProcedureName := 'p_ZCFZBJF_save';
      Parameters.Refresh;
      Parameters.ParamByName('@dsbh').Value := sDsbh;
      Parameters.ParamByName('@NY').Value := sNy;
      for i := 0 to 31 do
      begin
        Parameters[i + 3].DataType := ftFloat;
        Parameters[i + 3].Value := double(aAry[i]);
      end;
      Parameters.ParamByName('@nret').Direction := pdInputOutput;
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_Cx.ExecProc;
    lresult := SP_Cx.Parameters.ParamByName('@nret').Value;
    SP_Cx.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fZfgjjtjbInf(const sDsbh, sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Cx.Active := false;
  if sDsbh = '' then
    self.cds_Cx.CommandText := 'select * from V_ZFGJJTJB where NY=''' + sNy +
     ''''
  else
    self.cds_Cx.CommandText := 'select * from V_ZFGJJTJB where NY=''' + sNy +
     ''' and dsbh='''+ sDsbh +'''';
  try
    try
      self.cds_Cx.Active := true;
      vData := self.cds_Cx.XMLData;
    finally
      self.cds_Cx.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fZfgjjtjbSav(const sDsbh, sNy: WideString; aAry,
  aAry0: OleVariant; var lResult: Integer);
begin
  try
    if SP_Cx.Active = true then
      SP_Cx.Close;
    SP_Cx.ProcedureName := 'p_ZFGJJTJB_save';
    SP_Cx.Parameters.Refresh;
    with SP_Cx do
    begin
      Parameters.ParamByName('@dsbh').Value := sDsbh;
      Parameters.ParamByName('@NY').Value := sNy;
      Parameters.ParamByName('@GRDKBQFDHS').Value := integer(aAry0[0]);
      Parameters.ParamByName('@GRDKSQMLJFDHS').Value := integer(aAry0[1]);
      Parameters.ParamByName('@BQMYQDKHS').Value := integer(aAry0[2]);

      Parameters.ParamByName('@DWJCBL').DataType := ftFloat;
      Parameters.ParamByName('@GRJCBL').DataType := ftFloat;
      Parameters.ParamByName('@BQYJZGS').datatype := ftfloat;// := integer(aAry0[0]);
      Parameters.ParamByName('@BQSJZGS').datatype := ftfloat; //Value := integer(aAry0[1]);
      Parameters.ParamByName('@SQMJCYE').DataType := ftFloat;
      Parameters.ParamByName('@BQYJCE').DataType := ftFloat;
      Parameters.ParamByName('@BQSJCE').DataType := ftFloat;
      Parameters.ParamByName('@BQGRTQE').DataType := ftFloat;
      Parameters.ParamByName('@BQMGRTQE').DataType := ftFloat;
      Parameters.ParamByName('@JZLX').DataType := ftFloat;
      Parameters.ParamByName('@BQMJCZE').DataType := ftFloat;
      Parameters.ParamByName('@BQMJCYE').DataType := ftFloat;
      Parameters.ParamByName('@BNYWSR').DataType := ftFloat;
      Parameters.ParamByName('@BNYWZC').DataType := ftFloat;
      Parameters.ParamByName('@BNZZSY').DataType := ftFloat;
      Parameters.ParamByName('@BNGLFY').DataType := ftFloat;
      Parameters.ParamByName('@BNMFXZBJZE').DataType := ftFloat;
      Parameters.ParamByName('@BNMFXZBJYE').DataType := ftFloat;
      Parameters.ParamByName('@BNMZFBCZJZE').DataType := ftFloat;
      Parameters.ParamByName('@BNMZFBCZJYE').DataType := ftFloat;
      Parameters.ParamByName('@GRDKSQMYE').DataType := ftFloat;
      Parameters.ParamByName('@GRDKBQFFE').DataType := ftFloat;
      Parameters.ParamByName('@GRDKBQHSE').DataType := ftFloat;
      Parameters.ParamByName('@GRDKBQMDKZE').DataType := ftFloat;
      Parameters.ParamByName('@GRDKBQMDKYE').DataType := ftFloat;
      Parameters.ParamByName('@GRDKYQDKE').DataType := ftFloat;
      Parameters.ParamByName('@QTDKSQMDKYE').DataType := ftFloat;
      Parameters.ParamByName('@QTDKBQFFE').DataType := ftFloat;
      Parameters.ParamByName('@QTDKBQHSE').DataType := ftFloat;
      Parameters.ParamByName('@QTDKBQMDKZE').DataType := ftFloat;
      Parameters.ParamByName('@QTDKBQMDKYE').DataType := ftFloat;
      Parameters.ParamByName('@QTDKYQE').DataType := ftFloat;
      Parameters.ParamByName('@BQGZGME').DataType := ftFloat;
      Parameters.ParamByName('@BQMGZYE').DataType := ftFloat;

      Parameters.ParamByName('@DWJCBL').Value := double(aAry[0]);
      Parameters.ParamByName('@GRJCBL').Value := double(aAry[1]);
      Parameters.ParamByName('@BQYJZGS').Value := double(aAry[2]);
      Parameters.ParamByName('@BQSJZGS').Value := double(aAry[3]);
      Parameters.ParamByName('@SQMJCYE').Value := double(aAry[4]);
      Parameters.ParamByName('@BQYJCE').Value := double(aAry[5]);
      Parameters.ParamByName('@BQSJCE').Value := double(aAry[6]);
      Parameters.ParamByName('@BQGRTQE').Value := double(aAry[7]);
      Parameters.ParamByName('@BQMGRTQE').Value := double(aAry[8]);
      Parameters.ParamByName('@JZLX').Value := double(aAry[9]);
      Parameters.ParamByName('@BQMJCZE').Value := double(aAry[10]);
      Parameters.ParamByName('@BQMJCYE').Value := double(aAry[11]);
      Parameters.ParamByName('@BNYWSR').Value := double(aAry[12]);
      Parameters.ParamByName('@BNYWZC').Value := double(aAry[13]);
      Parameters.ParamByName('@BNZZSY').Value := double(aAry[14]);
      Parameters.ParamByName('@BNGLFY').Value := double(aAry[15]);
      Parameters.ParamByName('@BNMFXZBJZE').Value := double(aAry[16]);
      Parameters.ParamByName('@BNMFXZBJYE').Value := double(aAry[17]);
      Parameters.ParamByName('@BNMZFBCZJZE').Value := double(aAry[18]);
      Parameters.ParamByName('@BNMZFBCZJYE').Value := double(aAry[19]);
      Parameters.ParamByName('@GRDKSQMYE').Value := double(aAry[20]);
      Parameters.ParamByName('@GRDKBQFFE').Value := double(aAry[21]);
      Parameters.ParamByName('@GRDKBQHSE').Value := double(aAry[22]);
      Parameters.ParamByName('@GRDKBQMDKZE').Value := double(aAry[23]);
      Parameters.ParamByName('@GRDKBQMDKYE').Value := double(aAry[24]);
      Parameters.ParamByName('@GRDKYQDKE').Value := double(aAry[25]);
      Parameters.ParamByName('@QTDKSQMDKYE').Value := double(aAry[26]);
      Parameters.ParamByName('@QTDKBQFFE').Value := double(aAry[27]);
      Parameters.ParamByName('@QTDKBQHSE').Value := double(aAry[28]);
      Parameters.ParamByName('@QTDKBQMDKZE').Value := double(aAry[29]);
      Parameters.ParamByName('@QTDKBQMDKYE').Value := double(aAry[30]);
      Parameters.ParamByName('@QTDKYQE').Value := double(aAry[31]);
      Parameters.ParamByName('@BQGZGME').Value := double(aAry[32]);
      Parameters.ParamByName('@BQMGZYE').Value := double(aAry[33]);
      Parameters.ParamByName('@nret').Direction := pdInputOutput;
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_Cx.ExecProc;
    lResult := SP_Cx.Parameters.ParamByName('@nret').Value;
    SP_Cx.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fZhksyebInf(const sDsbh, sNy, sZhmc: WideString;
  var vData: OleVariant);
begin
  self.cds_Cx.Active := false;
  if sDsbh = '' then
    self.cds_Cx.CommandText := 'select * from V_ZHKSYEB where NY=''' + sNy
    + ''' and ZHMC=''' + sZhmc + ''' order by KHYH'
  else
    self.cds_Cx.CommandText := 'select distinct * from V_ZHKSYEB where NY=''' + sNy
    + ''' and ZHMC=''' + sZhmc + ''' and dsbh='''+ sDsbh +''' order by KHYH,dsbh';
  try
    try
      self.cds_Cx.Active := true;
      vData := self.cds_Cx.XMLData;
    finally
      self.cds_Cx.Active := false;
    end;
    SetComplete;