Apache OpenOffice Community Forum

Code: Select all

ThisDatabaseDocument.FormDocuments.getbyname("FormName").open

Code: Select all

ThisDatabaseDocument.reportDocuments.getbyname("ReportName").open

Code: Select all

Sub AutoExec 
On Error Goto HandleError 
	Dim FormDocs, DBDoc, DataSource, Conn, FormDoc As Object
	Dim Args(1) As New com.sun.star.beans.PropertyValue 
	Dim FormName, UserName, Password As String
   
	UserName="" : Password=""
	DBDoc=ThisComponent
	DataSource=DBDoc.DataSource
	Conn=DataSource.getConnection(UserName,Password)
	
	FormName="MainMenu" 
	
	FormDocs=DBDoc.FormDocuments 
	Args(0).Name="ActiveConnection" : Args(0).Value=Conn 
	If FormDocs.hasByName(FormName) Then 
		FormDoc=FormDocs.loadComponentFromURL(FormName,"_self",0,Args() ) 
		'FormDoc.CurrentController.Frame.ContainerWindow.setFocus()
		FormDoc.CurrentController.Frame.ComponentWindow.setFocus()
	Else
		MsgBox "No form named: " & FormName
	End If 
HandleError: 
	If Err<>0 Then 
		MsgBox "An error occured while loading the form [ " & FormName & " ]"
		Exit Sub 
	End If 
End Sub 

Code: Select all

with Thisdatabasedocument.currentcontroller
   if  not .isConnected then  .connect
end with

Code: Select all

sub Start
with Thisdatabasedocument.currentcontroller
   if  not .isConnected then  .connect
end with
ThisDatabaseDocument.FormDocuments.getbyname("MainMenu").open
end sub 

Code: Select all

sub CreateReportCalledfromButton(oEvent as object)
' We need this sub for a button in a standalone form
dim oCreateButton,oForm ' This are form details
dim oConnection,oReportsDocuments 
' The connection we need for finding the database document
oCreateButton=oEvent.source.model

if oCreateButton.tag = "" then
	msgbox "No report name in the button tag" & chr(13) & "This is the third from below of the property on the common tabpage"
else ' Now we have to start to find all kind of objects
	oForm=oCreateButton.parent
	if oForm.filter="" then
		print "You have not filtered data in your form"
	else
		oConnection=oForm.Activeconnection
		oReportsDocuments=oConnection.parent.DatabaseDocument.ReportDocuments ' This point to the report containers
		' Test if the name exist.
		if oReportsDocuments.hasByHierarchicalName(oCreateButton.tag) then
			'Call openreport with the parameters
			openReport(oConnection, oReportsDocuments, oCreateButton.tag , oForm.Filter)
		else print "There is a wrong report name"
		end if
	end if
end if
end sub





function openReport(oConnection, oReportsDocuments,aReportName,sFilter) as object
	' With working in the way I do now I can use these sub for calling from a document
	' what is stored in a databasedocument but also from a standalone form
	' It is assumend you do all the test before you call this sub. This means
	' You must be sure there is a connection to the database.
	' The document you want call must be
	'	a)in the databasedocument from this connection.
	' 	b) The document must be a report
	
	' When I use a standalone form then the databasedocument does not have a 
	' currentcontroller. It can be that the database is already and it does have a currentroller
	' but this is also working 
			
	' We make here the array we use in both commands
	dim aProp(2) as new com.sun.star.beans.PropertyValue
	dim aProp2 ' Make a variant
	dim oReportDesign
	aProp(1).Name = "ActiveConnection"
	aProp(1).Value = oConnection
	aProp(0).Name = "Hidden"
	aProp(0).Value = true	
	aProp(2).Name = "OpenMode"
	aProp(2).Value = "openDesign"
	let aProp2=aProp 'assign the array. The reason it is possible that the values
	' are changed when I use it in loadComponentFromURL
	'Open report in design mode and hidden
	oReportDesign=oReportsDocuments.loadComponentFromURL(aReportName ,"",0,aProp())
	oReportDesign.filter=sFilter ' Change the filter
	
	' Two Values must be changed
	aProp2(0).Value = false
	aProp2(2).Value = "open"
	' Now the result of the report wil be showed. and the the hidden report in design mode is closed
	openReport=oReportsDocuments.loadComponentFromURL(aReportName ,"",23,aProp2())
end function