udm_jglr.pas

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

      Parameters.ParamByName('@m_zf07').Direction := pdOutput;
      Parameters.ParamByName('@m_zf08').Direction := pdOutput;
      Parameters.ParamByName('@m_zf09').Direction := pdOutput;
      Parameters.ParamByName('@m_zf10').Direction := pdOutput;
      Parameters.ParamByName('@m_zf11').Direction := pdOutput;
      Parameters.ParamByName('@m_zf12').Direction := pdOutput;
      Parameters.ParamByName('@m_zf01').DataType := ftFloat;
      Parameters.ParamByName('@m_zf02').DataType := ftFloat;
      Parameters.ParamByName('@m_zf03').DataType := ftFloat;
      Parameters.ParamByName('@m_zf04').DataType := ftFloat;
      Parameters.ParamByName('@m_zf05').DataType := ftFloat;
      Parameters.ParamByName('@m_zf06').DataType := ftFloat;
      Parameters.ParamByName('@m_zf07').DataType := ftFloat;
      Parameters.ParamByName('@m_zf08').DataType := ftFloat;
      Parameters.ParamByName('@m_zf09').DataType := ftFloat;
      Parameters.ParamByName('@m_zf10').DataType := ftFloat;
      Parameters.ParamByName('@m_zf11').DataType := ftFloat;
      Parameters.ParamByName('@m_zf12').DataType := ftFloat;
      Parameters.ParamByName('@m_date1').Value := strtodate(sDate1);
      Parameters.ParamByName('@m_date2').Value := strtodate(sDate2);
    end;
    SP_User.ExecProc;
    aAry[6] := double(SP_User.Parameters.ParamByName('@m_zf01').Value);
    aAry[7] := double(SP_User.Parameters.ParamByName('@m_zf02').Value);
    aAry[8] := double(SP_User.Parameters.ParamByName('@m_zf05').Value);
    aAry[9] := double(SP_User.Parameters.ParamByName('@m_zf06').Value);
    aAry[10] := double(SP_User.Parameters.ParamByName('@m_zf07').Value);
    aAry[11] := double(SP_User.Parameters.ParamByName('@m_zf08').Value);
    aAry[12] := double(SP_User.Parameters.ParamByName('@m_zf09').Value);
    aAry[13] := double(SP_User.Parameters.ParamByName('@m_zf10').Value);
    aAry[14] := double(SP_User.Parameters.ParamByName('@m_zf11').Value);
    aAry[15] := double(SP_User.Parameters.ParamByName('@m_zf12').Value);
    aAry[16] := double(SP_User.Parameters.ParamByName('@m_zf03').Value);
    aAry[17] := double(SP_User.Parameters.ParamByName('@m_zf04').Value);
    SP_User.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fGetYhxx(const sKmdm: WideString; var sKhyh,
  sYhzh: WideString);
begin
  try
    if SP_User.Active = true then
      SP_User.Close;
    SP_User.ProcedureName := 'p_getyhxx';
    SP_User.Parameters.Refresh;
    SP_User.Parameters.ParamByName('@kmbm').Value := sKmdm;
    SP_User.Parameters.ParamByName('@khyh').Direction := pdOutput;
    SP_User.Parameters.ParamByName('@yhzh').Direction := pdOutput;
    SP_User.ExecProc;
    sKhyh := SP_User.Parameters.ParamByName('@khyh').Value;
    sYhzh := SP_User.Parameters.ParamByName('@yhzh').Value;
    SP_User.Close;
    SetComplete;
  except
    on Exception do
      SetAbort;
  end;
end;

procedure TJGLRServer.fCwcalc(const sKm, sRq, sJzny: WideString;
  lFunc: Integer; lPz: Smallint; var dResult: Double);
begin
  if (trim(sJzny) = '') then
    self.F_CWConnect(DatabaseType(INICWBB), ConnectServer(INICWBB), 'cw0001')
  else
    self.F_CWConnect(DatabaseType(INICWBB), ConnectServer(INICWBB), 'cw' +
      sJzny);
  with SP_Calc.Parameters do
  begin
    ParamByName('@ckm').Value := sKm;
    ParamByName('@crq').Value := sRq;
    ParamByName('@cjzny').Value := sJzny;
    ParamByName('@nfunc').Value := lfunc;
    if lPz = 1 then
      ParamByName('@lpz').Value := true
    else
      ParamByName('@lpz').Value := false;
    ParamByName('@ncalcresult').Value := 0;
    ParamByName('@rets').Value := -1;
  end;
  Sp_Calc.ExecProc;
  if (SP_Calc.Parameters.parambyname('@rets').Value = 0) then
    dResult := SP_Calc.Parameters.parambyname('@ncalcresult').Value
  else
    dResult := -1;
  SP_Calc.Close;
  self.F_CWConnect(DatabaseType(INICWBB), ConnectServer(INICWBB),
    ConnectDatabase(INICWBB));  
