Gorsel Programlama

Öğrenci Takip Programı — Vb.Net

FORM1 İçerisine Yazılacak Kodlar…

Public Class Form1

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

End Sub  'www.gorselprogramlama.com

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

If textBox2.Text = "1907" Then

Form2.Show()

Me.Hide()

Else

MessageBox.Show("yanlış şifre girdiniz..")

End If

End Sub

End Class

Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.

FORM2 İçerisine Yazılacak Kodlar…

Imports System.Data

Imports System.Data.OleDb

Public Class Form2

Public bag As New OleDbConnection("Provider=Microsoft.ace.OleDb.12.0;Data Source=data.accdb")

Public kmt As New OleDbCommand()

Public adtr As New OleDbDataAdapter()

Public table As New DataTable

Public table2 As New DataTable 'www.gorselprogramlama.com

Public table3 As New DataTable

Public Sub ogrenci()

table.Clear()

Dim adtr As New OleDbDataAdapter(" Select * from ogr ", bag)

adtr.Fill(table)

dataGridView1.DataSource = table

End Sub

Public Sub velibil()

table2.Clear()

Dim adtr As New OleDbDataAdapter(" Select * from veli ", bag)

adtr.Fill(table2)

dataGridView2.DataSource = table2

End Sub

Public Sub odev() 'www.gorselprogramlama.com

table3.Clear()

Dim adtr As New OleDbDataAdapter(" Select * from ödev ", bag)

adtr.Fill(table3)

dataGridView3.DataSource = table3

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Form3.Show()

Me.Hide()

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click

Form4.Show()

Me.Hide()

End Sub 'www.gorselprogramlama.com

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

Form5.Show()

Me.Hide()

End Sub

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

velibil()

ogrenci()

odev()

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click

End

End Sub 'www.gorselprogramlama.com

End Class

Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.

FORM3 İçerisine Yazılacak Kodlar…

Public Class Form3

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = (((((((((("INSERT INTO ogr(numarasi,adi,soyadi,sinifi,cinsiyeti,bölümü,dali,ev_adresi,posta_kodu,semt,sehir) VALUES ('" + textBox1.Text & "','") + textBox2.Text & "','") + textBox3.Text & "','") + textBox4.Text & "','") + textBox5.Text & "','") + textBox6.Text & "','") + textBox7.Text & "','") + textBox8.Text & "','") + textBox9.Text & "','") + textBox10.Text & "','") + textBox11.Text & "')"

Form2.kmt.ExecuteNonQuery()

Form2.bag.Close()

Form2.kmt.Dispose()

Form2.ogrenci()  'www.gorselprogramlama.com

Form2.velibil()

Form2.odev()

MsgBox("Kayıt işlemi gerçekleştirildi !")

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = "DELETE FROM ogr WHERE numarasi = '" + textBox1.Text & "'"

Form2.kmt.ExecuteNonQuery()

Form2.bag.Close()

Form2.kmt.Dispose()  'www.gorselprogramlama.com

Form2.odev()

Form2.ogrenci()

Form2.velibil()

MsgBox("Silme işlemi gerçekleştirildi !")

End Sub

Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = (((((((((((("UPDATE ogr SET numarasi='" + textBox1.Text & "' , adi='") + textBox2.Text & "',soyadi='") + textBox3.Text & "', sinifi='") + textBox4.Text & "',cinsiyeti='") + textBox5.Text & "',bölümü='") + textBox6.Text & "',dali ='") + textBox7.Text & "',ev_adresi='") + textBox8.Text & "',posta_kodu='") + textBox9.Text & "',semt='") + textBox10.Text & "', sehir='") + textBox11.Text & "',telefon='") + textBox12.Text & "',cep_telefon='") + textBox13.Text & "'"

Form2.kmt.ExecuteNonQuery()

Form2.kmt.Dispose()

Form2.bag.Close()

Form2.odev()

Form2.ogrenci()

Form2.velibil()

MsgBox("Güncelleme işlemi gerçekleştirildi !")

End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click

Form5.Show()

Me.Hide() 'www.gorselprogramlama.com

End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click

Form4.Show()

Me.Hide()

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

End

End Sub 'www.gorselprogramlama.com

End Class

FORM4 İçerisine Yazılacak Kodlar…

Public Class Form4

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = "INSERT INTO veli(veli_adi,veli_soyadi,veli_yakinligi,ev_adresi,is_adresi,p_kodu,c_telefonu,tc_kimlik,egitim_durumu,gelir_duzeyi) VALUES ('" + textBox1.Text + "','" + textBox2.Text + "','" + textBox3.Text + "','" + textBox4.Text + "','" + textBox5.Text + "','" + textBox6.Text + "','" + textBox7.Text + "','" + textBox8.Text + "','" + textBox9.Text + "','" + textBox10.Text + "')"

Form2.kmt.ExecuteNonQuery()

Form2.bag.Close() 'www.gorselprogramlama.com

Form2.kmt.Dispose()

Form2.ogrenci()

Form2.velibil()

Form2.odev()

MsgBox("Kayıt işlemi gerçekleştirildi !")

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = "DELETE FROM ogr WHERE tc_kimlik = '" + textBox8.Text + "'"

