将CDM中所有以Relatonship_开头的关系全部重命名，避免生成数据库因为重复关系名报错...

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

转载于:https://www.cnblogs.com/mol1995/p/7188308.html