PowerDesigner---导出SQL时自动生成注释
此时的SQL语句可从其中的Preview视图中得到，如下图所示：
这个时候生成的sql语句是没有注释的，而且sql语句可能也不是适合自己所对应的数据库语言。此时可以通过以下方法来生成注释并且选择所需的数据库语言。
1、为sql生成注释，操作如下，我用的是PowerDesigner12.5,在其中选择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
点击run后，可以看到刚刚的preview视图窗口中已经如下图所示
2、更换数据库sql语句。
选择Database---》change current DBMS,在DBMS中选择对应的数据库，如Microsoft SQL?Server?2005，点击确定后，然后选择Database---》Generate Database选项，在弹出的窗口中选择生成sql文件的保存路径，点击确定，则可看到生成的sql语言完全是按照sqlserver2005的标准。
