Hjølp til log in Dialog

[Leif Laursen]

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

Code: Select all

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]

http://wiki.services.openoffice.org/wik ... th_Dialogs

mvh
Jens