udm_jglr.pas

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

      if self.Conn_Cw.Connected = false then
        lResult := -1
      else
        lResult := 0;
    except
      lResult := -1;
    end;
  end
  else
    lResult := 0;
end;

procedure TJGLRServer.fZcfzbGjjInf(const sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
  self.cds_Gjj.CommandText := 'select * from V_ZCFZB_GJJ where NY=''' + sNy +
    '''';
  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZcfzbGjjSav(const sNy: WideString; aAry: OleVariant;
  var lResult: Integer);
var
  i: smallint;
begin
  try
    if SP_ZcfzbGjj.Active = true then
      SP_ZcfzbGjj.Close;
    with SP_ZcfzbGjj do
    begin
      Parameters.ParamByName('@NY').Value := sNy;
      for i := 0 to 34 do
        SP_ZcfzbGjj.Parameters[i + 2].Value := double(aAry[i]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_ZcfzbGjj.ExecProc;
    lresult := SP_ZcfzbGjj.Parameters.ParamByName('@nret').Value;
    SP_ZcfzbGjj.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZzsybGjjInf(const sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
  self.cds_Gjj.CommandText := 'select * from V_ZZSYB_GJJ where NY=''' + sNy +
    '''';
  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZzsybGjjSav(const sNy: WideString; aAry: OleVariant;
  var lResult: Integer);
var
  i: smallint;
begin
  try
    if SP_ZzsybGjj.Active = true then
      SP_ZzsybGjj.Close;
    with SP_ZzsybGjj do
    begin
      Parameters.ParamByName('@NY').Value := sNy;
      for i := 0 to 15 do
        SP_ZzsybGjj.Parameters[i + 2].Value := double(aAry[i]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_ZzsybGjj.ExecProc;
    lResult := SP_ZzsybGjj.Parameters.ParamByName('@nret').Value;
    SP_ZzsybGjj.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fJfszbJfInf(const sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
  self.cds_Gjj.CommandText := 'select * from V_JFSZB_JF where NY=''' + sNy +
    '''';
  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fJfszbJfSav(const sNy: WideString; aAry: OleVariant;
  var lResult: Integer);
var
  i: smallint;
begin
  try
    if SP_ZfszbJf.Active = true then
      SP_ZfszbJf.Close;
    with SP_ZfszbJf do
    begin
      Parameters.ParamByName('@NY').Value := sNy;
      for i := 0 to 13 do
        SP_ZfszbJf.Parameters[i + 2].Value := double(aAry[i]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_ZfszbJf.ExecProc;
    lResult := SP_ZfszbJf.Parameters.ParamByName('@nret').Value;
    SP_ZfszbJf.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZcfzbJfInf(const sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
  self.cds_Gjj.CommandText := 'select * from V_ZCFZB_JF where NY=''' + sNy +
    '''';
  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZcfzbJfSav(const sNy: WideString; aAry: OleVariant;
  var lResult: Integer);
var
  i: smallint;
begin
  try
    if SP_ZcfzbJf.Active = true then
      SP_ZcfzbJf.Close;
    with SP_ZcfzbJf do
    begin
      Parameters.ParamByName('@NY').Value := sNy;
      for i := 0 to 31 do
        SP_ZcfzbJf.Parameters[i + 2].Value := double(aAry[i]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_ZcfzbJf.ExecProc;
    lResult := SP_ZcfzbJf.Parameters.ParamByName('@nret').Value;
    SP_ZcfzbJf.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZzsyfpbGjjInf(const sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
//  self.cds_Gjj.CommandText := 'select * from V_ZZSYFPB_GJJ where ND=''' + sNy +
//    '''';
  self.cds_Gjj.CommandText := 'select * from V_ZZSYFPB_GJJ where ND in ('''+sNy+''') order by ND';

  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZzsyfpbGjjSav(const sNy: WideString;
  aAry: OleVariant; var lResult: Integer);
var
  i: smallint;
  nn: string;
begin
  try
    if SP_ZzsyfpbGjj.Active = true then
      SP_ZzsyfpbGjj.Close;
    with SP_ZzsyfpbGjj do
    begin
      Parameters.ParamByName('@ND').Value := sNy;
      for i := 0 to 6 do
        SP_ZzsyfpbGjj.Parameters[i + 2].Value := double(aAry[i]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_ZzsyfpbGjj.ExecProc;
    SP_ZzsyfpbGjj.Close;
    nn := sNy;
    nn := inttostr(strtoint(nn) - 1);
    with SP_ZzsyfpbGjj do
    begin
      Parameters.ParamByName('@ND').Value := nn;
      for i := 0 to 6 do
        SP_ZzsyfpbGjj.Parameters[i + 2].Value := double(aAry[i + 7]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_ZzsyfpbGjj.ExecProc;
    lResult := SP_ZzsyfpbGjj.Parameters.ParamByName('@nret').Value;
    SP_ZzsyfpbGjj.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZhksyebInf(const sNy, sZhmc: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
  self.cds_Gjj.CommandText := 'select distinct * from V_ZHKSYEB where NY=''' +
    sNy
    + ''' and ZHMC=''' + sZhmc + ''' order by KHYH';
  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZhksyebSav(const sNy, sZhmc, sKhyh,
  sYhzh: WideString; aAry: OleVariant; var lResult: Integer);
begin
  try
    if SP_Zhksyeb.Active = true then
      SP_Zhksyeb.Close;
    with SP_Zhksyeb do
    begin
      Parameters.ParamByName('@NY').Value := sNy;
      Parameters.ParamByName('@ZHMC').Value := sZhmc;
      Parameters.ParamByName('@KHYH').Value := sKhyh;
      Parameters.ParamByName('@YHZH').Value := sYhzh;
      Parameters.ParamByName('@QCYE').Value := double(aAry[0]);
      Parameters.ParamByName('@SR').Value := double(aAry[1]);
      Parameters.ParamByName('@ZC').Value := double(aAry[2]);
      Parameters.ParamByName('@QMYE').Value := double(aAry[3]);
      Parameters.ParamByName('@nret').Value := -1;
    end;
    SP_Zhksyeb.ExecProc;
    lResult := SP_Zhksyeb.Parameters.ParamByName('@nret').Value;
    SP_Zhksyeb.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZfgjjtjbInf(const sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
  self.cds_Gjj.CommandText := 'select * from V_ZFGJJTJB where NY=''' + sNy +
    '''';
  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fZfgjjtjbSav(const sNy: WideString; aAry,
  aAry0: OleVariant; var lResult: Integer);
begin
  try
    if SP_Zfgjjtjb.Active = true then
      SP_Zfgjjtjb.Close;
    with SP_Zfgjjtjb do
    begin
      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').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').Value := -1;
    end;
    SP_Zfgjjtjb.ExecProc;
    lResult := SP_Zfgjjtjb.Parameters.ParamByName('@nret').Value;
    SP_Zfgjjtjb.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fXmdkbInf(const sNy: WideString;
  var vData: OleVariant);
begin
  self.cds_Gjj.Active := false;
  self.cds_Gjj.CommandText := 'select * from V_XMDKB where NY=''' + sNy + '''';
  try
    try
      self.cds_Gjj.Active := true;
      vData := self.cds_Gjj.XMLData;
    finally
      self.cds_Gjj.Active := false;
    end;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fXmdkbSav(const sNy, sXh, sDwmc, sXmmc, sLxspjg,
  sDkhth, sFfrq: WideString; lDkqx: Integer; aAry: OleVariant;
  var lResult: Integer);
begin
  try
    if SP_Xmdkb.Active = true then
      SP_Xmdkb.Close;
    with SP_Xmdkb do
    begin
      Parameters.ParamByName('@NY').Value := sNy;
      Parameters.ParamByName('@XH').Value := sXh;