Powerd911 – Numéro #1 au Canada

Modèle conceptuel : Copie le nom de l’entité + attribut dans le code de l’attribut

dim model
set model = ActiveModel

If (model Is Nothing) Then
MsgBox « Il n’y a pas de modèle actif »
ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then
MsgBox « Ce n’est pas un modèle conceptuel »
Else
ProcessEntities model

End If

 

Private sub ProcessEntities(model)
Dim Entity, Attributes, Package

‘ Liste les entités
for each Entity in model.entities
output Entity.Name
if not Entity.isShortcut then
Entity.code = Entity.name

‘ Liste les attributs
for each Attribute in Entity.attributes
Attribute.code = Entity.name + « _ » + Attribute.name
output Attribute.code
next
end if
next

‘ Liste les packages
For Each Package In model.Packages
if not Package.IsShortcut then
ProcessEntities Package
end if
Next

end sub

Laisser un commentaire

Contacter nous
300 characters left