Araç Satım Takip Programı İşlemleri VB.Net

Tamamen Kodlarla Araç Satım İşlemleri VB.Net…

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

[code lang=”vbnet”]
<pre>Imports System.Data.OleDb

Public Class Form1

Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=vt1.mdb")
Dim kmt As New OleDbCommand
Dim adtr As OleDbDataAdapter
Dim dtst As New DataSet

Sub listele()
bag.Open()
adtr = New OleDbDataAdapter("select * From ttt", bag)
adtr.Fill(dtst, "ttt")
dataGridView1.DataSource = dtst
dataGridView1.DataMember = "ttt"
bag.Close()
adtr.Dispose()

End Sub
Sub texteyaz()

End Sub

‘Yeni Kayıt Butonu
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

textBox1.Text = ""
textBox2.Text = ""
textBox3.Text = ""
textBox4.Text = ""
textBox5.Text = ""
textBox6.Text = ""
textBox7.Text = ""
textBox8.Text = ""
textBox9.Text = ""
textBox10.Text = ""
textBox11.Text = ""

End Sub

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

bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO ttt(AracSaseNumarası,AracGrubu,AracMarkası,AracModeli,AracPlakası,GirisTarihi,CıkısTarihi,Adi,Soyadi,Telefon,Adres) VALUES (‘" + textBox1.Text + "’,’" + textBox2.Text + "’,’" + textBox3.Text + "’,’" + textBox4.Text + "’,’" + textBox5.Text + "’,’" + textBox6.Text + "’,’" + textBox7.Text + "’,’" + textBox8.Text + "’,’" + textBox9.Text + "’,’" + textBox10.Text + "’,’" + textBox11.Text + "’) "
kmt.ExecuteNonQuery()
bag.Close()
kmt.Dispose()
dtst.Clear()
listele()

End Sub

‘Sil Butonu
Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE FROM ttt WHERE AracSaseNumarası=’" + textBox1.Text + "’"
kmt.ExecuteNonQuery()
bag.Close()
kmt.Dispose()
dtst.Clear()
listele()

End Sub

‘Değiştir Butonu
Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE ttt SET AracGrubu=’" + textBox2.Text + "’,AracMarkası=’" + textBox3.Text + "’,AracModeli=’" + textBox4.Text + "’,AracPlakası=’" + textBox5.Text + "’,GirisTarihi=’" + textBox6.Text + "’,CıkısTarihi=’" + textBox7.Text + "’,Adi=’" + textBox8.Text + "’,Soyadi=’" + textBox9.Text + "’,Telefon=’" + textBox10.Text + "’,Adres=’" + textBox11.Text + "’ WHERE AracSaseNumarası=’" + textBox1.Text + "’"
kmt.ExecuteNonQuery()
bag.Close()
kmt.Dispose()
dtst.Clear()
listele()

End Sub

‘Çıkış
Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
Close()

End Sub
‘Form 1 Load
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listele()
texteyaz()
textBox1.DataBindings.Add("Text", dtst, "ttt.AracSaseNumarası")
textBox2.DataBindings.Add("Text", dtst, "ttt.AracGrubu")
textBox3.DataBindings.Add("Text", dtst, "ttt.AracMarkası")
textBox4.DataBindings.Add("Text", dtst, "ttt.AracModeli")
textBox5.DataBindings.Add("Text", dtst, "ttt.AracPlakası")
textBox6.DataBindings.Add("Text", dtst, "ttt.GirisTarihi")
textBox7.DataBindings.Add("Text", dtst, "ttt.CıkısTarihi")
textBox8.DataBindings.Add("Text", dtst, "ttt.Adi")
textBox9.DataBindings.Add("Text", dtst, "ttt.Soyadi")
textBox10.DataBindings.Add("Text", dtst, "ttt.Telefon")
textBox11.DataBindings.Add("Text", dtst, "ttt.Adres")

End Sub
End Class
[/code]

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