udmfunc.pas

来自「ProviceSystem-公积金监管系统中心端」· PAS 代码 · 共 2,156 行 · 第 1/5 页

        Node.CityLevel := Dm.cds.FieldByName('dsjb').AsInteger;
        Node.AutoSize := False;
        Node.Width := Node.Width + 5;
        Node.Parent := Parent;
        Node.ParentWidth := Dm.cds.FieldByName('dspwidth').AsInteger;
        Node.ParentHeight := Dm.cds.FieldByName('dspheight').AsInteger;
        Node.Left := round(Parent.Width * Node.X / Node.ParentWidth);
        Node.Top := round(Parent.Height * Node.Y / Node.ParentHeight);

        Node.Cursor := crHandPoint;
        {        Node.HaveChild := Dm.cds.FieldByName('dshavexs').AsBoolean;
                if Node.HaveChild then
                begin
                  sFile := path+trim(Node.Number)+'.jpg';
                  ReadMap(Node.Number,sFile);
                  if FileExists(sFile) then
                  begin
        //            Node.Picture.LoadFromFile(sFile);
                    Node.PictureFile := sFile;
                  end;
                end
                else
                begin
        //          Node.Picture := nil;
                  Node.PictureFile := '';
                end;
                Node.ParentNode := Dm.cds.FieldByName('dspbh').AsString;
        }
        AddNodeLabel(ANL, Node);
        Dm.cds.Next;
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function DsInfo(var aDs: TCityDynArray): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  i: smallint;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.DsInfo(vData);
      DM.cds.XMLData := vData;
      i := DM.cds.RecordCount;
      SetLength(aDs, i);
      i := 0;
      while not Dm.cds.Eof do
      begin
        aDs[i].bh := trim(Dm.cds.FieldByName('dsbh').AsString);
        aDs[i].mc := trim(Dm.cds.FieldByName('dsmc').AsString);
        Dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function DsInfo(var aDs: TString2Array): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  i: smallint;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.DsInfo(vData);
      DM.cds.XMLData := vData;
      i := DM.cds.RecordCount;
      SetLength(aDs, i);
      i := 0;
      while not Dm.cds.Eof do
      begin
        aDs[i, 0] := trim(Dm.cds.FieldByName('dsbh').AsString);
        aDs[i, 1] := trim(Dm.cds.FieldByName('dsmc').AsString);
        Dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function DsInfo(var aNode: TLabelDateTimeView): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  sName, sNum, sURL, sIp, sVip: String;
  nPort, nVPort: Integer;
  dtTiming: TTime;
begin
  try
    iPJgWs := Dm.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.DsInfo(vData);
      DM.cds.XMLData := vData;
      while not Dm.cds.Eof do
      begin
        sNum := trim(Dm.cds.FieldByName('dsbh').AsString);
        sName := trim(Dm.cds.FieldByName('dsmc').AsString);
        dtTiming :=Dm.cds.FieldByName('yjtime').AsDateTime;
        sIP := trim(Dm.cds.FieldByName('dswsip').AsString);
        sVIP := trim(Dm.cds.FieldByName('dswsvip').AsString);
        nPort := Dm.cds.FieldByName('dswsport').AsInteger;
        nVPort := Dm.cds.FieldByName('dswsvport').AsInteger;
        sURL := GetCityURL(sIP,sVIP,nPort,nVPort);
        aNode.Add(sName,sNum,sURL,dtTiming,0,0);
        Dm.cds.Next;
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function DsInfo(var aNode: TCheckBoxView): Smallint; 
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  sName, sNum : String;
begin
  try
    iPJgWs := Dm.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.DsInfo(vData);
      DM.cds.XMLData := vData;
      while not Dm.cds.Eof do
      begin
        sNum := trim(Dm.cds.FieldByName('dsbh').AsString);
        sName := trim(Dm.cds.FieldByName('dsmc').AsString);
        aNode.Add(sName,sNum,False,0,0);
        Dm.cds.Next;
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

{function DsInfo(nCols, nLeft, nTop, HSpace, VSpace:Integer;
  var aNode: TLabelDateTime): Smallint;
var
  iPJgWs: IPJgWsServer;
  vData: Variant;
  sName, sNum: String;
  dtTiming: TTime;
  nT, nL, i: integer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.DsInfo(vData);
      DM.cds.XMLData := vData;
      nL := nLeft;
      nT := nTop;
      i:=0;
      if nCols<1 then
        nCols :=1;
      while not Dm.cds.Eof do
      begin
        sNum := trim(Dm.cds.FieldByName('dsbh').AsString);
        sName := trim(Dm.cds.FieldByName('dsmc').AsString);
        dtTiming :=Dm.cds.FieldByName('yjtime').AsDateTime;
        aNode.Add(sName,sNum,dtTiming,nT,nL);
        i := (i+1) mod nCols;
        if i=0 then
        begin
          nT := nT + aNode.Nodes[0].Height + VSpace;
          nL := nLeft;
        end
        else
          nL := nL + aNode.Nodes[0].Width + HSpace;
        Dm.cds.Next;
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;
}

