Gorsel Programlama

Kırtasiye Takip Programı 1.0 VB.Net Kodlarına çevrilmiş hali..

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

Seçilen müşteri ve ürün adı sepete ekle butonuna tıklanarak sepete eklenir.Eklenen ürünlerin toplam fiyatları ekranda gösteriliyor. Seçilen ürünün stok sayısı sepete eklendikten sonra bir azaltılıyor.Satış yap butonuna tıklandığı zaman kayıtlar satış listesine ekleniyor.Satış listesinde sadece o güne ait satışlar gözüküyor.Kasadan diğer günlerdeki satışlara ulaşılabilir.

Müşteri kayıtta yıldızlar (*) boş geçilmiyor.

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

Müşteri düzenle butonuna tıklandığı zaman datagridview1’de seçili müşterinin bilgileri textlere otomatik geliyor. Değişiklikler yapıldıktan sonra kaydet tıklandığında güncelleme gerçekleşiyor.

Kayıtlı ürüne ek yapılabilir veya yeni ürün girişi yapılabilir.

Form1 içine yazılacaklar

Imports System.Data.OleDb

Public Class Form1
Public bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")'bağlantı tanımlanıyor.Türü,yeri gibi.
Public kmt As New OleDbCommand()'komut kulanımı için tanımlama yapılıyor.
Public adtr As New OleDbDataAdapter()'düzenleyici yani adaptör tanımlanıyor.
Public dtst As New DataSet()'sanal veritabanı tanımlanıyor.
Public durum As [Boolean] = False'durum değişkeni tanımlanıyor.ilk değeri false olsun diyoruz.
Private toplam As String'topla değişkeni tanımlanıyor.
Public Sub listele()'listele isimli prosedure oluşturuloyor.
bag.Open()'tanımlanan bağlantı kullanılabilmek için  açılıyor.
Dim adtr As New OleDbDataAdapter("select * From musbil ", bag)'bağlantının içinde bulunan musbil tablosunun tüm kayıtlarını seç
adtr.Fill(dtst, "musbil")''sanal veritabanı dtst'nin içini musbil tablosu kayıtlarıyla doldur.
dataGridView1.DataSource = dtst.Tables("musbil")''datagridview1'in verikayanağı dtst'nin içindeki musbil tablosudur.
adtr.Dispose()'Hafızadan kazanmak için adaptör kullanım dışı.
bag.Close()'bağlatıdan çık.Yani açık olan access dosyasını kapat.
End Sub
Public Sub stoklistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From stokbil WHERE Adet>0 ", bag)'stokbil tablosundaki Adet alanın değeri 0'dan büyük olanları seç
adtr.Fill(dtst, "stokbil")
Form4.dataGridView1.DataSource = dtst.Tables("stokbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub urunlistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From stokbil WHERE Adet>0", bag)
adtr.Fill(dtst, "stokbil")
dataGridView2.DataSource = dtst.Tables("stokbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub sepetlistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From sepet ", bag)
adtr.Fill(dtst, "sepet")
dataGridView3.DataSource = dtst.Tables("sepet")
adtr.Dispose()
bag.Close()
End Sub
Public Sub satislistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From satisbil where Tarih='" &DateTime.Now.ToShortDateString() & "'", bag)'stokbil tablosundaki Tarih alanın değeri bugünkü tarih olanları seç
adtr.Fill(dtst, "satisbil")
dataGridView4.DataSource = dtst.Tables("satisbil")
Form5.dataGridView1.DataSource = dtst.Tables("satisbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub urunad()
bag.Open()'bağlantıyı aç
kmt.Connection = bag'komutun bağlatısı bag'dır
kmt.CommandText = "Select * from stokbil"'komutun metin değeri için stokbil tablosunun tüm elemanları seç
Dim oku As OleDbDataReader'bilgiokuyucu tanımlaması yapılıyor.
oku = kmt.ExecuteReader()'okuyu gerçekleştir.
While oku.Read()'okunun içinde kayıt olduğu sürece
Form4.comboBox1.Items.Add(oku(0).ToString())'okunun 1.dizisi combo1'e ekle
Form4.comboBox2.Items.Add(oku(1).ToString())'okunun 2.dizisi combo2'e ekle
Form4.comboBox3.Items.Add(oku(2).ToString())'okunun 3.dizisi combo3'e ekle
End While
bag.Close()
oku.Dispose()
End Sub
Public Sub barkodkontrol()
durum = False
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select BarkodNo from stokbil"   'komutun metin değeri için stokbil tablosunun BarkodNo alanınındaki elemanları seç
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()

If Form4.comboBox1.Text = oku(0).ToString() Then'eğer combo1'e girilen değer oku'nun 0. dizisinde yan. BarkodNo alalnında varsa durum değişkenini true yap.
durum = True

End If
End While
bag.Close()
oku.Dispose()
End Sub
Public Sub nokontrol()
durum = False
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select MusteriNo,TcKimlik from musbil" 'musbil tablsundaki MusteriNo ve TcKimlik alanlarını seç
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()

If Form2.textBox1.Text = oku(0).ToString() OrElse Form2.textBox2.Text = oku(1).ToString() Then 'eğer form1'deki textbox1'e girilen değer oku'nun 0. dizisinde yan. MusteriNo alanında varsa  veya Form2'deki  textbox2'ye girilen değer oku'nun 1. dizisinde yani TcKimlik alanında varsa durum değişkenini true yap.
durum = True

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

Public Sub filter()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From satisbil WHERE Tarih='" &Convert.ToString(Form5.dateTimePicker1.Text) & "'", bag)'satisbil tablosundaki Tarih alanın değeri datetimepicker'de seçili tarih olanları seç
adtr.Fill(dtst, "satisbil")
Form5.dataGridView1.DataSource = dtst.Tables("satisbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub kasapara()

bag.Open()
kmt.Connection = bag
kmt.CommandText = "SELECT SUM(Fiyat) FROM satisbil Where Tarih='" & Convert.ToString(Form5.dateTimePicker1.Text) & "'"   'satisbil tablosundaki Tarih alanın bugünkü tarih olanların Fiyat alanının kayıt değerlerinin toplamını alarak seç
toplam = kmt.ExecuteScalar().ToString() &"  TL"  'bulunan sayısal değeri toplam değişkenine aktar
Form5.label4.Text = toplam.ToString() 'toplam değişkeninin değerini form5'deki label4'te görüntüle.
kmt.Dispose()
bag.Close()
End Sub
'Daha Fazlası İçin http://www.gorselprogramlama.com

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

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
satislistele()'belirtilen prosedure çağir
listele()
urunlistele()
sepetlistele()
dataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
dataGridView2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
dataGridView3.SelectionMode = DataGridViewSelectionMode.FullRowSelect
dataGridView4.SelectionMode = DataGridViewSelectionMode.FullRowSelect
dataGridView1.EditMode = DataGridViewEditMode.EditProgrammatically
dataGridView2.EditMode = DataGridViewEditMode.EditProgrammatically
dataGridView3.EditMode = DataGridViewEditMode.EditProgrammatically
dataGridView4.EditMode = DataGridViewEditMode.EditProgrammatically
dataGridView1.Columns(0).HeaderText = "Müşteri No"  ' datagridview1'in 0. kolonunnun yazısını Müşteri No yap
dataGridView1.Columns(1).HeaderText = "Tc Kimlik"
dataGridView1.Columns(2).HeaderText = "Adı"
dataGridView1.Columns(3).HeaderText = "Soyadı"
dataGridView1.Columns(0).Width = 35 'datagridview1'in 0. kolonunnun genişliğini 35  yap
dataGridView1.Columns(1).Width = 75
dataGridView1.Columns(2).Width = 75
dataGridView1.Columns(4).Width = 80
dataGridView2.Columns(0).HeaderText = "Barkod No"
dataGridView2.Columns(1).HeaderText = "Ürün Adı"
dataGridView2.Columns(0).Width = 45
dataGridView2.Columns(1).Width = 80
dataGridView2.Columns(2).Width = 65
dataGridView2.Columns(3).Width = 50
dataGridView3.Columns(0).HeaderText = "Müşteri No"
dataGridView3.Columns(1).HeaderText = "Ürün Adı"
dataGridView3.Columns(0).Width = 60

dataGridView4.Columns(0).HeaderText = "Müşteri No"
dataGridView4.Columns(1).HeaderText = "Ürün Adı"
dataGridView4.Columns(0).Width = 45
dataGridView4.Columns(1).Width = 80
dataGridView4.Columns(2).Width = 55
dataGridView4.Columns(3).Width = 65
dataGridView4.Columns(4).Width = 45
label6.Text = "0  TL"

End Sub

Private Sub btnMusteriDuzenle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMusteriDuzenle.Click
Form3.ShowDialog()'form3'ü aç

End Sub

Private Sub btnStok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStok.Click
dtst.Tables("stokbil").Clear()'sanal veritabanındaki(dtst) stokbil tablosunun kayıtlarını temizle
Form4.ShowDialog()

End Sub

Private Sub btnKasa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKasa.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "SELECT SUM(Fiyat) FROM satisbil Where Tarih='" &DateTime.Now.ToShortDateString() & "'" 'satisbil tablosundaki Tarih alanın değeri datetimepicker'de seçili tarih olanları seç
toplam = kmt.ExecuteScalar().ToString() &"  TL" 'bulunan sayısal değeri toplam değişkenine aktar
Form5.label4.Text = toplam.ToString()'toplam değişkeninin değerini form5'deki label4'te görüntüle.
kmt.Dispose()
bag.Close()
Form5.ShowDialog()

End Sub

Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dataGridView1.CellClick
Form3.textBox1.Text = dataGridView1.CurrentRow.Cells(0).Value.ToString()'seçili kayıdın o.kolon hücre değerini form3'deki textbox1'de göster
Form3.textBox2.Text = dataGridView1.CurrentRow.Cells(1).Value.ToString()'seçili kayıdın 1.kolon hücre değerini form3'deki textbox2'de göster
Form3.textBox3.Text = dataGridView1.CurrentRow.Cells(2).Value.ToString()
Form3.textBox4.Text = dataGridView1.CurrentRow.Cells(3).Value.ToString()
Form3.textBox5.Text = dataGridView1.CurrentRow.Cells(4).Value.ToString()
Form3.textBox6.Text = dataGridView1.CurrentRow.Cells(5).Value.ToString()

End Sub

Private Sub btnSepetEkle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSepetEkle.Click
Try
bag.Open()
kmt.Connection = bag
kmt.CommandText = (("INSERT INTO sepet(MusteriNo,UrunAd,Fiyat) VALUES ('" + dataGridView1.CurrentRow.Cells(0).Value.ToString() & "','") + dataGridView2.CurrentRow.Cells(1).Value.ToString() &"','") + dataGridView2.CurrentRow.Cells(2).Value.ToString() &"') "  'sepet tablosundaki MusteriNo,UrunAd,Fiyat alanlarına seçilen değerleri(datagridview1'deki 0.kolon,datagridview2'deki 1.kolon,datagridview1'deki 2.kolon) hucre, ekle.
kmt.ExecuteNonQuery()
kmt.CommandText = (("INSERT INTO satisbil(MusteriNo,UrunAd,Fiyat,Tarih,Saat) VALUES ('" + dataGridView1.CurrentRow.Cells(0).Value.ToString() "','") + dataGridView2.CurrentRow.Cells(1).Value.ToString() & "','") + dataGridView2.CurrentRow.Cells(2).Value.ToString() & "','" &DateTime.Now.ToShortDateString() & "', '" &DateTime.Now.ToShortTimeString() &"') "
kmt.ExecuteNonQuery()
kmt.CommandText = "UPDATE stokbil SET Adet=Adet-1 WHERE BarkodNo='" + dataGridView2.CurrentRow.Cells(0).Value.ToString() & "'" 'datagrigview2' 0. kolondaki seçili kaydın stokbil tablosundaki Adet değerini bir eksilterek güncelle
kmt.ExecuteNonQuery()
kmt.CommandText = "SELECT SUM(Fiyat) FROM sepet "
toplam = kmt.ExecuteScalar().ToString() &"  TL"
label6.Text = toplam.ToString()
kmt.Dispose()
bag.Close()
dtst.Tables("stokbil").Clear()
stoklistele()
dtst.Tables("sepet").Clear()
sepetlistele()
Catch

End Try
End Sub

Private Sub btnSatis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSatis.Click
Try
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE * From sepet" 'sepet tablosondaki tüm kayıtları sil
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
dtst.Tables("sepet").Clear()
sepetlistele()
dtst.Tables("satisbil").Clear()
satislistele()
label6.Text = "0  TL"
Catch

End Try
End Sub

Private Sub txtAraMusNoSatis_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraMusNoSatis.TextChanged
Dim adtr As New OleDbDataAdapter("select * From satisbil", bag)
If txtAraMusNoSatis.Text = "" Then 'eğer txtaraMusNoSatis textbox'ı boş ise
kmt.Connection = bag ' komutun bağlatısı bag
kmt.CommandText = "Select * from satisbil " 'satisbil tablosundaki tüm kayıtları seç
adtr.SelectCommand = kmt 'adtr'nin seçili değer kmt'deki değerler
adtr.Fill(dtst, "satisbil") 'dtst'yi satisbil seçili elemanları ile doldur.
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From satisbil " &" where(MusteriNo like '%") + txtAraMusNoSatis.Text &"%' And Tarih='" &DateTime.Now.ToShortDateString() &"')" 'belirtilen textbox'lara girilen değerlerin geçtiği kayıtları seç
dtst.Tables("satisbil").Clear()'dtst'deki satisbil tablosunu temizle
adtr.Fill(dtst, "satisbil")'en son seçili kayıtları dtst'ye doldur.
bag.Close()'bag'ı kapat
End Sub

Private Sub txtAraMusNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraMusNo.TextChanged
Dim adtr As New OleDbDataAdapter("select * From musbil", bag)
If txtAraMusNo.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from musbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "musbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From musbil" & " where(MusteriNo like '%") + txtAraMusNo.Text & "%' )"
dtst.Tables("musbil").Clear()
adtr.Fill(dtst, "musbil")
bag.Close()

