[Visual Basic]
Public Sub New()

Quellcode

[Visual Basic]
        Sub New() 
            Me.cpMainConnectionProvider = Globals.conn 
            'Verantwortung.cpMainConnectionProvider = Globals.conn 
            'Verantwortungen = Verantwortung.SelectAll 
 
            'Verantwortungen = Stammdaten.Get_Stammdaten("ApplikationVerantwortung", "Bezeichnung") 
            Verantwortungen = Stammdaten.Get_Gremium(1, 0) 
            RFCBoards = Stammdaten.Get_Gremium(4, 0) 
 
            'Kategorie.cpMainConnectionProvider = Globals.conn 
            'Kategorien = Kategorie.SelectAll 
            kategorien = stammdaten.Get_Stammdaten("Applikationkategorie", "Bezeichnung") 
 
            'Marktbereich.cpMainConnectionProvider = Globals.conn 
            'Marktbereiche = Marktbereich.SelectAll 
            Marktbereiche = Stammdaten.Get_Stammdaten("Marktbereich", "Bezeichnung") 
            Marktbereiche = Stammdaten.Get_Gremium(3, 0) 
 
            'Kritikalitaet.cpMainConnectionProvider = Globals.conn 
            'Kritikalitaeten = Kritikalitaet.SelectAll 
            Kritikalitaeten = stammdaten.Get_Stammdaten("ApplikationKritikalitaetTyp", "Bezeichnung") 
 
            'SLM.cpMainConnectionProvider = Globals.conn 
            'SLMs = SLM.SelectAll 
            SLMs = stammdaten.Get_Stammdaten("ApplikationSLMTyp", "Bezeichnung") 
 
            Installiert_auf.cpMainConnectionProvider = Globals.conn 
            Installiertauf = Installiert_auf.SelectAll 
 
            Installiert_als.cpMainConnectionProvider = Globals.conn 
            Installiertals = Installiert_als.SelectAll 
 
            Installation_Standard.cpMainConnectionProvider = Globals.conn 
            InstallationStandard = Installation_Standard.SelectAll 
 
            Testaufwand.cpMainConnectionProvider = Globals.conn 
            TestAufwendungen = Testaufwand.SelectAll 
 
            Teams = Stammdaten.Get_Stammdaten("ApplikationTeam", "Bezeichnung") 
            Periodizitäten = Stammdaten.Get_Stammdaten("Periodizitaet", "Sort") 
            SDAdministratoren = Stammdaten.Get_Stammdaten("SDAdministrator", "Bezeichnung") 
 
        End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

clsApplikation