Predmet:Re: Ime i prezime logovanog usera
Trebaš napraviti jedan Class modul koji se zove recimo mod_Korisnik i u njemu deklarirati varijable
PreuzmiIzvorni kôd (vbnet):Option Explicit
Public OperID As Integer 'ID Operatora
Public SifraO As String 'Å ifra operatora
Public ImeO As String 'Ime operatora
Public PrezO As String 'Prezime operatora
Public PravaO As Integer 'Dozvole operatora
Public KorImeO As String 'Korisni
ko ime operatora
Public VrijemeLog As Date 'Vrijeme logovanja
Public VrijemeOdlog As Date ' Vrijeme odlogiranja
Zatim se iz log forme na After update Comba sa koprisničkim imenom popune gornje varijable:
PreuzmiIzvorni kôd (vbnet):Private Sub cboUserName_AfterUpdate()
mod_Korisnik.OperID = Me.cboUserName.Column(0)
mod_Korisnik.ImeO = Me.cboUserName.Column(2)
mod_Korisnik.PrezO = Me.cboUserName.Column(3)
mod_Korisnik.PravaO = Me.cboUserName.Column(4)
Me.txtPassword.SetFocus
End Sub
I joÅ¡ u nekom modulu treba napraviti slijedeće dvije funkcije:
PreuzmiIzvorni kôd (vbnet):Function tkoRadiIme()
tkoRadiIme = mod_Korisnik.ImeO
End Function
Function tkoRadiPrezime()
tkoRadiPrezime = mod_Korisnik.PrezO
End Function
I tada na kraju u textbox gdje hoćeÅ¡ da se prikaže ime i prezime korianika pod Default value napiÅ¡eÅ¡
=tkoRadiIme & " " TkoRadiPrezime
Prilozi:
LogiranjeMP.rar
Preuzimanja:418
Velicina datoteke:29.43 KB
Pozdrav