LibreofficeRubrica - Cronologia

Giomba: pagina categorizzata

2019-08-20T12:35:35Z

pagina categorizzata

TopoSodo il 15:54, 23 dic 2017

2017-12-23T15:54:28Z

TopoSodo il 15:51, 23 dic 2017

2017-12-23T15:51:12Z

TopoSodo il 15:50, 23 dic 2017

2017-12-23T15:50:19Z

TopoSodo il 15:49, 23 dic 2017

2017-12-23T15:49:03Z

TopoSodo il 15:47, 23 dic 2017

2017-12-23T15:47:51Z

TopoSodo il 15:47, 23 dic 2017

2017-12-23T15:47:22Z

TopoSodo il 15:46, 23 dic 2017

2017-12-23T15:46:46Z

TopoSodo il 15:45, 23 dic 2017

2017-12-23T15:45:48Z

TopoSodo: Libreoffice Base Creare un formulario di ricerca in una tabella. Utile per creare una rubrica.

2017-12-23T15:43:04Z

Libreoffice Base Creare un formulario di ricerca in una tabella. Utile per creare una rubrica.

Nuova pagina

Libreoffice Base
Creare un formulario di ricerca in una tabella.
Utile per creare una rubrica.

1) Creare tabella con i vari campi dati, nel mio caso '''Tab1'''
Esempio: ‘Nome’ ‘Cognome’ ‘Telefono’

2) Creare tabella '''filtro''' con campi con nome simile ai campi della tabella '''Tab1''' e il campo '''ID''' con propietà '''“si/no[BOOLEAN]”'''
Esempio: ‘Nom’ ‘Cogn’ ‘Tel’

3) Seguire procedura guidata formulario usando come dati la tabella '''filtro'''

4) Aprire '''Navigatore formulario''', tasto destro su '''MainForm/Propietà''' e scegliere '''Dati'''. A '''tipo di contenuto''' selezionare con il menu’ a tendina '''Comando SQL'''. Cliccando sui tre puntini accanto a '''Contenuto''' si apre una finestra. Scegliere la tabella '''filtro'''

5) Creare una '''casella di testo''' sempre all’interno di '''MainForm''' e come Dati scegliere il campo da usare come ricerca
Esempio: ‘Nom’

6) Aprire '''Navigatore formulario''', tasto destro su '''MainForm/Nuovo Formulario'''. Rinominare in '''SubForm'''

7) Aprire Navigatore formulario, tasto destro su '''SubForm/Propietà''' e scegliere Dati. A tipo di contenuto selezionare con il menu a tendina '''Comando SQL'''. Cliccando sui tre puntini accanto a '''Contenuto''' si apre una finestra. Scegliere la tabella '''Tab1'''. Cliccare sul Primo Campo e scegliere '''NomeTabella*'''. Nel mio caso '''Tab1*'''.

Nel secondo campo scegliere il campo che viene usato per filtrare poi modificarlo
'''UPPER (“NomeCampo”)'''. Nella casella Criterio scrivere '''COME '%' || UPPER ( :P1 ) || '%''''
'''Togliere Spunta'''

Nel Terzo campo scrivere ''':P1''' e nella casella 0 (quella sotto criterio), scrivere '''È VUOTO'''
'''Togliere Spunta'''. Chiudere finestra comando Sql.

Nel campo '''collega da''' cliccare sui tre puntini a destra. Alla voce '''‘formulario secondario’''' scegliere '''P1''' mentre alla voce '''Formulario Master''' campo da usare come ricerca.
Esempio: formulario secondario=P1 Formulario Master=‘Nom’

8) In '''SubForm''' creare un Pulsante e nelle propietà, in '''casella Operazione''' scegliere '''Aggiorna Formulario'''

9) In '''SubForm''' creare una tabella con procedura guidata o caselle di testo collegate ai campi della tabella '''filtro''' per visualizzare i dati.

-------------------------------------------------------------------------------------------------------------------------------------------------------

