Power Designer将表字段注释转换为模型
2015-08-14 14:51
155 查看
选择工具——Execute Commands——Edit /Run Script
将代码粘贴到此处,然后执行。即成功加入注释
将代码粘贴到此处,然后执行。即成功加入注释
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
相关文章推荐
- Dice (III) 概率dp
- shell基础知识
- Matlab与C/C++联合编程之Matlab以MEX方式调用C/C++代码(三)
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- OAF学习笔记-4-lov的制作
- GLib库安装与简析
- GET方式获取服务器数据---利用apache的jar包
- jsp页面显示课程表
- android开发(16) 遍历所有的已经安装的应用程序,启动其他的应用程序