Dokumentation: Projekt Kundenverwaltung (2009 - ) Modul: Ansichten

Details
Kategorie: Archivierte Beiträge

'Kundenverwaltung.odb Ansichten

'Kundenverwaltung.odb Modul Ansichten
REM Konstanten für Texte


'Willkommen View Benutzer Texte verwendet in SUB Symbolleisten_Ausblenden 'ALS STANDARD AKTION BLENDEN WIR ERST MAL ALLES AUS!.
Const sTextWillkommen1 = "Willkommen in der Kundenverwaltung"
Const sTextWillkommen2 = "Hinweis: Alle! Libre Office Menü und Symbolleisten wurden geschlossen"
Const sTextWillkommen3 = "Sie können diese Symbolleisten und Menüs in den Einstellungen wieder einblenden"
Const sTextWillkommen4 = "....................."
Const sTextWillkommen5 = "Willkommen in der Kundenverwaltung (Gast)"
'Willkommen Benutzer Texte
Const sTextWillkommenGroupBe1 = "Willkommen Benutzer"
Const sTextWillkommenGroupBe2 = "Die Kundenverwaltung für Benutzer wurde erfolgreich geöffnet"
Const sTextWillkommenGroupBe3 = "Sie können nun Einträge Verwalten"
Const sTextWillkommenGroupBe4 = "...."
Const sTextWillkommenGroupBe5 = "Willkommen in der Kundenverwaltung"
'Willkommen Admin Texte mit Symbolleisten
Const sTextWillkommenGroupAd1 = "Willkommen Admin (S)"
Const sTextWillkommenGroupAd2 = "Die Kundenverwaltung für Admins wurde erfolgreich mit Symbolleisten geöffnet (S)"
Const sTextWillkommenGroupAd3 = "Sie können diese Datenbank Verwalten (S)"
Const sTextWillkommenGroupAd4 = "...."
Const sTextWillkommenGroupAd5 = "Willkommen in der Kundenverwaltung (S)"
'Willkommen Developer Texte mit ALLEN Symbolleisten
Const sTextWillkommenGroupDe1 = "Willkommen Entwickler (View=SKAL)"
Const sTextWillkommenGroupDe2 = "Alle System Symbolleisten und Menüs wurden aktiviert (SKAL)"
Const sTextWillkommenGroupDe3 = "Sie können alles Verwalten (SSKAL)"
Const sTextWillkommenGroupDe4 = "...."
Const sTextWillkommenGroupDe5 = "Willkommen Entwickler (SKAL)"
'SystemTexte
Const sTextAbgebrochen1 = "Beenden Aktion wurde abgebrochen."
Const sTextAbgebrochen2 = "Die Kundenverwaltung bleibt geöffnet."
Const sTextAbgebrochen3 = "Hinweis"

'Ansicht Texte
'Normal, alle Formular und Menue Leisten werden eingeblendet
'BEENDEN Gast
Const sTextNormalEnde1 = "Libre Office wird geschlossen"
Const sTextNormalEnde2 = "......."
Const sTextNormalEnde3 = "......."
const sTextNormalEnde4 = "Neustart sollte den mit den gleichen Leisten und Menues erfolgen (N).."
const sTextNormalEnde5 = "Vielen Dank und auf Wiedersehen"
'BEENDEN Gruppen
'Benutzer, alle Formular und Menue Leisten werden eingeblendet
Const sTextBenutzerSymMenueEnde1 = "Libre Office Kundenverwaltung für Benutzer wird geschlossen"
Const sTextBenutzerSymMenueEnde2 = "......."
Const sTextBenutzerSymMenueEnde3 = "Die Benutzer Symolleisten und Menu(es) werden geladen"
const sTextBenutzerSymMenueEnde4 = "Neustart sollte den mit den gleichen Leisten und Menues erfolgen (B).."
const sTextBenutzerSymMenueEnde5 = "Vielen Dank und auf Wiedersehen"
'Admin, alle üblichen Meue und Leisten werden eingeblendet
Const sTextAdminSymMenueEnde1 = "Libre Office Kundenverwaltung für Admin wird geschlossen"
Const sTextAdminSymMenueEnde2 = "......."
Const sTextAdminSymMenueEnde3 = "Die Admin Symolleisten und Menu(es) werden geladen"
const sTextAdminSymMenueEnde4 = "Neustart sollte den mit den gleichen Leisten und Menues erfolgen (B).."
const sTextAdminSymMenueEnde5 = "Standard wird geladen"
'Developer, alle Menue und Leisten werden eingeblendet
Const sTextDeveloperSymMenueEnde1 = "Libre Office Kundenverwaltung für Developer wird geschlossen"
Const sTextDeveloperSymMenueEnde2 = "......."
Const sTextDeveloperSymMenueEnde3 = "alle verfügbaren Symbolleisten wurden geladen."
const sTextDeveloperSymMenueEnde4 = "Neustart sollte den mit den gleichen Leisten und Menues erfolgen (D).."
const sTextDeveloperSymMenueEnde5 = "Vielen Dank und auf Wiedersehen"
'Fehler Texte
Const sTextUnerwarteterFehler1 = "Es trat ein unerwarteter Fehler auf."
Const sTextUnerwarteterFehler2 = "Falls möglich wird mit dem Programmablauf fortgefahren. Wenn Sie bemerken das länger als 20 Sekunden nichts weiter angezeigt wird, ist es ein schwerwiegender Fehler. Falls möglich laden Sie das Formular: Einstellungen"
Const sTextUnerwarteterFehler3 = "Fehlemeldung"
'Benutzer Texte
Const sTextFormKundenverwaltungBenutzerFensterTitel = "Kundenverwaltung Benutzer"
Const sTextFormBenutzerModusFrage = "Kundenverwaltung als Benutzer öffnen?"
'Admin Texte
Const sTextFormKundenverwaltungAdminFensterTitel = "Kundenverwaltung Admin"
Const sTextFormAdminModusFrage = "Kundenverwaltung als Admin öffnen?"
Const sTextFormKundenverwaltungWillommenInhalt = "Wollen Sie wirklich im Admin Modus Arbeiten? Falls nicht: einfach Nein Klicken ;)"
'Admin Texte Frage Anicht mit Symbolleisten in Forms
Const sTextFormKundenverwaltungAdminFensterTitelS = "Kundenverwaltung Admin mit Symbolleisten"
Const sTextFormAdminModusFrageS = "Kundenverwaltung als Admin mit Symbolleisten öffnen?"
Const sTextFormKundenverwaltungWillommenInhaltS = "Wollen Sie im Admin Modus mit den wichtigsten Formular Symbolleisten Arbeiten? Falls nicht: einfach Nein Klicken ;)"
'Admin Texte Frage Anicht mit ALLEN Symbolleisten in Forms
Const sTextFormKundenverwaltungAdminFensterTitelSKAL = "Entwicklermodus aktivieren"
Const sTextFormAdminModusFrageSKAL = "Kundenverwaltung als Entwickler und mit ALLEN Symbolleisten und Menüs öffnen?"
Const sTextFormKundenverwaltungWillommenInhaltSKAL = "Wollen Sie im Entwickler Modus Arbeiten? Falls nicht: einfach Nein Klicken und Sie Arbeiten im Admin Modus mit den wichtigsten Symbolleisten und Menüs ;)"

