PowerDesigner Oracle Comment 注释

1. Option   Explicit     
2. ValidationMode   =   True     
3. InteractiveMode   =   im_Batch  
4. Dim blankStr  
5. blankStr   =   Space(1)  
6. Dim   mdl   '   the   current   model    
7.     
8. '   get   the   current   active   model     
9. Set   mdl   =   ActiveModel     
10. If   (mdl   Is   Nothing)   Then     
11.       MsgBox   "There   is   no   current   Model "     
12. ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then     
13.       MsgBox   "The   current   model   is   not   an   Physical   Data   model. "     
14. Else     
15.       ProcessFolder   mdl     
16. End   If    
17.     
18. Private   sub   ProcessFolder(folder)     
19. On Error Resume Next    
20.       Dim   Tab   'running     table     
21.       for   each   Tab   in   folder.tables     
22.             if   not   tab.isShortcut   then     
23.                   tab.name   =   tab.comment    
24.                   Dim   col   '   running   column     
25.                   for   each   col   in   tab.columns     
26.                   if col.comment = "" or replace(col.comment," ", "")="" Then  
27.                         col.name = blankStr  
28.                         blankStr = blankStr & Space(1)  
29.                   else    
30.                         col.name = col.comment     
31.                   end if    
32.                   next     
33.             end   if     
34.       next    
35.     
36.       Dim   view   'running   view     
37.       for   each   view   in   folder.Views     
38.             if   not   view.isShortcut   then     
39.                   view.name   =   view.comment     
40.             end   if     
41.       next    
42.     
43.       '   go   into   the   sub-packages     
44.       Dim   f   '   running   folder     
45.       For   Each   f   In   folder.Packages     
46.             if   not   f.IsShortcut   then     
47.                   ProcessFolder   f     
48.             end   if     
49.       Next     
50. end   sub