<rt id="bn8ez"></rt>
<label id="bn8ez"></label>

  • <span id="bn8ez"></span>

    <label id="bn8ez"><meter id="bn8ez"></meter></label>

    PowerDesigner中name和comment互換

    1 PowerDesigner中批量根據(jù)對(duì)象的name生成comment的腳本

    執(zhí)行方法:Open PDM -- Tools -- Execute Commands -- Run Script

    Option Explicit                           
    ValidationMode 
    = True            
    InteractiveMode 
    = im_Batch   
                                                        
    Dim mdl 'the current model    
                                                        
    'get the current active model  
    Set mdl = ActiveModel            
    If (mdl Is NothingThen           
    MsgBox "There is no current Model"                                                                                            
    ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then                                                                       
    MsgBox "The current model is not an Physical Data model."                                                    
    Else                                                                                                                                                   
    ProcessFolder mdl                                                                                                                          
    End If                                                                                                                                                
                                                                                                                                                              
    'This routine copy name into code for each table, each column and each view                      
    '
    of the current folder                                                                                                                      
    Private sub ProcessFolder(folder)                                                                                                 
    Dim Tab 'running table                                                                                                                  
    for each Tab in folder.tables                                                                                                          
    if not tab.isShortcut then                                                                                                                
    tab.comment 
    = tab.name                                                                                                               
    Dim col 'running column                                                                                                               
    for each col in tab.columns                                                                                                            
    col.comment
    = col.name                                                                                                                 
    next                                                                                                                                                   
    end if                                                                                                                                                
    next                                                                                                                                                   
                                                                                                                                                              
    Dim view 'running view                                                                                                                 
    for each view in folder.Views                                                                                                         
    if not view.isShortcut then                                                                                                             
    view.comment 
    = view.name                                                                                                          
    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                                            

     

    2 PowerDesigner中逆向工程將數(shù)據(jù)庫(kù)中comment腳本賦值到PDM的name

    執(zhí)行方法:Open PDM -- Tools -- Execute Commands -- Run Script

    Option Explicit                                              
    ValidationMode 
    = True                               
    InteractiveMode 
    = im_Batch                      
                                                                           
    Dim mdl 'the current model                       
                                                                           
    'get the current active model                     
    Set mdl = ActiveModel                               
    If (mdl Is NothingThen                              
    MsgBox "There is no current Model"                                                                                                 
    ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then                                                                             
    MsgBox "The current model is not an Physical Data model."                                                         
    Else                                                                                                                                              
    ProcessFolder mdl                                                                                                                               
    End If                                                                                                                                            
                                                                                                                                                                   
    'This routine copy name into code for each table, each column and each view                           
    '
    of the current folder                                                                                                                            
    Private sub ProcessFolder(folder)                                                                                                      
                                                                                                                                                                   
    Dim Tab 'running table                                                                                                                        
    for each Tab in folder.tables                                                                                                                
    if not tab.isShortcut then                                                                                                                     
    if len(tab.comment) <> 0 then                                                                                                           
    tab.name 
    = tab.comment                                                                                               
    end if                                                                                                                              
    On Error Resume Next                                                                                                                
    Dim col 'running column                                                                                                   
    for each col in tab.columns                                                                                              
    if len(col.comment) <>0 then                                                                                                  
    col.name 
    =col.comment                                                                                                       
    end if                                                                                                        
    On Error Resume Next                                                                           
    next                                                                                                                   
    end if                                                          
    next                     
    end sub 


    眼鏡蛇

    posted on 2009-01-10 10:17 眼鏡蛇 閱讀(1660) 評(píng)論(1)  編輯  收藏 所屬分類: PowerDesigner

    評(píng)論

    # re: PowerDesigner中name和comment互換 2013-03-11 15:24 alex.yao

    very good  回復(fù)  更多評(píng)論   

    <2025年7月>
    293012345
    6789101112
    13141516171819
    20212223242526
    272829303112
    3456789

    導(dǎo)航

    統(tǒng)計(jì)

    常用鏈接

    留言簿(6)

    隨筆分類

    隨筆檔案

    文章分類

    文章檔案

    搜索

    最新評(píng)論

    閱讀排行榜

    評(píng)論排行榜

    主站蜘蛛池模板: 亚洲人成网站18禁止一区| 亚洲熟妇无码八AV在线播放| 99在线视频免费观看视频| 成年美女黄网站18禁免费| 日韩亚洲精品福利| 亚洲国产人成网站在线电影动漫| youjizz亚洲| 国产无限免费观看黄网站| 国产高清免费视频| 亚洲免费一区二区| 国产精品极品美女自在线观看免费 | 久久久久亚洲AV成人无码| 香蕉大伊亚洲人在线观看| 日本视频免费观看| 日本阿v免费费视频完整版| 亚洲综合色婷婷七月丁香| 亚洲国产一区二区三区在线观看| AAAAA级少妇高潮大片免费看| 亚洲精品蜜桃久久久久久| 免费播放国产性色生活片| 亚洲欭美日韩颜射在线二| 日韩av无码久久精品免费| 国产成人精品日本亚洲专区 | 四虎国产精品永久免费网址 | 亚洲综合网站色欲色欲| 国产精品免费AV片在线观看| 在线免费观看国产视频| 亚洲美女大bbbbbbbbb| 中文毛片无遮挡高清免费| 免费一级成人毛片| 亚洲精品国产高清在线观看| 亚洲精品无码永久在线观看| 久久久99精品免费观看| 亚洲色大网站WWW永久网站| 两性刺激生活片免费视频 | 国产福利在线观看永久免费| 亚洲成AV人片在线观看| 9久热这里只有精品免费| 亚洲首页在线观看| 亚洲精品无码av天堂| 免费观看国产网址你懂的|