[RISOLTO]Apertura formulario in automatico

[fantacilli]

Come faccio ad impostare che all'apertura del db si apra in automatico un formulario?

Inoltre volevo creare degli utenti alcuni in sola lettura e altri in lettura e scrittura, oltre alla ad un amministratore. Come faccio? ho provato da strumenti > amministrazione degli utenti, ma la selezione è disabilitata..

Ciao

[r.vanoni]

Primo metodo
Strumenti > Personalizza > Apri documento assegna Macro
di solito si assegna la macro Autoexec che trovi qui nel forum

Secondo metodo (che uso io)
creare un lanciatore sul desktop che apre il file e avvia la macro. Il lanciatore contiene il seguente comando:
In UBUNTU
oobase /home/docenti2/alterna/Alterna.odb macro:///Alterna.Module1.login1
dove Alterna.odb è il file oobase e login1 è la macro da avviare

In Windows il corrispondente è questo
"C:\Program Files\OpenOffice.org 3\program\soffice.exe" C:\Users\cri\Desktop\Riccardo\dbase\alterna\Alterna.odb macro:///alterna.Module1.login1

Riguardo alla gestione utenti credo ti convenga usare MYSQL come motore dbase perchè ti consente una personalizzazione molto fine degli utenti connessi. Se invece vuoi utilizzare solo oobase con HSQL credo sia necessario creare una macro di login che va ad aprire un menu formulario dedicato a ciascun utente. Questo menu richiamerà a sua volta i formulari nel quale abilitati i permessi e i controlli che desideri.
Naturalmente questa è una possibilità e probabilmente ce ne saranno molte altre.

Ciao

[fantacilli]

scusa l'ignoranza, ma dove la trovo la macro autoexec?

[vladko]

http://user.services.openoffice.org/it/ ... s=autoexec

[fantacilli]

Primo metodo
Strumenti > Personalizza > Apri documento assegna Macro
di solito si assegna la macro Autoexec che trovi qui nel forum

Secondo metodo (che uso io)
creare un lanciatore sul desktop che apre il file e avvia la macro. Il lanciatore contiene il seguente comando:
In UBUNTU
oobase /home/docenti2/alterna/Alterna.odb macro:///Alterna.Module1.login1
dove Alterna.odb è il file oobase e login1 è la macro da avviare

In Windows il corrispondente è questo
"C:\Program Files\OpenOffice.org 3\program\soffice.exe" C:\Users\cri\Desktop\Riccardo\dbase\alterna\Alterna.odb macro:///alterna.Module1.login1

Riguardo alla gestione utenti credo ti convenga usare MYSQL come motore dbase perchè ti consente una personalizzazione molto fine degli utenti connessi. Se invece vuoi utilizzare solo oobase con HSQL credo sia necessario creare una macro di login che va ad aprire un menu formulario dedicato a ciascun utente. Questo menu richiamerà a sua volta i formulari nel quale abilitati i permessi e i controlli che desideri.
Naturalmente questa è una possibilità e probabilmente ce ne saranno molte altre.

Ciao

Mi puoi postare la macro autoexec?

[r.vanoni]

Scusa ma è così fatica leggere il forum? Per stavolta ecco qua un esempio ma approfitto per chiarire che la macro autoexec è una semplice macro che devi creare tu e che potrebbe chiamarsi anche pippo o topolino. Rimane il fatto che sarà eseguita all'apertura del file .odb perché impostato da te (vedi sopra).

Codice: Seleziona tutto

	Sub AutoExec 
On Error Goto HandleError 
   Dim LastFrame As Object 
   Dim NumFrames As Integer 
   Static FormDocs As Object 
   Dim DBDoc As Object 
   Dim ImpName As String 
   Dim DataSource As Object 
   Dim Conn As Object 
   Dim Args(1) As New com.sun.star.beans.PropertyValue 
   Dim FormName As String 
   Dim FormDoc As Object 

   FormName="MENU"  REM CHANGE TO YOUR FORM NAME 

   ImpName="com.sun.star.comp.dba.ODatabaseDocument"  
   NumFrames=StarDesktop.Frames.Count 
   LastFrame=StarDesktop.Frames.getByIndex(NumFrames-1)  
   If LastFrame.Frames.Count>1 Then 
     Exit Sub 
    End If 
   If Not (LastFrame.Controller.Model.ImplementationName=ImpName) Then 
      Exit Sub REM not a db doc 
   End If 
   DataSource=LastFrame.Controller.DataSource 
   DBDoc=DataSource.DatabaseDocument 
   FormDocs=DBDoc.FormDocuments 
   Conn=DataSource.getConnection("","") REM  no user/password 
   Args(0).Name="ActiveConnection" : Args(0).Value=Conn 
   if FormDocs.hasByName(FormName) Then 
      FormDoc=FormDocs.loadComponentFromURL(FormName,"_self",2,Args() ) 
      FormDoc.CurrentController.Frame.ContainerWindow.setFocus() 
