文档库 最新最全的文档下载
当前位置:文档库 › PowerDesigner生成注释以及对应数据库的sql语句

PowerDesigner生成注释以及对应数据库的sql语句

PowerDesigner生成注释以及对应数据库的sql语句
PowerDesigner生成注释以及对应数据库的sql语句

PowerDesigner生成注释以及对应数据库的sql语句

关键字:开发技术, 数据库

在powerBuilder中新建一个Physical Data Model,在其中新建一个用户表,信息如下图所示:

此时的SQL语句可从其中的Preview视图中得到,如下图所示:

这个时候生成的sql语句是没有注释的,而且sql语句可能也不是适合自己所对应的数据库语言。此时可以通过以下方法来生成注释并且选择所需的数据库语言。

1、为sql生成注释,操作如下,我用的是PowerDesigner12.5,在其中选择T ool s----》Excute commands-----》Edit/Run Script打开的窗口中添加以下信息

'******************************************************************************

'* File: name2comment.vbs

'* Purpose: Database generation cannot use object names anymore

' in versi on 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 T ables and Columns.

'

'* Title:

'* V ersion: 1.0

'* Company: Sybase Inc.

'******************************************************************************

Option Explicit

V alidationMode = True

InteractiveMode = im_Batch

Dim mdl ' the current model

' get the current acti ve model

Set mdl = ActiveModel

If (mdl Is Nothing) Then

MsgB ox "There i s no current Model "

ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then

MsgB ox "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.i sShortcut then

'把表明作为表注释,其实不用这么做

https://www.wendangku.net/doc/db9806283.html,ment = https://www.wendangku.net/doc/db9806283.html,

Dim col ' running column

for each col in tab.col umns

'把列name和comment合并为comment

https://www.wendangku.net/doc/db9806283.html,ment= https://www.wendangku.net/doc/db9806283.html,

next

end if

next

Dim view 'running view

for each view in folder.Views

if not view.isShortcut then

https://www.wendangku.net/doc/db9806283.html,ment = https://www.wendangku.net/doc/db9806283.html,

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语言完全是按照sql server2005的标准。如下图所示:

相关文档