Login forma hitno

[ matovicv @ 22.10.2006. 20:06 ] @

Ako mi moze neko napraviti neku najobicniju dormu za login sa user i pass poljima i kada se uspjesno loguje da otvori neku drugu gormu. Pokusavam satima i nikako da uspijem.

Hvala

[ X-Cite @ 22.10.2006. 20:12 ] @

ASP, VB ?

Ako je VB onda možeš jednostavno da koristiš formu za login koja je već napisana na grubo.

Dodaš je isto kao i običnu novu formu, samo da odabereš Login

[ matovicv @ 22.10.2006. 22:19 ] @

VB je. Gdje je mogu naci. Haj mi postavi pls ako imas ti. Samo da vidim na kojem principu radi pa cu dalje sam.

TY

[ X-Cite @ 22.10.2006. 23:01 ] @

pogledaj sliku

tamo gdje ti prikazuje strelica... klikni na tu strelicu malu crnu i kad se otvori meni, klikni na form

zatim ti se otvori prozor kao što ga vidiš na slici i klikni na Log in dialog

Mislim da je dovoljno jasno

Tu imaš i sav kod u formi kad pogledaš u code view

[ matovicv @ 23.10.2006. 00:07 ] @

Hvala ti puno.

[ matovicv @ 11.11.2006. 22:32 ] @

Naletio sam na problem, pa ako moze ko da pogleda.

Code:
Private Sub Check1_Click()
If Check1.Value = 0 Then
Text1.PasswordChar = ""
Text2.PasswordChar = "*"
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
    KeyAscii = 0

If Text1.Text = "" Then
MsgBox "Unesite ID"

Else
If Text2.Text = "" Then
MsgBox "Unesite password"

Else
If Text1.Text <> "admin" Then

Else
If Text2.Text <> "videoteka" Then
Pesan = MsgBox("Pristup zabranjen!", vbOKOnly + vbCritical, "Pristup zabranjen!")


Else
If Text1.Text = "admin" Then
If Text2.Text = "videoteka" Then
Pesan = MsgBox("Dobrodosli!", vbOKOnly + vbInformation, "Dobrodosli")


End If
End If
End If
End If
End If
End If
End If
Form1.Visible = False
Form2.Visible = True
End Sub

Ne radi mi kako treba, odnosno radi donekle ali ...
Kada ne unesem ID on mi izbaci poruku pogresno i odmah udje u formu 2, ili bilo sta drugo on opet udje, a treba potpuno drugacije da ne omoguci pristup ako nije tacno.

Usput bio bih jako zahvalan ako bi mogao neko samo da mi pokaze na koji nacin da citam i pisem ID i pass iz nekof file.txt/ini bilo cega samo da nije iz neke baze.

Hvala

[ goranvuc @ 11.11.2006. 22:35 ] @

Da li si cuo za modalne forme?

[ matovicv @ 11.11.2006. 22:45 ] @

Da ali ne kontam kako da ubacim to.

[ matovicv @ 11.11.2006. 22:48 ] @

Ma dobio i skoli da napravim login formu za neki program i to da se upisuje u datoteku i cita iz nje (ID i Pass) ali ne kontam dosta toga jer se prvi put susrecem sa VB6.

Neznam sta da radim. Moram ga predati do ponedeljka.

[ goranvuc @ 11.11.2006. 22:53 ] @

Nemoj da se ljutis, ali pod broj 1. formatizuj malo tvoj kod da bude citljiv i tebi i drugima, lakse ces primetiti gde je greska

Code:

Private Sub Check1_Click()
    If Check1.Value = 0 Then
        Text1.PasswordChar = ""
        Text2.PasswordChar = "*"

OVDE FALI END IF !!!!

End Sub

Private Sub Form_Load()

STA CE TI OVO???

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0

    If Text1.Text = "" Then
        MsgBox "Unesite ID"
    Else
        If Text2.Text = "" Then
            MsgBox "Unesite password"
        Else
            If Text1.Text <> "admin" Then
            Else
                 If Text2.Text <> "videoteka" Then
                       Pesan = MsgBox("Pristup zabranjen!", vbOKOnly + vbCritical, "Pristup zabranjen!")
Else
If Text1.Text = "admin" Then
If Text2.Text = "videoteka" Then
Pesan = MsgBox("Dobrodosli!", vbOKOnly + vbInformation, "Dobrodosli")

JOOOOOOJ!!!! DA LI SI CUO ZA SELECT CASE ili SWITCH????

