Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl '当前model
'获取当前活动model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
MsgBox "There is no current Model "
ElseIf Not mdl.IsKindOf(PdcDM.cls_Model) Then '如果是处理pdm，这里换成PdPDM.cls_Model
MsgBox "The current model is not an Physical Data model. "
Else
ProcessFolder mdl
End If
' This routine copy name into comment for each table, each column and each view
' of the current folder
Private sub ProcessFolder(folder)
Dim ref '要处理的对象
for each ref in folder.relationships
if not ref.isShortcut then
if instr(lcase(ref.code),"relationship_") =1 then
dim ctable '子表名称
ctable= lcase(ref.entity1.name) dim ptable '父表名称 ptable=lcase(ref.entity2.name) dim relation if(len(ptable)>12) then relation= mid(ptable,1,8)+mid(ptable,len(ptable)-3) else relation=ptable end if relation=relation+"-" if(len(ctable)>12) then relation=relation+mid(ctable,1,8)+mid(ctable,len(ctable)-3) else relation=relation+ctable end if relation=ucase(relation) output ref.name+">>>>"+ relation ref.name=relation ref.code=relation
end if
end if
next
'22222222222222222222222222222222222222222222222222222222222222222222222处理继承关系
for each ref in folder.inheritances
if not ref.isShortcut then
'output ref.ParentEntity.name+"//"+ref.ChildrenList
dim ctable '子表名称
ctable= lcase(ref.ChildrenList)
dim ptable '父表名称
ptable=lcase(ref.ParentEntity.name)
dim relation
if(len(ptable)>12) then
relation= mid(ptable,1,8)+mid(ptable,len(ptable)-3)
else
relation=ptable
end if
relation=relation+"-"
if(len(ctable)>12) then
relation=relation+mid(ctable,1,8)+mid(ctable,len(ctable)-3)
else
relation=relation+ctable
end if
relation=ucase(relation)
output folder.parent.name+"--->"+folder.name+"--->"+ref.name+"}}}}}"+ relation
ref.name=relation
ref.code=relation
end if
' end if
next
'递归遍历子文件夹
Dim f '子文件夹
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub