sql server 2005和powerdesign 之间相互的导入

powerdesign(pw)原本是用来给用户对数据库设计的一个视觉的概念，并不能保证数据的完整性，所以当一个表被引用的关系很多时，整个pw对表的设计视觉上就很乱，比如：共有40张表，每张表都有创建人和更新人这两个字段，为保证数据的完整性，这两个字段必须是用户表对应的外键，因此就有40张表对1张表的外键关系，可以设想一下，在pw中表现出来的效果，一张用户表对应80多条外键引用，也许为了数据的完整性，这样是必要的，但是如果不影响业务逻辑我个人觉得还是没有必要这样表示出来，如果这个项目你给下一个人接受，看到你设计的PW，感觉一定很不舒服，只要保证对应数据库的完整性就OK了，

 

不过还是希望高人能指点一二，对于以上的观念

 

今天对pw和sqlserver之间的导入进行说明，找了好久才找出来，

当从pw导入sqlserver时，发现表的每个字段没有说明，此时我们需要在PowerDesigner中批量根据对象的name生成comment的脚本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 code 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 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

逆向工程时，发现导入到PW中的name和code一样，PowerDesigner中逆向工程将数据库中comment脚本赋值到PDM的name

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 code 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 if len(tab.comment) <> 0 then tab.name = tab.comment end if On Error Resume Next Dim col 'running column for each col in tab.columns if len(col.comment) <>0 then col.name =col.comment end if On Error Resume Next next end if next end sub

 

保存着留着以后用吧