• power designer 显示comment

     PD  显示comment

    修改自 https://my.oschina.net/liweigov/blog/184386

    
    Option   Explicit    
    ValidationMode   =   True    
    InteractiveMode   =   im_Batch   
      
    Dim   mdl   '   the   current   model   
      
    '   get   the   current   active   model    
    Set   mdl   =   ActiveModel    
    If   (mdl   Is   Nothing)   Then    
          MsgBox   "There   is   no   Active   Model "    
    ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then    
          MsgBox   "The   current   model   is   not   an   Physical   Data   model. "    
    Else    
          ProcessFolder   mdl    
    End   If   
      
    Private   sub   ProcessFolder(folder)    
    On Error Resume Next   
          Dim   Tab   'running     table    
          for   each   Tab   in   folder.tables    
                if   not   tab.isShortcut   then    
                      tab.name   =   tab.comment   
                      Dim   col   '   running   column    
                      for   each   col   in   tab.columns    
                      if col.comment="" then   
                      else  
                            col.name=   col.code+" [ "+col.comment+" ]"    
                      end if  
                      next    
                end   if    
          next   
      
          Dim   view   'running   view    
          for   each   view   in   folder.Views    
                if   not   view.isShortcut   then    
                      view.name   =   view.code+" [ "+col.comment+" ]"   
                end   if    
          next   
      
          '   go   into   the   sub-packages    
          Dim   f   '   running   folder    
          For   Each   f   In   folder.Packages    
                if   not   f.IsShortcut   then    
                      ProcessFolder   f    
                end   if    
          Next    
    end   sub
    
    
    
    


        Option   Explicit      
        ValidationMode   =   True      
        InteractiveMode   =   im_Batch     
            
        Dim   mdl   '   the   current   model     
            
        '   get   the   current   active   model      
        Set   mdl   =   ActiveModel      
        If   (mdl   Is   Nothing)   Then      
              MsgBox   "There   is   no   Active   Model "      
        ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then      
              MsgBox   "The   current   model   is   not   an   Physical   Data   model. "      
        Else      
              ProcessFolder   mdl      
        End   If     
            
        Private   sub   ProcessFolder(folder)      
        On Error Resume Next     
              Dim   Tab   'running     table      
              for   each   Tab   in   folder.tables      
                    if   not   tab.isShortcut   then      
                          tab.name   =   tab.comment     
                          Dim   col   '   running   column      
                          for   each   col   in   tab.columns      
                          if col.comment="" then     
                          else    
                                col.name=    col.comment     
                          end if    
                          next      
                    end   if      
              next     
            
              Dim   view   'running   view      
              for   each   view   in   folder.Views      
                    if   not   view.isShortcut   then      
                          view.name   =   col.comment   
                    end   if      
              next     
            
              '   go   into   the   sub-packages      
              Dim   f   '   running   folder      
              For   Each   f   In   folder.Packages      
                    if   not   f.IsShortcut   then      
                          ProcessFolder   f      
                    end   if      
              Next      
        end   sub  
    相关文章
    相关标签/搜索
    每日一句
      每一个你不满意的现在,都有一个你没有努力的曾经。
    公众号推荐
       一个历史类的公众号,欢迎关注
    一两拨千金
    4887铁算王中王开奖结果小说 板桥市| 周宁县| 兴宁市| 沾化县| 新郑市| 麦盖提县| 宝山区| 香港| 太湖县| 乌拉特中旗| 莱西市| 大邑县| 沛县| 澄江县| 南丰县| 永顺县| 芦山县| 车致| 拉萨市| 文安县| 雷山县| 舒城县| 中牟县| 东安县| 新乐市| 孙吴县| 花垣县| 饶平县| 桐庐县| 铜山县| 定结县| 桐城市| 玉溪市| 皋兰县| 龙海市| 达州市| 望奎县| http://fa.hz0j0r3vo.fun http://fa.hz0j2r8vo.fun http://fa.hz0j0r4vo.fun http://fa.hz0j2r1vo.fun http://fa.hz0j1r7vo.fun