'Benutzer und Admin Texte
Const sTextFormKundenverwaltungFensterTitel = "Kundenverwaltung"



'Die nachfolgende Funktion wird durch die SUB Vollbild_einBtn SUB Vollbild_ausBtn etc.. Prozeduren eingeschaltet.
'In den Prozeduren läuft gleichzeitig die vorhergehende Prozedur zum Ausblenden der Symbolleisten ab – sonst erscheint die
'Symbolleiste, mit der der Vollbildmodus wieder ausgeschaltet werden kann.
'Auch dies ist eine Symbolleiste, wenn auch nur mit einem Symbol.
FUNCTION Fullscreen(boSwitch AS BOOLEAN)
    'Formulare im Vollbildmodus
    'Beim Vollbildmodus wird der gesamte Bildschirm vom Formular bedeckt.
    'Hier steht keine Kontrollleiste o.ä. mehr zur Verfügung
    'die gegebenenfalls anzeigt, ob noch irgendwelche anderen Programme laufen.
    DIM oDispatcher AS OBJECT
    DIM Props(0) AS NEW com.sun.star.beans.PropertyValue
    oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    Props(0).Name = "FullScreen"
    Props(0).Value = boSwitch
    oDispatcher.executeDispatch(ThisComponent.CurrentController.Frame,".uno:FullScreen", "", 0, Props())
END FUNCTION

'Diese Funktion wird durch die folgenden Prozeduren eingeschaltet.
'In den Prozeduren läuft gleichzeitig die vorhergehende Prozedur zum Ausblenden der Symbolleisten ab – sonst erscheint die
'Symbolleiste, mit der der Vollbildmodus wieder ausgeschaltet werden kann.
'Auch dies ist eine Symbolleiste, wenn auch nur mit einem Symbol.
SUB Vollbild_einBtn
    Fullscreen(true)
    'Symbolleisten_Ausblenden
END SUB

SUB Vollbild_ausBtn
    'Aus dem Vollbild-Modus geht es wieder heraus über die 'ESC'-Taste.
    'Wenn stattdessen ein Button mit einem entsprechenden Befehl belegt werden soll,
    'so reichen auch die folgenden Zeilen:
    Fullscreen(false)
    'Symbolleisten_Formulare_Einblenden
END SUB


