uyjrun.pas

ProviceSystem-公积金监管系统中心端

unit uYjRun;

interface

uses
  Classes, SysUtils,Windows,SOAPHTTPClient, DBClient, uUserMsgConst, uConstUtils,
//{$IFDEF SURVEILLANCESYSTEM}
  dmPJg, uUserFunc,
//{$ENDIF}
//{$IFDEF TIMINGRUNSYSTEM}
//  TimingDM, TimingDMFunc;
//{$ENDIF}
  JGLRIntf, uPJgWsServerIntf;

type
  TYjSearch = class
    fDsBh: String;
    fDsURL: String;
    fDateB: String;
    fDateE: String;
    fTxDb: String;
    fSendMsg: Boolean;
  private
    { Private declarations }
    procedure SetDsURL(const Value: String);
    function KhyhInfo(var aKhyh: TKhyhDynArray): Smallint;
    function CkllInfo(var aCkll: TCkllDynArray): Smallint;
    function DkllInfo(var aDkll: TDkllDynArray): Smallint;
    function KhyhhsInfo: Smallint;

//  protected

    function iDsbh: Integer;
    function YjSetInfo: Smallint;
    function YjSetInfo1(var fRecMax: Double;
       var lRecUse: Boolean; var fDayMax: Double; var lDayUse: Boolean;
       var fMonMax: Double;var lMonUse: Boolean; var sDwdkKm: String;
       var lDwdkUse: Boolean; var sXmdkKm: String; var lXmdkUse: Boolean): Smallint;
    function YjSetInfo2(var iGdMax, iGdMin: Integer;
       var lGdUse: Boolean; var iGdQxMax, iGdQxMin: Smallint;
       var lGdQxUse: Boolean;var iJkcs: Smallint; var lJkcsuse: Boolean;
       var iYqqxMax, iYqqxJsr: Smallint;var lYqqxUse: Boolean): Smallint;
    function YjSetInfo3(var iFfcsMax, iFfcsTime: Smallint;
       var lFfcsUse: Boolean): Smallint;
    function YjSetInfo4(var iGzjjMax: Integer;
       var lGzjjUse: Boolean; var iGdjjMax: Integer; var lGdjjUse: Boolean;
       var iTqMax: Integer; var lTqUse: Boolean): Smallint;
    function YjSetInfo6(var fLzzjBl: Double;
       var  sLzzjKm: String;var  lLzzjUse: Boolean;var fFxzbBl: Double;
       var sFxzbKm: String; var lFxzbUse: Boolean;var fZxjfBl: Double;
       var sZxjfKm: String;var lZxjfUse: Boolean): Smallint;
    function YjSetInfo8(var sZzglfKm: String;
       var lZzglfUse: Boolean): Smallint;
    function YjSetInfo9(var fGjsxfBl: Double;
       var sGjsxfKm: String; var lGjsxfUse: Boolean; var fDksxfBl: Double;
       var sDksxfKm: String; var lDksxfUse: Boolean): Smallint;
    function YjSetInfo10(var fZxyskFse, fZxyskYe: Double;
       var sZxyskKm: String; var lZxyskUse: Boolean; var fZxyfkFse,
       fZxyfkYe: Double; var sZxyfkKm: String;var lZxyfkUse: Boolean;
       var fQtyskFse, fQtyskYe: Double; var sQtyskKm: String;
       var lQtyskUse: Boolean; var fQtyfkFse, fQtyfkYe: Double;
       var sQtyfkKm: String;var lQtyfkUse: Boolean): Smallint;
    function YjSetInfo11(var fRecMaxJ, fRecMaxD: Double;
       var lRecUse: Boolean; var fDayMaxJ, fDayMaxD: Double;var lDayUse: Boolean;
       var fMonMaxJ, fMonMaxD: Double; var lMonUse: Boolean): Smallint;

    function YjlxInfo(var aYjlx: TYjlxDynArray): Smallint;
    function YjSearch1: Smallint;
    function YjSearch2: Smallint;
    function YjSearch3: Smallint;
    function YjSearch4: Smallint;
    function YjSearch5: Smallint;
    function YjSearch6: Smallint;
    function YjSearch7: Smallint;
    function YjSearch8: Smallint;
    function YjSearch9: Smallint;
    function YjSearch10: Smallint;
    function YjSearch11: Smallint;
    function YjSearch12: Smallint;

    function YjInfoSave(vData: Variant): smallint;

  published
    property DsBh: String Read fDsbh Write fDsbh;
    property TxDB: String Read fTxDb Write fTxDb;
    property DsURL: String Read fDsURL Write SetDsURL;
    property DateBegin: String Read fDateB Write fDateB;
    property DateEnd: String Read fDateE Write fDateE;
    property SendMsg: Boolean read fSendMsg write fSendMsg Default True;
  public
    procedure YjSearch;
  end;

