• pdm文件name与comment互相同步


    1.使用Powerdesigner工具将pdm文件的name同步至comment。

    点击Tools->Execute Commands->Edit/Run Scripts

    输入脚本:

    Option   Explicit  
    ValidationMode   =   True  
    InteractiveMode   =   im_Batch  
    Dim   mdl     
    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  
    Private   sub   ProcessFolder(folder)  
            Dim   Tab  
            for   each   Tab   in   folder.tables  
                  if   not   tab.isShortcut   then
                        tab.comment=tab.name
                        Dim   col 
                        for   each   col   in   tab.columns
                                                    if col.comment="" then
                                                        col.comment=col.name  
                                                    end if
                        next  
                  end   if            
            next
    end   sub
    

      

    点击Run即可。

    2.使用Powerdesigner工具将pdm文件的comment同步至name。

    点击Tools->Execute Commands->Edit/Run Scripts

    输入脚本:

    Option   Explicit  
    ValidationMode   =   True  
    InteractiveMode   =   im_Batch  
    Dim   mdl     
    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  
    Private   sub   ProcessFolder(folder)  
            Dim   Tab  
            for   each   Tab   in   folder.tables  
                  if   not   tab.isShortcut   then
                        tab.name=tab.comment
                        Dim   col 
                        for   each   col   in   tab.columns
                            col.name=col.comment  
                        next  
                  end   if            
            next
    end   sub
    

      

    点击Run即可。

    上述两个脚本就可以将pdm里面的name和comment进行互相同步转换了。

  • 相关阅读:
    2019年春季学期第三周作业
    第十二周作业
    十一周作业
    第十周作
    第九周作业
    第八周作业
    第七周作业
    第六周作业
    第五周作业
    第四周作业
  • 原文地址:https://www.cnblogs.com/yun965861480/p/11384977.html
Copyright © 2020-2023  润新知