SUB Symbolleisten_Ausblenden 'ALS STANDARD AKTION BLENDEN WIR ERST MAL ALLES AUS!_ Gedacht für FormHomeAutoStart
'Texte: sTextWillkommenViewSingle
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()
                        'Redirect zu einem bestimmten Formular by Name?
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(true) 'true = mit DB Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)
                        'oForm.reload() ' Formular neu laden
                            
        'Die einzelnen anzuzeigenden Elemente ausklammern     
            lmgr.hideElement("private:resource/menubar/menubar") 'Menü  
            lmgr.hideElement("private:resource/statusbar/statusbar")
            lmgr.hideElement("private:resource/toolbar/formsnavigationbar")
            lmgr.hideElement("private:resource/toolbar/standardbar")
            lmgr.hideElement("private:resource/toolbar/formdesign")
            lmgr.hideElement("private:resource/toolbar/formcontrols")   
            lmgr.hideElement("private:resource/toolbar/alignmentbar")
            lmgr.hideElement("private:resource/toolbar/arrowshapes")
            lmgr.hideElement("private:resource/toolbar/basicshapes")
            lmgr.hideElement("private:resource/toolbar/bezierobjectbar")
            lmgr.hideElement("private:resource/toolbar/calloutshapes")
            lmgr.hideElement("private:resource/toolbar/colorbar")
            lmgr.hideElement("private:resource/toolbar/drawbar")
            lmgr.hideElement("private:resource/toolbar/drawingobjectbar")
            lmgr.hideElement("private:resource/toolbar/drawtextobjectbar")
            lmgr.hideElement("private:resource/toolbar/extrusionobjectbar")
            lmgr.hideElement("private:resource/toolbar/flowchartshapes")
            lmgr.hideElement("private:resource/toolbar/fontworkobjectbar")
            lmgr.hideElement("private:resource/toolbar/fontworkshapetype")
            lmgr.hideElement("private:resource/toolbar/formsfilterbar")
            lmgr.hideElement("private:resource/toolbar/formtextobjectbar")
            lmgr.hideElement("private:resource/toolbar/frameobjectbar")
            lmgr.hideElement("private:resource/toolbar/fullscreenbar")
            lmgr.hideElement("private:resource/toolbar/graffilterbar")
            lmgr.hideElement("private:resource/toolbar/graphicobjectbar")
            lmgr.hideElement("private:resource/toolbar/insertbar")
            lmgr.hideElement("private:resource/toolbar/insertobjectbar")
            lmgr.hideElement("private:resource/toolbar/mediaobjectbar")
            lmgr.hideElement("private:resource/toolbar/moreformcontrols")
            lmgr.hideElement("private:resource/toolbar/numobjectbar")
            lmgr.hideElement("private:resource/toolbar/oleobjectbar")
            lmgr.hideElement("private:resource/toolbar/optimizetablebar")
            lmgr.hideElement("private:resource/toolbar/previewobjectbar")
            lmgr.hideElement("private:resource/toolbar/starshapes")
            lmgr.hideElement("private:resource/toolbar/symbolshapes")
            lmgr.hideElement("private:resource/toolbar/tableobjectbar")
            lmgr.hideElement("private:resource/toolbar/textobjectbar")
            lmgr.hideElement("private:resource/toolbar/toolbar")
            lmgr.hideElement("private:resource/toolbar/viewerbar")

        'Benutzermodus Ende
        'msgbox aElemente(i).ResourceURL
        'oLayoutMng.hideElement(aElemente(i).ResourceURL)
        'Load direkt mit Angabe DEBUG
        'oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Einstellungen",FALSE)
    'Willkommensgruß Benutzer Ansicht im Fenstermodus
    MsgBox(sTextWillkommen1 + Chr(13) + sTextWillkommen2 + Chr(13) + sTextWillkommen3 + Chr(13) + sTextWillkommen4,64,sTextWillkommen5)
END SUB

SUB Symbolleisten_Gast_Einblenden
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()
                        'Redirect zu einem bestimmten Formular by Name?
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(false) 'Admin Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)
                        'oForm.reload() ' Formular neu laden

                        'Formular und andere Symbolleisten einblenden Start
                         Dim statusbar(6) As String 'Wir laden die Statusbar Liste bis 6 als String zum Auswählen:
                        statusbar(0) = "private:resource/menubar/menubar"
                        statusbar(1) = "private:resource/statusbar/statusbar"
                        statusbar(2) = "private:resource/toolbar/formsnavigationbar"
                        statusbar(3) = "private:resource/toolbar/standardbar"
                        statusbar(4) = "private:resource/toolbar/formdesign"
                        statusbar(5) = "private:resource/toolbar/formcontrols"
                        statusbar(6) = "private:resource/toolbar/formsnavigationbar"
                        ' Liste erstellen für wichtige Standard und Formular Symbolleisten Start
                        For Each i In statusbar()
                            If Not(lmgr.requestElement(i)) Then
                                lmgr.createElement(i)
                            Endif
                                lmgr.showElement(i)
                            Next i                            
                        'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
                        'Nachricht als MSGBOX TITLE sTextWillkommen5 ausgeben
    MsgBox(sTextWillkommen1 + Chr(13) + sTextWillkommen2 + Chr(13) + sTextWillkommen3 + Chr(13) + sTextWillkommen4,64,sTextWillkommen5)
END SUB

SUB Symbolleisten_Benutzer_Einblenden
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()
                        'Redirect zu einem bestimmten Formular by Name?
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(false) 'Benutzer Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)
                        'oForm.reload() ' Formular neu laden

                        'Formular und andere Symbolleisten einblenden Start
                         Dim statusbar(6) As String 'Wir laden die Statusbar Liste bis 6 als String zum Auswählen:
                        statusbar(0) = "private:resource/menubar/menubar"
                        statusbar(1) = "private:resource/statusbar/statusbar"
                        statusbar(2) = "private:resource/toolbar/formsnavigationbar"
                        statusbar(3) = "private:resource/toolbar/standardbar"
                        statusbar(4) = "private:resource/toolbar/formdesign"
                        statusbar(5) = "private:resource/toolbar/formcontrols"
                        statusbar(6) = "private:resource/toolbar/formsnavigationbar"
                        ' Liste erstellen für wichtige Standard und Formular Symbolleisten Start
                        For Each i In statusbar()
                            If Not(lmgr.requestElement(i)) Then
                                lmgr.createElement(i)
                            Endif
                                lmgr.showElement(i)
                            Next i                            
                        'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
                        'Nachricht als MSGBOX TITLE sTextWillkommenAllS5 ausgeben
    MsgBox(sTextWillkommenGroupBe1 + Chr(13) + sTextWillkommenGroupBe2 + Chr(13) + sTextWillkommenGroupBe3 + Chr(13) + sTextWillkommenGroupBeS4,64,sTextWillkommenGroupBe5)

