tdmpjgcom.pas

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

unit tdmPJgCom;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, bdemts, DataBkr, DBClient,
  MtsRdm, Mtx, pPJgComServer_TLB, Provider, DB, ADODB, uSystemIni,
  Variants;

type
  TPJgComServer = class(TMtsDataModule, IPJgComServer)
    adoConn: TADOConnection;
    adoDataS: TADODataSet;
    cds: TClientDataSet;
    dsp: TDataSetProvider;
    adoSpLogin: TADOStoredProc;
    adoSpUserSave: TADOStoredProc;
    adoSpUserDel: TADOStoredProc;
    adoQry: TADOQuery;
    ads_Cx: TADODataSet;
    Qry_Cx: TADOQuery;
    SP_Cx: TADOStoredProc;
    cds_Cx: TClientDataSet;
    dsp_Cx: TDataSetProvider;
    adoSpDsSave: TADOStoredProc;
    adoSpDsDel: TADOStoredProc;
    adoYjTSave: TADOStoredProc;
    adoYjlxsave: TADOStoredProc;
    adoWgSet1: TADOStoredProc;
    adoWgSet10: TADOStoredProc;
    adoWgSet2: TADOStoredProc;
    adoWgSet3: TADOStoredProc;
    adoWgSet4: TADOStoredProc;
    adoWgSet6: TADOStoredProc;
    adoWgSet8: TADOStoredProc;
    adoWgSet9: TADOStoredProc;
    adoWgSet11: TADOStoredProc;
    adoCkllSave: TADOStoredProc;
    adoCkllDel: TADOStoredProc;
    adoDkllSave: TADOStoredProc;
    adoDkllDel: TADOStoredProc;
    adoKhyhSave: TADOStoredProc;
    adoKhyhDel: TADOStoredProc;
    adoKhhsSave: TADOStoredProc;
    adoWgSetFz: TADOStoredProc;
    adoYjSave: TADOStoredProc;
    cdsYjInfo: TClientDataSet;
    adoYjK: TADOStoredProc;
    dspYj: TDataSetProvider;
    cdsYj: TClientDataSet;
    spYjJb: TADOStoredProc;
    adoYjOption: TADOStoredProc;
    spSubBank: TADOStoredProc;
    spBankOffice: TADOStoredProc;
    spSumup: TADOStoredProc;
    spAccount: TADOStoredProc;
    spDelSubBank: TADOStoredProc;
    spDelBankOffice: TADOStoredProc;
    spDelSumUp: TADOStoredProc;
    spDelAccount: TADOStoredProc;
    spOpenAccount: TADOStoredProc;
    spDelOpenAccount: TADOStoredProc;
    spSaveKmdz: TADOStoredProc;
    spDelKmdz: TADOStoredProc;
    spBankData: TADOStoredProc;
    spYjFb: TADOStoredProc;
    procedure MtsDataModuleActivate(Sender: TObject);
    procedure MtsDataModuleCreate(Sender: TObject);
    procedure MtsDataModuleDeactivate(Sender: TObject);
  private
    { Private declarations }
    fBankComDataBase: WideString;
    function ConnectDB(const sSrv, sDB: string; const iLx: smallint = 4;
      const sUid: string = 'jtpsoftadmin'; const sPwd: string = 'adminconnect'):
        Smallint;
    function MainCaption: string;
    function fYjInfoSave(const sDsbh,sDate: string; const iYjlx,iYjx: smallint;
      const fYjsj: Double; const sBz,sYjmsg: String): smallint;

  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID:
      string); override;
    function Login(const sUid, sPwd: WideString; out sName, sQx,
      sSsds: WideString; out iSys: Smallint): Smallint; safecall;
    function UserDelete(const sUid: WideString): Smallint; safecall;
    function UserSave(const sUid, sPwd, sName, sQx, sSsds: WideString;
      lSys: WordBool): Smallint; safecall;
    function UserInfo(out vRec: OleVariant): Smallint; safecall;
    function ReadMainMap(out sCaption: WideString;
      out vData: OleVariant): Smallint; safecall;
    function ReadMap(const sDsbh: WideString; out vData: OleVariant): Smallint;
      safecall;
    function WriteMainMap(const sCaption: WideString;
      vData: OleVariant): Smallint; safecall;
    function WriteMap(const sDsbh: WideString; vData: OleVariant): Smallint;
      safecall;
    procedure fZcfzbGjjInf(const sDsbh, sNy: WideString; var vData: OleVariant);
      safecall;
    procedure fZcfzbGjjSav(const sDsbh, sNy: WideString; aAry: OleVariant;
      var lResult: Integer); safecall;
    procedure fZzsybGjjInf(const sDsbh, sNy: WideString;
      var vData: OleVariant); safecall;
    procedure fZzsybGjjSav(const sDsbh, sNy: WideString; aAry: OleVariant;
      var lResult: Integer); safecall;
    procedure fZzsyfpbGjjInf(const sDsbh, sNy: WideString;
      var vData: OleVariant); safecall;
    procedure fZzsyfpbGjjSav(const sDsbh, sNy: WideString; aAry: OleVariant;
      var lResult: Integer); safecall;
    procedure fJfszbJfInf(const sDsbh, sNy: WideString; var vData: OleVariant);
      safecall;
    procedure fJfszbJfSav(const sDsbh, sNy: WideString; aAry: OleVariant;
      var lResult: Integer); safecall;
    procedure fXmdkbInf(const sDsbh, sNy: WideString; var vData: OleVariant);
      safecall;
    procedure fXmdkbSav(const sDsbh, sNy, sXh, sDwmc, sXmmc, sLxspjg, sDkhth,
      sFfrq: WideString; lDkqx: Integer; aAry: OleVariant;
      var lResult: Integer); safecall;
    procedure fZcfzbJfInf(const sDsbh, sNy: WideString; var vData: OleVariant);
      safecall;
    procedure fZcfzbJfSav(const sDsbh, sNy: WideString; aAry: OleVariant;
      var lResult: Integer); safecall;
    procedure fZfgjjtjbInf(const sDsbh, sNy: WideString;
      var vData: OleVariant); safecall;
    procedure fZfgjjtjbSav(const sDsbh, sNy: WideString; aAry,
      aAry0: OleVariant; var lResult: Integer); safecall;
    procedure fZhksyebInf(const sDsbh, sNy, sZhmc: WideString;
      var vData: OleVariant); safecall;
    procedure fZhksyebSav(const sDsbh, sNy, sZhmc, sKhyh, sYhzh: WideString;
      aAry: OleVariant; var lResult: Integer); safecall;
    function DsbhDelete(const sDsbh: WideString): Smallint; safecall;
    function DsbhSave(const sDsbh, sDsmc, sDsIP: WideString; iDsPort: Word;
      const sDsVIP: WideString; iDsVPort, iDsLeft, iDsTop, iDsPWidth,
      iDsPHeight: Word; const sDsPbh: WideString; lHaveXs,
      lDataInUpDpt: WordBool; const sDsDB: WideString; iDsJb,
      iConnXh: Smallint): Smallint; safecall;
    function DsYjTimeSave(const sDsbh: WideString;
      dYjtime: TDateTime): Smallint; safecall;
    function DsInfo(out vRec: OleVariant): Smallint; safecall;
    function YjlxInfo(const sDsbh: WideString; out vRec: OleVariant): Smallint;
      safecall;
    function YjlxSave(const sDsbh: WideString; iBh: Smallint;
      const sMc: WideString; lBz: WordBool): Smallint; safecall;

    function YjSet1(const sDsbh: WideString; fRecMax: Double;
      lRecUse: WordBool; fDayMax: Double; lDayUse: WordBool; fMonMax: Double;
      lMonUse: WordBool; const sDwdkKm: WideString; lDwdkUse: WordBool;
      const sXmdkKm: WideString; lXmdkUse: WordBool): Smallint; safecall;
    function YjSet2(const sDsbh: WideString; iGdMax, iGdMin: Integer;
      lGdUse: WordBool; iGdQxMax, iGdQxMin: Smallint; lGdQxUse: WordBool;
      iJkcs: Smallint; lJkcsuse: WordBool; iYqqxMax, iYqqxJsr: Smallint;
      lYqqxUse: WordBool): Smallint; safecall;
    function YjSet3(const sDsbh: WideString; iFfcsMax, iFfcsTime: Smallint;
      lFfcsUse: WordBool): Smallint; safecall;
    function YjSet4(const sDsbh: WideString; iGzjjMax: Integer;
      lGzjjUse: WordBool; iGdjjMax: Integer; lGdjjUse: WordBool;
      iTqMax: Integer; lTqUse: WordBool): Smallint; safecall;
    function YjSet6(const sDsbh: WideString; fLzzjBl: Double;
      const sLzzjKm: WideString; lLzzjUse: WordBool; fFxzbBl: Double;
      const sFxzbKm: WideString; lFxzbUse: WordBool; fZxjfBl: Double;
      const sZxjfKm: WideString; lZxjfUse: WordBool): Smallint; safecall;
    function YjSet8(const sDsbh, sZzglfKm: WideString;
      lZzglfUse: WordBool): Smallint; safecall;
    function YjSet10(const sDsbh: WideString; fZxyskFse, fZxyskYe: Double;
      const sZxyskKm: WideString; lZxyskUse: WordBool; fZxyfkFse,
      fZxyfkYe: Double; const sZxyfkKm: WideString; lZxyfkUse: WordBool;
      fQtyskFse, fQtyskYe: Double; const sQtyskKm: WideString;
      lQtyskUse: WordBool; fQtyfkFse, fQtyfkYe: Double;
      const sQtyfkKm: WideString; lQtyfkUse: WordBool): Smallint; safecall;
    function YjSet9(const sDsbh: WideString; fGjsxfBl: Double;
      const sGjsxfKm: WideString; lGjsxfUse: WordBool; fDksxfBl: Double;
      const sDksxfKm: WideString; lDksxfUse: WordBool): Smallint; safecall;
    function YjSet11(const sDsbh: WideString; fRecMaxJ, fRecMaxD: Double;
      lRecUse: WordBool; fDayMaxJ, fDayMaxD: Double; lDayUse: WordBool;
      fMonMaxJ, fMonMaxD: Double; lMonUse: WordBool): Smallint; safecall;
    function YjSetInfo(const sDsbh: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function CkllInfo(out vRec: OleVariant): Smallint; safecall;
    function CkllSave(const sZxrq: WideString; fHqll, fDqll: Double): Smallint;
      safecall;
    function DkllInfo(out vRec: OleVariant): Smallint; safecall;
    function DkllSave(iDkqx: Smallint; fDknll, fFxtll: Double): Smallint;
      safecall;
    function KhyhhsInfo: Smallint; safecall;
    function KhyhhsSave(iHs: Smallint): Smallint; safecall;
    function KhyhInfo(out vRec: OleVariant): Smallint; safecall;
    function KhyhSave(const sBh, sMc: WideString): Smallint; safecall;
    function CkllDelete: Smallint; safecall;
    function DkllDelete: Smallint; safecall;
    function KhyhDelete: Smallint; safecall;
    procedure fLogSav(const sDate, sContent, sType: WideString;
      var lRet: Integer); safecall;
    procedure fLogInfo(var vData: OleVariant); safecall;
    procedure fLogDel(var lResult: Integer); safecall;
    function YjSetDsInfo(out vRec: OleVariant): Smallint; safecall;
    function YjSetFz(const sSDsbh, sTDsbh: WideString): Smallint; safecall;
    procedure fBbSav(const sDsbh, sBbbh: WideString; var vData: OleVariant;
      var lResult: Integer); safecall;
    procedure fBbWj(const sDsbh, sBbbh: WideString; var vData: OleVariant;
      var lResult: Integer); safecall;
    function YjInfoSave(const sDsbh: WideString; vRec: OleVariant): Smallint;
      safecall;
    procedure fBbCx(const sCmd: WideString; var vData: OleVariant); safecall;
    function YjK(const sDsBm, sDate1, sDate2: WideString; fRecMaxJ,
      fRecMaxD: Double; lRecUse: WordBool; fDayMaxJ, fDayMaxD: Double;
      lDayUse: WordBool; fMonMaxJ, fMonMaxD: Double; lMonUse: WordBool;
      const sCdb: WideString; out vRec: OleVariant): Smallint; safecall;
    function ModifyProviceLevel(const sCityNum: WideString; nType,
      nTypeItem: Smallint; nNumber: Integer;
      nPromptLevel: Smallint): Smallint; safecall;
    function ProviceResult(const sCityNum: WideString; nPromptLevel, nType,
      nTypeItem: Smallint; const sYearMonth: WideString; nSort: Smallint;
      out vRec: OleVariant): Smallint; safecall;
    function BankAccountInfo(out vRec: OleVariant): Smallint; safecall;
    function SubBankInfo(const sCityNum, sBankNum: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function BankOfficeInfo(const sCityNum, sBankNum, sSubBankNum: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function SumUpInfo(const sCityNum: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function BankSearch0(const sCityNum, sYearMonth: WideString): Double;
      safecall;
    function BankSearch1(const sCityNum, sBankNum,
      sYearMonth: WideString): Double; safecall;
    function BankSearch10(const sBankNum, sYearMonth: WideString): Double;
      safecall;
    function BankSearch3(const sCityNum, sAccount,
      sYearMonth: WideString): Double; safecall;
    function BankSearch5(const sCityNum, sSumUp,
      sYearMonth: WideString): Double; safecall;
    function BankSearch8(const sCityNum, sBankNum, sSubBankNum,
      sYearMonth: WideString): Double; safecall;
    function BankSearch9(const sCityNum, sBankNum, sBankOffice,
      sYearMonth: WideString): Double; safecall;
    function Get_BankComDataBase: WideString; safecall;
    procedure Set_BankComDataBase(const Value: WideString); safecall;
    function SearchBankDetail(const sTxDB: WideString; nIndex: Smallint;
      const sParam1, sParam2, sParam3, sParam4: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function TimingOption(out vRec: OleVariant): Smallint; safecall;
    function TimingOptionSave(bPrompt: WordBool; nPrompt: Smallint;
      bTiming: WordBool; nTimingForm: Smallint;
      dtRunTime: TDateTime): Smallint; safecall;
    function StatProviceResult(out vRec: OleVariant): Smallint; safecall;
    function BankDptInfo(nLabel: Smallint; out vRec: OleVariant): Smallint;
      safecall;
    function StatBankroolFlow(const sCityNum, sDpt: WideString; dBDate,
      dEDate: TDateTime; out dDebit, dCredit: Double): Smallint; safecall;
    function BankroolFlowDetail(const sCity, sDpt: WideString; dtBDate,
      dtEDate: TDateTime; out vRec: OleVariant): Smallint; safecall;
    function SaveBankOffice(const sCityNum, sBankNum, sSubBankNum,
      sBankOfficeNum, sBankOffice: WideString): Smallint; safecall;
    function SaveSubBank(const sCityNum, sBankNum, sSubBankNum,
      sSubBank: WideString): Smallint; safecall;
    function DelBankAccount(const sAccount: WideString): Smallint; safecall;
    function DelBankOffice(const sCity, sBank, sSubBank,
      sBankOffice: WideString): Smallint; safecall;
    function DelSubBank(const sCity, sBank, sSubBank: WideString): Smallint;
      safecall;
    function DelSumUp(const sCity, sSumUp: WideString): Smallint; safecall;
    function SaveBankAccount(const sAccountNum,
      sAccount: WideString): Smallint; safecall;
    function SaveSumUp(const sCity, sSumUpNum, sSumUp: WideString): Smallint;
      safecall;
    function DelOpenAccount(const sCity, sBank, sSubBank, sBankOffice,
      sAccount, sSumUp, sOpenAccount: WideString): Smallint; safecall;
    function OpenAccountInfo(const sCity, sBank, sSubBank, sBankOffice,
      sAccount, sSumUp: WideString; out vRec: OleVariant): Smallint;
      safecall;
    function SaveOpenAccount(const sCity, sBank, sSubBank, sBankOffice,
      sAccount, sSumUp, sOpenAccount: WideString; dBalance: Double;
      dtDate: TDateTime): Smallint; safecall;
    function DelYwdw(const sDwmc, sDwzh: WideString): Smallint; safecall;
    function SaveYwdw(const sDwmc, sDwzh: WideString;
      nGzcd: Smallint): Smallint; safecall;
    function OpenYwdw(const sDwmc, sDwzh: WideString; nGzcd: Smallint;
      out vRec: OleVariant): Smallint; safecall;
    function SearchSurveillance(out vRec: OleVariant): Smallint; safecall;
    function CalcFinanceGuideLine(const sCity, sMonth: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function OpenTxjgsjk(out vRec: OleVariant): Smallint; safecall;
    function CommonQuery(const sSql: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function SearchSubjectCollate(const sCity, sBank: WideString;
      out vRec: OleVariant): Smallint; safecall;
    function DelSubjectCollate(const sCity, sBank, sSubject,
      sAccount: WideString): Smallint; safecall;
    function SaveSubjectCollate(const sCity, sBank, sSubject, sAccount,
      sSummary: WideString): Smallint; safecall;
    procedure fBbmlDel(const sBbbh: WideString; var lResult: Integer);
      safecall;
    procedure fBbmlInf(var vData: OleVariant); safecall;
    procedure fBbmlSav(const sBbbh, sBbdm, sBbmc: WideString;
      var lResult: Integer); safecall;
    procedure fBbgsSav(const sDsbh, sBbbh, sGs: WideString; lRow, lCol,
      lGslx: Integer; var lResult: Integer); safecall;
    procedure fBbgsDel(const sDsbh, sBbbh: WideString; lGslx: Integer;
      var lResult: Integer); safecall;
    procedure fBbgsInf(const sDsbh, sBbbh: WideString; lGslx: Integer;
      var vData: OleVariant); safecall;
    procedure fBbgsInf1(const sDsbh, sBbbh: WideString; var vData: OleVariant);
      safecall;
    function SearchNationalDebt(const sCity, sVariety, sQd, sDate, sMoney,
      sCount: WideString; nSumTj: Smallint;
      out vRec: OleVariant): Smallint; safecall;
    function SearchNationalDebtVariety(out vRec: OleVariant): Smallint;
      safecall;
    function SearchNationalDebtDetailed(const sCity, sVariety, sQd, sDate,
      sGzPzh: WideString; out vRec: OleVariant): Smallint; safecall;
    function SearchNationalDebtInfo(const sCity, sVariety, sQd: WideString;
      out vRec: OleVariant): Smallint; safecall;
    procedure IpToDsbh(const sDsIp: WideString; var sDsbh: WideString); safecall;
    function BankComDataSave(const sBankNum, sCityNum, sAccountNum,
      sSubjectNum: WideString; dtDate: TDateTime;
      const sSummary: WideString; dDebit, dCredit, dBegin, dEnd: Double;
      const sFlowBank, sFlowAccount, sFlowDpt: WideString;
      bUpdate: WordBool; out sOnlyValue: WideString): Smallint; safecall;
    function SearchNationDebtQD(out vRec: OleVariant): Smallint; safecall;
    function ModifyPublishLevel(const sCity: WideString; nType, nTypeItem,
      nNumber, nLevel: Integer): Smallint; safecall;


  public
    { Public declarations }
  end;

var
  PJgComServer: TPJgComServer;

implementation

{$R *.DFM}
uses uUserFunc;

class procedure TPJgComServer.UpdateRegistry(Register: Boolean; const ClassID,
  ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end
  else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

function TPJgComServer.Login(const sUid, sPwd: WideString; out sName, sQx,
  sSsds: WideString; out iSys: Smallint): Smallint;
var
  iRet: Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      adoSpLogin.Close;
      with adoSpLogin.Parameters do
      begin
        ParamByName('@cuser').Value := sUid;
        ParamByName('@cpassword').Value := sPwd;
      end;
      adoSpLogin.ExecProc;
      with adoSpLogin.Parameters do
      begin
        iRet := ParamByName('@iret').Value;
        if iRet = 0 then
        begin
          sName := ParamByName('@cname').Value;
          sQx := ParamByName('@cywqx').Value;
          sSsds := ParamByName('@ssds').Value;
          iSys := IIF(ParamByName('@lsys').Value, 1, 0);
          //          True; //ParamByName('@lsys').Value;
        end;
        Result := iRet;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.ConnectDB(const sSrv, sDB: string;
  const iLx: smallint; const sUid, sPwd: string): Smallint;
begin
  Result := -1;
  adoConn.Close;
  case iLx of
    2: //MicroSoft Sql Server
      begin