Non necessario, ma si puo’ usare la seguente macro per aprire in automatico il formulario
'''SUB OpeningForm
Dim ObjTypeWhat
Dim ObjName As String
ObjName = "Filtro"
ObjTypeWhat = com.sun.star.sdb.application.DatabaseObject.FORM
If ThisDatabaseDocument.FormDocuments.hasbyname(ObjName) Then 'Check the form exists'
ThisDataBaseDocument.CurrentController.Connect() 'If the form exists connect to the database'
ThisDatabaseDocument.CurrentController.loadComponent(ObjTypeWhat, ObjName, FALSE) 'Open the form'
Else
MsgBox "Error! Wrong form name used. " & ObjName
End if

End Sub'''

mentre la seguente macro mette in fullscreen la finestra.
'''SUB Fullscreen
DIM oDispatcher As Object, Props(0) As New com.sun.star.beans.PropertyValue
oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Props(0).Name = "FullScreen" : Props(0).Value = true
oDispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:FullScreen", "", 0, Props())
End SUB'''

-------------------------------------------------------------------------------------------------------------------------------------------------------

Link da dove ho preso spunto per questo tutorial
[https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845]

← Versione meno recente		Versione delle 12:35, 20 ago 2019
Riga 65:		Riga 65:
	Link da dove ho preso spunto per questo tutorial		Link da dove ho preso spunto per questo tutorial
	[https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845 https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845]		[https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845 https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845]
		+
		+	[[Category:Howto]]

@@ Riga 21: / Riga 21: @@
 Nel secondo campo scegliere il campo che viene usato per filtrare poi modificarlo
-  '''UPPER (“NomeCampo”). Nella casella  Criterio scrivere '''COME '%' || UPPER ( :P1 ) || '%''''
+  '''UPPER (“NomeCampo”)'''. Nella casella  Criterio scrivere ''' COME '%' || UPPER ( :P1 ) || '%' '''
 '''Togliere Spunta'''

← Versione meno recente		Versione delle 15:45, 23 dic 2017
Riga 62:		Riga 62:

	Link da dove ho preso spunto per questo tutorial		Link da dove ho preso spunto per questo tutorial
−	[https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845]	+	[https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845 https://forum.openoffice.org/en/forum/viewtopic.php?f=100&t=42845]

@@ Riga 1: / Riga 1: @@
 Libreoffice Base
 Creare un formulario di ricerca in una tabella.
-Utile per creare una rubrica.
+== Creare un formulario di ricerca in una tabella.
 ) Creare tabella con i vari campi dati, nel mio caso '''Tab1'''

@@ Riga 37: / Riga 37: @@
 Non necessario, ma si puo’ usare la seguente macro per aprire in automatico il formulario
- ''' SUB OpeningForm
+  SUB OpeningForm
    Dim ObjTypeWhat
    Dim ObjName As String
@@ Riga 48: / Riga 48: @@
        MsgBox "Error! Wrong form name used. " & ObjName
    End if
-  End Sub '''
+  End Sub
 mentre la seguente macro mette in fullscreen la finestra.
-''' SUB Fullscreen
+   SUB Fullscreen
     DIM oDispatcher As Object, Props(0) As New com.sun.star.beans.PropertyValue
     oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
     Props(0).Name = "FullScreen" : Props(0).Value = true
     oDispatcher.executeDispatch(ThisComponent.CurrentController.Frame, ".uno:FullScreen", "", 0, Props())
-    End SUB '''
+    End SUB
 -------------------------------------------------------------------------------------------------------------------------------------------------------

@@ Riga 4: / Riga 4: @@
 ) Creare tabella con i vari campi dati, nel mio caso '''Tab1'''
-    Esempio: ‘Nome’ ‘Cognome’ ‘Telefono’
+Esempio: ‘Nome’ ‘Cognome’ ‘Telefono’
 ) Creare tabella '''filtro''' con campi con nome simile ai campi della tabella '''Tab1''' e il campo '''ID''' con propietà '''“si/no[BOOLEAN]”'''
@@ Riga 48: / Riga 48: @@
        MsgBox "Error! Wrong form name used. " & ObjName
    End if
   End Sub'''
 mentre la seguente macro mette in fullscreen la finestra.
 '''SUB Fullscreen
     DIM oDispatcher As Object, Props(0) As New com.sun.star.beans.PropertyValue