END SUB

SUB Symbolleisten_Admin_Einblenden
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()  
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(true) 'Admin Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)

                    'Formular und andere Symbolleisten einblenden Start
                         Dim allstatusbar(39) As String 'Wir laden die allStatusbar Liste bis 39 als String zum Auswählen:
                                    allstatusbar(0) = "private:resource/menubar/menubar"
                                    allstatusbar(1) = "private:resource/statusbar/statusbar"
                                    allstatusbar(2) = "private:resource/toolbar/formsnavigationbar"
                                    allstatusbar(3) = "private:resource/toolbar/standardbar"
                                    allstatusbar(4) = "private:resource/toolbar/formdesign"
                                    allstatusbar(5) = "private:resource/toolbar/formcontrols"
                                    'allstatusbar(7) = "private:resource/toolbar/alignmentbar"
                                    'allstatusbar(8) = "private:resource/toolbar/arrowshapes"
                                    'allstatusbar(9) = "private:resource/toolbar/basicshapes"
                                    'allstatusbar(10) = "private:resource/toolbar/bezierobjectbar"
                                    'allstatusbar(11) = "private:resource/toolbar/calloutshapes"
                                    'allstatusbar(12) = "private:resource/toolbar/colorbar"
                                    'allstatusbar(13) = "private:resource/toolbar/drawbar"
                                    'allstatusbar(14) = "private:resource/toolbar/drawingobjectbar"
                                    'allstatusbar(15) = "private:resource/toolbar/drawtextobjectbar"
                                    'allstatusbar(16) = "private:resource/toolbar/extrusionobjectbar"
                                    'allstatusbar(17) = "private:resource/toolbar/flowchartshapes"
                                    'allstatusbar(18) = "private:resource/toolbar/fontworkobjectbar"
                                    'allstatusbar(19) = "private:resource/toolbar/fontworkshapetype"
                                    'allstatusbar(20) = "private:resource/toolbar/formsfilterbar"
                                    'allstatusbar(21) = "private:resource/toolbar/formtextobjectbar"
                                    'allstatusbar(22) = "private:resource/toolbar/frameobjectbar"
                                    'allstatusbar(23) = "private:resource/toolbar/fullscreenbar"
                                    'allstatusbar(24) = "private:resource/toolbar/graffilterbar"
                                    'allstatusbar(25) = "private:resource/toolbar/graphicobjectbar"
                                    'allstatusbar(26) = "private:resource/toolbar/insertbar"
                                    'allstatusbar(27) = "private:resource/toolbar/insertobjectbar"
                                    'allstatusbar(28) = "private:resource/toolbar/mediaobjectbar"
                                    'allstatusbar(29) = "private:resource/toolbar/moreformcontrols"
                                    'allstatusbar(30) = "private:resource/toolbar/numobjectbar"
                                    'allstatusbar(31) = "private:resource/toolbar/oleobjectbar"
                                    'allstatusbar(32) = "private:resource/toolbar/optimizetablebar"
                                    'allstatusbar(33) = "private:resource/toolbar/previewobjectbar"
                                    'allstatusbar(34) = "private:resource/toolbar/starshapes"
                                    allstatusbar(35) = "private:resource/toolbar/symbolshapes"
                                    allstatusbar(36) = "private:resource/toolbar/tableobjectbar"
                                    allstatusbar(37) = "private:resource/toolbar/textobjectbar"
                                    allstatusbar(38) = "private:resource/toolbar/toolbar"
                                    allstatusbar(39) = "private:resource/toolbar/viewerbar"
                                    ' Liste erstellen für ALLE Symbolleisten
                                     For Each i In allstatusbar()
                                    If Not(lmgr.requestElement(i)) Then
                                        lmgr.createElement(i)
                                    Endif
                                    lmgr.showElement(i)
                                    Next i
                                    'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
            'Nachricht als MSGBOX TITLE sTextWillkommenAllSKAL5 ausgeben
            MsgBox(sTextWillkommenGroupAd1 + Chr(13) + sTextWillkommenGroupAd2 + Chr(13) + sTextWillkommenGroupAd3 + Chr(13) + sTextWillkommenGroupAd4,64,sTextWillkommenGroupAd)    
END SUB

