Otobüs Bileti Satış Takip Programı VB.Net…

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

FORM1 İçerisine Yazılacak Kodlar…

Imports System.Data.OleDb

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

Public Sub combo()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from bos"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
comboBox1.Items.Add(oku(0).ToString())
End While
bag.Close()
oku.Dispose()
comboBox1.Sorted = True
End Sub

Public Sub combo2()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from dolu"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
Form3.comboBox1.Items.Add(oku(0).ToString())
End While
bag.Close()
oku.Dispose()
Form3.comboBox1.Sorted = True
End Sub

Public Sub listelesene()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From musbil", bag)
adtr.Fill(dtst, "musbil")
Form3.dataView1.Table = dtst.Tables(0)
Form3.dataGrid1.DataSource = Form3.dataView1
adtr.Dispose()
bag.Close()
End Sub

Public Sub biletyaz()

bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select * from musbil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
Select Case oku(13).ToString()
Case "1"
If True Then
form2.button1.Text = oku(4).ToString()
form2.button1.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "2"
If True Then
form2.button2.Text = oku(4).ToString()
form2.button2.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "3"
If True Then
form2.button3.Text = oku(4).ToString()
form2.button3.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "4"
If True Then
form2.button4.Text = oku(4).ToString()
form2.button4.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "5"
If True Then
form2.button5.Text = oku(4).ToString()
form2.button5.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "6"
If True Then
form2.button6.Text = oku(4).ToString()
form2.button6.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "7"
If True Then
form2.button7.Text = oku(4).ToString()
form2.button7.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "8"
If True Then
form2.button8.Text = oku(4).ToString()
form2.button8.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "9"
If True Then
form2.button9.Text = oku(4).ToString()
form2.button9.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "10"
If True Then
form2.button10.Text = oku(4).ToString()
form2.button10.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "11"
If True Then

form2.button11.Text = oku(4).ToString()
form2.button11.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "12"
If True Then
form2.button12.Text = oku(4).ToString()
form2.button12.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "13"
If True Then
form2.button13.Text = oku(4).ToString()
form2.button13.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "14"
If True Then
form2.button14.Text = oku(4).ToString()
form2.button14.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "15"
If True Then
form2.button15.Text = oku(4).ToString()
form2.button15.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "16"
If True Then
form2.button16.Text = oku(4).ToString()
form2.button16.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "17"
If True Then
form2.button17.Text = oku(4).ToString()
form2.button17.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "18"
If True Then
form2.button18.Text = oku(4).ToString()
form2.button18.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "19"
If True Then
form2.button19.Text = oku(4).ToString()
form2.button19.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "20"
If True Then
form2.button20.Text = oku(4).ToString()
form2.button20.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "21"
If True Then
form2.button21.Text = oku(4).ToString()
form2.button21.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "22"
If True Then
form2.button22.Text = oku(4).ToString()
form2.button22.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "23"
If True Then
form2.button23.Text = oku(4).ToString()
form2.button23.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "24"
If True Then
form2.button24.Text = oku(4).ToString()
form2.button24.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "25"
If True Then
form2.button25.Text = oku(4).ToString()
form2.button25.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "26"
If True Then
form2.button26.Text = oku(4).ToString()
form2.button26.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "27"
If True Then
form2.button27.Text = oku(4).ToString()
form2.button27.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "28"
If True Then
form2.button28.Text = oku(4).ToString()
form2.button28.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "29"
If True Then
form2.button29.Text = oku(4).ToString()
form2.button29.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "30"
If True Then
form2.button30.Text = oku(4).ToString()
form2.button30.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "31"
If True Then
form2.button31.Text = oku(4).ToString()
form2.button31.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "32"
If True Then
form2.button32.Text = oku(4).ToString()
form2.button32.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "33"
If True Then
form2.button33.Text = oku(4).ToString()
form2.button33.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "34"
If True Then
form2.button34.Text = oku(4).ToString()
form2.button34.BackColor = System.Drawing.Color.Red
Exit Select
End If

