Hjølp til log in Dialog

Brugerhjælp og support til makroer i LibreOffice Basic

Moderators: Lodahl, LarsBrandi

Post Reply
Leif Laursen
Posts: 7
Joined: Sun Nov 06, 2011 13:54
Location: Midt jylland
Contact:

Hjølp til log in Dialog

Post by Leif Laursen » Fri Dec 09, 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

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
Posts: 1091
Joined: Sun Mar 25, 2007 21:42

Post by Jens S » Sat Dec 10, 2011 14:31


Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest