PDM后续处理-驼峰规则、清除约束、外键改名

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(PdPDM.cls_Model)   Then '如果是处理pdm，这里换成PdPDM.cls_Model

MsgBox   "The   current   model   is   not   an   Physical   Data   model. "

Else

ProcessFolder   mdl

End   If

Private   sub   ProcessFolder(folder)

dim tab

'11111111111111111111111111111111111111111111111111111111111111111

for   each   tab   in  folder.tables

if   not   tab.isShortcut   then

'处理每个实体或类的Name和Code

'先处理表名

Dim code

code = tab.code

code=ManageNameFormat(code) '函数的参数必须带()，而sub的参数不用括号

tab.code=code

tab.name=code

'再处理每个字段的名称

dim col

for   each   col   in   tab.columns

Dim acode

acode = col.code

acode=ManageNameFormat(acode)

col.code=acode

col.name=acode

col.ServerCheckExpression=""  '清除每个字段正则表达式约束

col.ListOfValues =""  '清除枚举项约束

col.lowvalue="" '清除最大值约束

col.highvalue="" '最小值约束

next

end  if

next

'222222222222222222222222222222222222222222222222222222222222222222222222222

'更改特定外键名称

dim ref

for   each   ref   in  folder.references

if   not   ref.isShortcut     then

'根据子表和主表名称更改外键字段名称，将该外键字段名称直接改为该关系名，以子表-主表方式判断

'根据单表也可以设置

if  lcase(ref.parenttable.name)=lcase("ExVersion")   or  lcase(ref.parenttable.name)=lcase("Ex_Version")   or _

(lcase(ref.childtable.name)=lcase("GM_Arc") and lcase(ref.parenttable.name)=lcase("Point" ))  or _

(lcase(ref.childtable.name)=lcase("GM_Geodesic") and lcase(ref.parenttable.name)=lcase("Point") )  then

for each col in ref.childtable.columns  '不用遍历寻找对应table对象，直接用ref.childtable就能操作，比以前更智能

if lcase(col.name)=  lcase(ref.ForeignKeyColumnList) then

output ref.childtable.name+"."+ref.ForeignKeyColumnList+ "<--------------->"+ ref.childtable.name+"."+ref.name

col.name=ref.name

col.code=col.name

end if

next

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

'函数将输入的低驼峰字符串整理成_符分割的字符串

Function ManageNameFormat(code)

Dim i

i=2

Do While i < len(code)

If mid(code,i,1)=ucase(mid(code,i,1)) and mid(code,i-1,1)=lcase(mid(code,i-1,1)) and mid(code,i-1,1)<>"_" and mid(code,i,1)<>"_" and mid(code,i-1,1)<>"2" and mid(code,i,1)<>"2" Then '连续大写字母不用加_

code = left(code,i-1) + "_" + mid(code,i)

i =i+ 1

End If

i =i+ 1

Loop

ManageNameFormat=code

End Function