SQL ServerPowerDesigner-VBSrcipt-自动装主键,外键名等(SQL Server)

在PowerDesigner中之筹划SQL Server
数据表时,要求经vbScript脚论实现下面的作用:

 

主键:pk_TableName

外键:fk_TableName_ForeignKeyColumnList

 

当字段作为主键,而且档次为smallint,int,bigint,那么要安装Identity =true.

当字段作为主键,而且档次也uniqueidentifier,那么只要装默认值为newid(),而且设置扩大属性rowguidcol.

 

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl ' the current 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

Private sub ProcessFolder(folder)
    'Tables
   Dim tab
   for each tab in folder.tables

       dim col
       for each col in tab.columns 

            '自動設置Identity
            if col.primary =true and (col.datatype ="smallint" or col.datatype = "int"  or col.datatype = "bigint") then
               col.identity=true

            '自動設置ROWGUIDCOL   
            elseif col.primary=true and col.datatype="uniqueidentifier" then
               col.DefaultValueDisplayed="newid()"   
               col.SetExtendedAttributeText "ExtRowGUIDCol",true
            end if

       next    

      '自動設置主鍵
      dim ky
      for each ky in tab.Keys
            if ky.primary =true then
               ky.Name="pk_"+tab.Name
               ky.Code=ky.Name
               ky.ConstraintName=ky.Name
               ky.Clustered=true
            end if
      next

   next

   '自動設置外鍵
   dim ref
   for each ref in folder.References
      ref.name="fk_"+ref.ChildTable.Name +"_"+ref.ForeignKeyColumnList
      ref.Code=ref.Name
      ref.ForeignKeyConstraintName=ref.name
   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

 

 

相关文章