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

Trang chủ » Visual Basic Kayıt Programı » Visual Basic Öğrenci Kayıt Programı Yapımı

Có thể bạn quan tâm

  • Anasayfa
  • Yeni Konular
  • Yeni Yorumlar
  • Kategoriler
  • İletişim
    • Twitter Facebook Google+ Pinterest RSS Searching...
5 Ağustos 2013 Pazartesi Visual Basic Öğrenci Kayıt Programı Yapımı Öğrenci Kayıt Programı 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 Visual Basic Öğrenci Kayıt 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... Unknown 02:30 Visual Basic Dersleri

0 yorum:

Yorum Gönder

Sonraki Kayıt Önceki Kayıt Ana Sayfa Kaydol: Kayıt Yorumları (Atom)

Reklamlar

Dersler

  • C# Dersleri (20)
  • C++ Dersleri (17)
  • Genel (4)
  • MySQL Dersleri (5)
  • Visual Basic Dersleri (17)

Wikipedide Arayın

Arama sonuçları

Blog Arşivleri

  • Ağustos (38)
  • Temmuz (24)

Reklamlar

 

Từ khóa » Visual Basic Kayıt Programı