日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

powerdesigner导出sql时自动生成注释

發(fā)布時間:2024/6/18 编程问答 36 豆豆
生活随笔 收集整理的這篇文章主要介紹了 powerdesigner导出sql时自动生成注释 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

1. 選擇Tools -> Excute commands -> Edit/Run Script,打開窗口,添加以下腳本并運行

'******************************************************************************?
'*?? File:?????????? name2comment.vbs?
'*?? Purpose:???? Database?? generation?? cannot?? use?? object?? names?? anymore???
'???????????????????????? in?? version?? 7?? and?? above.?
'???????????????????????? It?? always?? uses?? the?? object?? codes.?
'
'???????????????????????? In?? case?? the?? object?? codes?? are?? not?? aligned?? with?? your???
'???????????????????????? object?? names?? in?? your?? model,?? this?? script?? will?? copy???
'???????????????????????? the?? object?? Name?? onto?? the?? object?? Comment?? for???
'???????????????????????? the?? Tables?? and?? Columns.?
'
'*?? Title:?????????
'*?? Version:???? 1.0?
'*?? Company:???? Sybase?? Inc.???
'******************************************************************************


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?? comment?? 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?
??????????????????????? '把列name和comment合并為comment
??????????????????????? 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

2. 選擇Database -> Generate Database選項導出sql

轉載于:https://www.cnblogs.com/luohoufa/p/4271164.html

總結

以上是生活随笔為你收集整理的powerdesigner导出sql时自动生成注释的全部內容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。