Hjølp til log in Dialog

Brugerhjælp og support til makroer i LibreOffice Basic

Redaktører: Lodahl, LarsBrandi

Besvar
Leif Laursen
Indlæg: 7
Tilmeldt: 6. nov 2011 13:54
Geografisk sted: Midt jylland
Kontakt:

Hjølp til log in Dialog

Indlæg af Leif Laursen » 9. dec 2011 17:14

Hej der, er der nogle der har tid til at kaste et blik på et log in modul jeg har prøvet at skrive,jeg har nemlig lidt problemer med en event der ikke vil som jeg vil.
Sagen er at jeg har lavet en dialog boks med to tekst ferlter og en knap et felt er navn givet bruger og en anden der hedder kode.
nu er jeg ret ny til det her så når der bliver ret meget mere en et ud tryk er jeg ved at stå af. det er især evente (parent) der driller

når koden lyder

Kode: Vælg alt

Sub LoginShow
DialogLibraries.LoadLibrary( "Standard" )
oLogin = CreateUnoDialog( DialogLibraries.Standard.Login )
oLogin.Execute()
End Sub

Sub ExecuteLogin(oEvent) 
Dim LoginBruger as string 
Dim LoginKode as string 
Dim LoginDialog as object 
Login = oEvent.source.model.parent  

LoginBruger = LoginDialog.getByName("Bruger").text 
LoginKode = LoginDialog.getByName("Kode").text 
If LoginBruger =  "Bruger1"  and LoginKode = "1" Or  Loginbruger =  "Bruger2"  and Loginkode = "2" Then 

openForm("navn") 
Else 
MsgBox("Ingen adgang") 
End If 
End Sub 

Sub openForm(FormName as String) 
   oContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") 
   oFont = oContext.getRegisteredObject("!database navn") 
   dbForms = oFont.DatabaseDocument.FormDocuments 
   oAConnection = oFont.getConnection("","") 

   Dim pProp(1) As New com.sun.star.beans.PropertyValue 
   pProp(0).Name = "ActiveConnection" 
   pProp(0).Value = oAConnection 
   pProp(1).Name = "OpenMode" 
   pProp(1).Value = "open" 

   oForm = dbForms.loadComponentFromURL(FormName, "_blank", 0, pProp()) 
End Sub 
Jeg har kiggede meget efter på det link her http://www.oooforum.org/forum/viewtopic ... ight=login men jeg kan ikke riktig få held til overføre det til en dialog den er tros alt skrevet til en formular.
Er der nogle der vil hjæpe på for hånd tak. :?

Jens S
Indlæg: 1091
Tilmeldt: 25. mar 2007 22:42

Indlæg af Jens S » 10. dec 2011 14:31


Besvar

Hvem er online

Brugere der viser dette forum: Ingen og 2 gæster