编写Powerdesigner脚本,快速生成数据库表

PowerDesigner支持VBScript脚本,帮助生成数据库模型中的对象。具体功能入口在菜单Tools-->Execute Commands-->Edit/Run Script，下面是我写的一个快速生成数据库表的脚本，在我的项目实践中，因为有太多的表要从需求调研报告中提取出来，在PD中一个字段一个字段的输入实在太费劲了，就想了这个办法偷赖。代码如下：

Option Explicit

'-----------------------------------------------------------------------------
' Initialization
'-----------------------------------------------------------------------------
Dim system, file
Set system = CreateObject("Scripting.FileSystemObject")

' Open mode constants...
Dim ForReading, ForWriting, ForAppending
ForReading   = 1 ' Open a file for reading only. You can't write to this file.
ForWriting   = 2 ' Open a file for writing.
ForAppending = 8 ' Open a file and write to the end of the file.

'-----------------------------------------------------------------------------
' Main function
'-----------------------------------------------------------------------------

Set file = system.OpenTextFile("D:/table.txt", ForReading)
Dim noLine
Dim Tab  'table
ValidationMode = True
Dim mdl ' the current model
Dim Col
dim dm, dmstr
Dim SSS
Dim isNewTable
' get the current active model
Set mdl = ActiveModel

   For each dm in mdl.domains
      If Not dm.isShortcut Then
         If dm.code = "dm_pk" Then
            Exit For
         End If
      End If
   Next  
   For each dmstr in mdl.domains
      If Not dmstr.isShortcut Then
         If dmstr.code = "dm_string" Then
            Exit For
         End If
      End If
   Next  

set Tab = mdl.Tables.CreateNew
set Col=tab.Columns.CreateNew
Col.name = "ID"
Col.Code = "ID"
col.domain=dm
Col.Primary = True
isNewTable = True
Do While file.AtEndOfStream <> True
   SSS = file.ReadLine
   if isNewTable = True then
     if SSS <> "" then
       isNewTable = False
       tab.name = SSS
     end if
   elseif SSS = "" then
     set Tab = mdl.Tables.CreateNew
     set Col=tab.Columns.CreateNew
     Col.name = "ID"
     Col.Code = "ID"
     col.domain=dm
     Col.Primary = True
     isNewTable = True
   else 
     set Col=tab.Columns.CreateNew
     Col.name = SSS
     col.domain=dmstr
   end if 
Loop
file.Close

这样我只要将所需的实段名和表名放在文本文件中，不同的表以空行分开，就可以自动增加表了。

不过生成的字段名都是Column1...ColumnN,然后再一个一个改吧。