implementation


{ TYjSearch }

procedure TYjSearch.SetDsURL(const Value: String);
begin
  fDsURL := Value;
  dm.riocjg.URL := Value;
end;

function TYjSearch.YjSetInfo: Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
begin
  try
    iPJgWs := dm.rioPjg as IPJgWsServer;
    try
      Result := iPJgWs.YjSetInfo(fDsbh,vData);
      Dm.cds.XMLData := vData;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function TYjSearch.YjSetInfo1(var fRecMax: Double; var lRecUse: Boolean;
  var fDayMax: Double; var lDayUse: Boolean; var fMonMax: Double;
  var lMonUse: Boolean; var sDwdkKm: String; var lDwdkUse: Boolean;
  var sXmdkKm: String; var lXmdkUse: Boolean): Smallint;
begin
  result := 0;
  try
    fRecMax := dm.cds.FieldByName('rec_max').AsFloat;
    lRecUse := dm.cds.FieldByName('rec_use').AsBoolean;
    fDayMax := dm.cds.FieldByName('day_max').AsFloat;
    lDayUse := dm.cds.FieldByName('day_use').AsBoolean;
    fMonMax := dm.cds.FieldByName('mon_max').AsFloat;
    lMonUse := dm.cds.FieldByName('mon_use').AsBoolean;
    sDwdkKm := trim(dm.cds.FieldByName('dwdkkm').AsString);
    lDwdkUse := dm.cds.FieldByName('dw_use').AsBoolean;
    sXmdkKm := trim(dm.cds.FieldByName('xmdkkm').AsString);
    lXmdkUse := dm.cds.FieldByName('xm_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function TYjSearch.YjSetInfo2(var iGdMax, iGdMin: Integer;
  var lGdUse: Boolean; var iGdQxMax, iGdQxMin: Smallint;
  var lGdQxUse: Boolean; var iJkcs: Smallint; var lJkcsuse: Boolean;
  var iYqqxMax, iYqqxJsr: Smallint; var lYqqxUse: Boolean): Smallint;
begin
  result := 0;
  try
    iGdMax := dm.cds.FieldByName('gd_max').AsInteger;
    iGdMin := dm.cds.FieldByName('gd_min').AsInteger;
    lGdUse := dm.cds.FieldByName('gd_use').AsBoolean;
    iGdQxMax := dm.cds.FieldByName('gdqx_max').AsInteger;
    iGdQxMin := dm.cds.FieldByName('gdqx_min').AsInteger;
    lGdQxUse := dm.cds.FieldByName('gdqx_use').AsBoolean;
    iJkcs := dm.cds.FieldByName('jkcs').AsInteger;
    lJkcsuse := dm.cds.FieldByName('jkcs_use').AsBoolean;
    iYqqxMax := dm.cds.FieldByName('yqqx_max').AsInteger;
    iYqqxJsr := dm.cds.FieldByName('yqqx_jsr').AsInteger;
    lYqqxUse := dm.cds.FieldByName('yqqx_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function TYjSearch.YjSetInfo3(var iFfcsMax, iFfcsTime: Smallint;
  var lFfcsUse: Boolean): Smallint;
begin
  Result := 0;
  try
    iFfcsMax := dm.cds.FieldByName('ffcs_max').AsInteger;
    iFfcsTime := dm.cds.FieldByName('ffcs_time').AsInteger;
    lFfcsUse := dm.cds.FieldByName('ffcs_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function TYjSearch.YjSetInfo4(var iGzjjMax: Integer; var lGzjjUse: Boolean;
  var iGdjjMax: Integer; var lGdjjUse: Boolean; var iTqMax: Integer;
  var lTqUse: Boolean): Smallint;
begin
  Result := 0;
  try
    iGzjjMax := dm.cds.FieldByName('gzjj_max').AsInteger;
    lGzjjUse := dm.cds.FieldByName('gzjj_use').AsBoolean;
    iGdjjMax := dm.cds.FieldByName('gdjj_max').AsInteger;
    lGdjjUse := dm.cds.FieldByName('gdjj_use').AsBoolean;
    iTqMax := dm.cds.FieldByName('tq_max').AsInteger;
    lTqUse := dm.cds.FieldByName('tq_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function TYjSearch.YjSetInfo6(var fLzzjBl: Double; var sLzzjKm: String;
  var lLzzjUse: Boolean; var fFxzbBl: Double; var sFxzbKm: String;
  var lFxzbUse: Boolean; var fZxjfBl: Double; var sZxjfKm: String;
  var lZxjfUse: Boolean): Smallint;
