如何使用PowerDesigner VBScript创建触发器并分配触发器模板?
我使用的是PowerDesigner v16,我创建了一个如何使用PowerDesigner VBScript创建触发器并分配触发器模板?,vbscript,powerdesigner,Vbscript,Powerdesigner,我使用的是PowerDesigner v16,我创建了一个扩展;在此扩展中添加了表类型的元类;在这个元类中使用VBScript创建了一个事件处理程序,以遍历所有表并在所有表中创建一些默认字段/列(属性) 但是现在我想利用这一点,我正在浏览所有的表,还通过VBScript创建一个标准的TriggerTemplate中的Trigger,我不知道如何通过VBScript实现这一点 我的主要问题是:如何使用VBScript创建Trigger,并分配TriggerTemplate 你能给我举个例子吗 可能
扩展;在此扩展中
添加了表类型的元类
;在这个元类中
使用VBScript创建了一个事件处理程序,以遍历所有表并在所有表中创建一些默认字段/列(属性)
但是现在我想利用这一点,我正在浏览所有的表,还通过VBScript
创建一个标准的TriggerTemplate
中的Trigger
,我不知道如何通过VBScript实现这一点
我的主要问题是:如何使用VBScript
创建Trigger
,并分配TriggerTemplate
你能给我举个例子吗
可能相关的问题:
-
- 下面是我用来浏览整个表并检查是否有标准列的函数:
注意:此功能在使用PDM建模的PowerDesigner中执行。此扩展的路径如下:defaultcolumns::Profile\Table\Event Handlers\Initialize
'******************************************************************************
' Função para checar se a coluna já existe na tabela.
'******************************************************************************
function ColumnExists(tab, name)
'output "ClassName: " + tab.ClassName
'Checa se a o objeto passano no parâmetro "tab" é do tipo Table (tabela)
if tab.ClassName = "Table" then
dim col
'Passa por todas as colunas da tabela
for each col in tab.Columns
'Checa se o nome da coluna atual já existe igual ao passado por parâmetro ("name")
if col.Name = name then
'output "... já existe " + col.Name
ColumnExists = true
exit function
end if
next
end if
ColumnExists = false
end function
'******************************************************************************
' Função responsável por criar as colunas padrao de uma tabela.
'******************************************************************************
Sub DoCreateColumns(tab)
' Checa se o objeto passado no parâmetro ("tab") é do tipo "Table"
if not tab.ClassName = "Table" then exit sub
dim c
dim myColumns, column
' Executa função "DefaultColumns()" serve para criar um array com todas as colunas padrão
myColumns = DefaultColumns()
'Passa por todas as colunas salvas'
for each column in myColumns
'Checa se esta coluna é um ID
if column.Name = "ID_" then
' Adiciona o nome da tabela junto com a palavra ID
column.Name = "ID_" + tab.Name
column.Code = column.Name
end if
'Checa se a coluna ja existe
if not ColumnExists(tab, column.Name) then
set c = tab.Columns.CreateNewAt(column.Position)
c.Name = column.Name
c.Code = column.Code
c.domain = column.Domain
c.Mandatory = column.Mandatory
output "... adding column " + column.Name + " table " + tab.Name
end if
next
End Sub
我用一个表创建了一个SAP SQL Anywhere 17 PDM,并将其保存为.PDM文件;然后在此表上添加基于模板的触发器,并将模型保存为新的.pdm文件。通过比较这些文件,我得到了一些关于触发器+模板表示的提示
特别是触发器模板已附加到触发器。通过快捷方式,因为模板在DBMS中,而触发器在模型中
<o:Table Id="o9">
<a:Name>Table_1</a:Name>
<a:Code>TABLE_1</a:Code>
<c:Triggers>
<o:Trigger Id="o10">
<a:Name>Trigger_1</a:Name>
<a:Code>TRIGGER_1</a:Code>
<c:BaseTrigger.TriggerItems>
<o:Shortcut Ref="o5"/>
<o:Shortcut Ref="o6"/>
</c:BaseTrigger.TriggerItems>
<c:TriggerTemplate> <===
<o:Shortcut Ref="o4"/> <===
</c:TriggerTemplate>
</o:Trigger>
</c:Triggers>
我无法理解这个例子。您可以详细介绍示例,甚至可以添加图像。拜托,我加了一个例子。
option explicit
' create model
dim mdl : set mdl = CreateModel(PDPdm.cls_PdmModel, "|DBMS=SAP SQL Anywhere 17")
' create table and trigger
dim tbl : set tbl = mdl.CreateObject(PDPdm.cls_Table)
dim trig : set trig = tbl.CreateObject(PDPdm.cls_Trigger)
' set trigger template
SetTemplate trig, "BeforeUpdateTrigger"
function SetTemplate(trg, typ)
SetTemplate = false
' find template
dim db : set db = trg.Model.DBMS
' in case of shared DBMS instead of embedded one
if db.IsShortcut() then set db = db.TargetObject
dim tm, found
for each tm in db.TriggerTemplates
if tm.name = typ then
set found = tm
exit for
end if
next
if IsEmpty(found) then exit function
' create shortcut alongside the table
dim fld : set fld = trg.Parent.Folder
dim short : set short = found.CreateShortcut(fld)
' assign, and initialize
set trg.TriggerTemplate = short
trg.InitFromTemplate
SetTemplate = true
end function