Bilişim SözlükBilişim Dünyasının Arka Bahçesi

İlk olarak programı açabilmemiz için gerekli olan kullanıcı adları ve şifrelerini tutan bir veri tabanımızın olması gerekiyor. Bunun için hemen veri tabanımızı oluşturalım.

Veri tabanımıza Sifre isminde bir tablo oluşturuyoruz. Sifre tablomuzda Hücre isimleri ve alacağı değerler aşağıdaki resimde görünmektedir.

Tablomuzu oluşturduktan sonra şifre isteyen ekranımızı aşağıdaki gibi tasarlıyoruz.

Formumuza 2 adet textbox, 3 adet buton, 1 tane OledbDataAdapter kontrolleri koyuyoruz.

OledbDataAdapter kontrolümüze sağ tıklayıp, Configure Data Adapter’ e tıklayıp veri tabanı bağlantımızı sağlayıp Sifre tablomuzu ve içerisindeki hücreleri seçiyoruz.

OledbDataAdapter bağlantısını sağladığımızda, formumuza OledbConnection nesnesi eklenecektir. OledbDataAdapter nesnemize sağ tıklayıp, Generate Dataset dediğimizde Dataset nesnemizi de oluşturmuş olduk.

Veri tabanı bağlantımızı yaptığımıza göre şifre bu verileri çekmeye geldi sıra.
Formumuza çift tıklayıp Load eventine aşağıdaki kodları yazıyoruz.

Private Sub Sifre_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

OleDbDataAdapter1.Fill(DataSet11.Sifre) ‘Burada Veri tabanımızdaki Sifre tablosundaki verileri Datasetin içine aktarıyoruz.

End Sub

Verileri çektiğimize göre artık kullanıcının girdiği değerlerle aynımı değimli kontrolünü yaptırmaya geldi sıra.

Giriş butonuna çift tıklıyoruz ve aşağıdaki kodlarımızı yazıyoruz.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim dr As DataRow ‘Datasetteki verileri teker teker kontrol ettirmek için Datarow tanımlıyoruz.

Dim username, password As String
username = TextBox1.Text ‘kullanıcı adı değerini alıyoruz(formdan)
password = TextBox2.Text ‘ÅŸifre deÄŸerini alıyoruz.(formdan)

For Each dr In DataSet11.Sifre
If dr.Item(”Kullanici”) = username And dr.Item(”Sifre”) = password Then

‘Burada bir kontrol yaptırıyoruz. EÄŸer kullanıcının formdan girdigi kullanıcı adı ve ÅŸifre, veri tabanından çekilen kullanıcı adı ve ÅŸifreyle aynıysa aÅŸağıdaki iÅŸlemleri yap diyoruz.

Me.Hide() ‘Formu kapatıyoruz ve programın ana formu olan frmana formunu çağırıyoruz.

Dim frmana As New Ana
frmana.Show()
Exit Sub

End If

Next

MsgBox(”Kullancı adı veya ÅŸifre yanlış. Yada programa kayıtlı kullanıcı deÄŸilsiniz.”, MsgBoxStyle.Critical, “Dur!”)
‘Kullanıcı adı ve ÅŸifre uyumuÅŸmuyorsa bu ÅŸekilde bir hata mesajı çıkarıyoruz.

End Sub

Giriş bölümünü bitirmiş olduk. Şimdi yeni bir kullanıcı tanımı yapmak için yapmamız gereken işlemlere göz atalım.

Öncelikle programı çalıştıran herkesin yeni bir kullanıcı eklememesi için özel bir kod, şifre veya herhangi bir şey belirlememiz lazım. Ben bu örnekte bunun ismine Admin şifresi dedim.
Hemen admin şifresinin tutulduğu tablomuzu oluşturalım.

Admin Tablomuzuda bu şekilde oluşturduktan sonra ( tabiî ki içerisine bir tane admin şifresi girelim ) formumuzu tasarlamaya başlayabiliriz. Yeni kullanıcı kayıt Formunu aşağıdaki gibi tasarlayalım.