SUB Symbolleisten_Developer_Einblenden
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()  
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(true) 'Admin Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)

                    'Formular und andere Symbolleisten einblenden Start
                         Dim dllstatusbar(39) As String 'Wir laden die dllStatusbar Liste bis 39 als String zum Auswählen:
                                    dllstatusbar(0) = "private:resource/menubar/menubar"
                                    dllstatusbar(1) = "private:resource/statusbar/statusbar"
                                    dllstatusbar(2) = "private:resource/toolbar/formsnavigationbar"
                                    dllstatusbar(3) = "private:resource/toolbar/standardbar"
                                    dllstatusbar(4) = "private:resource/toolbar/formdesign"
                                    dllstatusbar(5) = "private:resource/toolbar/formcontrols"
                                    dllstatusbar(7) = "private:resource/toolbar/alignmentbar"
                                    dllstatusbar(8) = "private:resource/toolbar/arrowshapes"
                                    dllstatusbar(9) = "private:resource/toolbar/basicshapes"
                                    dllstatusbar(10) = "private:resource/toolbar/bezierobjectbar"
                                    dllstatusbar(11) = "private:resource/toolbar/calloutshapes"
                                    dllstatusbar(12) = "private:resource/toolbar/colorbar"
                                    dllstatusbar(13) = "private:resource/toolbar/drawbar"
                                    dllstatusbar(14) = "private:resource/toolbar/drawingobjectbar"
                                    dllstatusbar(15) = "private:resource/toolbar/drawtextobjectbar"
                                    dllstatusbar(16) = "private:resource/toolbar/extrusionobjectbar"
                                    dllstatusbar(17) = "private:resource/toolbar/flowchartshapes"
                                    dllstatusbar(18) = "private:resource/toolbar/fontworkobjectbar"
                                    dllstatusbar(19) = "private:resource/toolbar/fontworkshapetype"
                                    dllstatusbar(20) = "private:resource/toolbar/formsfilterbar"
                                    dllstatusbar(21) = "private:resource/toolbar/formtextobjectbar"
                                    dllstatusbar(22) = "private:resource/toolbar/frameobjectbar"
                                    dllstatusbar(23) = "private:resource/toolbar/fullscreenbar"
                                    dllstatusbar(24) = "private:resource/toolbar/graffilterbar"
                                    dllstatusbar(25) = "private:resource/toolbar/graphicobjectbar"
                                    dllstatusbar(26) = "private:resource/toolbar/insertbar"
                                    dllstatusbar(27) = "private:resource/toolbar/insertobjectbar"
                                    dllstatusbar(28) = "private:resource/toolbar/mediaobjectbar"
                                    dllstatusbar(29) = "private:resource/toolbar/moreformcontrols"
                                    dllstatusbar(30) = "private:resource/toolbar/numobjectbar"
                                    dllstatusbar(31) = "private:resource/toolbar/oleobjectbar"
                                    dllstatusbar(32) = "private:resource/toolbar/optimizetablebar"
                                    dllstatusbar(33) = "private:resource/toolbar/previewobjectbar"
                                    dllstatusbar(34) = "private:resource/toolbar/starshapes"
                                    dllstatusbar(35) = "private:resource/toolbar/symbolshapes"
                                    dllstatusbar(36) = "private:resource/toolbar/tableobjectbar"
                                    dllstatusbar(37) = "private:resource/toolbar/textobjectbar"
                                    dllstatusbar(38) = "private:resource/toolbar/toolbar"
                                    dllstatusbar(39) = "private:resource/toolbar/viewerbar"
                                    ' Liste erstellen für ALLE Symbolleisten
                                     For Each i In dllstatusbar()
                                    If Not(lmgr.requestElement(i)) Then
                                        lmgr.createElement(i)
                                    Endif
                                    lmgr.showElement(i)
                                    Next i
                                    'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
            'Nachricht als MSGBOX TITLE sTextWillkommenAllSKAL5 ausgeben
            MsgBox(sTextWillkommenGroupDe1 + Chr(13) + sTextWillkommenGroupDe2 + Chr(13) + sTextWillkommenGroupDe3 + Chr(13) + sTextWillkommenGroupDe4,64,sTextWillkommenGroupDe)    
END SUB

'START:SYMBOLLEISTEN UND MENUE STEUERUNG BEIM BEENDEN BLOCK
SUB Symbolleisten_Ende_Einblenden_Gast
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()
                        'Redirect zu einem bestimmten Formular by Name?
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(false) 'Admin Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)
                        'oForm.reload() ' Formular neu laden

                        'Formular und andere Symbolleisten einblenden Start
                         Dim statusbar(6) As String 'Wir laden die Statusbar Liste bis 6 als String zum Auswählen:
                        statusbar(0) = "private:resource/menubar/menubar"
                        statusbar(1) = "private:resource/statusbar/statusbar"
                        statusbar(2) = "private:resource/toolbar/formsnavigationbar"
                        statusbar(3) = "private:resource/toolbar/standardbar"
                        statusbar(4) = "private:resource/toolbar/formdesign"
                        statusbar(5) = "private:resource/toolbar/formcontrols"
                        statusbar(6) = "private:resource/toolbar/formsnavigationbar"
                        ' Liste erstellen für wichtige Standard und Formular Symbolleisten Start
                        For Each i In statusbar()
                            If Not(lmgr.requestElement(i)) Then
                                lmgr.createElement(i)
                            Endif
                                lmgr.showElement(i)
                            Next i                            
                        'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
                        'Nachricht als MSGBOX TITLE sTextWillkommen5 ausgeben
    MsgBox(sTextWillkommen1 + Chr(13) + sTextWillkommen2 + Chr(13) + sTextWillkommen3 + Chr(13) + sTextWillkommen4,64,sTextWillkommen5)
