Şifreli Giriş

[jacckhal]

Merhaba üstadlar..
Benim bir kaç sorum olacak.
Hazırladığım giriş formuna kullanıcı atama ve giriş için label tıklayınca program tamamen aktif olsun ve anasayfa forumu açılsın.
Eğer şifre yanlış girerse sayfaya girilemesin.
Ayrıca hazırladığım esgal forumunu A4 kağıdına yazdıramıyorum site örnek buldum ama olmadı.
Yardımlarınız için şimdiden teşekkürler.
Örnek sayfa ektedir.

http://rapidshare.com/files/214625749/HAVUZ_PROG..zip.html

 

[jacckhal]

bilen ve yardım edecek olan arkadaş yokmu

 

[algil]

Merhaba

Basit bir çözüm ama geliştirebilirsin. Aşağıdaki kodu "giriş" userformunun kod bölümüne ilave edin.

Ayrıca Textbox2'nin özellikler bölümündeki "PasswordChar" satırına "*" işareti koyunuz.

Private Sub Label2_Click()
If TextBox1 = "user" And TextBox2 = "1234" Then
    anasayfa.Show
    Unload giris
Else
    MsgBox "Kullanıcı adı veya parolası hatalı.", vbExclamation, "UYARI"
End If
End Sub

Not : Kullanıcı adınız : user
şifreniz : 1234

 

[jacckhal]

Çok teşekkür ederimmm..