Basit Bir Öğrenci Kayıt Programı Yapalım

Bu dersimizde database kullanarak basit bir öğrenci kayıt programı yapalım.

Bu dersimizde database kullanarak basit bir öğrenci kayıt programı yapalım.

Ö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;

[*] Button 7 Adet
[*] Label 7 Adet
[*] Textbox 7 Adet ekliyoruz.




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)


CON.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 bir şey olacak?

Siz istediğiniz gibi tasarımını yapabilirsiniz.

Kolay gelsin.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

azizcan bey ben visual studio 2008 kullanıyorum ve öğretmen kayıt programı yapmıyorum bana yardım ederseniz sevinirim şimdiden teşekkürler cevabınızı bekliyorum...
bana biraz açıklarsanız size yardımcı olurum.bana bir taslak veya benzeri bir şey.yani neler gerekli oldugunu öğretmen için neler gerekli vs gibi şeyleri bana söylerseniz size seve seve yardımcı olurum..
aziz bey size ileti yollayamıyorumm seymaozel_06_15@hotmail.com burdan bana ulaşabilirsiniz şimdiden çok teşekkür ederim cevabınızı bekliyorumm
isterseniz msn den konuşalım daha iyi anlatım olur

Yukarı Git