END SUB

SUB Symbolleisten_Ende_Einblenden_Benutzer
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()  
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(true) 'Admin Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)

                    'Formular und andere Symbolleisten einblenden Start
                         Dim bendstatusbar(39) As String 'Wir laden die allStatusbar Liste bis 39 als String zum Auswählen:
                                    bendstatusbar(0) = "private:resource/menubar/menubar"
                                    bendstatusbar(1) = "private:resource/statusbar/statusbar"
                                    bendstatusbar(2) = "private:resource/toolbar/formsnavigationbar"
                                    bendstatusbar(3) = "private:resource/toolbar/standardbar"
                                       bendstatusbar(4) = "private:resource/toolbar/formdesign"
                                    bendstatusbar(5) = "private:resource/toolbar/formcontrols"
                                    'bendstatusbar(7) = "private:resource/toolbar/alignmentbar"
                                    'bendstatusbar(8) = "private:resource/toolbar/arrowshapes"
                                    'bendstatusbar(9) = "private:resource/toolbar/basicshapes"
                                    'bendstatusbar(10) = "private:resource/toolbar/bezierobjectbar"
                                    'bendstatusbar(11) = "private:resource/toolbar/calloutshapes"
                                    'bendstatusbar(12) = "private:resource/toolbar/colorbar"
                                    'bendstatusbar(13) = "private:resource/toolbar/drawbar"
                                    'bendstatusbar(14) = "private:resource/toolbar/drawingobjectbar"
                                    'bendstatusbar(15) = "private:resource/toolbar/drawtextobjectbar"
                                    'bendstatusbar(16) = "private:resource/toolbar/extrusionobjectbar"
                                    'bendstatusbar(17) = "private:resource/toolbar/flowchartshapes"
                                    'bendstatusbar(18) = "private:resource/toolbar/fontworkobjectbar"
                                    'bendstatusbar(19) = "private:resource/toolbar/fontworkshapetype"
                                    'bendstatusbar(20) = "private:resource/toolbar/formsfilterbar"
                                    'endstatusbar(21) = "private:resource/toolbar/formtextobjectbar"
                                    'endstatusbar(22) = "private:resource/toolbar/frameobjectbar"
                                    bendstatusbar(23) = "private:resource/toolbar/fullscreenbar"
                                    'bendstatusbar(24) = "private:resource/toolbar/graffilterbar"
                                    'bendstatusbar(25) = "private:resource/toolbar/graphicobjectbar"
                                    'bendstatusbar(26) = "private:resource/toolbar/insertbar"
                                    'bendstatusbar(27) = "private:resource/toolbar/insertobjectbar"
                                    'bendstatusbar(28) = "private:resource/toolbar/mediaobjectbar"
                                    'bendstatusbar(29) = "private:resource/toolbar/moreformcontrols"
                                    'bendstatusbar(30) = "private:resource/toolbar/numobjectbar"
                                    'bendstatusbar(31) = "private:resource/toolbar/oleobjectbar"
                                    'bendstatusbar(32) = "private:resource/toolbar/optimizetablebar"
                                    'bendstatusbar(33) = "private:resource/toolbar/previewobjectbar"
                                    'bendstatusbar(34) = "private:resource/toolbar/starshapes"
                                    'bendstatusbar(35) = "private:resource/toolbar/symbolshapes"
                                    bendstatusbar(36) = "private:resource/toolbar/tableobjectbar"
                                    bendstatusbar(37) = "private:resource/toolbar/textobjectbar"
                                    bendstatusbar(38) = "private:resource/toolbar/toolbar"
                                    bendstatusbar(39) = "private:resource/toolbar/viewerbar"
                                    ' Liste erstellen für ALLE Symbolleisten
                                     For Each i In bendstatusbar()
                                    If Not(lmgr.requestElement(i)) Then
                                        lmgr.createElement(i)
                                    Endif
                                    lmgr.showElement(i)
                                    Next i
                                    'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
            'Nachricht als MSGBOX TITLE sTextWillkommenAllSKAL5 ausgeben
            MsgBox(sTextBenutzerSymMenueEnde1 + Chr(13) + sTextBenutzerSymMenueEnde2 + Chr(13) + sTextBenutzerSymMenueEnde3 + Chr(13) + sTextBenutzerSymMenueEnde4,64,sTextBenutzerSymMenueEnde5)    
        
END SUB