end;

procedure TJGLRServer.fDataChk(var sResult: OleVariant);
var
  i: smallint;
begin
  try
    for i := 0 to 9 do
      sResult[i] := '';
    if SP_User.Active = true then
      SP_User.Close;
    SP_User.ProcedureName := 'p_dddata_chk';
    SP_User.Parameters.Refresh;
    SP_User.Open;
    i := SP_User.RecordCount;
    if i <> 0 then
    begin
      SP_User.First;
      i := 0;
      while not SP_User.Eof do
      begin
        sResult[i] := SP_User.Fields[0].AsString;
        i := i + 1;
        SP_User.Next;
      end;
    end
    else
      sResult := '数据校验成功！';
    SP_User.Close;
    SetComplete;
  except
    on Exception do
    begin
      sResult := 'Check failed!';
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjA(const sDate1, sDate2: WideString;
  fRecMax: Double; lRecUse: WordBool; fDayMax: Double; lDayUse: WordBool;
  fMonMax: Double; lMonUse: WordBool; const sDwdkKm: WideString;
  lDwdkUse: WordBool; const sXmdkKm: WideString; lXmdkUse: WordBool;
  out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYja;
      with spYja do
      begin
        Close;
        Parameters.ParamByName('@date1').Value := sDate1;
        Parameters.ParamByName('@date2').Value := sDate2;
        Parameters.ParamByName('@rec_max').Value := fRecMax;
        Parameters.ParamByName('@rec_use').Value := lRecUse;
        Parameters.ParamByName('@day_max').Value := fdayMax;
        Parameters.ParamByName('@day_use').Value := ldayUse;
        Parameters.ParamByName('@mon_max').Value := fmonMax;
        Parameters.ParamByName('@mon_use').Value := lmonUse;
        Parameters.ParamByName('@dwdkkm').Value := sDwdkkm;
        Parameters.ParamByName('@dw_use').Value := lDwdkUse;
        Parameters.ParamByName('@xmdkkm').Value := sXmdkkm;
        Parameters.ParamByName('@xm_use').Value := lXmdkUse;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjB(const sDate: WideString; iGdMax,
  iGdMin: Integer; lGdUse: WordBool; iGdqxMax, iGdqxMin: Smallint;
  lGdqxUse: WordBool; iJkcs: Smallint; lJkcsUse: WordBool; iYqqxMax,
  iYqqxJsr: Smallint; lYqqxUse: WordBool; out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYjb;
      with spYjb do
      begin
        Close;
        Parameters.ParamByName('@date1').Value := sDate;
        Parameters.ParamByName('@gd_max').Value := iGdMax;
        Parameters.ParamByName('@gd_min').Value := iGdMin;
        Parameters.ParamByName('@gd_use').Value := lGdUse;
        Parameters.ParamByName('@gdqx_max').Value := iGdQxMax;
        Parameters.ParamByName('@gdqx_min').Value := iGdQxMin;
        Parameters.ParamByName('@gdqx_use').Value := lGdQxUse;
        Parameters.ParamByName('@jkcs').Value := iJkcs;
        Parameters.ParamByName('@jkcs_use').Value := lJkcsuse;
        Parameters.ParamByName('@yqqx_max').Value := iYqqxMax;
        Parameters.ParamByName('@yqqx_jsr').Value := iYqqxJsr;
        Parameters.ParamByName('@yqqx_use').Value := lYqqxUse;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjC(iFfcsMax, iFfcsTime: Smallint;
  lFfcsuse: WordBool; out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYjc;
      with spYjc do
      begin
        Close;
        Parameters.ParamByName('@ffcs_max').Value := iFfcsMax;
        Parameters.ParamByName('@ffcs_time').Value := iFfcsTime;
        Parameters.ParamByName('@ffcs_use').Value := lFfcsUse;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjD(const sDate1, sDate2: WideString;
  iGzjjMax: Integer; lGzjjUse: WordBool; iGdjjMax: Integer;
  lGdjjUse: WordBool; iTqMax: Integer; lTqUse: WordBool;
  out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYjd;
      with spYjd do
      begin
        Close;
        Parameters.ParamByName('@date1').Value := sDate1;
        Parameters.ParamByName('@date2').Value := sDate2;
        Parameters.ParamByName('@gzjj_max').Value := iGzjjMax;
        Parameters.ParamByName('@gzjj_use').Value := lGzjjUse;
        Parameters.ParamByName('@gdjj_max').Value := iGdjjMax;
        Parameters.ParamByName('@gdjj_use').Value := lGdjjUse;
        Parameters.ParamByName('@tq_max').Value := iTqMax;
        Parameters.ParamByName('@tq_use').Value := lTqUse;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjE(iKhs: Smallint; const sBm, sMc: WideString;
  out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYje;
      with spYje do
      begin
        Close;
        Parameters.ParamByName('@khs').Value := iKhs;
        Parameters.ParamByName('@bm').Value := sBm;
        Parameters.ParamByName('@mc').Value := sMc;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjF(const sDate: WideString; fLzzjBl: Double;
  const sLzzjKm: WideString; lLzzjUse: WordBool; fFxzbBl: Double;
  const sFxzbKm: WideString; lFxzbUse: WordBool; fZxjfBl: Double;
  const sZxjfKm: WideString; lZxjfUse: WordBool; out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYjf;
      with spYjf do
      begin
        Close;
        Parameters.ParamByName('@date1').Value := sDate;
        Parameters.ParamByName('@lzzj_bl').Value := fLzzjBl;
        Parameters.ParamByName('@lzzj_km').Value := sLzzjKm;
        Parameters.ParamByName('@lzzj_use').Value := lLzzjUse;
        Parameters.ParamByName('@fxzb_bl').Value := fFxzbBl;
        Parameters.ParamByName('@fxzb_km').Value := sFxzbKm;
        Parameters.ParamByName('@fxzb_use').Value := lFxzbUse;
        Parameters.ParamByName('@zxjf_bl').Value := fZxjfBl;
        Parameters.ParamByName('@zxjf_km').Value := sZxjfKm;
        Parameters.ParamByName('@zxjf_use').Value := lZxjfUse;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjG(const aZxrq, aHqll, aDqll, aDkqx, aDkll,
  aFxll: WideString; out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYjg;
      with spYjg do
      begin
        Close;
        Parameters.ParamByName('@zxrq').Value := aZxrq;
        Parameters.ParamByName('@hqll').Value := aHqll;
        Parameters.ParamByName('@dqll').Value := aDqll;
        Parameters.ParamByName('@dkqx').Value := aDkqx;
        Parameters.ParamByName('@dkll').Value := aDkll;
        Parameters.ParamByName('@fxll').Value := aFxll;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjH(const sDate, sZzglfKm: WideString;
  lZzglfUse: WordBool; out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYjh;
      with spYjh do
      begin
        Close;
        Parameters.ParamByName('@date').Value := sDate;
        Parameters.ParamByName('@zzglf_km').Value := sZzGlfKm;
        Parameters.ParamByName('@zzglf_use').Value := lZzglfUse;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJGLRServer.fYjI(const sDate: WideString; fGjsxfBl: Double;
  const sGjsxfKm: WideString; lGjsxfUse: WordBool; fDksxfBl: Double;
  const sDksxfKm: WideString; lDksxfUse: WordBool; out vRec: OleVariant);
begin
  if Conn_User.Connected then
  begin
    try
      dspYj.DataSet := spYji;
      with spYji do
      begin
        Close;
        Parameters.ParamByName('@date').Value := sDate;
        Parameters.ParamByName('@gjsxf_bl').Value := fGjsxfBl;
        Parameters.ParamByName('@gjsxf_km').Value := sGjsxfKm;
        Parameters.ParamByName('@gjsxf_use').Value := lGjsxfUse;
        Parameters.ParamByName('@dksxf_bl').Value := fDksxfBl;
        Parameters.ParamByName('@dksxf_km').Value := sDksxfKm;
        Parameters.ParamByName('@dksxf_use').Value := lDksxfUse;
        ExecProc;
      end;
      cdsYj.Active := True;
      vRec := cdsYj.XMLData;
      cdsYj.Active := False;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TJG