• Giriş

Gorsel Programlama

  • AnaSayfa
  • Hakkımızda
  • TOP-10 Proje
  • Download
  • Özel Ders
  • Reklam Verin
  • Destek
  • İletişim
RSS feed
  • Youdao
  • Xian Guo
  • Zhua Xia
  • Google
  • My Yahoo!
  • newsgator
  • Bloglines
  • iNezha
© 2009-2019 Gorsel Programlama

MS SQL Veri tabanlı Kargo Takip Programı — VB.NET

MS SQL Veri tabanlı Kargo Takip Programı — VB.NET

Not : Mssql (2012) veri tabanı backup dosyası projenin içinde mevcuttur.

Ms sql veri tabanının nasıl geri yüklendiğini (Restore) videolu olarak izlemek için  Tıklayınız.

Ms sql veri tabanının nasıl yedeklendiğini (Backup) videolu olarak izlemek için Tıklayınız.

FORM1 İçerisine Yazılacak Kodlar…

Imports System.Data.SqlClient

Public Class Form1

Public bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")

Public kmt As New SqlCommand

Public adtr As New SqlDataAdapter  'www.gorselprogramlama.com

Public dtst As New DataSet()

Public Sub listelesene()

bag.Open()

Dim adtr As New SqlDataAdapter("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 SqlDataAdapter("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    'www.gorselprogramlama.com

Public Sub listelesene3()

bag.Open()

Dim adtr As New SqlDataAdapter("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   'www.gorselprogramlama.com

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

Close()

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()

'www.gorselprogramlama.com

End Sub

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

Close()

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() 'www.gorselprogramlama.com

textBox8.Clear()

textBox9.Clear()

Form1.listelesene()

MessageBox.Show("Kayıt işlemi tamamlandı ! ")

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.Show()

Me.Hide()

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() 'www.gorselprogramlama.com

Form1.dtst.Clear()

Form1.listelesene()

End If

Else

MessageBox.Show("Müşteri No'yu giriniz")

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.

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.Show()

Me.Hide()

End Sub

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

Close()

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() 'www.gorselprogramlama.com

Form1.dtst.Clear()

textBox1.Clear()

textBox2.Clear()

textBox3.Clear()

textBox4.Clear()

textBox5.Clear()

Form1.listelesene2()

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.

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

Close() 'www.gorselprogramlama.com

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" 'www.gorselprogramlama.com

textBox4.Text = "0"

Form1.dtst.Clear()

Form1.listelesene3()

MessageBox.Show("Kayıt işlemi tamamlandı ! ")

End Sub

End Class

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

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()

Me.Hide()

End Sub

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

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

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

Paylaş :
Tweet
Yorum Yazın | Geri
10 Mayıs Cumartesi,2014 Tarihinde Yayınlanmıştır. Bulunduğu Kategori : VB.NET
Etiket: download, full, imagelist, indir, Kargo Takip Programı VB.Net, kayıt ekle, kayıt sil, kodlar, MS SQL Veri tabanlı Kargo Takip Programı vb.net, MS SQL Veri tabanlı Kargo Takip Programı visual basic net, programalama dersleri, sql server, tam sürüm, ücretsiz, vb access veri tabanı, vb.net dersleri, VB.Net programlama
« Kenar uzunluğu klavyeden girilen karenin alanını hesaplayan programın metot ile yapımı — Csharp Console MS SQL Veri Tabanını Yedek Alma ( Backup ) »
  1. hakan ünel
    Cevap | Gönder
    Mar 11th, 2016 at 12:55 | #1

    merhaba hocam bi sorum olacakti mysql 2012de yapilmişya ? bunu mysql 2008’e backup yapabilirmiyiz.

  2. admin
    Cevap | Gönder
    Mar 11th, 2016 at 21:41 | #2

    hakan ünel :
    malesef olmaz.Veri tabanını sıfırdan yapmalısınız.

  3. zafer
    Cevap | Gönder
    Nis 18th, 2016 at 21:08 | #3

    proje ve veritabanin indirme linkini bulamadım hocam?

  4. zafer
    Cevap | Gönder
    Nis 18th, 2016 at 21:33 | #4

    hocam buldum sorry 🙂 🙂

Yorum Yazın ...

Cevabı İptal
XHTML: Bu Etiketleri Kullanabilirsiniz : <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>
RSS Bu Yazıya Yapılan Yorumlar


Site içi Arama

Takip et: @GorselProgram







Böyle bir web sayfam olsun diyorsanız iletişim bölümünden veya gorselprogram@gmail.com mail adresinden bize ulaşabilirsiniz.

Son Yazılar

  • Rastgele şanslı müşteriye rastgele hediye veren program – C# Console
  • Soru ve cevaba göre puanlama yapan program C# Console
  • Şanslı Günüm Hangisi , Şanslı Sayım Hangisi C# Console
  • C# Ekran Görüntüsünü Klasöre Kaydetme
  • C# Dinamik Butonlarda Events Kullanımı ve Sürüklenebilir Buton

Etiket Bulutu

.NET Application basit C# C#.NET application C#.NET code C#.NET codes C#.NET examples C#.NET lessons C#.NET practice C#.net örnekleri c# console dersleri c# console örnekleri C# ders c# dersleri c# örnek c# örnekleri C.net dersleri c dersleri code console console örnekleri Csharp csharp dersleri csharp net csharp örnekleri c örnekleri download forms Forms örnekleri full indir kod kodlar nesne tabanlı programlama OleDbConnection OleDbDataAdapter tam sürüm uygulama vb net win windows windows forms application örnek ücretsiz

Kategoriler

  • Access (56)
  • Akış Diyagramı Flowchart (67)
  • Android Eğitimleri (2)
  • Asp Net (45)
  • C# (818)
  • C# Console (212)
  • Css (19)
  • Dersler (189)
  • Dökümanlar (20)
  • Dreamweaver (7)
  • Excel (7)
  • Fireworks (26)
  • Flash (50)
  • Görsel Programlama (409)
  • GorselProgramlama.Com (3)
  • Html (32)
  • Pascal (2)
  • Photoshop (5)
  • PHP (2)
  • Planlar (114)
  • Programlama Tanım (2)
  • Sınavlar (109)
  • Sql (8)
  • VB 6.0 (44)
  • VB.NET (218)
  • Videolar (60)
  • Word (6)

Arşiv

Bağlantılar

  • Bilişim Konuları
  • Html Dersleri
  • Muslu.NET
  • Programlama Dersleri

Kimler Sitede ?


    Computers Blogs Top programming blogs

   sayaç Powered by WordPress | Theme by NeoEase | Valid XHTML 1.1 and CSS 3 Yukarı