PowerDesinger 从数据库中依赖反转出来的PDM修改。修改显示名字 将注释加到PDM工程

1. Option   Explicit   
2.   ValidationMode   =   True   
3.   InteractiveMode   =   im_Batch   
4.     
5.   Dim   mdl     
6.     
7.     
8.   Set   mdl   =   ActiveModel   
9.   If   (mdl   Is   Nothing)   Then   
10.         MsgBox   "There   is   no   current   Model"   
11.   ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then   
12.         MsgBox   "The   current   model   is   not   an   Physical   Data   model."   
13.   Else   
14.         ProcessFolder   mdl   
15.   End   If   
16.     
17.   Private   sub   ProcessFolder(folder)   
18.         Dim   Tab   
19.         for   each   Tab   in   folder.tables   
20.               if   not   tab.isShortcut   then   
21.                     if   (not   isnull(tab.code))   and   (trim(tab.code)<>"")   then   
22.                           tab.name = tab.code + " : " + tab.comment     
23.                     end   if   
24.                     On   Error   Resume   Next   
25.                     Dim   col     
26.                     for   each   col   in   tab.columns   
27.                     if   (not   isnull(col.name))   and     (trim(col.name)<>"")       then   
28.                           col.code=   col.name   
29.                     end   if   
30.                     if   (not   isnull(col.comment))   and     (trim(col.comment)<>"")       then   
31.                           col.name=   col.name +" : "+col.comment   
32.                     end   if   
33.                     On   Error   Resume   Next   
34.                     next   
35.               end   if   
36.         next       
37.   end   sub