Gde uporno pravim gresku ? Pa kad unesem pogresnu/pravu lozinku 5 puta ispise uneliste pogresnu lozinku/uspesno ste se ulogovali?
Kod:
Private Sub Login_Click()
Sifra = Sifra.Text
If Zaposleni.Text = "Nikola Markovic" And Sifra = "nikola123" Then
MsgBox "Uspesno ste se ulogovali"
Form1.Hide
Form2.Show
Form2.ImeRadnika.Caption = "Nikola Markovic"
Form3.ImeRadnika.Caption = "Nikola Markovic"
Else: MsgBox "Uneliste pogresnu lozinku"
End If
If Zaposleni.Text = "Ivan Nikolic" And Sifra = "ivan123" Then
MsgBox "Uspesno ste se ulogovali"
Form1.Hide
Form2.Show
Form2.ImeRadnika.Caption = "Ivan Nikolic"
Form3.ImeRadnika.Caption = "Ivan Nikolic"
Else: MsgBox "Uneliste pogresnu lozinku"
End If
If Zaposleni.Text = "Jovan Verbic" And Sifra = "jovan123" Then
MsgBox "Uspesno ste se ulogovali"
Form1.Hide
Form2.Show
Form2.ImeRadnika.Caption = "Jovan Verbic"
Form3.ImeRadnika.Caption = "Jovan Verbic"
Else: MsgBox "Uneliste pogresnu lozinku"
End If
If Zaposleni.Text = "Nevena Jankovic" And Sifra = "nevena123" Then
MsgBox "Uspesno ste se ulogovali"
Form1.Hide
Form2.Show
Form2.ImeRadnika.Caption = "Nevena Jankovic"
Form3.ImeRadnika.Caption = "Nevena Jankovic"
Else: MsgBox "Uneliste pogresnu lozinku"
End If
If Zaposleni.Text = "Jovana Jelic" And Sifra = "jovana123" Then
MsgBox "Uspesno ste se ulogovali"
Form1.Hide
Form2.Show
Form2.ImeRadnika.Caption = "Jovana Jelic"
Form3.ImeRadnika.Caption = "Jovana Jelic"
Else: MsgBox "Uneliste pogresnu lozinku"
End If
End Sub