End If
End If
End If
End If
End If
End If
End If
Form1.Visible = False
Form2.Visible = True
End Sub

Ponovo ti kazem, nemoj da se ljutis, ali mene bi bilo sramota da ovako nesto stavljam na forum. Ovde treba radiklanih rezova, pa onda da vidimo zasto ne radi kako treba.

Sad videh ovo "radiklanih" rezova, koji lapsus.

_{[Ovu poruku je menjao goranvuc dana 14.11.2006. u 13:55 GMT+1]}

[ matovicv @ 11.11.2006. 23:01 ] @

Ne ljutim se:) Sto bi se ljutio, drago mi je da mi neko hoce pomoci, ali opet kazem ovo je moje prvo susretanje sa VB6.

[ goranvuc @ 11.11.2006. 23:10 ] @

OK, ajde da ulozim napor pa da probam da ispravim:

Code:

Private Sub Check1_Click()

    If Check1.Value = 0 Then
        Text1.PasswordChar = ""
        Text2.PasswordChar = "*"
    End If

    'Ne znam za cega ti ovo sluzi

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If KeyAscii = vbKeyReturn Then KeyAscii = 0

    If Text1.Text = "" Then
        MsgBox "Unesite ID"
        Exit Sub 'OVO TI JE NEDOSTAJALO!
    ElseIf Text2.Text = "" Then
        MsgBox "Unesite password"
        Exit Sub
    ElseIf (Text1.Text <> "admin") OR (Text2.Text <> "videoteka") Then
         MsgBox "Pristup zabranjen!", vbOKOnly + vbCritical, "Pristup zabranjen!"
         Exit Sub
    Else
         MsgBox "Dobrodosli!", vbOKOnly + vbInformation, "Dobrodosli"
    End If

    Form1.Visible = False
    Form2.Visible = True

End Sub

Necu da ulazim u smisao ovakvog resenja, ali bi bar trebalo da radi (nisam probao, pisem napamet)

Srecno!

[ matovicv @ 11.11.2006. 23:57 ] @

sada je ok sa mojim nekim malim izmjenama

Code:
Private Sub Check1_Click()
If Check1.Value = 0 Then
Text1.PasswordChar = ""
Text2.PasswordChar = "*"
End Sub

Private Sub Command1_Click()

  If KeyAscii = vbKeyReturn Then KeyAscii = 0

    If Text1.Text = "" Then
        Exit Sub
    ElseIf Text2.Text = "" Then
        Exit Sub
    ElseIf (Text1.Text <> "admin") Or (Text2.Text <> "videoteka") Then
         MsgBox "Pristup zabranjen!", vbOKOnly + vbCritical, "Pristup zabranjen!"
         Exit Sub
    Else
         MsgBox "Dobrodosli!", vbOKOnly + vbInformation, "Dobrodosli"
    End If

Form1.Visible = False
Form2.Visible = True

End Sub

Private Sub Command2_Click()
Form1.Visible = False
Form2.Visible = False
End Sub

Hvala puno na pomoci!!! Ovo iskreno mislim.

[ goranvuc @ 12.11.2006. 00:01 ] @

Nema na cemu. Ajde tamo da dobijes neku dobru ocenu, nemoj da nas brukas

[ matovicv @ 12.11.2006. 00:04 ] @

Hehe hvala, samo ovo je jedna ocjena, samo sto imam za drugu isto ovo ali da napravim da cita iz datoteke neke,a to bas nikako ne kontam(da ima registrovano vise korisnika).

[ goranvuc @ 12.11.2006. 00:07 ] @

Bez muke nema nauke. Pomuci se malo da dodjes do resenja, pa ako negde zapnes, a ti pitaj. Samo je bitno da sto detaljnije predstavljas problem ako trazis pomoc ovde, a onda ce ti vec neko pomoci.

[ matovicv @ 14.11.2006. 12:52 ] @

@goranvuc napravio sam za citanje iz datoteke. Postat cu kod veceras da pregledas ako je moguce u sustini jel se moglo bolje ili je to to.

[ matovicv @ 15.11.2006. 00:06 ] @

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]}

[ goranvuc @ 15.11.2006. 09:40 ] @

Ako sam dobro shvatio ovu "hrpu" koda, imas problem kako da citas iz datoteke. ali koliko vidim skoro si sve uradio (nisam proveravao), samo ti je falilo ovo:

Code:

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 = tempOsoba.Password) 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

Naravno, moras imati password u definiciji Tipa "osoba" (Ne vidimo je ovde, mislim na definiciju)