End Select
End While
bag.Close()
oku.Dispose()
End Sub

Public Sub biletsil()
Select Case Form3.comboBox1.Text
Case "1"
If True Then
Form2.button1.Text = "1"
Form2.button1.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "2"
If True Then

Form2.button2.Text = "2"
Form2.button2.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "3"
If True Then
Form2.button3.Text = "3"
Form2.button3.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "4"
If True Then
Form2.button4.Text = "4"
Form2.button4.BackColor = System.Drawing.Color.Red
Exit Select
End If
Case "5"
If True Then
Form2.button5.Text = "5"
Form2.button5.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "6"
If True Then
Form2.button6.Text = "6"
Form2.button6.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "7"
If True Then
Form2.button7.Text = "7"
Form2.button7.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "8"
If True Then
Form2.button8.Text = "8"
Form2.button8.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "9"
If True Then
Form2.button9.Text = "9"
Form2.button9.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "10"
If True Then
Form2.button10.Text = "10"
Form2.button10.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "11"
If True Then
Form2.button11.Text = "11"
Form2.button11.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "12"
If True Then
Form2.button12.Text = "12"
Form2.button12.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "13"
If True Then
Form2.button13.Text = "13"
Form2.button13.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "14"
If True Then
Form2.button14.Text = "14"
Form2.button14.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "15"
If True Then
Form2.button15.Text = "15"
Form2.button15.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "16"
If True Then
Form2.button16.Text = "16"
Form2.button16.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "17"
If True Then
Form2.button17.Text = "17"
Form2.button17.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "18"
If True Then
Form2.button18.Text = "18"
Form2.button18.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "19"
If True Then
Form2.button19.Text = "19"
Form2.button19.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "20"
If True Then
Form2.button20.Text = "20"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "21"
If True Then
Form2.button20.Text = "21"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "22"
If True Then
Form2.button20.Text = "22"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "23"
If True Then
Form2.button20.Text = "23"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "24"
If True Then
Form2.button20.Text = "24"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "25"
If True Then
Form2.button20.Text = "25"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "26"
If True Then
Form2.button20.Text = "26"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "27"
If True Then
Form2.button20.Text = "27"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "28"
If True Then
Form2.button20.Text = "28"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "29"
If True Then
Form2.button20.Text = "29"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "30"
If True Then
Form2.button20.Text = "30"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "31"
If True Then
Form2.button20.Text = "31"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "32"
If True Then
Form2.button20.Text = "33"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "33"
If True Then
Form2.button20.Text = "33"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
Case "34"
If True Then
Form2.button20.Text = "34"
Form2.button20.BackColor = System.Drawing.Color.Green
Exit Select
End If
End Select
End Sub

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

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Form2.Show()
Me.Hide()
End Sub

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

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 button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
If textBox1.Text <> "" AndAlso textBox2.Text <> "" AndAlso comboBox1.Text <> "" Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = ((((((((((((("INSERT INTO musbil(Adi,Soyadi,Adres,Tel_No,E_Posta,Binis_Yeri,Binis_Saati,Varis_Yeri,Varis_Saati,Yol_Tarihi,Sefer_No,Sefer_Güz,Otobüs_Tipi,Koltuk_Num) VALUES ('" + textBox1.Text &amp; "','") + textBox2.Text &amp; "','") + textBox3.Text &amp; "','") + textBox4.Text &amp; "','") + textBox5.Text &amp; "','") + textBox6.Text &amp; "','") + textBox7.Text &amp; "','") + textBox8.Text &amp; "','") + textBox9.Text &amp; "','") + textBox10.Text &amp; "','") + textBox11.Text &amp; "','") + textBox12.Text &amp; "','") + textBox13.Text &amp; "','") + comboBox1.Text &amp; "') "
kmt.ExecuteNonQuery()
kmt.CommandText = "INSERT INTO dolu(doluyerler) VALUES ('" + comboBox1.Text &amp; "') "
kmt.ExecuteNonQuery()
kmt.CommandText = "DELETE from bos WHERE bosyerler='" + comboBox1.Text &amp; "'"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
comboBox1.Items.Clear()
textBox1.Clear()
textBox2.Clear()
textBox3.Clear()
textBox4.Clear()
textBox5.Clear()
textBox6.Clear()
textBox7.Clear()
textBox8.Clear()
textBox9.Clear()
textBox10.Clear()
textBox11.Clear()
textBox12.Clear()
textBox13.Clear()
comboBox1.Text = ""
combo()
biletyaz()
MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
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…

