VB.Net Kargo Takip Programı

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 listelesene()
bag.Open()
Dim adtr As New OleDbDataAdapter("Select * From Musbil", bag)
adtr.Fill(dtst, "Musbil")
Form2.dataView1.Table = dtst.Tables(0)
Form2.dataGrid1.DataSource = Form2.dataView1

adtr.Dispose()
bag.Close()
End Sub
Public Sub listelesene2()
bag.Open()
Dim adtr As New OleDbDataAdapter("Select * From yetkili", bag)
adtr.Fill(dtst, "yetkili")
Form3.dataView1.Table = dtst.Tables(1)
Form3.dataGrid1.DataSource = Form3.dataView1

adtr.Dispose()

bag.Close()
End Sub
Public Sub listelesene3()
bag.Open()
Dim adtr As New OleDbDataAdapter("Select * From Fiyat", bag)
adtr.Fill(dtst, "Fiyat")
Form4.dataView1.Table = dtst.Tables(2)
Form4.dataGrid1.DataSource = Form4.dataView1

adtr.Dispose()

bag.Close()
End Sub

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

End Sub

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

End Sub

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

End Sub
End Class

Public Class Form2

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

End Sub

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

End Sub

Private Sub button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button10.Click
If textBox1.Text <> "" AndAlso textBox4.Text <> "" AndAlso textBox5.Text <> "" Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = (((((((("INSERT INTO musbil(MüsteriNo,Ad,Soyad,TcKimlik,SeriNo,Ceptel,Evtel,Email,Adres) VALUES ('" + textBox1.Text & "','") + textBox2.Text & "','") + textBox3.Text & "','") + textBox4.Text & "','") + textBox5.Text & "','") + textBox6.Text & "','") + textBox7.Text & "','") + textBox8.Text & "','") + textBox9.Text & "') "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Clear()
textBox1.Clear()
textBox2.Clear()
textBox3.Clear()
textBox4.Clear()
textBox5.Clear()
textBox6.Clear()
textBox7.Clear()
textBox8.Clear()
textBox9.Clear()

MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Form1.listelesene()
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
End Sub

Private Sub button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button12.Click
Form3.ShowDialog()

End Sub

Private Sub button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button13.Click
If textBox1.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.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "DELETE from Musbil WHERE MüsteriNo='" + textBox1.Text & "'"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()

Form1.dtst.Clear()
Form1.listelesene()
End If
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
End Sub
End Class

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.dtst.Clear()
Form1.listelesene2()

End Sub

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

End Sub

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

End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
If textBox1.Text <> "" Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = (((("INSERT INTO yetkili(YetkiliKisi,ArizaTespiti,ArizaHakkindaBilgi,OnarilmasiicinKullanilanMalzeme,Yapilanislemler) VALUES ('" + textBox1.Text & "','") + textBox2.Text & "','") + textBox3.Text & "','") + textBox4.Text & "','") + textBox5.Text & "') "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Clear()
textBox1.Clear()
textBox2.Clear()
textBox3.Clear()
textBox4.Clear()
textBox5.Clear()

MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Form1.listelesene2()
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
End Sub
End Class

Public Class Form4

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

End Sub

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

End Sub

Private Sub button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button6.Click
Dim bfiyat As Double, kdv As Double, indirim As Double, tutar As Double
bfiyat = Double.Parse(textBox2.Text)
kdv = Double.Parse(textBox3.Text)
indirim = Double.Parse(textBox4.Text)
tutar = bfiyat + (bfiyat * (kdv / 100)) - (bfiyat * (indirim / 100))
textBox5.Text = tutar.ToString()

Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = (((("INSERT INTO Fiyat(KullanilanMalzemeler,BirimFiyat,Kdv,indirim,Tutar) VALUES ('" + textBox1.Text & "','") + textBox2.Text & "','") + textBox3.Text & "','") + textBox4.Text & "','") + textBox5.Text & "') "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()

textBox2.Text = "0"
textBox3.Text = "0"
textBox4.Text = "0"
MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Form1.dtst.Clear()
Form1.listelesene3()

End Sub
End Class

Public Class Form5

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

End Sub
End Class