Hjølp til log in Dialog
Posted: 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
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.
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
Er der nogle der vil hjæpe på for hånd tak.