Réserver une Démo

SVP notez : Cette page d’aide n’est pas pour la dernière version d’Enterprise Architect. La dernière aide peut être trouvée ici.

Pré. Proc.

Repository Extras

These are examples of code for accessing repository collections for system-level information.

Sub RepositoryExtras

     Dim o as object
     Dim idx as integer

     'issues
     o = m_Repository.Issues.AddNew("Problem","Type")
     If(o.Update=false) Then
          Console.WriteLine (o.GetLastError())
     End if
     o = nothing
     m_Repository.Issues.Refresh
     For idx = 0 to m_Repository.Issues.Count-1
          Console.Writeline(m_Repository.Issues.GetAt(idx).Name)
          If(m_Repository.Issues.GetAt(idx).Name = "Problem") then
               m_Repository.Issues.DeleteAt(idx,false)
               Console.WriteLine("Delete Issues")
          End if
     Next

     ''tasks
     o = m_Repository.Tasks.AddNew("Task 1","Task type")
     If(o.Update=false) Then
          Console.WriteLine ("error - " + o.GetLastError())
     End if
     o = nothing
     m_Repository.Tasks.Refresh
     For idx = 0 to m_Repository.Tasks.Count-1
          Console.Writeline(m_Repository.Tasks.GetAt(idx).Name)
          If(m_Repository.Tasks.GetAt(idx).Name = "Task 1") then
               m_Repository.Tasks.DeleteAt(idx,false)
               Console.WriteLine("Delete Tasks")
          End if
     Next

     ''glossary
     o = m_Repository.Terms.AddNew("Term 1","business")
     If(o.Update=false) Then
          Console.WriteLine ("error - " + o.GetLastError())
     End if
     o = nothing
     m_Repository.Terms.Refresh
     For idx = 0 to m_Repository.Terms.Count-1
          Console.Writeline(m_Repository.Terms.GetAt(idx).Term)
          If(m_Repository.Terms.GetAt(idx).Term = "Term 1") then
               m_Repository.Terms.DeleteAt(idx,false)
               Console.WriteLine("Delete Terms")
          End if
     Next

     'authors
     o = m_Repository.Authors.AddNew("Joe B","Writer")
     If(o.Update=false) Then
          Console.WriteLine (o.GetLastError())
     End if
     o = nothing
     m_Repository.Authors.Refresh
     For idx = 0 to m_Repository.authors.Count-1
          Console.Writeline(m_Repository.Authors.GetAt(idx).Name)
          If(m_Repository.authors.GetAt(idx).Name = "Joe B") then
               m_Repository.authors.DeleteAt(idx,false)
               Console.WriteLine("Delete Authors")
          End if
     Next

     o = m_Repository.Clients.AddNew("Joe Sphere","Client")
     If(o.Update=false) Then
          Console.WriteLine (o.GetLastError())
     End if
     o = nothing
     m_Repository.Clients.Refresh
     For idx = 0 to m_Repository.Clients.Count-1
          Console.Writeline(m_Repository.Clients.GetAt(idx).Name)
          If(m_Repository.Clients.GetAt(idx).Name = "Joe Sphere") then
               m_Repository.Clients.DeleteAt(idx,false)
               Console.WriteLine("Delete Clients")
          End if
     Next

     o = m_Repository.Resources.AddNew("Joe Worker","Resource")
     If(o.Update=false) Then
          Console.WriteLine (o.GetLastError())
     End if
     o = nothing
     m_Repository.Resources.Refresh
     For idx = 0 to m_Repository.Resources.Count-1
          Console.Writeline(m_Repository.Resources.GetAt(idx).Name)
          If(m_Repository.Resources.GetAt(idx).Name = "Joe Worker") then
               m_Repository.Resources.DeleteAt(idx,false)
               Console.WriteLine("Delete Resources")
          End if
     Next

End Sub