002--PowerDesigner显示注释comment

PowerDesigner显示注释comment

参考博客:https://blog.csdn.net/chao_1990/article/details/52620206

原始样式

显示操作

 

 

调出执行命令的接口

执行下列命令

1、从name替换comment

 1 Option   Explicit   
 2     ValidationMode   =   True   
 3     InteractiveMode   =   im_Batch  
 4       
 5     Dim   mdl   '   the   current   model  
 6       
 7     '   get   the   current   active   model   
 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     '   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view   
18     '   of   the   current   folder   
19     Private   sub   ProcessFolder(folder)   
20           Dim   Tab   'running     table   
21           for   each   Tab   in   folder.tables   
22                 if   not   tab.isShortcut   then   
23                       tab.comment   =   tab.name   
24                       Dim   col   '   running   column   
25                       for   each   col   in   tab.columns   
26                             col.comment=   col.name   
27                       next   
28                 end   if   
29           next  
30       
31           Dim   view   'running   view   
32           for   each   view   in   folder.Views   
33                 if   not   view.isShortcut   then   
34                       view.comment   =   view.name   
35                 end   if   
36           next  
37       
38           '   go   into   the   sub-packages   
39           Dim   f   '   running   folder   
40           For   Each   f   In   folder.Packages   
41                 if   not   f.IsShortcut   then   
42                       ProcessFolder   f   
43                 end   if   
44           Next   
45     end   sub  

 

2、从comment替换name

 1     Option   Explicit   
 2     ValidationMode   =   True   
 3     InteractiveMode   =   im_Batch  
 4       
 5     Dim   mdl   '   the   current   model  
 6       
 7     '   get   the   current   active   model   
 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     On Error Resume Next  
19           Dim   Tab   'running     table   
20           for   each   Tab   in   folder.tables   
21                 if   not   tab.isShortcut   then   
22                       tab.name   =   tab.comment  
23                       Dim   col   '   running   column   
24                       for   each   col   in   tab.columns   
25                       if col.comment="" then  
26                       else  
27                             col.name=   col.comment   
28                       end if  
29                       next   
30                 end   if   
31           next  
32       
33           Dim   view   'running   view   
34           for   each   view   in   folder.Views   
35                 if   not   view.isShortcut   then   
36                       view.name   =   view.comment   
37                 end   if   
38           next  
39       
40           '   go   into   the   sub-packages   
41           Dim   f   '   running   folder   
42           For   Each   f   In   folder.Packages   
43                 if   not   f.IsShortcut   then   
44                       ProcessFolder   f   
45                 end   if   
46           Next   
47     end   sub  

最终效果图如下

可以看到图1中的id列已被中文注释替换。

上述已亲测,执行命令1【从name替换comment】,显示列表中可以显示注释信息!

posted @ 2018-04-13 16:11  kaixinyufeng  阅读(5244)  评论(2编辑  收藏  举报