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

PowerDesigner 生成注释以及对应数据库的 sql语句 关键字： 开发技术 , 数据库 在 powerBuilder 中新建一个 Physical Data Model，在其中新建一个用户表，信息如下图所示： 此时的 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: * V ersion: 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 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 把表明作为表注释，其实不用这么做 ment = Dim col running column for each col in tab.columns 把列 name 和 comment 合并为 comment ment= next end if next Dim view running view for each view in folder.Views if not view.isShortcut then ment = 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