Public Class Form2

Private Sub button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button35.Click
Form1.Show()
Me.Hide()

End Sub

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

End Sub

Private Sub button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button36.Click
Application.Exit()

End Sub
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 texteyaz()
textBox14.Text = (Me.BindingContext(Form1.dtst, "musbil").Position + 1) & " / " & Me.BindingContext(Form1.dtst, "musbil").Count
End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.combo2()
Form1.listelesene()
textBox1.DataBindings.Add("Text", Form1.dtst, "musbil.Adi")
textBox2.DataBindings.Add("Text", Form1.dtst, "musbil.Soyadi")
textBox3.DataBindings.Add("Text", Form1.dtst, "musbil.Adres")
textBox4.DataBindings.Add("Text", Form1.dtst, "musbil.Tel_No")
textBox5.DataBindings.Add("Text", Form1.dtst, "musbil.E_Posta")
textBox6.DataBindings.Add("Text", Form1.dtst, "musbil.Binis_Yeri")
textBox7.DataBindings.Add("Text", Form1.dtst, "musbil.Binis_Saati")
textBox8.DataBindings.Add("Text", Form1.dtst, "musbil.Varis_Yeri")
textBox9.DataBindings.Add("Text", Form1.dtst, "musbil.Varis_Saati")
textBox10.DataBindings.Add("Text", Form1.dtst, "musbil.Yol_Tarihi")
textBox11.DataBindings.Add("Text", Form1.dtst, "musbil.Sefer_No")
textBox12.DataBindings.Add("Text", Form1.dtst, "musbil.Sefer_Güz")
textBox13.DataBindings.Add("Text", Form1.dtst, "musbil.Otobüs_Tipi")
comboBox1.DataBindings.Add("Text", Form1.dtst, "musbil.Koltuk_Num")
texteyaz()

End Sub

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

End Sub

Private Sub button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button5.Click
If textBox1.Text <> "" AndAlso textBox2.Text <> "" AndAlso comboBox1.Text <> "" Then
Dim cevap As DialogResult
cevap = MessageBox.Show("Kaydı silmek istediğinizden eminmisiniz", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If cevap = DialogResult.Yes Then
Form1.biletsil()
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "DELETE from musbil WHERE Adi='" + textBox1.Text &amp; "'"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "INSERT INTO bos(bosyerler) VALUES ('" + comboBox1.Text &amp; "') "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "DELETE from dolu WHERE doluyerler='" + comboBox1.Text &amp; "'"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
comboBox1.Items.Clear()
Form1.comboBox1.Items.Clear()
comboBox1.Text = ""
Form1.combo()
Form1.combo2()
Form1.dtst.Clear()
Form1.listelesene()
End If
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
End Sub

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

End Sub

Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Me.BindingContext(Form1.dtst, "musbil").Position = 0
texteyaz()

End Sub

Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
Me.BindingContext(Form1.dtst, "musbil").Position -= 1
texteyaz()
End Sub

Private Sub button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
Me.BindingContext(Form1.dtst, "musbil").Position += 1
texteyaz()
End Sub

Private Sub button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button4.Click
Me.BindingContext(Form1.dtst, "musbil").Position = Me.BindingContext(Form1.dtst, "musbil").Count
texteyaz()

End Sub
End Class

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

Projeyi İNDİR

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.