`
wengsibo
  • 浏览: 83444 次
  • 性别: Icon_minigender_1
  • 来自: 福建
社区版块
存档分类
最新评论

PDM图形窗口中显示注释

阅读更多
'******************************************************************************
'* File:     comment2name.vbs
'* Purpose:  在PowerDesigner的PDM图形窗口中显示数据列的中文注释
'* Title:    将字段的comment赋值到字段的name中
'* Category: 打开物理模型,运行本脚本(Ctrl+Shift+X)
'* Copyright:foxzz@163.com,2006/07/25 .
'* Author:   foxzz
'* Created:  
'* Modified: 
'* Version:  1.0
'* Comment:  遍历物理模型中的所有表,将字段的comment赋值到字段的name中。
'            在将name置换为comment过程中,需要考虑的问题
'            1、name必须唯一,而comment有可能不唯一。
'               处理办法是如果字段的comment重复,则字段的name=comment+1、2、3...
'            2、comment值有可能为空,这种情况下对字段的name不处理。
'               针对oracle数据库,将comment on column 字段名称 is '';添加到C:\pdcomment.txt文件中。
'               在补充comment完毕后,便于在数据库中执行   
'执行方法:PD15   --   Open   PDM   --   Tools   --     Execute   Commands   --   Run   Script       
'******************************************************************************

Option Explicit 
ValidationMode = True 
InteractiveMode = im_Batch 

Dim system, file
Set system = CreateObject("Scripting.FileSystemObject")
Dim ForReading, ForWriting, ForAppending   '打开文件选项
ForReading   = 1 ' 只读 
ForWriting   = 2 ' 可写 
ForAppending = 8 ' 可写并追加
'打开文本文件,将没有注释的字段添加到文件中
Set file = system.OpenTextFile("C:\pdcomment.txt", ForWriting, true)


'判断当前model是否物理数据模型
Dim mdl
Set mdl = ActiveModel 
If (mdl Is Nothing) Then 
   MsgBox "处理对象无模型" 
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then 
   MsgBox "当前模型不是物理数据模型" 
Else 
   ProcessFolder mdl,file 
End If 
file.Close


'******************************************************************************
Private sub ProcessFolder(folder,file) 

Dim i,j,k
i=0:j=0:k=0

'列数组,记录字段里不重复的comment
Dim ColumnComment() 
Dim ColumnCommentNumber()
ReDim Preserve ColumnComment(i)
ReDim Preserve ColumnCommentNumber(i)

Dim tbl   '当前表
Dim col   '当前字段 
dim curComment  '当前字段comment

'处理模型中的表
for each tbl in folder.tables 
    if not tbl.isShortcut then 
       if len(trim(tbl.comment))<>0 then
          '可以在这里显示table的comment
          'tbl.name = tbl.name+"("+trim(tbl.comment)+")"
       end if   

       '处理表中的列
       for each col in tbl.columns 
           k = 0
           curComment = trim(col.comment)
           if len(curComment)<>0 then
              '遍历相异的comment数组
              for j = 0 to i
                  if ColumnComment(j) = curComment then
                     '如果找到相同的comment,则相关计数器加1
                     ColumnCommentNumber(j) = ColumnCommentNumber(j) + 1
                     k = j
                  end if 
              Next
              '如果没有相同的comment,则k=0,此时ColumnCommentNumber(0)也为0
              '否则ColumnCommentNumber(k)不为0
              if ColumnCommentNumber(k) <> 0 then
                 col.name = curComment & cstr(ColumnCommentNumber(k))
              else
                 col.name  = col.code+"#"+curComment
                 'ColumnComment(0)、ColumnCommentNumber(0)永远为空
                 '将相异的comment记录添加到数组中
                 i = i + 1
                 ReDim Preserve ColumnComment(i)
                 ReDim Preserve ColumnCommentNumber(i)
                 ColumnComment(i) = curComment
                 ColumnCommentNumber(i) = 0
              end if
           else
              '写入文件中
              file.WriteLine "comment on column "+ tbl.name+"."+col.code+" is '';"           
           end if
       next 
    end if 
    '由于不同表的name允许相同,因此此时重新初始化。
    '因为ColumnComment(0)、ColumnCommentNumber(0)为空,可以保留
    ReDim Preserve ColumnComment(0)
    ReDim Preserve ColumnCommentNumber(0)
    i=0:j=0:k=0

next 

Dim view  '当前视图
for each view in folder.Views 
    if not view.isShortcut then 
       '可以在这里显示view的comment
       'view.name =  view.comment
    end if 
next 

'对子目录进行递归
Dim subpackage 'folder
For Each subpackage In folder.Packages 
    if not subpackage.IsShortcut then 
       ProcessFolder subpackage , file
    end if 
Next 

end sub 


分享到:
评论

相关推荐

    pdm转成word文档操作步骤

    3. **选择导出内容**:在PDM模型窗口中,查看你要转换的具体内容,比如数据模型、流程图或其他设计元素。你可以通过模型浏览器或图形视图来定位需要导出的部分。 4. **设置导出选项**:在“Model”菜单下,选择...

    PowerDesigner(CDM—PDM—SQL脚本的转换流程

    - 使用工具栏中的“实体”工具在CDM窗口中创建实体。 - 双击实体以编辑其名称、描述等信息。 - 在“属性”标签页中添加实体属性。 3. **定义实体间的联系**: - 使用工具栏中的“关系”工具在实体之间创建联系...

    PowerDesigner教程系列

    3. 添加属性:在实体属性窗口的"Attribute"标签下添加属性,设置属性的名称、数据类型、是否为主标识符、是否显示在图形窗口等信息。 三、进一步操作 在PowerDesigner中,除了基本的实体和属性创建,还可以定义更...

    PowerDesigner导出表结构

    导入完成后,表结构会以图形化的方式展示在模型中,你可以清晰地看到每个表的字段、数据类型、主键和外键关系。这对于理解和修改数据库结构非常有帮助。 接下来,我们要导出表结构。选择“文件”&gt;“发布”&gt;“到文本...

    西域天狼定时系统

    5. `工程1.PDM`:这是项目数据库文件,包含了VB项目中引用的所有组件和设置。 6. `工程1.TXT`:可能是一个文本文件,记录了项目的一些相关信息或开发者留下的注释。 7. `工程1.vbp`:VB项目文件,包含了项目的元...

    wordTemplate.zip

    4. **生成报告**:完成模型设计后,选择"File" -&gt; "Report" -&gt; "Generate Report...",在弹出的窗口中,根据需求选择要导出的模型部分(如全部、CDM、LDM或PDM),然后点击"Generate"。PowerDesigner会使用选定的...

    PowerDesigner生成ER图

    在模型视图中,你可以切换到“图形”模式,PowerDesigner会自动根据模型生成ER图。你可以自定义图的布局,调整实体和关系的显示方式。 5. **完善模型** 添加注释、约束、索引等详细信息,使ER图更符合实际需求。...

    ERStudio8使用说明(汉化版)

    - **物理数据模型(PDM)**:LDM进一步细化成PDM,考虑数据库引擎的特定限制和最佳实践。 3. **关系图视图**: 这个视图是ERStudio的核心,它用图形方式展示实体、关系和属性,方便直观地理解模型。用户可以自定义...

    PowerDesigner 15.1 Core Features

    - **界面介绍**:PowerDesigner 15.1 提供了一个直观且易于使用的图形用户界面,其中包括了欢迎页面、浏览器窗口、属性表单和对象列表等功能模块。 - **欢迎页面**:当启动 PowerDesigner 时,首先会显示一个欢迎...

    step_src.zip_fogr4m_stepper_visual basic

    5. **SUN.ICO** - 这是程序的图标文件,显示在应用程序窗口的左上角以及任务栏上。 6. **stepper.mak** - 这是一个Makefile,用于构建过程,列出了编译和链接程序所需的步骤。 7. **stepper.PDM** - 这是项目数据...

    catia_v5_完全教程 catia_v5_完全教程

    CATIA V5的用户界面直观且可自定义,包括菜单栏、工具栏、工作台和图形窗口等部分。了解这些元素的位置和功能是开始学习的基础。用户可以根据自己的工作习惯调整界面布局。 2. **草图设计** 草图是创建3D模型的...

    PowerDesigner使用教程

    - **操作步骤**:双击表进入属性窗口,勾选“Columns”选项卡下的“comment”栏,便于添加和编辑字段注释。 **4. 表字段名称与代码分离** - **操作步骤**:通过“tools→GeneralOptions→Dialog”取消“Nameto...

    down.zip_Windows编程_Visual_Basic_

    Visual Basic,作为微软推出的一种面向对象的编程语言,以其直观的图形用户界面(GUI)和简单的语法结构,使得开发者可以快速构建功能丰富的应用程序。 压缩包内的文件包含了这个自动定时关机程序的所有组成部分: ...

Global site tag (gtag.js) - Google Analytics