Visual Basic Öğrenci Kayıt Programı Yapımı

Daha fazlası için :  http://programderslerim.blogspot.com/

Hoşgeldiniz arkadaşlar bugün sizlere VB'de öğrenci kayıt programı yapımını göstereceğim.

Öncelikle bir Microsoft Office Access'te yeni boş bir veritabanı açıyoruz. Adını "kayitlar" yazıyoruz ve Bilgisayarım "C:"ye kaydediyoruz.

Daha sonra açılan pencereden "Veriler girerek tablo oluştur" sekmesine giriyoruz. Karşınıza tablo gelecek. Bu tablodaki başlıkları değişiriyoruz. (Alan 1, Alan 2, Alan 3 gibi adları değiştiriyoruz). Onların yerine aşağıda yazılan isimleri sırasıyla yazıyoruz.

Tabloda isim yazarken arada boşluk bırakmayınız.

Alan 1 = TCKimlikNo
Alan 2 = AdıSoyadı
Alan 3 = BabaAdı
Alan 4 = ÖğrenciNo
Alan 5 = DoğumYeri
Alan 6 = DoğumTarihi
Alan 7 = Açıklama

Kaydediyoruz. Tablo adını "kayitlar" diye kaydediyoruz. İsterseniz "C:"ye bir bakın. Eğer kayıtlar adlı bir veritabanı gelmiş ise, sorun yok demektir. (Bazen başka yerlere gidebiliyor. Eğer bulamazsanız arama yaptırın ve buldugunuzda C:'ye direk atın. (Bazen "Salt okunur" olabiliyor, yani birşey yazılıp kaydedilemiyor; ona dikkat edin.)

Şimdi formumuzu açıyoruz ve üstte "Project"e girip "Add Reference" tıklıyoruz. Açılan pencereden "COM" sekmesine giriyoruz. "Microsoft ActiveX Data Objects 2.7 Library" seçeneğini seçip "OK"a basıyoruz. Daha sonra formumuza aşağıdaki elemanları ekliyoruz :

7 Adet Buton

7 Adet Label

7 Adet TextBox

Bunun gibi bir tasarım yapabilirsiniz. Ben bunun gibi sade yapmanızı tavsiye ederim. (Siz istediğiniz gibi değiştirebilirsiniz. Şimdi bunun kodlarını yazdığımız için bu kadar nesne işimizi görür.)

Ve artık kodlamaya başlayalım.

Public Class Form1 (değişkenleri tanımlama)
   
 Dim CON As New ADODB.Connection
    Dim Kayitlar As New ADODB.Recordset

Form'a çift tıklayın ve bunları yazın. (form_load kısmına)

ON.CursorLocation = ADODB.CursorLocationEnum.adUseClient
        CON.Open("Provider=Microsoft.jet.oledb.4.0;Data Source=c:kayitlar.mdb")
        Kayitlar.Open("Select * from kayitlar", CON, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        TextBox1.Text = Kayitlar.Fields("TCKimlikNo").Value
        TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value
        TextBox3.Text = Kayitlar.Fields("BabaAdı").Value
        TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value
        TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value
        TextBox6.Text = Kayitlar.Fields("DoğumTarihi").Value
        TextBox7.Text = Kayitlar.Fields("Açıklama").Value
    End Sub
   
    Private Sub Button7_Click   (çıkış butonu)
    End
    End Sub

    Private Sub Button1_Click   (kaydet butonu)
        Kayitlar.AddNew()
        Kayitlar.Fields("TCKimlikNo").Value = TextBox1.Text
        Kayitlar.Fields("AdıSoyadı").Value = TextBox2.Text
        Kayitlar.Fields("BabaAdı").Value = TextBox3.Text
        Kayitlar.Fields("ÖğrenciNo").Value = TextBox4.Text
        Kayitlar.Fields("DoğumYeri").Value = TextBox5.Text
        Kayitlar.Fields("DoğumTarihi").Value = TextBox6.Text
        Kayitlar.Fields("Açıklama").Value = TextBox7.Text
        Kayitlar.Update()
        MsgBox("Kayıt İşlemi Tamamlanmıştır.")
    End Sub

  Private Sub Button2_Click    (önceki kayıt butonu)
        Kayitlar.MovePrevious()
        If Kayitlar.EOF Or Kayitlar.BOF Then
            Kayitlar.MoveNext()
            TextBox1.Text = Kayitlar.Fields("TCKimlikNo").Value
            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value
            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value
            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value
            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value
            TextBox6.Text = Kayitlar.Fields("DoğumTarihi").Value
            TextBox7.Text = Kayitlar.Fields("Açıklama").Value
        Else
            TextBox1.Text = Kayitlar.Fields("TCKimlikNo").Value
            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value
            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value
            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value
            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value
            TextBox6.Text = Kayitlar.Fields("DoğumTarihi").Value
            TextBox7.Text = Kayitlar.Fields("Açıklama").Value
        End If

    End Sub

 Private Sub Button3_Click     (sonraki kayıt butonu)
        Kayitlar.MoveNext()
        If Kayitlar.EOF Or Kayitlar.BOF Then
            Kayitlar.MovePrevious()
            TextBox1.Text = Kayitlar.Fields("TCKimlikNo").Value
            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value
            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value
            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value
            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value
            TextBox6.Text = Kayitlar.Fields("DoğumTarihi").Value
            TextBox7.Text = Kayitlar.Fields("Açıklama").Value
        Else
            TextBox1.Text = Kayitlar.Fields("TCKimlikNo").Value
            TextBox2.Text = Kayitlar.Fields("AdıSoyadı").Value
            TextBox3.Text = Kayitlar.Fields("BabaAdı").Value
            TextBox4.Text = Kayitlar.Fields("ÖğrenciNo").Value
            TextBox5.Text = Kayitlar.Fields("DoğumYeri").Value
            TextBox6.Text = Kayitlar.Fields("DoğumTarihi").Value
            TextBox7.Text = Kayitlar.Fields("Açıklama").Value
        End If

    End Sub

Private Sub Button4_Click     (yeni kayıt butonu)
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox7.Text = ""

    End Sub

Private Sub Button5_Click      (sil butonu)
        Kayitlar.Delete()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox7.Clear()
        Kayitlar.Update()

    End Sub

Private Sub Button6_Click        (değişiklikleri kaydet butonu)
        Kayitlar.Fields("TCKimlikNo").Value = TextBox1.Text
        Kayitlar.Fields("AdıSoyadı").Value = TextBox2.Text
        Kayitlar.Fields("BabaAdı").Value = TextBox3.Text
        Kayitlar.Fields("ÖğrenciNo").Value = TextBox4.Text
        Kayitlar.Fields("DoğumYeri").Value = TextBox5.Text
        Kayitlar.Fields("DoğumTarihi").Value = TextBox6.Text
        Kayitlar.Fields("Açıklama").Value = TextBox7.Text
        Kayitlar.Update()

    End Sub
End Class

Program bittiğinde buna benzer olacaktır.Tebrik ederim.

Unutmayın,bilmediğiniz şeyi sevemessiniz.Programlama dilini bizimle seveceksiniz.Takipte Kalın...