TOrgUnitKind 本质上就是TBizObjectKind, 只是换了一个类型名。
TOrgUnitKind 本质上就是TBizObjectKind, 只是换了一个类型名。原型代码如下:
TBizObjectKind = (
boNone,
//通用
boFolder, boFile,
//服务器和业务空间
boServer, boBizServer, boFileServer, boOrgServer, boSpace,
//业务模型特定类型空间
boBizDictSpace, boBizInfoSpace, boBizFuncSpace, boBizProcSpace,
//业务参数、业务元素和数据库
boParamGroup, boParam,
boElementGroup, boElement,
boFieldTempletGroup, boFieldTemplet,
boDatabase, boTable, boField,
//资源集
boLibrary, boForm,
//业务信息
boInfo, boDataSet, boDataSetField, boFormDoc, boSheetDoc, boRichDoc,
//业务功能
boFunc,
//业务流程
boProc,
//组织结构
boOrgRoot, boPositionRoot, boPersonRoot,
boOrgan, boDept, boPositionMember, boPersonMember,
boWorkGroup, boWorkGroupMember,
boPosition, boPerson,
//图标、位图、页眉、页脚(资源集包含的文件)
boIcon, boBitmap, boHeaderFooter, boToolBar
;
TBizObjectKinds = set of TBizObjectKind;
TOrgUnitKind = TBizObjectKind;
TOrgUnitKinds = set of TOrgUnitKind; |