REM nasconde menu oooffice
      oLMgr = FormDoc.CurrentController.Frame.LayoutManager
      oLMgr.setVisible(False) 'nasconde strumenti
      oLMgr.hideElement("private:resource/menubar/menubar") ' nasconde il menu
   End If 
HandleError: 
   If Err<>0 Then 
      Exit Sub 
   End If 
REM nasconde finestra iniziale OOO  
  'oWin = starDesktop.getCurrentFrame.getContainerWindow()
 ' oWin.visible = false
End Sub 

Scrivi RISOLTO se ok

[fantacilli]

Scusa ma è così fatica leggere il forum? Per stavolta ecco qua un esempio ma approfitto per chiarire che la macro autoexec è una semplice macro che devi creare tu e che potrebbe chiamarsi anche pippo o topolino. Rimane il fatto che sarà eseguita all'apertura del file .odb perché impostato da te (vedi sopra).

Mitico...ho risolto!

[marcelotero]

Ho utilizzato la macro Autoexec per aprire il menu del mio database.Funziona nel senso che all'apertura del documento mi apre il menu
PERO' se poi premo uno dei pulsanti per raggiungere un altro form mi restituisce questo errore


Faccio notare che se apro il form MENU manualmente,i pulsanti dei collegamenti ad altri form funzionano correttamente
Cosa può essere?

[marcelotero]

nessun suggerimento sul motivo per cui mi da questo errore?
E' strano perchè come ho detto aprendolo manualmente i collegamenti funzionano

[codicem]

ma il tuo database è registrato?

[fulk]

Dato che il mio attuale problema in qualche modo è legato a questo inizio a postarlo qui...

Quello che vorrei ottenere è l'apertura di un formulario INGRANDITO in automatico.
Attualmente nella mia macro utilizzo questa funzione:

Codice: Seleziona tutto

sub subDisplayForm(sDatabaseName as string, sFormName as string)
	dim mArgs(1) as new com.sun.star.beans.PropertyValue
	oDatabase = fnGetOpenDatabase(sDatabaseName)
	oConnection = oDatabase.DataSource.getConnection("","")
	mArgs(0).name = "OpenMode"
	mArgs(0).value = "open" '"openDesign" ' '"openForMail"
	mArgs(1).name = "ActiveConnection"
	mArgs(1).value = oConnection
	oForm = oDatabase.getFormDocuments.getByName(sFormName)
	oDatabase.getFormDocuments.loadComponentFromURL(sFormName, "_blank", 0, mArgs())
end sub

che fa il suo sporco lavoro tuttavia il formulario non viene aperto con la finestra ingradita..
Sapreste dirmi quale sia il parametro da impostare per ottenere l'effetto desiderato ?

[giorgiofoga]

With oForm.getCurrentController().getFrame().getContainerWindow()
.setPosSize( 50, 50 , , , com.sun.star.awt.PosSize.POS) 'REM posizione dell'angolo in alto a sinistra
.setPosSize( , , 1400, 1046 , com.sun.star.awt.PosSize.SIZE ) 'REM dimensione in pixel della finestra (att.ne .... se vai fuori schermo non vedi più _[]X

End With

righe che mancavano anche nella mia macro fino a una settimana fa.....

[fulk]

Ciao giorgiofoga,
intanto grazie per la risposta !