begin
  Result :=0;
  try
    fLzzjBl := dm.cds.FieldByName('lzzj_bl').AsFloat;
    sLzzjKm := trim(dm.cds.FieldByName('lzzj_km').AsString);
    lLzzjUse := dm.cds.FieldByName('lzzj_use').AsBoolean;
    fFxzbBl := dm.cds.FieldByName('fxzb_bl').AsFloat;
    sFxzbKm := trim(dm.cds.FieldByName('fxzb_km').AsString);
    lFxzbUse := dm.cds.FieldByName('fxzb_use').AsBoolean;
    fZxjfBl := dm.cds.FieldByName('zxjf_bl').AsFloat;
    sZxjfKm := trim(dm.cds.FieldByName('zxjf_km').AsString);
    lZxjfUse := dm.cds.FieldByName('zxjf_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function TYjSearch.YjSetInfo8(var sZzglfKm: String;
  var lZzglfUse: Boolean): Smallint;
begin
  Result := 0;
  try
    sZzglfKm := trim(dm.cds.FieldByName('zzglf_km').AsString);
    lZzglfUse := dm.cds.FieldByName('zzglf_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function TYjSearch.YjSetInfo9(var fGjsxfBl: Double; var sGjsxfKm: String;
  var lGjsxfUse: Boolean; var fDksxfBl: Double; var sDksxfKm: String;
  var lDksxfUse: Boolean): Smallint;
begin
  Result :=0 ;
  try
    fGjsxfBl := dm.cds.FieldByName('gjsxf_bl').AsFloat;
    sGjsxfKm := trim(dm.cds.FieldByName('gjsxf_km').AsString);
    lGjsxfUse := dm.cds.FieldByName('gjsxf_use').AsBoolean;
    fDksxfBl := dm.cds.FieldByName('dksxf_bl').AsFloat;
    sDksxfKm := trim(dm.cds.FieldByName('dksxf_km').AsString);
    lDksxfUse := dm.cds.FieldByName('dksxf_use').AsBoolean;
  except
    Result := -1;
  end;
end;

function TYjSearch.YjSetInfo10(var fZxyskFse, fZxyskYe: Double;
  var sZxyskKm: String; var lZxyskUse: Boolean; var fZxyfkFse,
  fZxyfkYe: Double; var sZxyfkKm: String; var lZxyfkUse: Boolean;
  var fQtyskFse, fQtyskYe: Double; var sQtyskKm: String;
  var lQtyskUse: Boolean; var fQtyfkFse, fQtyfkYe: Double;
  var sQtyfkKm: String; var lQtyfkUse: Boolean): Smallint;
begin
  Result := 0;
  try
    fZxyskFse := dm.cds.FieldByName('zxysk_fse').AsFloat;
    fZxyskYe := dm.cds.FieldByName('zxysk_ye').AsFloat;
    sZxyskKm := trim(dm.cds.FieldByName('zxysk_km').AsString);
    lZxyskUse := dm.cds.FieldByName('zxysk_use').AsBoolean;
    fZxyfkFse := dm.cds.FieldByName('zxyfk_fse').AsFloat;
    fZxyfkYe := dm.cds.FieldByName('zxyfk_ye').AsFloat;
    sZxyfkKm := trim(dm.cds.FieldByName('zxyfk_km').AsString);
    lZxyfkUse := dm.cds.FieldByName('zxyfk_use').AsBoolean;
    fQtyskFse := dm.cds.FieldByName('qtysk_fse').AsFloat;
    fQtyskYe := dm.cds.FieldByName('qtysk_ye').AsFloat;
    sQtyskKm := trim(dm.cds.FieldByName('qtysk_km').AsString);
    lQtyskUse := dm.cds.FieldByName('qtysk_use').AsBoolean;
    fQtyfkFse := dm.cds.FieldByName('qtyfk_fse').AsFloat;
    fQtyfkYe := dm.cds.FieldByName('qtyfk_ye').AsFloat;
    sQtyfkKm := trim(dm.cds.FieldByName('qtyfk_km').AsString);
    lQtyfkUse := dm.cds.FieldByName('qtyfk_use').AsBoolean;
  except
    Result :=-1;
  end;
end;

function TYjSearch.YjSetInfo11(var fRecMaxJ, fRecMaxD: Double;
  var lRecUse: Boolean; var fDayMaxJ, fDayMaxD: Double;
  var lDayUse: Boolean; var fMonMaxJ, fMonMaxD: Double;
  var lMonUse: Boolean): Smallint;
