pdm表name转备注(备忘)
来源:互联网 发布:邮件客户端 知乎 编辑:程序博客网 时间:2024/06/07 18:21
Tool --> execute commands
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
tab.comment = tab.name
Dim col 'running column
for each col in tab.columns
col.comment= col.name
next
end if
next
Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.comment = view.name
end if
next
'go into the sub-packages
Dim f 'running folder
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub
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
tab.comment = tab.name
Dim col 'running column
for each col in tab.columns
col.comment= col.name
next
end if
next
Dim view 'running view
for each view in folder.Views
if not view.isShortcut then
view.comment = view.name
end if
next
'go into the sub-packages
Dim f 'running folder
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub
0 0
- pdm表name转备注(备忘)
- pdm Comment转name
- PowerDesigner显示备注及把备注转换为表中的NAME
- pdm取消name code同步
- 【powerdesigner】将数据库表中Common转为PDM表中Name
- 【powerdesigner】将数据库表中Common转为PDM表中Name
- 【powerdesigner】将数据库表中Common转为PDM表中Name
- pdm 中怎么修改表的Name值时使Code值不变
- 将pdm中的注释拷贝到name
- 遇到的编程语法细节 备注 备忘
- Oracle 查询表信息(字段+备注)
- Oracle 查询表信息(字段+备注)
- Oracle 查询表信息(字段+备注)
- 由pdm生成表
- pdm如何查找表名
- pdm转sql
- pdm转excel
- PDM转EXCEL
- 无法更改关系
- Android Studio 快捷键
- 【ABAP】内表和数据库表的CRUD(增删改查)
- 使用POSIT算法估计物体角度
- C++中cin.get和cin.getline的区别
- pdm表name转备注(备忘)
- ZOJ 3819 Average Score (2014年牡丹江赛区现场赛A题)
- HDOJ 1003 Max Sum【MSS】
- adb pm命令
- Android实现QQ第三方登录
- iOS8新特性
- tr的简单使用
- 1056. Mice and Rice (25)
- Java Socket编程