In linea teorica il codice che mi hai postato potrebbe andare bene (anche se sarebbe meglio il codice che corrisponde proprio alla pressione del tasto "ingrandisci" perchè non conosco nè risoluzione nè dimensione del monitor di chi utilizzerà il database e tra l'altro verrà sicuramente utilizzato con monitor diversi).

In ogni caso non riesco a farlo funzionare, mi viene restituito questo errore:

Errore di runtime basic.
Proprietà o metodo non trovati: getCurrentController.


Hai idea di cosa possa essere ?

PS
il form è dichiarato così:
Dim oForm as Object

[fulk]

Ho rivisto un po' il codice prendendo spunto da qui:
http://de.openoffice.info/viewtopic.php?f=18&t=16028

Codice: Seleziona tutto

Sub subDisplayForm2(sDatabaseName as string, sFormName as string)
	Dim pProp(1) As New com.sun.star.beans.PropertyValue
	Dim dbContext As Object
	dbContext = createUnoService("com.sun.star.sdb.DatabaseContext")
	oDataSource = dbContext.GetByName(sDatabaseName)
	oForms = oDataSource.DatabaseDocument.FormDocuments
	oAConnection = oDataSource.getConnection("","")

	'impostazione properties
	pProp(0).Name = "ActiveConnection"
	pProp(0).Value = oAConnection
	pProp(1).Name = "OpenMode"
	pProp(1).Value = "open" ' OR: openDesign

	'apertura form
	oFormulario = oForms.loadComponentFromURL(sFormName,"_blank",0,pProp())

	'impostazione dimensioni form
	With oFormulario.getCurrentController().getFrame().getContainerWindow()
		.setPosSize( 50, 50 , , , com.sun.star.awt.PosSize.POS) 'posizione dell'angolo in alto a sinistra
		.setPosSize( .PosSize.x, .PosSize.y , 800, 600 , com.sun.star.awt.PosSize.SIZE ) 'dimensione in pixel della finestra
	End With

End Sub

Così facendo funziona correttamente.
Rispetto a prima cambia la modalità di apertura del database e i "property values".
(ATTENZIONE: il parametro sDatabaseName deve essere passato alla funzione senza l'estensione odb).

Rimane il quesito di poter aprire il form massimizzando la sua dimensione rispetto alla risoluzione del monitor in uso...ci sto sbattendo la testa ma non sono ancora arrivato a nulla..

edit (22/04/2011):
nel codice mancava la riga che provvede al posizionamento del punto in alto a sinistra del form, ho provveduto ad aggiungerla e commentarla

[giorgiofoga]

bhe direi tante cose ::: ma ne dico una sola invece...

una volta ho visto usare la prprietà IsMaximise ...... ma chiissà dove non lo ricordo più infatti non l'ho mai usata.

[vladko]

ora scrivo ma non posso provare anche....
anche in altro messaggio scritto che trucco è tutto schermo che su macro si scrive

Codice: Seleziona tutto

uno:FullScreen

già uso con linux e funziona perfetto ma

qui trovato qualcuno che si lamenta
http://user.services.openoffice.org/es/ ... een#p18248

e qui altra soluzione
http://user.services.openoffice.org/es/ ... een#p18560

spero che vada bene anche per te o che metti tua soluzione grazie

[fulk]

Ciao vladko !

Ho provato le due possibilità indicate nel forum spagnolo.
Purtroppo però non riesco a far funzionare neanche queste ..

In corrispondenza di questa riga di codice:
oFrame=Event.Source.Parent.Parent.CurrentController.Frame

Mi viene visualizzato il seguente errore runtime:
Variabile dell'oggetto non impostata.

Possibile che sia così complicato aprire un form massimizzato ?!

[marcelotero]

ma il tuo database è registrato?

scusa il ritardo,non ho avuto accesso a Internet per un pò di giorni
si il databaase è registrato

[codicem]

scusa il ritardo,non ho avuto accesso a Internet per un pò di giorni
si il databaase è registrato

Prova a usare questa macro per l'apertura dei forms:

Codice: Seleziona tutto

Sub ApriForm
   Dim InteractionHandler As Object
   InteractionHandler = createUnoService("com.sun.star.sdb.InteractionHandler")
   ThisDatabaseDocument.CurrentController.connect("","")
   ThisDatabaseDocument.FormDocuments.getByName ( "NometuoForm" ).open
End Sub

[giorgiofoga]

nessuno ha poi mai usato la proprietà .... IsMaximized ...?? evidentemente .... la dimensione dello schermo in pixel va bene uguale ..... peccato mi sarebbe piacuto saperne qualcosa in più.

[fulk]

nessuno ha poi mai usato la proprietà .... IsMaximized ...?? evidentemente .... la dimensione dello schermo in pixel va bene uguale ..... peccato mi sarebbe piacuto saperne qualcosa in più.

Ciao giorgiofoga,
no no la dimensione dello schermo in pixel a me non va affatto bene perchè ho a che fare con monitor e risoluzioni diverse...

La proprietà di cui parli (IsMaximized) non ho ben capito come usarla..ho fatto qualche prova senza ottenere un esito positivo.
Se riesci a darmi qualche dritta in più faccio volentieri altre prove

[giannidalmi]

in altri linguaggi (C) ci sono funzioni che rilevano la risoluzione dello schermo, poi con le proporzioni (quelle che abbiamo studiato alla scuola media) si scrive una funzione che modula opportunamente lunghezze e larghezze
ma in openoffice non ho trovato nulla
qualcuno ne sa qualcosa?
ovviamente poi tutto va gestito da macro/programma