End Sub

Private Sub txtAraTcKimlik_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraTcKimlik.TextChanged
Dim adtr As New OleDbDataAdapter("select * From musbil", bag)
If txtAraTcKimlik.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from musbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "musbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From musbil" & " where(TcKimlik like '%") + txtAraTcKimlik.Text & "%' )"
dtst.Tables("musbil").Clear()
adtr.Fill(dtst, "musbil")
bag.Close()
End Sub

Private Sub txtAraAd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraAd.TextChanged
Dim adtr As New OleDbDataAdapter("select * From musbil", bag)
If txtAraAd.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from musbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "musbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From musbil" & " where(Ad like '%") + txtAraAd.Text &"%' )"
dtst.Tables("musbil").Clear()
adtr.Fill(dtst, "musbil")
bag.Close()
End Sub

Private Sub txtAraSoyad_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraSoyad.TextChanged
Dim adtr As New OleDbDataAdapter("select * From musbil", bag)
If txtAraSoyad.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from musbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "musbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From musbil" & " where(Soyad like '%") + txtAraSoyad.Text &"%' )"
dtst.Tables("musbil").Clear()
adtr.Fill(dtst, "musbil")
bag.Close()
End Sub

Private Sub txtBarkodNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarkodNo.TextChanged
Dim adtr As New OleDbDataAdapter("select * From stokbil", bag)
If txtBarkodNo.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from stokbil "
adtr.SelectCommand = kmt
adtr.Fill(dtst, "stokbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From stokbil " & " where(BarkodNo like '%") + txtBarkodNo.Text & "%' And Adet>0)"
dtst.Tables("stokbil").Clear()
adtr.Fill(dtst, "stokbil")
bag.Close()
End Sub