Form2.kmt.ExecuteNonQuery()

Form2.bag.Close()

Form2.kmt.Dispose()

Form2.odev()

Form2.ogrenci() 'www.gorselprogramlama.com

Form2.velibil()

MsgBox("Silme işlemi gerçekleştirildi !")

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = "UPDATE ogr SET veli_adi='" + textBox1.Text + "' , veli_soyadi='" + textBox2.Text + "',veli_yakinligi='" + textBox3.Text + "', is_adresi='" + textBox4.Text + "',ev_adresi='" + textBox5.Text + "',p_kodu='" + textBox6.Text + "',c_telefonu ='" + textBox7.Text + "',tc_kimlik='" + textBox8.Text + "',egitim_durumu='" + textBox9.Text + "',gelir_duzeyi='" + textBox10.Text + "'"

Form2.kmt.ExecuteNonQuery()

Form2.kmt.Dispose()

Form2.bag.Close()

Form2.odev()

Form2.ogrenci()

Form2.velibil()

MsgBox("Güncelleme işlemi gerçekleştirildi !")

End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click

Form3.Show() 'www.gorselprogramlama.com

Me.Hide()

End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click

Form3.Show()

Me.Hide()

End Sub

Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click

End

End Sub

Private Sub button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button8.Click

Form2.Show()

Me.Hide()

End Sub 'www.gorselprogramlama.com

End Class

Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.

FORM5 İçerisine Yazılacak Kodlar…

Public Class Form5

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

comboBox1.Items.Add("BİLGİSAYAR BÖLÜMÜ")

comboBox1.Items.Add("ELEKTRİK-ELEKTRONİK BÖLÜMÜ")

comboBox1.Items.Add("METAL BÖLÜMÜ")

comboBox1.Items.Add("MOBİLYA DEKORASYON BÖLÜMÜ")

comboBox1.Items.Add("MAKİNA RESSAMLIĞI BÖLÜMÜ")

comboBox1.Items.Add("YİYECEK İÇECEK BÖLÜMÜ")

comboBox1.Items.Add("KİMYA BÖLÜMÜ")

comboBox2.Items.Add("Dil Ve Anlatım")

comboBox2.Items.Add("Türk Edebiyatı")  'www.gorselprogramlama.com

comboBox2.Items.Add("Kimya")

comboBox2.Items.Add("Coğrafya")

comboBox2.Items.Add("Tarih")

comboBox2.Items.Add("Analitik Geometri")

comboBox2.Items.Add("Biyoloji")

comboBox2.Items.Add("Din Kültürü")

comboBox2.Items.Add("Geometri")

comboBox2.Items.Add("Fizik")

comboBox2.Items.Add("Matematik")

End Sub

Private Sub button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = "INSERT INTO ödev(ogrenci_adi,soyadi,sinifi,bolumu,dersi,konusu,verilis_tarihi,teslim_tarihi,verilen_not,mail_adresi) VALUES ('" + textBox1.Text + "','" + textBox2.Text + "','" + textBox3.Text + "','" + comboBox1.Text + "','" + comboBox2.Text + "','" + comboBox3.Text + "','" + textBox4.Text + "','" + textBox5.Text + "','" + textBox6.Text + "','" + textBox7.Text + "')"

Form2.kmt.ExecuteNonQuery()

Form2.bag.Close()

Form2.kmt.Dispose()

Form2.ogrenci()

Form2.velibil()  'www.gorselprogramlama.com

Form2.odev()

MsgBox("Kayıt işlemi gerçekleştirildi !")

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = "DELETE FROM ödev WHERE soyadi = '" + textBox2.Text + "'"

Form2.kmt.ExecuteNonQuery()

Form2.bag.Close()

Form2.kmt.Dispose()

Form2.odev()

Form2.ogrenci()

Form2.velibil()

MsgBox("Silme işlemi gerçekleştirildi !")

End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click

Form2.bag.Open()

Form2.kmt.Connection = Form2.bag

Form2.kmt.CommandText = "UPDATE ödev SET ogrenci_adi='" + textBox1.Text + "' , soyadi='" + textBox2.Text + "',sinifi='" + textBox3.Text + "', bolumu='" + comboBox1.Text + "',dersi='" + comboBox2.Text + "',konusu='" + comboBox3.Text + "',verilis_tarihi ='" + textBox4.Text + "',teslim_tarihi='" + textBox5.Text + "',verilen_not='" + textBox6.Text + "',mail_adresi='" + textBox7.Text + "'"

Form2.kmt.ExecuteNonQuery()

Form2.kmt.Dispose()

Form2.bag.Close()

Form2.odev()

Form2.ogrenci()

Form2.velibil() 'www.gorselprogramlama.com

MsgBox("Güncelleme işlemi gerçekleştirildi !")

End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click

Form4.Show()

Me.Hide()

End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click

Form3.Show()

Me.Hide()

End Sub

Private Sub button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button8.Click

Form2.Show()  'www.gorselprogramlama.com

Me.Hide()

End Sub

Private Sub comboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboBox2.SelectedIndexChanged

If comboBox2.Text = "Dil Ve Anlatım" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Anlatım Bozuklukları")

comboBox3.Items.Add("Ses Bilgisi")

comboBox3.Items.Add("Yazım Kuralları")

comboBox3.Items.Add("Noktalama İşaretleri")

comboBox3.Items.Add("Tamlamalar")

comboBox3.Items.Add("Sözcükte Yapı")

End If

If comboBox2.Text = "Türk Edebiyatı" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Servet-i Fünun Edebiyatı")

comboBox3.Items.Add("Tanzimat Edebiyatı")

comboBox3.Items.Add("Düz Yazı Türleri")

comboBox3.Items.Add("Fecr-i Ati Edebiyatı")

comboBox3.Items.Add("Mili Edebiyat")

End If

If comboBox2.Text = "Kimya" Then 'www.gorselprogramlama.com

comboBox3.Items.Clear()

comboBox3.Items.Add("Mol Kavramı")

comboBox3.Items.Add("Kimyasal Bağlar")

comboBox3.Items.Add("Bileşikler")

comboBox3.Items.Add("Alkoller Ve Eterler")

comboBox3.Items.Add("Karbonhidratlar")

comboBox3.Items.Add("Alifatik Amonyak Türevleri")

comboBox3.Items.Add("Esterler")

comboBox3.Items.Add("Organik Kimya")

End If

If comboBox2.Text = "Coğrafya" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Türkiye'nın Beşeri Coğrafyası")

comboBox3.Items.Add("Türkiye'de Ulaşım")

comboBox3.Items.Add("Türkiye'nin enerji Kaynakları")

comboBox3.Items.Add("Türkiye'de Ormancılık")

comboBox3.Items.Add("Türkiye'de Hayvancılık") 'www.gorselprogramlama.com

comboBox3.Items.Add("İklim Tipleri")

End If

If comboBox2.Text = "Tarih" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Osmanlı Devletinin Kuruluşu")

comboBox3.Items.Add("Fetret Devri")

comboBox3.Items.Add("İstanbul'un Fethi")

comboBox3.Items.Add("Kapitülasyonlar")

comboBox3.Items.Add("Viyana Kuşatması")

End If

If comboBox2.Text = "Analitik Geometri" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Doğrunun Analitik İncelenmesi")

comboBox3.Items.Add("Noktanın Analitiği")

comboBox3.Items.Add("Çemberin Analitik İncelenmesi")

comboBox3.Items.Add("elipsin Analitik İncelenmesi")

End If

If comboBox2.Text = "Biyoloji" Then

comboBox3.Items.Clear()  'www.gorselprogramlama.com

comboBox3.Items.Add("Nükleik Asit ATP")

comboBox3.Items.Add("Mitoz ve Mayoz Bölünme")

comboBox3.Items.Add("Hayvansal Dokular")

comboBox3.Items.Add("İnsanda Duyu Organları")

comboBox3.Items.Add("Solunum Sistemi")

comboBox3.Items.Add("Boşaltım Sistemi")

comboBox3.Items.Add("Destek ve İskelet Sistemleri")

comboBox3.Items.Add("Kalıtım")

comboBox3.Items.Add("Popülasyon Genetiği")

End If

If comboBox2.Text = "Din Kültürü" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Dünya Hayatı ve Ahiret")

comboBox3.Items.Add("Dinlerde İbadet")

comboBox3.Items.Add("Tövbe ve Bağışlama")

comboBox3.Items.Add("Yaşayan Dinler ve Benzerlikler,")

End If

If comboBox2.Text = "Fizik" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Vektörler")

comboBox3.Items.Add("Kuvvet")

comboBox3.Items.Add("Bağıl Hız")

comboBox3.Items.Add("Sürtünme Kuvveti")

comboBox3.Items.Add("İş-Güç-Enerji")

comboBox3.Items.Add("Akımın Manyetik Etkisi")

End If

If comboBox2.Text = "Matematik" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Basit Eşitsizlikler")

comboBox3.Items.Add("OBEB-OKEK")

comboBox3.Items.Add("Fonksiyonlar")

comboBox3.Items.Add("Oran-Orantı")

comboBox3.Items.Add("Üslü Sayılar")

comboBox3.Items.Add("Modüler Aritmetik")

comboBox3.Items.Add("Polinomlar")

comboBox3.Items.Add("Parabol")

comboBox3.Items.Add("Trigonometir")

End If

If comboBox2.Text = "Geometri" Then

comboBox3.Items.Clear()

comboBox3.Items.Add("Özel Üçgenler")

comboBox3.Items.Add("Kare")

comboBox3.Items.Add("Dikdörtgen")

comboBox3.Items.Add("Yamuk")

comboBox3.Items.Add("Üçgen")

comboBox3.Items.Add("Çember")

comboBox3.Items.Add("Çemberde Kuvvet ")

comboBox3.Items.Add("Düzgün Çokgenler") 'www.gorselprogramlama.com

comboBox3.Items.Add("Deltoid")

End If

End Sub

Private Sub button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button7.Click

End

End Sub

End Class

Projeyi İNDİR