Pozz
@goranvuc imam jedan problem jos. U sustini napravio sam formu za unos usera ali sam naletio na problem. Ne kontam kako da ubacim ovdje u formu da ako je zaposlenik i unseni su mu svi podaci zapamti i njegov pass za ulazak u program (haj ok da smjestim pass u datoteku) ali kako da omogucim da mi se u login formi vrsi provjera mog usera sa passom koji mu je dodjeljen u datoteci. I da ako ja hocu mogu mijenjati pass u nekoj posebnoj formi. Evo koda na sta mislim.
Ili bilo ko drugi ako moze pomoci,
Hvala.
Kod za unos usera:
Code:
Dim fileClan As Long
Dim temp As osoba
Dim flength As Long
Dim reclength As Long
Private Sub cmdDodaj_Click()
fileClan = FreeFile
reclength = Len(temp)
Open App.Path & "\clanovi.dat" For Random As fileClan Len = reclength
flength = LOF(fileClan) \ reclength
If txtBrojLK.Text = "" Or txtIme.Text = "" Or txtPrezime.Text = "" Or txtAdresa.Text = "" Or txtTelefon.Text = "" Then
poruka = MsgBox("Nisu upisani potrebni podaci. Molimo da unesete sve potrebne podatke o clanu", vbOKOnly, "Greska")
Exit Sub
End If
Dim clan As osoba
clan.brojlk = UCase(txtBrojLK.Text)
clan.ime = UCase(txtIme.Text)
clan.prezime = UCase(txtPrezime.Text)
clan.adresa = UCase(txtAdresa.Text)
clan.telefon = UCase(txtTelefon.Text)
clan.zaposlen = chkZaposlenik.Value
flength = flength + 1
Put #fileClan, flength, clan
Close fileClan
stsStatus.SimpleText = "Podaci su uspjesno zapisani. Trenutni broj clanova u bazi je: " & flength
End Sub
Private Sub cmdIzlaz_Click()
Unload Me
End Sub
Private Sub Form_Load()
frmClanovi.Left = 4000
frmClanovi.Top = 4000
fileClan = FreeFile
reclength = Len(temp)
Open App.Path & "\clanovi.dat" For Random As fileClan Len = reclength
flength = LOF(fileClan) \ reclength
stsStatus.SimpleText = "Trenutni broj clanova u bazi je: " & flength
Close fileClan
End Sub
A ovo je kod za Login sto sam uspio skontati:
Code:
Dim fClan As Long
Dim tempOsoba As osoba
Dim flenClan As Long
Dim rlenClan As Long
Dim pozicijaclana As Long
Dim user As String * 15
Private Sub Cmdpotvrdi_Click()
user = UCase(txtusername.Text)
pozicijaclana = 1
Do
Get fClan, pozicijaclana, tempOsoba
If (tempOsoba.ime = user And tempOsoba.zaposlen = 1 And Txtpassword.Text = "cevapi") Or (InStr(1, user, "ADMIN") > 0) Then
MDIGlavni.Show
Unload Me
Exit Do
Else
MsgBox "Nedopusten pristup!", vbExclamation, "Upozorenje"
pozicijaclana = pozicijaclana + 1
End If
Loop While pozicijaclana <= flenClan
End Sub
Private Sub Form_Load()
frmlogin.Height = 3240
frmlogin.Width = 4035
txtusername.Text = " "
Txtpassword.PasswordChar = "*"
otvoriclana
End Sub
Private Sub otvoriclana()
fClan = FreeFile
rlenClan = Len(tempOsoba)
pozicijaclana = 1
Open App.Path & "\clanovi.dat" For Random As fClan Len = rlenClan
flenClan = LOF(fClan) \ rlenClan
End Sub
[Ovu poruku je menjao matovicv dana 15.11.2006. u 01:16 GMT+1]
Login forma hitno
Registrovani: 0 ( 0 )