SUB Symbolleisten_Ende_Einblenden_Admin
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()  
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(true) 'Admin Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)

                    'Formular und andere Symbolleisten einblenden Start
                         Dim endstatusbar(39) As String 'Wir laden die allStatusbar Liste bis 39 als String zum Auswählen:
                                    aendstatusbar(0) = "private:resource/menubar/menubar"
                                    aendstatusbar(1) = "private:resource/statusbar/statusbar"
                                    aendstatusbar(2) = "private:resource/toolbar/formsnavigationbar"
                                    aendstatusbar(3) = "private:resource/toolbar/standardbar"
                                       aendstatusbar(4) = "private:resource/toolbar/formdesign"
                                    aendstatusbar(5) = "private:resource/toolbar/formcontrols"
                                    'aendstatusbar(7) = "private:resource/toolbar/alignmentbar"
                                    'aendstatusbar(8) = "private:resource/toolbar/arrowshapes"
                                    'aendstatusbar(9) = "private:resource/toolbar/basicshapes"
                                    'aendstatusbar(10) = "private:resource/toolbar/bezierobjectbar"
                                    'aendstatusbar(11) = "private:resource/toolbar/calloutshapes"
                                    'aendstatusbar(12) = "private:resource/toolbar/colorbar"
                                    'aendstatusbar(13) = "private:resource/toolbar/drawbar"
                                    'aendstatusbar(14) = "private:resource/toolbar/drawingobjectbar"
                                    'aendstatusbar(15) = "private:resource/toolbar/drawtextobjectbar"
                                    'aendstatusbar(16) = "private:resource/toolbar/extrusionobjectbar"
                                    'aendstatusbar(17) = "private:resource/toolbar/flowchartshapes"
                                    'aendstatusbar(18) = "private:resource/toolbar/fontworkobjectbar"
                                    'aendstatusbar(19) = "private:resource/toolbar/fontworkshapetype"
                                    'aendstatusbar(20) = "private:resource/toolbar/formsfilterbar"
                                    'aendstatusbar(21) = "private:resource/toolbar/formtextobjectbar"
                                    'aendstatusbar(22) = "private:resource/toolbar/frameobjectbar"
                                    aendstatusbar(23) = "private:resource/toolbar/fullscreenbar"
                                    'aendstatusbar(24) = "private:resource/toolbar/graffilterbar"
                                    'aendstatusbar(25) = "private:resource/toolbar/graphicobjectbar"
                                    'aendstatusbar(26) = "private:resource/toolbar/insertbar"
                                    'aendstatusbar(27) = "private:resource/toolbar/insertobjectbar"
                                    'aendstatusbar(28) = "private:resource/toolbar/mediaobjectbar"
                                    'aendstatusbar(29) = "private:resource/toolbar/moreformcontrols"
                                    'aendstatusbar(30) = "private:resource/toolbar/numobjectbar"
                                    'aendstatusbar(31) = "private:resource/toolbar/oleobjectbar"
                                    'aendstatusbar(32) = "private:resource/toolbar/optimizetablebar"
                                    'aendstatusbar(33) = "private:resource/toolbar/previewobjectbar"
                                    'aendstatusbar(34) = "private:resource/toolbar/starshapes"
                                    'aendstatusbar(35) = "private:resource/toolbar/symbolshapes"
                                    aendstatusbar(36) = "private:resource/toolbar/tableobjectbar"
                                    aendstatusbar(37) = "private:resource/toolbar/textobjectbar"
                                    aendstatusbar(38) = "private:resource/toolbar/toolbar"
                                    aendstatusbar(39) = "private:resource/toolbar/viewerbar"
                                    ' Liste erstellen für ALLE Symbolleisten
                                     For Each i In aendstatusbar()
                                    If Not(lmgr.requestElement(i)) Then
                                        lmgr.createElement(i)
                                    Endif
                                    lmgr.showElement(i)
                                    Next i
                                    'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
            'Nachricht als MSGBOX TITLE sTextAdminSymMenueEnde5 ausgeben
            MsgBox(sTextAdminSymMenueEnde1 + Chr(13) + sTextAdminSymMenueEnde2 + Chr(13) + sTextAdminSymMenueEnde3 + Chr(13) + sTextAdminSymMenueEnde4,64,sTextAdminSymMenueEnde5)    
        
END SUB

