'************************************************************************* ' ' Licensed to the Apache Software Foundation (ASF) under one ' or more contributor license agreements. See the NOTICE file ' distributed with this work for additional information ' regarding copyright ownership. The ASF licenses this file ' to you under the Apache License, Version 2.0 (the ' "License"); you may not use this file except in compliance ' with the License. You may obtain a copy of the License at ' ' http://www.apache.org/licenses/LICENSE-2.0 ' ' Unless required by applicable law or agreed to in writing, ' software distributed under the License is distributed on an ' "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY ' KIND, either express or implied. See the License for the ' specific language governing permissions and limitations ' under the License. ' '************************************************************************* ' Be sure that all variables are dimensioned: option explicit ' REQUIRED VARIABLES for interface/service tests: Global cancelButton As Object Global queryWindow As Object Sub CreateObj() '************************************************************************* ' COMPONENT: ' dbaccess.ConnectionLineAccessibility '************************************************************************* On Error Goto ErrHndl Dim oMSF As Object, oWin As Object Dim thRunner As Object, xRoot As Object Dim tk As Object Dim dbSource As Object dbSource = createUnoService("com.sun.star.sdb.DataSource") Dim info(2) As new com.sun.star.beans.PropertyValue info(0).Name = "JavaDriverClass" info(0).Value = "org.gjt.mm.mysql.Driver" info(1).Name = "user" info(1).Value = jdbcUser info(2).Name = "password" info(2).Value = jdbcPassword dbSource.info = info() dbSource.URL = jdbcUrl Dim dbContext As Object dbContext = createUnoService("com.sun.star.sdb.DatabaseContext") Dim sourceName As String sourceName = "AAADBSource for dbu-accessibility" if dbContext.hasByName(sourceName) then dbContext.revokeObject(sourceName) endif dbContext.registerObject(sourceName, dbSource) Dim connection As Object connection = dbSource.getIsolatedConnection(jdbcUser, jdbcPassword) Dim statement As Object statement = connection.createStatement() statement.executeUpdate("drop table if exists tst_table1") statement.executeUpdate("drop table if exists tst_table2") statement.executeUpdate("create table tst_table1 (id1 int)") statement.executeUpdate("create table tst_table2 (id2 int)") Dim defContainer As Object defContainer = dbSource.getQueryDefinitions() Dim newQuery As Object newQuery = createUnoService("com.sun.star.sdb.QueryDefinition") newQuery.Command = "select * from tst_table1, tst_table2 where " + _ "tst_table1.id1=tst_table2.id2" defContainer.insertByName("Query1", newQuery) oMSF = getProcessServiceManager() thRunner = oMSF.createInstance("basichelper.ThreadRunner") tk = createUNOService("com.sun.star.awt.Toolkit") wait(500) thRunner.initialize(Array("ExecuteDialog", "com.sun.star.sdb.DatasourceAdministrationDialog")) wait(3000) oWin = tk.getActiveTopWindow() xRoot = utils.at_getAccessibleObject(oWin) Dim pageTabList As Object pageTabList = utils.at_getAccessibleObjectForRole(xRoot, 31) pageTabList.selectAccessibleChild(3) wait(500) Dim editQueryButton As Object editQueryButton = utils.at_getAccessibleObjectForRole(xRoot, 35, "Edit Query") cancelButton = utils.at_getAccessibleObjectForRole(xRoot, 35, "Cancel") editQueryButton.doAccessibleAction(0) wait(1000) oWin = tk.getActiveTopWindow() queryWindow = oWin xRoot = utils.at_getAccessibleObject(oWin) oObj = utils.at_getAccessibleObjectForRole(xRoot, 0, "Relation") Exit Sub ErrHndl: Test.Exception() End Sub Sub DisposeObj() queryWindow.dispose() if NOT isNull(cancelButton) then cancelButton.doAccessibleAction(0) wait(1000) End If End Sub Sub fireEvent() End Sub