【结贴】引用资源集问题**

cdz0451

在组织机构资源集里 定义了
implementation
var
  m_sUserName:string;
  m_sUserId:string;

为什么 在主窗体里用不了

lixy

在implementation上面定义

cdz0451

如何在主窗体中引用？

lixy

全局变量不推荐用。

lixy

引入资源-单元名.变量名

cdz0451

不好使！
在组织机构资源库中
var
  m_sUserName:string;
  m_sUserId:string;

implementation
在组织结构功能主窗体上调用，编译提示错误！
procedure TMAINFORM.actNewOrganExecute(Sender: TObject);
var
  lR: Boolean;
  lParentFileName: String;
  lNode: TBizNode;
  sName:string;
begin
  case TAction(Sender).Tag of
    1: lR := TOrgLib.NewOrgan(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    2: lR := TOrgLib.NewDept(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    3: lR := TOrgLib.NewPosition(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    4: lR := TOrgLib.NewPerson(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    5: lR := TOrgLib.NewWrokGroup(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    6: lR := TOrgLib.NewFolder(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    else
      lR := False;
   end;

   if(TAction(Sender).Tag = 4) then
   begin
     sName := OrgLib.m_sUserName;
   end;

lixy

http://bbs.justep.com/forum.php? ... A%FD%2A%C8%AB%BE%D6

lixy

不好意思，楼主说的调用方式不支持。

cdz0451

不好意思！好像和我的不太一样！
我是在unit ORGLIB;    内进行变量定义，但调用不是在 资源集内进行调用，而是在“组织结构设计器”unit MAINFORM 代码中调用的，在 mainform 中已引用了 资源集
uses
  Business.System,
  Business.Forms,
  Business.Model,
  Business.Model.BizObjComUtils,
  OrgLib, Business.Forms;
可是在函数内调用不成功如下：
procedure TMAINFORM.actNewOrganExecute(Sender: TObject);
var
  lR: Boolean;
  lParentFileName: String;
  lNode: TBizNode;
  sName:string;
begin
  case TAction(Sender).Tag of
    1: lR := TOrgLib.NewOrgan(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    2: lR := TOrgLib.NewDept(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    3: lR := TOrgLib.NewPosition(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    4: lR := TOrgLib.NewPerson(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    5: lR := TOrgLib.NewWrokGroup(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    6: lR := TOrgLib.NewFolder(Context, CurrentBizNode.BizURL, nil, FDeptManager);
    else
      lR := False;
   end;

   if(TAction(Sender).Tag = 4) then
   begin
     sName := TOrgLib.m_sUserName;   // 这个地方不能编译
   end;

cdz0451

大哥！你真会豆，没有看清楚就不要浪费时间！急死人，你陪呀