zoukankan      html  css  js  c++  java
  • 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进行互相同步转换了。

  • 相关阅读:
    .Net培训个人总结笔记28
    .Net培训个人总结笔记32
    .Net培训个人总结笔记21
    Codeforces Round #751 (Div. 1 & 2) Solutions
    「CEOI2017」Mousetrap 题解
    「CQOI2017」小Q的表格 题解
    mysql 非数字字段注意事项
    认识key及新鲜应用模式.
    B2C的革命: QQ网购
    php语言流程控制中的主动与被动.
  • 原文地址:https://www.cnblogs.com/yun965861480/p/11384977.html
Copyright © 2011-2022 走看看