SUB Symbolleisten_Ende_Einblenden_Developer
    'Werden die Symbolleisten nicht wieder direkt beim Beenden des Formulars eingeblendet, so bleiben sie weiterhin verborgen. Sie können natürlich über Ansicht → Symbolleisten wieder aufgerufen werden. Etwas irritierend ist es jedoch, wenn gerade die Standardleiste (Ansicht → Symbolleisten → Standardleiste) oder die Statusleiste (Ansicht → Statusleiste) fehlt.
    'Mit dieser Prozedur werden die Symbolleisten aus dem Versteck ('hideElement') wieder hervorgeholt ('showElement'). Der Kommentar enthält die Leisten, die oben als sonst fehlende
    'Leisten am ehesten auffallen.
    DIM oFrame AS OBJECT
    DIM oLayoutMng AS OBJECT
    DIM aElemente()
    DIM oCon as object
    oCon = ThisDatabaseDocument.CurrentController
    'Verbindung sicherstellen
                    If NOT ( oCon.isConnected() ) Then oCon.connect()  
                          oCon.loadComponent(com.sun.star.sdb.application.DatabaseObject.FORM,"Home",FALSE)
                        'Start der Datenbank: Datenquelle verbinden, IDE unsichtbar machen, Bibliotheken laden
                        oDoc = ThisComponent
                        oDocView = oDoc.getCurrentController()
                        shutdown = false 'wichtige Variable für Fenster schließen (siehe Makro oben)
                    
                        'IDE-Fenster referenzieren und verstecken
                        oFrame = ThisComponent.CurrentController.Frame
                         oMenuWin = oFrame.ContainerWindow()
                         'IDE Ausblenden = false
                         oMenuWin.setVisible(true) 'Admin Modus
                    
                         'Bibliotheken laden
                        GlobalScope.BasicLibraries.LoadLibrary("Tools")
                        'GlobalScope.BasicLibraries.LoadLibrary("XrayTool")
                        'BasicLibraries.LoadLibrary("Menue")
                    
                        'Controller verbinden
                        oController= ThisDatabaseDocument.CurrentController
                    If NOT ( oController.isConnected() ) Then oController.connect()
                        'Hauptmenü öffnen, Layoutmenü verstecken
                        oFormDoc = ThisDatabaseDocument.formdocuments.getbyname("Home").open
                        lmgr = oFormDoc.getCurrentController().Frame.LayoutManager
                        lmgr.setVisible(true)

                    'Formular und andere Symbolleisten einblenden Start
                         Dim dallstatusbar(39) As String 'Wir laden die dallStatusbar Liste bis z.B: 39 als String:
                                    dallstatusbar(0) = "private:resource/menubar/menubar"
                                    dallstatusbar(1) = "private:resource/statusbar/statusbar"
                                    dallstatusbar(2) = "private:resource/toolbar/formsnavigationbar"
                                    dallstatusbar(3) = "private:resource/toolbar/standardbar"
                                    dallstatusbar(4) = "private:resource/toolbar/formdesign"
                                    dallstatusbar(5) = "private:resource/toolbar/formcontrols"
                                    dallstatusbar(7) = "private:resource/toolbar/alignmentbar"
                                    dallstatusbar(8) = "private:resource/toolbar/arrowshapes"
                                    dallstatusbar(9) = "private:resource/toolbar/basicshapes"
                                    dallstatusbar(10) = "private:resource/toolbar/bezierobjectbar"
                                    dallstatusbar(11) = "private:resource/toolbar/calloutshapes"
                                    dallstatusbar(12) = "private:resource/toolbar/colorbar"
                                    dallstatusbar(13) = "private:resource/toolbar/drawbar"
                                    dallstatusbar(14) = "private:resource/toolbar/drawingobjectbar"
                                    dallstatusbar(15) = "private:resource/toolbar/drawtextobjectbar"
                                    dallstatusbar(16) = "private:resource/toolbar/extrusionobjectbar"
                                    dallstatusbar(17) = "private:resource/toolbar/flowchartshapes"
                                    dallstatusbar(18) = "private:resource/toolbar/fontworkobjectbar"
                                    dallstatusbar(19) = "private:resource/toolbar/fontworkshapetype"
                                    dallstatusbar(20) = "private:resource/toolbar/formsfilterbar"
                                    dallstatusbar(21) = "private:resource/toolbar/formtextobjectbar"
                                    dallstatusbar(22) = "private:resource/toolbar/frameobjectbar"
                                    dallstatusbar(23) = "private:resource/toolbar/fullscreenbar"
                                    dallstatusbar(24) = "private:resource/toolbar/graffilterbar"
                                    dallstatusbar(25) = "private:resource/toolbar/graphicobjectbar"
                                    dallstatusbar(26) = "private:resource/toolbar/insertbar"
                                    dallstatusbar(27) = "private:resource/toolbar/insertobjectbar"
                                    dallstatusbar(28) = "private:resource/toolbar/mediaobjectbar"
                                    dallstatusbar(29) = "private:resource/toolbar/moreformcontrols"
                                    dallstatusbar(30) = "private:resource/toolbar/numobjectbar"
                                    dallstatusbar(31) = "private:resource/toolbar/oleobjectbar"
                                    dallstatusbar(32) = "private:resource/toolbar/optimizetablebar"
                                    dallstatusbar(33) = "private:resource/toolbar/previewobjectbar"
                                    dallstatusbar(34) = "private:resource/toolbar/starshapes"
                                    dallstatusbar(35) = "private:resource/toolbar/symbolshapes"
                                    dallstatusbar(36) = "private:resource/toolbar/tableobjectbar"
                                    dallstatusbar(37) = "private:resource/toolbar/textobjectbar"
                                    dallstatusbar(38) = "private:resource/toolbar/toolbar"
                                    dallstatusbar(39) = "private:resource/toolbar/viewerbar"
                                    ' Liste erstellen für ALLE Symbolleisten
                                     For Each i In dallstatusbar()
                                    If Not(lmgr.requestElement(i)) Then
                                        lmgr.createElement(i)
                                    Endif
                                    lmgr.showElement(i)
                                    Next i
                                    'Liste erstellen für wichtige Standard und Formular Symbolleisten ende
                                    'ENDE: Wir laden die dallStatusbar Liste bis i als String
                                    'Wir laden die Prozedur aus --> SystemTools zu Kundenverwaltung .odb (HSQLDB Eingebetet: SaveAndCloseAll)
                                    SaveAndCloseAll
            'Nachricht als MSGBOX TITLE sTextWillkommenAllSKAL5 ausgeben
            MsgBox(sTextDeveloperSymMenueEnde1 + Chr(13) + sTextDeveloperSymMenueEnde2 + Chr(13) + sTextDeveloperSymMenueEnde3 + Chr(13) + sTextDeveloperSymMenueEnde4,64,sTextDeveloperSymMenueEnde5)    
        
END SUB

Zugriffe: 285