ahmet
Administrator
Yaş : 37
Kayıt tarihi : 14/09/08
Mesaj Sayısı : 87
Nerden : Osmaniye / Düziçi
|
Konu: Visual Basic De Basit Bir Kullanıcı Ve Parola Girişi C.tesi Eyl. 20, 2008 2:29 pm |
|
|
Kendi Yapmış Olduğum Bir Kullanıcı Girişi
- Kod:
-
Private Sub Command1_Click() If Text1 = "isim" And Text2 = "parola" Then cevap = MsgBox("Kullanıcı Adı Ve Parola Doğru", vbInformation, "Giriş Doğru") Form2.Show Form1.Hide ElseIf Text1 = "" And Text2 = "" Then cevap = MsgBox("Lütfen Kullanıcı Adı Ve Parola Giriniz", vbExclamation, "Giriş Eksik") ElseIf Text1 = "" Then cevap = MsgBox("Lütfen Kullanıcı Adı Giriniz", vbExclamation, "Giriş Eksik") ElseIf Text2 = "" Then cevap = MsgBox("Lütfen Parola Giriniz", vbExclamation, "Giriş Eksik") Else cevap = MsgBox("Kullanıcı Adı Veya Parola Hatalı", vbCritical, "Giriş Hatalı") End If End Sub
Private Sub Command2_Click() cevap = MsgBox("Çıkmak İstediğinizden Emin misiniz", vbQuestion + vbYesNo, "Çıkış") If cevap = vbNo Then Else End End If End Sub |
|