function GetCityURL(const sIP, sVIP: String; const nPort, nvPort: Word): String;
begin
  if sVIP<>'' then
  begin
    if nVPort<>0 then
    begin
      if nPort<>0 then
        Result := 'http://'+sVIP+':'+trim(inttostr(nVPort))+
          '/scripts/Jglr.dll/soap/IJGLR?realhost='+
          sIP+#38+'realport='+inttostr(nPort)
      else
        Result := 'http://'+sVIP+':'+trim(inttostr(nVPort))+
          '/scripts/Jglr.dll/soap/IJGLR?realhost='+
          sIP+#38+'realport=80';
    end
    else
    begin
      if nPort<>0 then
        Result := 'http://'+sVIP+
          ':8080/scripts/Jglr.dll/soap/IJGLR?realhost='+
          sIP+#38+'realport='+inttostr(nPort)
      else
        Result := 'http://'+sVIP+
          ':8080/scripts/Jglr.dll/soap/IJGLR?realhost='+
          sIP+#38+'realport=80';
    end;
  end
  else
  begin
    if nPort<>0 then
      Result := 'http://'+sIP+':'+trim(inttostr(nPort))+
        '/scripts/Jglr.dll/soap/IJGLR'
    else
       Result := 'http://'+sIP+
        '/scripts/Jglr.dll/soap/IJGLR';
   end;
end;
function YjlxSave(const sDsbh: string; iBh: Smallint;
  const sMc: string; lBz: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjlxSave(sDsbh, iBh, sMc, lBz);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjlxInfo(const sDsbh: string; var aYjlx: TYjlxDynArray): Smallint;
var
  iPJgWs: IPJgWsServer;
  i, j: smallint;
  vData: Variant;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjlxInfo(sDsbh, vData);
      DM.cds.XMLData := vData;
      j := Dm.cds.RecordCount;
      SetLength(aYjlx, j);
      i := 0;
      while not Dm.cds.Eof do
      begin
        aYjlx[i].bh := Dm.cds.FieldByName('xmbh').AsInteger;
        aYjlx[i].mc := dm.cds.FieldByName('xmmc').AsString;
        aYjlx[i].bz := Dm.cds.FieldByName('qybz').AsBoolean;
        Dm.cds.Next;
        inc(i);
      end;
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjlxSave(const sDsbh: string; aBh: TSmallIntDynArray;
  aMc: TStringDynArray; aBz: TBooleanDynArray): Smallint;
var
  i, j: Smallint;
begin
  Result := -1;
  j := high(aBh);
  for i := 0 to j do
  begin
    Result := YjlxSave(sDsbh, abh[i], amc[i], aBz[i]);
    if Result <> 0 then
      break;
  end;
end;

function YjSet1(const sDsbh: string; fRecMax: Double;
  lRecUse: Boolean; fDayMax: Double; lDayUse: Boolean; fMonMax: Double;
  lMonUse: Boolean; const sDwdkKm: string; lDwdkUse: Boolean;
  const sXmdkKm: string; lXmdkUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet1(sDsbh, fRecMax, lRecUse, fDayMax, lDayUse,
        fMonMax,
        lMonUse, sDwdkKm, lDwdkUse, sXmdkkm, lXmdkUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet2(const sDsbh: string; iGdMax, iGdMin: Integer;
  lGdUse: Boolean; iGdQxMax, iGdQxMin: Smallint; lGdQxUse: Boolean;
  iJkcs: Smallint; lJkcsuse: Boolean; iYqqxMax, iYqqxJsr: Smallint;
  lYqqxUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet2(sDsbh, iGdMax, iGdMin, lGdUse, iGdQxMax, iGdQxMin,
        lGdQxUse, iJkcs, lJkcsUse, iYqqxMax, iYqqxJsr, lYqqxUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet3(const sDsbh: string; iFfcsMax, iFfcsTime: Smallint;
  lFfcsUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet3(sDsbh, iFfcsMax, iFfcsTime, lFfcsUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet4(const sDsbh: string; iGzjjMax: Integer;
  lGzjjUse: Boolean; iGdjjMax: Integer; lGdjjUse: Boolean;
  iTqMax: Integer; lTqUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet4(sDsbh, iGzjjMax, lGzjjUse, iGdjjMax,
        lGdjjUse, iTqMax, lTqUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet6(const sDsbh: string; fLzzjBl: Double;
  const sLzzjKm: string; lLzzjUse: Boolean; fFxzbBl: Double;
  const sFxzbKm: string; lFxzbUse: Boolean; fZxjfBl: Double;
  const sZxjfKm: string; lZxjfUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet6(sDsbh, fLzzjBl, sLzzjKm, lLzzjUse,
        fFxzbBl, sFxzbKm, lFxzbUse, fZxjfBl, sZxjfKm, lZxjfUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet8(const sDsbh, sZzglfKm: string;
  lZzglfUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet8(sDsbh, sZzglfKm, lZzglfUse);
    finally
      iPJgWs := nil;
    end;
  except
    Result := -2
  end;
end;

function YjSet10(const sDsbh: string; fZxyskFse, fZxyskYe: Double;
  const sZxyskKm: string; lZxyskUse: Boolean; fZxyfkFse,
  fZxyfkYe: Double; const sZxyfkKm: string; lZxyfkUse: Boolean;
  fQtyskFse, fQtyskYe: Double; const sQtyskKm: string;
  lQtyskUse: Boolean; fQtyfkFse, fQtyfkYe: Double;
  const sQtyfkKm: string; lQtyfkUse: Boolean): Smallint;
var
  iPJgWs: IPJgWsServer;
begin
  try
    iPJgWs := DM.rioPJg as IPJgWsServer;
    try
      Result := iPJgWs.YjSet10(sDsbh, fZxyskFse, fZxyskYe, sZxyskKm, lZxyskUse,
        fZxyfkFse, fZxyfkYe, sZxyfkKm, lZxyfkUse, fQtyskFse, fQtyskYe, sQtyskKm,
        lQtyskUse, fQtyfkFse, fQtyfkYe, sQtyfkKm, lQtyfkUse);
    finally
      iPJgWs := nil;
    end;