pd中設計工作中經常有些工作需要批量執行修改，採用其自帶的指令碼語言是個不錯的選則，下面這段指令碼根據表結構的查詢需要生成oracle的觸發器的列，對其生成相應的觸發期指令碼，可以直接執行

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
''ceaate by runnerrunning
' get the current active model
Dim mdl ' the current model
Set mdl = ActiveModel

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

   Dim aaa

   Set aaa = fso.OpenTextFile ("c://aaaa1.TXT", 2, True)'ceaate by runnerrunning
   If aaa is Nothing then
   output "errors file"
   return
   end if

If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
Else
   ListObjects(mdl)
   aaa.close
End If

'-----------------------------------------------------------------------------
' Sub procedure to scan current package and print information on objects from current package
' and call again the same sub procedure on all children pacakge
' of the current package
'-----------------------------------------------------------------------------
Private Sub ListObjects(fldr) '列出所有的物件
   'output "Scanning " & fldr.code
   Dim obj ' running object
   For Each obj In fldr.children
      ' Calling sub procedure to print out information on the object
      'DescribeObject obj
      TableSetComment obj'ceaate by runnerrunning
   Next

//本人原創[email protected]轉載請保留本資訊
//http://blog.csdn.net/runnerrunning
//大家看了別忘了點右邊的廣告阿支援一下[email protected]阿

   ' go into the sub-packages
   Dim f ' running folder
   For Each f In fldr.Packages '遞迴呼叫列出所有的物件
      'calling sub procedure to scan children package
      ListObjects f
   Next
End Sub
'ceaate by runnerrunning
'-----------------------------------------------------------------------------
' Sub procedure to print information on current object in output
'-----------------------------------------------------------------------------
Private Sub DescribeObject(CurrentObject)
   if not CurrentObject.Iskindof(cls_NamedObject) then exit sub
   'output "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by "+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate)  
End Sub
'ceaate by runnerrunning
Private Sub TableSetComment(CurrentObject)
   if not CurrentObject.Iskindof(cls_Table) then exit sub
   'output "Found "+CurrentObject.ClassName+" """+CurrentObject.Name+""", Created by "+CurrentObject.Creator+" On "+Cstr(CurrentObject.CreationDate)  
      if not CurrentObject.isShortcut then
         Dim col ' running column
         for each col in CurrentObject.columns
            if UCase(col.code)="MDF_TM" THEN
               'output CurrentObject.NAME
               'OUTPUT RIGHT(CurrentObject.CODE,LEN(CurrentObject.CODE) - 1)
              
               'OUTPUT
               'OUTPUT "--表"&CurrentObject.NAME&" MDF_TM BEFORE UPDATE 觸發器"
               'OUTPUT "--TR_MDF_"&CurrentObject.CODE&"_1"
               'OUTPUT "DROP TRIGGER TR_MDF_"&CurrentObject.CODE&"_1"
               'OUTPUT "/"
               'OUTPUT "--  BEFORE UPDATE TRIGGER TR_MDF_"&CurrentObject.CODE&"_1 FOR TABLE "&CurrentObject.CODE
               'OUTPUT "CREATE TRIGGER TR_MDF_"&CurrentObject.CODE&"_1 BEFORE UPDATE"
               'OUTPUT "ON "&CurrentObject.CODE&" FOR EACH ROW"
               'OUTPUT "BEGIN"
               'OUTPUT " :NEW.MDF_TM := SYSDATE;"
               'OUTPUT "END;"
               'OUTPUT "/"
              
               aaa.WriteLine("")
               aaa.WriteLine( "--表"&CurrentObject.NAME&" MDF_TM BEFORE UPDATE 觸發器")
               aaa.WriteLine( "--TR_MDF_"&CurrentObject.CODE&"_1")
               aaa.WriteLine( "DROP TRIGGER TR_MDF_"&CurrentObject.CODE&"_1")
               aaa.WriteLine( "/")
               aaa.WriteLine( "--  BEFORE UPDATE TRIGGER TR_MDF_"&CurrentObject.CODE&"_1 FOR TABLE "&CurrentObject.CODE )
               aaa.WriteLine( "CREATE TRIGGER TR_MDF_"&CurrentObject.CODE&"_1 BEFORE UPDATE")
               aaa.WriteLine( "ON "&CurrentObject.CODE&" FOR EACH ROW")
               aaa.WriteLine( "BEGIN")
               aaa.WriteLine( " :NEW.MDF_TM := SYSDATE;")
               aaa.WriteLine( "END;")
               aaa.WriteLine( "/")
              
            END IF
         next
      end if  
  
End Sub
//本人原創