Admin şifresinin, kulacı adı ve şifrelerin girilebilmesi için 4 tane textbox ekliyoruz. Kaydetmek ve iptal etmek için de 2 tane buton ekliyoruz. Bu formumuzun da veri tabanı bağlantısını yapmak için 2 tane OledbDataAdapter ekleyip, diğer formumuzdaki gibi veri tabanına bağlanıyoruz. 2. OledbDataAdapterimizde Admin tablosunu seçiyoruz.

Admin şifresini ve kullanıcı ad ve şifresini veri tabanından çağırmak için Formun Load eventine aşağıdaki kodları yazıyoruz.

OleDbDataAdapter1.Fill(DataSet11.Sifre)
OleDbDataAdapter2.Fill(DataSet11.Admin)

Dim dr As DataRow

For Each dr In DataSet11.Admin ‘ Admin ÅŸifresini çekmek için
admin = dr.Item(”Admin”)
Next

tanimlama() ‘Yeni bir kullacı eklemeyi currency manager yöntemiyle yaptığımız için tanımlamamızı çağırıyoruz.
cm.AddNew()

Burada da tanımlamamızı bir sub içine yazıyoruz.

Sub tanimlama()
cm = CType(Me.BindingContext(DataView1), CurrencyManager)
End Sub

( CurrencyManager Yöntemiyle veri tabanına bağlantı yöntemi uygulamalı videosunu: http://www.kariyervideo.com/VideoAciklama.asp?id=22 bu adresten izleyebilirsiniz )

Evet arkadaşlar geldik en son işleme. Kaydet butonuna basıldığında yapılmasını istediğimiz işlemlere. Aşağıda iç içe geçmiş birsürü if blogları görüyorsunuz. Kafanızı karıştırmadan hemen anlatalım.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = admin Then ‘FormLoad eventinde admin ÅŸifresini almıştık. Burda textbox1 e yazılanla aynı olup olmadığını kararlaÅŸtırıyoruz.
If TextBox2.Text <> “” Then ‘TextBox2(Kullanıcı Adı) BoÅŸ deÄŸilse Hemen aÅŸağıdaki if bloguna geç.

If TextBox3.Text = TextBox4.Text And TextBox3.Text <> “” And TextBox4.Text <> “” Then ‘Åžifre bölümleride boÅŸ deÄŸilse veri tabanımıza yeni kullanıcıyı ekleyebiliriz.

cm.EndCurrentEdit()
OleDbDataAdapter1.Update(DataSet11.Sifre)
MsgBox(”Yeni kullanıcı eklendi. Lütfen yeniden giriÅŸ yapınız.”, MsgBoxStyle.Information, “Ä°ÅŸlem BaÅŸarılı”)
End

Else ‘Åžifreler aynı deÄŸilse

MsgBox(”Åžifreler birbiriyle uyuÅŸmuyor. Lütfen yeniden giriniz.”, MsgBoxStyle.Critical, “Dikkat!”)
TextBox3.Clear()
TextBox4.Clear()
TextBox3.Focus() ‘Textlerin ici boÅŸalıyor ve textbox3 e odaklanıyor.

End If

Else ‘Kullanıcı adı(textbox2) boÅŸ geçilmiÅŸse

MsgBox(”Kullanıcı adını boÅŸ geçemezsiniz.”, MsgBoxStyle.Critical, “Dikkat!”)
TextBox2.Focus()
End If

Else ‘ Admin Åžifresi yanlış girildiÄŸinde

MsgBox(”Admin ÅŸifresini yanlış girdiniz.Lütfen Tekrar Deneyiniz.”, MsgBoxStyle.Critical, “Dikkat!”)
TextBox1.Clear()
TextBox1.Focus()

End If

End Sub

Programımıza şifreli giriş uygulamamız bu şekilde sona eriyor arkadaşlar. Bu örneğin uygulamalı videosunu izlemek isterseniz (http://www.kariyervideo.com/VideoAciklama.asp?id=27 adresinden izleyebilirsiniz.

Kaynak

Adem Aktepe