OpenOffice.info

Code: Alles auswählen

Function getDialog() As Object
	DialogLibraries.LoadLibrary("Standard")
	getDialog = CreateUnoDialog(DialogLibraries.Standard.FzgKostenDialog)
End Function

Sub DialogAusfuehren
	oDlg = getDialog()
	oDlg.Execute()
End Sub

Sub getAuswahl
	Dim oDlg, oCtrl As Object
	
	oDlg = getDialog()
	oDlgControl = oDlg.getControls()
	
	For i = 0 To 3
		oCtrl = oDlg.getControl("ob" & i)   ' "ob" heisst OptionButton, also "ob0" bis "ob3"
		If oCtrl.State = True Then
			MsgBox("ausgewählt: Nr. " & i)
		End If
	Next
End Sub

Code: Alles auswählen

REM  *****  BASIC  *****

Public BootDlg as Object

Public ui_array(7)
Public ui_inArray(7)
Public anz_ui as integer

Public oConn as object
Public oStatement as Object
Public sqlString as string
Public oResultSet as object

Public sort_option_button_num as Object			' Option		<-----------
Public sort_option_button_nam as Object
Public sort_option_button_hafen as Object

Public s_typ as string
Public s_hafen as string
Public s_ename as string



'								Liste der Boote
Sub liste_boot

s_typ = ""
s_hafen = ""
s_ename = ""

'											Dialog dlgEigner1
DialogLibraries.LoadLibrary("Listen")
BootDlg = createUNODialog(DialogLibraries.Listen.dlgBoot)

Dim boot_ret as integer
boot_ret = BootDlg.execute()					' Warten auf Eingabe

	
if boot_ret = 0 then						' Abbruch
	BootDlg.EndExecute()						' Dialog "dlgEigner" schliessen
	BootDlg.Dispose()
	Exit Sub
end if


s_typ       = BootDlg.getControl("Boot_TX_Typ").text		' Option      <----------
s_hafen     = BootDlg.getControl("Boot_TX_Hafen").text
s_ename     = BootDlg.getControl("Boot_TX_NameKrz").text

sort_option_button_num = BootDlg.GetControl("Boot_OB_Nummer")	' Option      <----------
sort_option_button_nam = BootDlg.GetControl("Boot_OB_Name")
sort_option_button_hafen = BootDlg.GetControl("Boot_OB_Hafen")

user_info_schreiben

liste_boot_aufrufen

End Sub



Sub user_info_schreiben

dim sql as string
dim s_string as string

dim v1feld as string
dim v2feld as string
dim iCount as integer

dim table as string
dim sqlString1 as string
dim sqlString2 as string

anz_ui = 6
ui_array(0)	= "ui_user"
ui_array(1)	= "ui_prog"
ui_array(2)	= "ui_info1"
ui_array(3)	= "ui_info2"
ui_array(4)	= "ui_info3"
ui_array(5)	= "ui_info4"
ui_array(6)	= "ui_info5"

ui_inArray(0)	= global_Ben_Name			' Name user
ui_inArray(1)	= "boot"					' Programmbezeichnung

s_typ = s_typ & "%"
s_hafen = s_hafen & "%"
s_ename = s_ename & "%"

sql = "SELECT * from boot WHERE ( bo_typ LIKE '" & s_typ & "' AND bo_hafen LIKE '" & s_hafen & _
		"' AND bo_eigner_krz LIKE '" & s_ename & "' AND bo_aktiv IS NULL) ORDER BY "
if sort_option_button_num.state = true then
	s_string = "bo_nummer ASC"
end if
if sort_option_button_nam.state = true then		' Option      <----------------
	s_string = "bo_eigner_krz ASC"
end if
if sort_option_button_hafen.state = true then
	s_string = "bo_hafen ASC"
end if
sql = sql & s_string
ui_inArray(3) = sql

v1feld =" ("
v2feld = " ("
For iCount = 0 To anz_ui
		v1feld = v1feld + ui_array(iCount)
		v2feld = v2feld + """" & ui_inArray(iCount) & """"
		if iCount < anz_ui then
			v1feld = v1feld + ", "
			v2feld = v2feld + ", "
		end if	
	Next iCount
v1feld = v1feld + ")"
v2feld = v2feld + ")"

oConn = dbConnection						'	Infos in Datenbank einfügen
oStatement = oConn.createStatement()
sqlString1 = "INSERT INTO " 
table = "user_info"
sqlString2 = " VALUES "
sqlString = sqlString1 + table + v1feld + sqlString2 + v2feld
oStatement.executeUpdate(sqlString)

End Sub


Sub liste_boot_aufrufen

'												Vorlage "Boot_Uebersicht.odt" laden
dim zw_vorlage as string
dim oDesktop as object
dim oDocument as object
 
Dim myProp(0) As New com.sun.star.beans.PropertyValue

oDesktop =   createUnoService("com.sun.star.frame.Desktop")

zw_vorlage = global_vz_pfad & "Liste_Boot.ods"
zw_vorlage = ConvertToUrl(zw_vorlage)

myProp(0).name="MacroExecutionMode"
myProp(0).value = 4
'myProp(1).name="ReadOnly" 
'myProp(1).value = true

oDocument = oDesktop.loadComponentFromURL( zw_vorlage, "_blank", 0,myProp() )

End Sub