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

[Torrent]

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)

Ms sql veri tabanının nasıl yedeklendiğini (Backup)


FORM1;

Code:

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;

Code:

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

FORM3;

Code:

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

FORM4;

Code:

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