begin
  Result :=0;
  try
    fRecMaxJ := dm.cds.FieldByName('yhrec_maxj').AsFloat;
    fRecMaxD := dm.cds.FieldByName('yhrec_maxd').AsFloat;
    lRecUse := dm.cds.FieldByName('yhrec_use').AsBoolean;
    fDayMaxJ := dm.cds.FieldByName('yhday_maxj').AsFloat;
    fDayMaxD := dm.cds.FieldByName('yhday_maxd').AsFloat;
    lDayUse := dm.cds.FieldByName('yhday_use').AsBoolean;
    fMonMaxJ := dm.cds.FieldByName('yhmon_maxj').AsFloat;
    fMonMaxD := dm.cds.FieldByName('yhmon_maxd').AsFloat;
    lMonUse := dm.cds.FieldByName('yhmon_use').AsBoolean;
  except
    Result := -1;
  end;
end;

procedure TYjSearch.YjSearch;
var
  hRunHandle: hWnd;
  iDs, nLxNum: Integer;
  aYjlx: TYjlxDynArray;
begin
  YjlxInfo(aYjlx);
  hRunHandle := FindWindow(UniqueRunInfoStr,nil);
  nLxNum := High(aYjlx);
  YjSetInfo;
//  PostMessage(hRunHandle,UM_YJFXCONNECTION,iDs,0);
  iDs:= iDsbh();
  if nLxNum <0 then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_NONESETITEM,iDs,0);
    exit;
  end;

  if aYjlx[0].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_JZNYZFGJJ,iDs,0);
    if YjSearch1 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_JZNYZFGJJ,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_JZNYZFGJJ,iDs,2);
    end;
  end;

  if aYjlx[1].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_GRDKFFEJQX,iDs,0);
    if YjSearch2 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_GRDKFFEJQX,iDs,1);
    end
    else
    begin
      if SendMsg then
      PostMessage(hRunHandle,UM_GRDKFFEJQX,iDs,2);
    end;
  end;

  if aYjlx[2].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_GRDKFFXM,iDs,0);
    if YjSearch3 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_GRDKFFXM,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_GRDKFFXM,iDs,2);
    end;
  end;

  if aYjlx[3].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_ZFGJJZJLLXE,iDs,0);
    if YjSearch4 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZFGJJZJLLXE,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZFGJJZJLLXE,iDs,2);
    end;
  end;

  if aYjlx[5].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_ZZSYFPQK,iDs,0);
    if YjSearch6 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZZSYFPQK,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZZSYFPQK,iDs,2);
    end;
  end;

  if aYjlx[7].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_ZZGLFY,iDs,0);
    if YjSearch8 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZZGLFY,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZZGLFY,iDs,2);
    end
  end;

  if aYjlx[8].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_CCBZSQSXF,iDs,0);
    if YjSearch9 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_CCBZSQSXF,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_CCBZSQSXF,iDs,2);
    end;
  end;

  if aYjlx[9].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_ZXYSYFQTYSYFQK,iDs,0);
    if YjSearch10 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZXYSYFQTYSYFQK,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZXYSYFQTYSYFQK,iDs,2);
    end;
  end;

  if aYjlx[10].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_YHDEZJLZQK,iDs,0);
    if YjSearch11 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_YHDEZJLZQK,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_YHDEZJLZQK,iDs,2);
    end;
  end;

  //yjsearch5,7,11必须放在yjsearch1..4, 6,8..10之后进行
  if aYjlx[4].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_ZFGJJCKZHKSSYQK,iDs,0);
    if YjSearch5 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZFGJJCKZHKSSYQK,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_ZFGJJCKZHKSSYQK,iDs,2);
    end;
  end;

  if aYjlx[6].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_BZXGJGDCDKLL,iDs,0);
    if YjSearch7 = 0 then
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_BZXGJGDCDKLL,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_BZXGJGDCDKLL,iDs,2);
    end;
  end;

  if aYjlx[11].bz then
  begin
    if SendMsg then
      PostMessage(hRunHandle,UM_JKSJZQXJC,iDs,0);
    if YjSearch12 = 0 then
    begin
      if SendMsg then
      PostMessage(hRunHandle,UM_JKSJZQXJC,iDs,1);
    end
    else
    begin
      if SendMsg then
        PostMessage(hRunHandle,UM_JKSJZQXJC,iDs,2);
    end;
  end;

  if SendMsg then
    PostMessage(hRunHandle,UM_YJFXFINISH,iDs,0);
  setlength(aYjlx,0);
end;

function TYjSearch.YjSearch1: Smallint;
var
  fRecMax, fDayMax, fMonMax : Double;
  lRecUse, lDayUse, lMonUse, lDwdkUse, lXmdkUse: Boolean;
  sDwdkKm, sXmdkKm: String;

  iCJgWs: IJGLR;