Kargo Takip Programı VB.Net
Kargo 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 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
FORM2 İçerisine Yazılacak Kodlar…
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
FORM3 İçerisine Yazılacak Kodlar…
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
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
FORM4 İçerisine Yazılacak Kodlar…
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
FORM5 İçerisine Yazılacak Kodlar…
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
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
indirme linki koyabilir misin??
indirme linkini verirseniz sevinirim bazen kodlarda hata çıkıyor onun için
link eklendi..
veritabanı SQL olan bi çalışmanız var mı acaba?
Hemen hemen aynısı.Önemli olan veri tabanını sql de oluşturmak.oledb yerine sql kullanmak.Mesela OleDbConnection yerine SqlConnection , OleDbDataAdapter yerine SqlDataAdapter gibi.
bu program gusel olmus baya ısıme yaradı sunumunu almak ısterım yardımcı olurmusun