OpenOffice.info

Code: Alles auswählen

SUB Navigation(oEvent AS OBJECT)
	DIM stTag AS String
	stTag = oEvent.Source.Model.Tag
	aOpen() = Split(stTag, ",")
	SELECT CASE Trim(aOpen(0))
		CASE "form"
			ThisDatabaseDocument.FormDocuments.getByName(Trim(aOpen(1))).open
		CASE "report"
			ThisDatabaseDocument.ReportDocuments.getByName(Trim(aOpen(1))).open
		CASE "query"
	END SELECT	
END SUB

Code: Alles auswählen

SUB Navigation(oEvent AS OBJECT)
	DIM stTag AS String
	stTag = oEvent.Source.Model.Tag
	aOpen() = Split(stTag, ",")
	SELECT CASE Trim(aOpen(0))
		CASE "form"
			ThisDatabaseDocument.FormDocuments.getByName(Trim(aOpen(1))).open
		CASE "report"
			ThisDatabaseDocument.ReportDocuments.getByName(Trim(aOpen(1))).open
		CASE "query"
		    nType = 1
		    Open_Table_Query_View(Trim(aOpen(1)),nType)
		CASE "table"
		    nType = 0
		    Open_Table_Query_View(Trim(aOpen(1)),nType)
	END SELECT	
END SUB

Sub Open_Table_Query_View(sName,nType)
    oController = ThisDatabasedocument.CurrentController
    if not oController.isconnected then oController.connect
    Dim URL as New com.sun.star.util.URL
    Dim Args(5) as New com.sun.star.beans.PropertyValue
    oConnetion = oController.ActiveConnection
    URL.Complete = ".component:DB/DataSourceBrowser"
    Dispatch = StarDesktop.queryDispatch(URL,"_Blank",8)
    Args(0).Name = "ActiveConnection" 
    Args(0).Value = oConnetion
    Args(1).Name = "CommandType"
    Args(1).Value = nType   '0=Table 1=SQL_Query 2=Command
    Args(2).Name = "Command"
    Args(2).Value = sName
    Args(3).Name = "ShowMenu"
    Args(3).Value = True
    Args(4).Name = "ShowTreeView"
    Args(4).Value = False
    Args(5).Name = "ShowTreeViewButton"
    Args(5).Value = False
    Dispatch.dispatch(URL, Args)
End Sub