Gorsel Programlama

Tamamen kodlarla Kütüphane takip programı VB.NET

Imports System.Data.OleDb
Public Class Form1
Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")
Dim kmt As New OleDbCommand
Dim adtr As OleDbDataAdapter
Dim dtst As New DataSet
Sub listelesene()
bag.Open()
adtr = New OleDbDataAdapter("select * From kitapbil", bag)
adtr.Fill(dtst, "kitapbil")
DataGridView1.DataSource = dtst
DataGridView1.DataMember = "kitapbil"
bag.Close()
adtr.Dispose()
End Sub
Sub texteyaz()
TextBox9.Text = (Me.BindingContext(dtst, "kitapbil").Position + 1) & " / " & Me.BindingContext(dtst, "kitapbil").Count
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listelesene()
texteyaz()
TextBox1.DataBindings.Add("Text", dtst, "kitapbil.Kitap_NO")
TextBox2.DataBindings.Add("Text", dtst, "kitapbil.Kitap_Adi")
TextBox3.DataBindings.Add("Text", dtst, "kitapbil.Yazar_Adi")
TextBox4.DataBindings.Add("Text", dtst, "kitapbil.Yayin_Evi")
TextBox5.DataBindings.Add("Text", dtst, "kitapbil.Kitap_Turu")
TextBox6.DataBindings.Add("Text", dtst, "kitapbil.Baski_Sayisi")
TextBox7.DataBindings.Add("Text", dtst, "kitapbil.Stok_Sayisi")
TextBox8.DataBindings.Add("Text", dtst, "kitapbil.Gelis_Tarihi")
End Sub
Private Sub btnYenikayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYenikayit.Click
Me.BindingContext(dtst, "kitapbil").AddNew()
End Sub

Private Sub btnIleri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIleri.Click
Me.BindingContext(dtst, "kitapbil").Position += 1
texteyaz()
End Sub
Private Sub btnGeri_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeri.Click
Me.BindingContext(dtst, "kitapbil").Position -= 1
texteyaz()
End Sub
Private Sub btnSon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSon.Click
Me.BindingContext(dtst, "kitapbil").Position = Me.BindingContext(dtst, "kitapbil").Count
texteyaz()
End Sub
Private Sub btnIlk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIlk.Click
Me.BindingContext(dtst, "kitapbil").Position = 0
texteyaz()
End Sub
Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO kitapbil(Kitap_No,Kitap_Adi,Yazar_Adi,Yayin_Evi,Kitap_Turu,Baski_Sayisi,Stok_Sayisi,Gelis_Tarihi) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "') "
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
dtst.Clear()
listelesene()
texteyaz()
End Sub
Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
Dim cevap
cevap = MsgBox("Kaydı silmek istediğinizden eminmisiniz ", MsgBoxStyle.YesNo + MsgBoxStyle.Question, "uyarı")
If cevap = MsgBoxResult.Yes Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE from kitapbil WHERE Kitap_No='" + TextBox1.Text + "'"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
dtst.Clear()
listelesene()
texteyaz()
End If
End Sub

Private Sub btnDegistir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDegistir.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE kitapbil SET Kitap_Adi='" + TextBox2.Text + "',Yazar_Adi='" + TextBox3.Text + "',Yayin_Evi='" + TextBox4.Text + "',Kitap_Turu='" + TextBox5.Text + "',Baski_Sayisi='" + TextBox6.Text + "',Stok_Sayisi='" + TextBox7.Text + "',Gelis_Tarihi='" + TextBox8.Text + "' WHERE Kitap_No='" + TextBox1.Text + "'"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
dtst.Clear()
listelesene()
texteyaz()
End Sub

Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Application.Exit()
End Sub
End Class

Projeyi İNDİR