tdmpjgcom.pas

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

  except
    on Exception do
      SetAbort;
  end;
end;

procedure TPJgComServer.fZhksyebSav(const sDsbh, sNy, sZhmc, sKhyh,
  sYhzh: WideString; aAry: OleVariant; var lResult: Integer);
begin
  try
    if SP_Cx.Active = true then
      SP_Cx.Close;
    SP_Cx.ProcedureName := 'p_ZHKSYEB_save';
    SP_Cx.Parameters.Refresh;
    with SP_Cx do
    begin
      Parameters.ParamByName('@dsbh').Value := sDsbh;
      Parameters.ParamByName('@NY').Value := sNy;
      Parameters.ParamByName('@ZHMC').Value := sZhmc;
      Parameters.ParamByName('@KHYH').Value := sKhyh;
      Parameters.ParamByName('@YHZH').Value := sYhzh;

      Parameters.ParamByName('@QCYE').DataType := ftFloat;
      Parameters.ParamByName('@SR').DataType := ftFloat;
      Parameters.ParamByName('@ZC').DataType := ftFloat;
      Parameters.ParamByName('@QMYE').DataType := ftFloat;

      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').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.MtsDataModuleCreate(Sender: TObject);
var
  sSrv, sDB: string;
  iLx: Smallint;
begin
  ReadDBMSInfo(_JGSYSTEM, sSrv, sDB, iLx);
  ConnectDB(sSrv, sDB, iLx, _DBUSER, _DBPASSWORD);
end;

procedure TPJgComServer.MtsDataModuleDeactivate(Sender: TObject);
begin
  adoConn.Close;
end;

function TPJgComServer.MainCaption: string;
var
  DataS: TAdoDataSet;
begin
  DataS := TAdoDataSet.Create(nil);
  DataS.Connection := adoConn;
  DataS.CommandType := cmdText;
  DataS.CommandText := 'select caption from bm_map';
  DataS.Open;
  Result := DataS.FieldByName('caption').AsString;
  DataS.Close;
end;

function TPJgComServer.DsbhDelete(const sDsbh: WideString): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      adoSpDsDel.Close;
      adoSpDsDel.Parameters.ParamByName('@dsbh').Value := sDsbh;
      adoSpDsDel.ExecProc;
      Result := adoSpDsDel.Parameters.ParamByName('@iret').Value;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.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;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      adoSpDsSave.Close;
      adoSpDsSave.Parameters.ParamByName('@dsbh').Value := sDsbh;
      adoSpDsSave.Parameters.ParamByName('@dsmc').Value := sDsmc;
      adoSpDsSave.Parameters.ParamByName('@dswsip').Value := sDsIP;
      adoSpDsSave.Parameters.ParamByName('@dswsport').Value := iDsPort;
      adoSpDsSave.Parameters.ParamByName('@dswsvip').Value := sDsVIP;
      adoSpDsSave.Parameters.ParamByName('@dswsvport').Value := iDsVPort;
      adoSpDsSave.Parameters.ParamByName('@dsleft').Value := iDsLeft;
      adoSpDsSave.Parameters.ParamByName('@dstop').Value := iDsTop;
      adoSpDsSave.Parameters.ParamByName('@dspwidth').Value := iDsPWidth;
      adoSpDsSave.Parameters.ParamByName('@dspheight').Value := iDsPHeight;
      adoSpDsSave.Parameters.ParamByName('@dspbh').Value := sDsPbh;
      adoSpDsSave.Parameters.ParamByName('@dshavexs').Value := lHaveXs;
      adoSpDsSave.Parameters.ParamByName('@datainupdpt').Value := lDataInUpDpt;
      adoSpDsSave.Parameters.ParamByName('@dsdb').Value := sDsDB;
      adoSpDsSave.Parameters.ParamByName('@dsjb').Value := iDsJb;
      adoSpDsSave.Parameters.ParamByName('@connxh').Value := iConnxh;
      adoSpDsSave.ExecProc;
      Result := adoSpDsSave.Parameters.ParamByName('@iret').Value;
      SetComplete;
    except
      SetAbort;
    end;
  end;

end;

function TPJgComServer.DsYjTimeSave(const sDsbh: WideString;
  dYjtime: TDateTime): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      adoYjTSave.Close;
      adoYjTSave.Parameters.ParamByName('@dsbh').Value := sDsbh;
      adoYjTSave.Parameters.ParamByName('@yjtime').Value := dYjtime;
      adoYjTSave.ExecProc;
      Result := adoYjTSave.Parameters.ParamByName('@iret').Value;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.DsInfo(out vRec: OleVariant): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    cds.Active := False;
    cds.CommandText := 'select dsbh,dsmc,dswsip,dswsport,dswsvip,dswsvport,' +
      'dsleft,dstop,dspwidth,dspheight,dspbh,dshavexs,yjtime,datainupdpt,dsdb,dsjb,connectxh from bm_dsbmb order by dsbh';
    try
      try
        cds.Active := True;
        vRec := cds.XMLData;
        Result := 0;
      finally
        cds.Active := False;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

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

function TPJgComServer.YjlxSave(const sDsbh: WideString; iBh: Smallint;
  const sMc: WideString; lBz: WordBool): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      adoYjlxSave.Close;
      adoYjlxSave.Parameters.ParamByName('@dsbh').Value := sDsbh;
      adoYjlxSave.Parameters.ParamByName('@ibh').Value := iBh;
      adoYjlxSave.Parameters.ParamByName('@cmc').Value := sMc;
      adoYjlxSave.Parameters.ParamByName('@lbz').Value := lBz;
      adoYjlxSave.ExecProc;
      Result := adoYjlxSave.Parameters.ParamByName('@ret').Value;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.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;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet1 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        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;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.YjSet2(const sDsbh: WideString; iGdMax,
  iGdMin: Integer; lGdUse: WordBool; iGdQxMax, iGdQxMin: Smallint;
  lGdQxUse: WordBool; iJkcs: Smallint; lJkcsuse: WordBool; iYqqxMax,
  iYqqxJsr: Smallint; lYqqxUse: WordBool): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet2 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        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;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.YjSet3(const sDsbh: WideString; iFfcsMax,
  iFfcsTime: Smallint; lFfcsUse: WordBool): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet3 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        Parameters.ParamByName('@ffcs_max').Value := iFfcsMax;
        Parameters.ParamByName('@ffcs_time').Value := iFfcsTime;
        Parameters.ParamByName('@ffcs_use').Value := lFfcsUse;
        ExecProc;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.YjSet4(const sDsbh: WideString; iGzjjMax: Integer;
  lGzjjUse: WordBool; iGdjjMax: Integer; lGdjjUse: WordBool;
  iTqMax: Integer; lTqUse: WordBool): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet4 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        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;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.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;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet6 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        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;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.YjSet8(const sDsbh, sZzglfKm: WideString;
  lZzglfUse: WordBool): Smallint;
begin
  Result := -1;
  if adoConn.Connected then
  begin
    try
      with adoWgSet8 do
      begin
        Close;
        Parameters.ParamByName('@dsbh').Value := sDsbh;
        Parameters.ParamByName('@zzglf_km').Value := sZzGlfKm;
        Parameters.ParamByName('@zzglf_use').Value := lZzglfUse;
        ExecProc;
        Result := Parameters.ParamByName('@ret').Value;
      end;
      SetComplete;
    except
      SetAbort;
    end;
  end;
end;

function TPJgComServer.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;
begin
  Result := -1;
  if adoConn.Connected then
  begin