📄 tdmpjgcom.pas

📁 公积金监管系统服务端Com中间件,是新疆公积金监管系统的客户端软件
💻 PAS
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
    try
      with adoWgSet10 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        Parameters.ParamByName('@zxysk_fse').Value := fZxyskFse;
        Parameters.ParamByName('@zxysk_ye').Value := fZxyskYe;
        Parameters.ParamByName('@zxysk_km').Value := sZxyskKm;
        Parameters.ParamByName('@zxysk_use').Value := lZxyskUse;
        Parameters.ParamByName('@zxyfk_fse').Value := fZxyfkFse;
        Parameters.ParamByName('@zxyfk_ye').Value := fZxyfkYe;
        Parameters.ParamByName('@zxyfk_km').Value := sZxyfkKm;
        Parameters.ParamByName('@zxyfk_use').Value := lZxyfkUse;
        Parameters.ParamByName('@qtysk_fse').Value := fQtyskFse;
        Parameters.ParamByName('@qtysk_ye').Value := fQtyskYe;
        Parameters.ParamByName('@qtysk_km').Value := sQtyskKm;
        Parameters.ParamByName('@qtysk_use').Value := lQtyskUse;
        Parameters.ParamByName('@qtyfk_fse').Value := fQtyfkFse;
        Parameters.ParamByName('@qtyfk_ye').Value := fQtyfkYe;
        Parameters.ParamByName('@qtyfk_km').Value := sQtyfkKm;
        Parameters.ParamByName('@qtyfk_use').Value := lQtyfkUse;
        ExecProc;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.YjSet9(const sDsbh: WideString; fGjsxfBl: Double;
  const sGjsxfKm: WideString; lGjsxfUse: WordBool; fDksxfBl: Double;
  const sDksxfKm: WideString; lDksxfUse: WordBool): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet9 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        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;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;

end;

function TPJgComServer.YjSet11(const sDsbh: WideString; fRecMaxJ,
  fRecMaxD: Double; lRecUse: WordBool; fDayMaxJ, fDayMaxD: Double;
  lDayUse: WordBool; fMonMaxJ, fMonMaxD: Double;
  lMonUse: WordBool): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet11 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        Parameters.ParamByName('@rec_maxj').Value := fRecMaxJ;
        Parameters.ParamByName('@rec_maxd').Value := fRecMaxD;
        Parameters.ParamByName('@rec_use').Value := lRecUse;
        Parameters.ParamByName('@day_maxj').Value := fDayMaxJ;
        Parameters.ParamByName('@day_maxd').Value := fDayMaxD;
        Parameters.ParamByName('@day_use').Value := lDayUse;
        Parameters.ParamByName('@mon_maxj').Value := fMonMaxJ;
        Parameters.ParamByName('@mon_maxd').Value := fMonMaxD;
        Parameters.ParamByName('@mon_use').Value := lMonUse;
        ExecProc;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.YjSetInfo(const sDsbh: WideString;
  out vRec: OleVariant): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    cds.Active := False;
    cds.CommandText := 'select * from bm_wgset1 where dsbh=''' + sDsbh + '''';
    try
      try
        cds.Active := True;
        vRec := cds.XMLData;
        Result := 0;
      finally
        cds.Active := False;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.CkllInfo(out vRec: OleVariant): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    cds.Active := False;
    cds.CommandText := 'select * from bm_ck_ll order by llzxrq';
    try
      try
        cds.Active := True;
        vRec := cds.XMLData;
        Result := 0;
      finally
        cds.Active := False;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.CkllSave(const sZxrq: WideString; fHqll,
  fDqll: Double): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoCkllSave do
      begin
        Close;
        Parameters.ParamByName('@zxrq').Value := sZxrq;
        Parameters.ParamByName('@hqll').Value := fHqll;
        Parameters.ParamByName('@dqll').Value := fDqll;
        ExecProc;
        Result := Parameters.ParamByName('@iret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.DkllInfo(out vRec: OleVariant): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    cds.Active := False;
    cds.CommandText := 'select * from bm_dk_ll order by dkqx';
    try
      try
        cds.Active := True;
        vRec := cds.XMLData;
        Result := 0;
      finally
        cds.Active := False;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.DkllSave(iDkqx: Smallint; fDknll,
  fFxtll: Double): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoDkllSave do
      begin
        Close;
        Parameters.ParamByName('@dkqx').Value := iDkqx;
        Parameters.ParamByName('@dkll').Value := fDknll;
        Parameters.ParamByName('@fxll').Value := fFxtll;
        ExecProc;
        Result := Parameters.ParamByName('@iret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.KhyhhsInfo: Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    cds.Active := False;
    cds.CommandText := 'select gjjkhyhs from bm_wgset0';
    try
      try
        cds.Active := True;
        Result := cds.FieldByName('gjjkhyhs').AsInteger;
      finally
        cds.Active := False;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.KhyhhsSave(iHs: Smallint): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoKhhsSave do
      begin
        Close;
        Parameters.ParamByName('@hs').Value := iHs;
        ExecProc;
        Result := Parameters.ParamByName('@iret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.KhyhInfo(out vRec: OleVariant): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    cds.Active := False;
    cds.CommandText := 'select * from bm_khyh';
    try
      try
        cds.Active := True;
        vRec := cds.XMLData;
        Result := 0;
      finally
        cds.Active := False;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.KhyhSave(const sBh, sMc: WideString): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoKhyhSave do
      begin
        Close;
        Parameters.ParamByName('@bh').Value := sBh;
        Parameters.ParamByName('@mc').Value := sMc;
        ExecProc;
        Result := Parameters.ParamByName('@iret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.CkllDelete: Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoCkllDel do
      begin
        ExecProc;
        Result := Parameters.ParamByName('@iret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.DkllDelete: Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoDkllDel do
      begin
        ExecProc;
        Result := Parameters.ParamByName('@iret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.KhyhDelete: Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoKhyhDel do
      begin
        ExecProc;
        Result := Parameters.ParamByName('@iret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

procedure TPJgComServer.fLogSav(const sDate, sContent, sType: WideString;
  var lRet: Integer);
begin
  if SP_Cx.Active = true then
    SP_Cx.Close;
  SP_Cx.ProcedureName := 'p_log_save';
  SP_Cx.Parameters.Refresh;
  with SP_Cx do
  begin
    Parameters.ParamByName('@logdate').Value := sDate;
    Parameters.ParamByName('@logcontent').Value := sContent;
    Parameters.ParamByName('@logtype').Value := sType;
    //Parameters.ParamByName('@nret').Value := -1;
  end;
  SP_Cx.ExecProc;
  lRet := SP_Cx.Parameters.ParamByName('@ret').Value;
  SP_Cx.Close;
end;

procedure TPJgComServer.fLogInfo(var vData: OleVariant);
begin
  self.cds_Cx.Active := false;
  self.cds_Cx.CommandText := 'select * from bblog';
  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.fLogDel(var lResult: Integer);
begin
  self.cds_Cx.Active := false;
  self.cds_Cx.CommandText := 'delete from bblog';
  try
    try
      self.cds_Cx.Active := true;
      lResult:= 0;
    finally
      self.cds_Cx.Active := false;
    end;
    SetComplete;
  except
    on Exception do
    begin
上一页 1 2 3 45
💿 文件大小 79 K
👤 上传用户 yhw002
📂 所属分类金融证券系统
🏷️ 相关标签

#Com #监管系统 #服务端 #软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -