Ms SQL Veri Tabanlı Öğrenci Takip Programı — Vb.Net
Not : Mssql (2008) veri tabanı backup dosyası projenin içinde mevcuttur.
Ms sql veri tabanının nasıl geri yüklendiğini (Restore) videolu olarak izlemek için Tıklayınız.
Ms sql veri tabanının nasıl yedeklendiğini (Backup) videolu olarak izlemek için Tıklayınız.
FORM1 İçerisine Yazılacak Kodlar…
[code language=”vb”]
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
[/code]
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…
[code language=”vb”]
Imports System.Data
Imports System.Data.SqlClient
Public Class Form2
Public bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
Public kmt As New SqlCommand
Public adtr As New SqlDataAdapter
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 SqlDataAdapter(" Select * from ogr ", bag)
adtr.Fill(table)
dataGridView1.DataSource = table
End Sub
Public Sub velibil()
table2.Clear()
Dim adtr As New SqlDataAdapter(" Select * from veli ", bag)
adtr.Fill(table2)
dataGridView2.DataSource = table2
End Sub
Public Sub odev() ‘www.gorselprogramlama.com
table3.Clear()
Dim adtr As New SqlDataAdapter(" 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
[/code]
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…
[code language=”vb”]
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
[/code]
FORM4 İçerisine Yazılacak Kodlar…
[code language=”vb”]
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
[/code]
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…
[code language=”vb”]
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
[/code]
Bu program için kullandığınız veri tabanı ekran götüntülerini alan bilgilerini ata bilirmisiniz çok acil
merve:
veri tabanı bin–>debug klasöründe.
projelerı acamıyorum genel olarak start debbung tonu sönük gelıyo hep
mahtm:
Kullandığınız Visual Studio ayarlarından kaynaklıdır.Ayarlara bakın veya kaldırıp yeniden yükleyin.
@admin
mrb aynı uygulamayı sql 2008 de tablolarını oluşturup yapabilirmiyiz ?
hayri :
Veri tabanı , alanları ve özellikleri aynı olmak koşuluyla olur.