zoukankan      html  css  js  c++  java
  • PowerDesigner显示Common注释列并自动赋值

    PowerDesigner中默认不显示Common注释列,可根据以下步骤显示并紫东填充Name列内容。

    1、显示Common注释列

    2、运行VB Script脚本自动赋值

        使用Shift+Ctrl+X快捷键打开脚本运行窗口,粘贴以下代码执行即可。

         注:若Common列为空,则填充Name列内容;不为空则不变。

    '如果comment为空,则填入name;如果不为空,则保留不变,避免已有的注释丢失.
    
    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 
    
    if trim(tab.comment)="" then '如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面. 
    
    tab.comment = tab.name 
    
    end if 
    
    Dim col 
    
    for each col in tab.columns 
    
    if trim(col.comment)="" then '如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.
    
    col.comment= col.name 
    
    end if 
    
    next 
    
    end if 
    
    next 
    
    
    
    Dim view 
    
    for each view in folder.Views 
    
    if not view.isShortcut and trim(view.comment)="" then 
    
    view.comment = view.name 
    
    end if 
    
    next 
    
    Dim f 
    
    For Each f In folder.Packages 
    
    if not f.IsShortcut then 
    
    ProcessFolder f 
    
    end if 
    
    Next 
    
    end sub

     显示以下内容说明执行完成。

  • 相关阅读:
    SDUT OJ 2862 勾股定理
    交换排序(java)
    boost::asio的http client应用笔记
    Yii Framework2.0开发教程(1)配置环境及第一个应用HelloWorld
    排序
    python爬虫(一)抓取 色影无忌图片
    hdu3377之简单路径求最值
    hdu 4406 费用流
    1次查询优化的过程
    mysql中的group_concat函数的用法
  • 原文地址:https://www.cnblogs.com/gaozejie/p/9328229.html
Copyright © 2011-2022 走看看