Private Sub txtUrunAd_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUrunAd.TextChanged
Dim adtr As New OleDbDataAdapter("select * From stokbil", bag)
If txtUrunAd.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from stokbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "stokbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From stokbil" & " where(UrunAd like '%") + txtUrunAd.Text & "%' And Adet>0)"
dtst.Tables("stokbil").Clear()
adtr.Fill(dtst, "stokbil")
bag.Close()
End Sub

Private Sub txtUrunAdSatis_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUrunAdSatis.TextChanged
Dim adtr As New OleDbDataAdapter("select * From satisbil", bag)
If txtUrunAdSatis.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from satisbil "
adtr.SelectCommand = kmt
adtr.Fill(dtst, "satisbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From satisbil " & " where(UrunAd like '%") + txtUrunAdSatis.Text & "%' And Tarih='" &DateTime.Now.ToShortDateString() & "')"
dtst.Tables("satisbil").Clear()
adtr.Fill(dtst, "satisbil")
bag.Close()
End Sub

Private Sub btnMusteriSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMusteriSil.Click
Try
Dim cevap As DialogResult
cevap = MessageBox.Show("Kaydı silmek istediğinizden eminmisiniz", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 'kullanıcının mesaja verdiği  onayı cevap değişkenine ata
If cevap = DialogResult.Yes Then 'eğer kullanıcı yes butonuna bastıysa
bag.Open()
kmt.Connection = bag
kmt.CommandText = ("DELETE from musbil WHERE MusteriNo='" + dataGridView1.CurrentRow.Cells(0).Value.ToString() & "' AND TcKimlik='") + dataGridView1.CurrentRow.Cells(1).Value.ToString() & "'" 'datagridview1 deki MusteriNo veya TcKimlik'i seçili kaydı sil
kmt.ExecuteNonQuery() 'sorguyu gerçekleştir.
kmt.Dispose()
bag.Close()
dtst.Tables("musbil").Clear()
listele()
End If
Catch

End Try
End Sub

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

End Sub
End Class

Form2 içine yazılacaklar

Public Class Form2

Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Form1.nokontrol()
If Form1.durum = False Then
If textBox1.Text <> "" AndAlso textBox2.Text <> "" AndAlso textBox3.Text <> "" AndAlso textBox4.Text <> "" AndAlso textBox5.Text <> "" Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ((((("INSERT INTO musbil(MusteriNo,TcKimlik,Ad,Soyad,Telefon,Adres) VALUES ('" + textBox1.Text & "','") + textBox2.Text &"','") + textBox3.Text &"','") + textBox4.Text &"','") + textBox5.Text &"','") + textBox6.Text & "') "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
For i As Integer = 0 To Me.Controls.Count - 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
Next
Form1.dtst.Tables("musbil").Clear()
Form1.listele()
MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
Else
MessageBox.Show("Kayıtlı Musteri No veya Tc Kimlik No girdiniz !")
End If
End Sub

Private Sub btnCik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCik.Click
Me.Close()

End Sub
End Class

Form3 içine yazılacaklar

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

Public Class Form3

Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
'string sql = new string("UPDATE VERI SET ADI='{0}',SOYADI='{1}',NUMARA={2} WHERE ADI='{3}' AND SOYADI='{4}' AND NUMARA={5}");
'&TcKimlik='" + frm1.dataGridView1.CurrentRow.Cells[1].Value.ToString() + "'
Try
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = (((((("UPDATE musbil SET MusteriNo='" + textBox1.Text &"',TcKimlik='") + textBox2.Text & "',Ad='") + textBox3.Text & "',Soyad='") + textBox4.Text & "',Telefon='") + textBox5.Text & "',Adres='") + textBox6.Text &"' WHERE MusteriNo='") + Form1.dataGridView1.CurrentRow.Cells(0).Value.ToString() & "'"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("musbil").Clear()
Form1.listele()
Me.Close()
Catch

End Try
End Sub

Private Sub btnIptal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIptal.Click
Me.Close()

End Sub
End Class

Form4 içine yazılacaklar

Public Class Form4

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
comboBox1.Items.Clear()
comboBox1.Items.Clear()
comboBox1.Items.Clear()
Form1.stoklistele()
Form1.urunad()
dataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect

End Sub

Private Sub btnCik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCik.Click
Me.Close()
End Sub

Private Sub radioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioButton1.CheckedChanged
btnEkle.Text = "Kaydet"
End Sub

Private Sub btnEkle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEkle.Click
Try
If textBox1.Text <> "" AndAlso comboBox1.Text <> "" AndAlso comboBox2.Text <> "" AndAlso comboBox3.Text <> "" Then
If radioButton1.Checked = True Then
Form1.barkodkontrol()
If Form1.durum = False Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ((("INSERT INTO stokbil(BarkodNo,UrunAd,Fiyat,Adet) VALUES ('" + comboBox1.Text &"','") + comboBox2.Text &"','") + comboBox3.Text & "','") + textBox1.Text & "') "
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
MessageBox.Show("Kayıt işlemi tamamlandı ! ")
Form1.dtst.Tables("stokbil").Clear()
Form1.stoklistele()
comboBox1.Items.Clear()
comboBox2.Items.Clear()
comboBox3.Items.Clear()
Form1.urunad()
Else
MessageBox.Show("Girmiş olduğunuz Barkod No zaten var !")
End If
End If

If radioButton2.Checked = True Then
Form1.barkodkontrol()
If Form1.durum = True Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ("UPDATE stokbil SET Adet=Adet+'" &Integer.Parse(textBox1.Text) &"' WHERE BarkodNo='") + comboBox1.Text &"'"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
MessageBox.Show("Kayıt işlemi tamamlandı ! ")
comboBox1.Items.Clear()
comboBox2.Items.Clear()
comboBox3.Items.Clear()
Form1.dtst.Tables("stokbil").Clear()
Form1.stoklistele()
Else
MessageBox.Show("Kayıtlı ürün bulunamadı! ")
End If
End If
Else
MessageBox.Show("Boş alanları doldurunuz !!!")
End If
Catch

End Try
End Sub

Private Sub radioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radioButton2.CheckedChanged
btnEkle.Text = "Ekle"

End Sub

Private Sub comboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboBox1.SelectedIndexChanged
Dim index As Integer
index = comboBox1.SelectedIndex 'combobox1'de seçilen elemanın indez numarasını index değişkenine ata.
comboBox2.SelectedIndex = index' index değişkenindeki nolu elemanı combobox2'de seç
comboBox3.SelectedIndex = index

End Sub

Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
Try
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 stokbil WHERE BarkodNo='" + dataGridView1.CurrentRow.Cells(0).Value.ToString() &"'"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("stokbil").Clear()
Form1.stoklistele()

End If
Catch

End Try

End Sub
End Class

Form5 içine yazılacaklar

Public Class Form5

Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.dtst.Tables("satisbil").Clear()
Form1.satislistele()

End Sub

Private Sub btnCik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCik.Click
Form1.dtst.Tables("satisbil").Clear()
Form1.satislistele()
Me.Close()

End Sub

Private Sub btnGoster_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGoster.Click
Try
Form1.kasapara()
Form1.dtst.Tables("satisbil").Clear()
Form1.filter()
Catch

End Try

End Sub
End Class

Not : Benzer kodların açıklamaları bir defa açıklanmıştır.

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

Projeyi İNDİR