Prikazi cijelu temu 22.10.2012 21:03
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


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):
  1. Option Explicit
  2.  
  3. Public OperID As Integer 'ID Operatora
  4. Public SifraO As String  'Å ifra operatora
  5. Public ImeO As String     'Ime operatora
  6. Public PrezO As String    'Prezime operatora
  7. Public PravaO As Integer  'Dozvole operatora
  8. Public KorImeO As String  'Korisni ko ime operatora
  9. Public VrijemeLog As Date 'Vrijeme logovanja
  10. 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):
  1. Private Sub cboUserName_AfterUpdate()
  2.  
  3. mod_Korisnik.OperID = Me.cboUserName.Column(0)
  4. mod_Korisnik.ImeO = Me.cboUserName.Column(2)
  5. mod_Korisnik.PrezO = Me.cboUserName.Column(3)
  6. mod_Korisnik.PravaO = Me.cboUserName.Column(4)
  7.  
  8. Me.txtPassword.SetFocus
  9. End Sub

I joÅ¡ u nekom modulu treba napraviti slijedeće dvije funkcije:
PreuzmiIzvorni kôd (vbnet):
  1. Function tkoRadiIme()
  2. tkoRadiIme = mod_Korisnik.ImeO
  3. End Function
  4.  
  5. Function tkoRadiPrezime()
  6. tkoRadiPrezime = mod_Korisnik.PrezO
  7. 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