• PowerDesigner Name 和 Comment 的互相转换


    原文:https://blog.csdn.net/markguo_/article/details/48289425



    1、执行方法

    路径:Open PDM -> Tools -> Execute Commands -> Run Script


    2、Comment 转换为 Name

    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 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 
    

    3、Name 转换为 Comment

    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 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 
    
  • 相关阅读:
    win10系统安装oracle11g时遇到INS-13001环境不满足最低要求
    C#文件重命名的代码
    自学MVC开发基础
    我的面试感悟-----3年工作经验的女程序员的感慨
    问心无愧,莫问前程
    Install your Application into RaspberryPi2 and automatically start up
    基于Vmware player的Windows 10 IoT core + RaspberryPi2安装部署
    MVC开发-后台开发总结
    页面长按禁止弹出选择菜单
    js检测链接(URL)是否有效
  • 原文地址:https://www.cnblogs.com/guxingy/p/13360516.html
Copyright © 2020-2023  润新知