Visual Basic 2010 Formlar Arası Şifreli Geçiş (1 İzleyici)

Katıldı
Mesajlar
438
Yaşadığın yer
Elazığ
Kredi
16
Arkadaşlar bu dersimizde bir formdan diğer forma İf deyimini kullanarak şifreyle geçiş yapacağız. Genellikle bir çok program özellikle ofis paket programlarında güvenlik açısından programa ulaşabilmek için bir kullanıcı adı ve parolayla açılır. Mantıklı olanda budur. Program bir muhasebe programı olabilir. Çalıştırıldığı zaman ilk önce ekrana kullanıcı adı ve parola soran ekran gelmesi ve doğruysa programa geçiş yapılması uygun olandır.​
Bunun için birtane forum oluşturduk ve şu şekilde düzenledik.​
Ders7Form1.jpg
Açıklamalar resim ğzerinde yapılmıştır.​
Program çalıştığında ilk önce yukarıdaki ekran gelecektir.​
Birtane daha form ekleyelim. Buda Form2 olacaktır. Ve aşağıdaki gibi düzenleyelim.​
ders7form2.jpg
Form1 Giriş Butonuna Çift Tıklayıp Şu kodları yazalım.​
---------------------------------------------------------------​
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "admin" And TextBox2.Text = "12345" Then
MsgBox("Giriş Başarılı Yönetici Sayfasına Yönlendirildiniz")
Form2.Show() 'Yukardaki şartlar doğru ise form2 yi gösterecektir.
Me.Hide() 'Ve form1'i gizleyecetir.
Else 'şart uymuyorsa aşağıdaki kodlar çalışacaktır.
MsgBox(" Şifreniz veya Kullanıcı Adınız Yanlış")
TextBox1.Text = "" 'textbox kutusunu boşaltma.
TextBox2.Text = ""
End If
End Sub
End Class
---------------------------------------------------------------​
Açıklamalar kodların yanlarında yazılmıştır. Açıklama yapılacaksa Tek tırnak ' işaretinden sonra yapılır.​
Form2 Çıkış Botonuna Çift Tıklayalım ve şu kodları yazalım​
--------------------------------------------------------------​
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Show() 'Çıkış butonuna tıklandığında form1'e gidecekdir.
Me.Close() 've form2 yi kapatacak komuttur.
End Sub
End Class
--------------------------------------------------------------​
Programımız F5 tuşuyla çalıştıralım.​
Ders7form1calissma.jpg
Tamam tıklandığında Form2 ye geçecektir.​
(Eğer Yanlış olsaydı hata mesajını vercek ve tekrar form1'i kutuları boşaltarak gösterecektir.)
ders7form2.jpg
Çıkışa basıldığında form2 kapanacak form1 gösterelicektir.​
 

Bu konuyı kimler okuyor

Benzer konular

Top