【结帖】有关业务参数**

chen20501157

系统中每个功能都有一个业务编码标识,我想设置一个公共业务参数用于获取当前操作的业务编码,
请问如何实现?

jiahaiminghr

业务编码标识

是指什么？

chen20501157

是一个标识字段啊

jiahaiminghr

直接从环境中获得这个参数，然后对它的Value属性赋值
用当前环境的函数获得参数对象
TContext = class(Business.System.TObject)
function GetBizObject(AClass: TBizClassURL): TBizObject;

chen20501157

function GetBizObject(AClass: TBizClassURL): TBizObject;
这个函数如何实现呢?

jiahaiminghr

在当前功能，或窗体编写代码时，可以直接写
Context.GetItem(lBizURL)，来获取一个业务参数对象


NameSpace: Business.Model
--------------------------------------------------------------------------------
TBizURL = class(Business.System.TPersistent)
protected
  procedure Changed; virtual;
  procedure Changing(Value: string; IsURL: Boolean); virtual;
  function GetFileName: string;
  function GetURL: string;
  procedure Refresh;
public
  constructor create;
  procedure Assign(Source: Business.System.TPersistent); override;
  procedure Clear;
  procedure Destroy; override;
  function Equals(TBizURL): Boolean; overload;
  function Equals(string): Boolean; overload;
  function IsItem: Boolean;
  function IsMain: Boolean;
  function IsMaster: Boolean;
  function IsNull: Boolean;
  function IsSub: Boolean;
  property FileName: string;
  property ID: string;
  property Item: string;
  property Main: string;
  property MainMaster: string;
  property MainURL: string;
  property ObjectMaster: string;
  property OnChanged: Business.System.TNotifyEventList;
  property OnChanging: TBizURLChangingEventList;
  property ParentItem: string;
  property ParentItemID: string;
  property ParentItemURL: string;
  property Sub: string;
  property SubMaster: string;
  property SubURL: string;
  property TempletValues: TTempletValues;
  property URL: string;
end;

chen20501157

能具体说一下我这个  业务参数 的设置方法吗?>
我好想不是很明白

jiahaiminghr

var
  lpara: TBizParam;
  lbizurl: TBizUrl;
begin
  lBizUrl := TBizUrl.Create;
  try
    lBizUrl.Url := '业务参数的bizurl';
    lpara := TBizParam(Context.GetItem(lBizUrl));
    lpara.Value := 参数的值;
  finally
    lbizurl.free;
  end;  
end;

chen20501157

ok,解决了
谢谢