Gorsel Programlama

Ms SQL Veri Tabanlı Eczane Otomasyon Sistemi — VB.NET

Not : Mssql (2008) 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.

Giriş Paneli

Imports System.Data

Imports System.Data.SqlClient  'www.gorselprogramlama.com

Public Class girisPanel

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

Public kmt As New SqlCommand

Dim sonuc As Integer

Private Sub btnGiris_Click(sender As Object, e As EventArgs) Handles btnGiris.Click

sonuc = 0

bag.Open()

kmt.Connection = bag

kmt.CommandText = "Select count(id) from kullanicibil where kullaniciAdi=@kullaniciAdi and parola=@parola"

kmt.Parameters.AddWithValue("@kullaniciAdi", textBox1.Text.ToLower().Trim())

kmt.Parameters.AddWithValue("@parola", textBox2.Text.ToLower().Trim())

sonuc = Convert.ToInt32(kmt.ExecuteScalar().ToString())

If (sonuc = 1) Then

giris.Show() 'www.gorselprogramlama.com

Me.Hide()

Else

label3.Text = "Kullanici adı veya parola Hatalı !"

End If

bag.Close()

kmt.Parameters.Clear()

kmt.Dispose()

textBox1.Text = ""

textBox2.Text = "" 'www.gorselprogramlama.com

End Sub

Private Sub btnKapat_Click(sender As Object, e As EventArgs) Handles btnKapat.Click

Close() 'www.gorselprogramlama.com

End Sub

End Class

AnaMenü

Imports System.Data

Imports System.Data.OleDb

Public Class giris

Public bag As New OleDbConnection("Provider=Microsoft.ace.Oledb.12.0;Data Source=eczane.accdb")

Public kmt As New OleDbCommand()

Public adtr As New OleDbDataAdapter()

Public tablo As New DataTable() 'www.gorselprogramlama.com

Private Sub giris_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

recete_satis.Show()

Me.Hide()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

hasta_kaydi.Show()

Me.Hide() 'www.gorselprogramlama.com

End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

ilac_ekle.Show()

Me.Hide()

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

Application.Exit()

End Sub

End Class

Hasta Kaydı

Imports System.Data

Imports System.Data.SqlClient

Public Class hasta_kaydi

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 tablo As New DataTable()

Public Sub listele()

tablo.Clear()

Dim adtr As New SqlDataAdapter("select * From hastabil ", bag)

adtr.Fill(tablo)

DataGridView1.DataSource = tablo

adtr.Dispose()

End Sub

Private Sub hasta_kaydi_Load(sender As Object, e As EventArgs) Handles MyBase.Load

listele()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

giris.Show()

Me.Hide()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "INSERT INTO hastabil(adi,soyadi,tcKimlik,cepTel,adres) VALUES (@adi,@soyadi,@tcKimlik,@cepTel,@adres) "

kmt.Parameters.AddWithValue("@adi", textBox1.Text)

kmt.Parameters.AddWithValue("@soyadi", textBox2.Text)

kmt.Parameters.AddWithValue("@tcKimlik", TextBox3.Text)

kmt.Parameters.AddWithValue("@cepTel", TextBox4.Text) 'www.gorselprogramlama.com

kmt.Parameters.AddWithValue("@adres", TextBox5.Text)

kmt.ExecuteNonQuery()

kmt.Dispose()

bag.Close()

kmt.Parameters.Clear()

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

listele()

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

End Sub

Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click

Close()

End Sub

Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick

textBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()

textBox2.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()

TextBox3.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()

TextBox4.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()

TextBox5.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString()

End Sub

Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "UPDATE hastabil SET adi=@adi,soyadi=@soyadi,tcKimlik=@tcKimlik,cepTel=@cepTel,adres=@adres WHERE id=@id"

kmt.Parameters.AddWithValue("@adi", textBox1.Text)

kmt.Parameters.AddWithValue("@soyadi", textBox2.Text)

kmt.Parameters.AddWithValue("@tcKimlik", TextBox3.Text)

kmt.Parameters.AddWithValue("@cepTel", TextBox4.Text)

kmt.Parameters.AddWithValue("@adres", TextBox5.Text)

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery()

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click

bag.Open()

kmt.Connection = bag  'www.gorselprogramlama.com

kmt.CommandText = "DELETE from hastabil WHERE id=@id"

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery()

kmt.Dispose()

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click

Dim adtr As New SqlDataAdapter("select * From hastabil", bag)

Dim alan As String = ""

If comboBox1.Text = "Tc Kimlik" Then

alan = "tcKimlik"

ElseIf comboBox1.Text = "Adı" Then 'www.gorselprogramlama.com

alan = "adi"

ElseIf comboBox1.Text = "Soyadı" Then

alan = "soyadi"

End If

If comboBox1.Text = "Tümü" Then

bag.Open()

tablo.Clear()

kmt.Connection = bag

kmt.CommandText = "Select * from hastabil"

adtr.SelectCommand = kmt

adtr.Fill(tablo)

bag.Close()

End If

If alan <> "" Then

bag.Open()

adtr.SelectCommand.CommandText = (" Select * From hastabil" & " where(" & alan & " like '%") + TextBox6.Text & "%' )"

tablo.Clear()

adtr.Fill(tablo)

bag.Close()

End If

kmt.Dispose() 'www.gorselprogramlama.com

End Sub

End Class

İlaç Kaydı

Imports System.Data

Imports System.Data.Sql

Imports System.Data.SqlClient

Public Class ilac_ekle

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 tablo As New DataTable()

Dim idfir As Integer

Public Sub firmaEkle()

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

connection.Open()

Dim command As New SqlCommand("Select * from firmabil", connection)

Dim reader As SqlDataReader = command.ExecuteReader()

While reader.Read()

ComboBox1.Items.Add(New DictionaryEntry(reader(1).ToString(), reader(0).ToString()))

End While

reader.Close()

command.Dispose()

End Using

ComboBox1.DisplayMember = "Key"

ComboBox1.ValueMember = "Value"

ComboBox1.DataSource = ComboBox1.Items

ComboBox1.Text = "" 'www.gorselprogramlama.com

End Sub

Public Sub idFirma()

Try

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

connection.Open()

Dim command2 As New SqlCommand("Select * from firmabil where id=@id", connection)

command2.Parameters.AddWithValue("@id", idfir)

Dim reader As SqlDataReader = command2.ExecuteReader()

While reader.Read()

ComboBox1.Text = reader(1).ToString()

End While

reader.Close()

command2.Parameters.Clear()

command2.Dispose()

End Using

Catch ex As Exception

End Try

End Sub

Public Sub listele()

tablo.Clear()

Dim adtr As New SqlDataAdapter("select * From ilacbil ", bag)

adtr.Fill(tablo)

DataGridView1.DataSource = tablo

adtr.Dispose()

End Sub

Private Sub ilac_ekle_Load(sender As Object, e As EventArgs) Handles MyBase.Load

listele()

firmaEkle()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

giris.Show() 'www.gorselprogramlama.com

Me.Hide()

End Sub

Private Sub btnFirmaEkle_Click(sender As Object, e As EventArgs) Handles btnFirmaEkle.Click

firma_ekle.Show()

End Sub

Private Sub btnKaydet_Click(sender As Object, e As EventArgs) Handles btnKaydet.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "INSERT INTO ilacbil(barkod,adi,fiyat,miktar,firmaId) VALUES (@barkod,@adi,@fiyat,@miktar,@firmaId) "

kmt.Parameters.AddWithValue("@barkod", textBox1.Text)

kmt.Parameters.AddWithValue("@adi", textBox2.Text)

kmt.Parameters.AddWithValue("@fiyat", TextBox3.Text)

kmt.Parameters.AddWithValue("@miktar", TextBox4.Text)

kmt.Parameters.AddWithValue("@firmaId", ComboBox1.SelectedValue)

kmt.ExecuteNonQuery()

kmt.Dispose()

bag.Close() 'www.gorselprogramlama.com

For i As Integer = 0 To Me.Controls.Count - 1

If TypeOf Me.Controls(i) Is TextBox Then

Me.Controls(i).Text = ""

End If

If TypeOf Me.Controls(i) Is ComboBox Then

Me.Controls(i).Text = ""

End If

Next

kmt.Parameters.Clear()

listele()

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

End Sub

Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "DELETE from ilacbil WHERE id=@id"

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery()

kmt.Dispose()

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick

textBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()

textBox2.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()

TextBox3.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()

TextBox4.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()

ComboBox1.Text = ComboBox1.DisplayMember.Length.ToString()

idfir = DataGridView1.CurrentRow.Cells(5).Value

idFirma()

End Sub

Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "UPDATE ilacbil SET barkod=@barkod,adi=@adi,fiyat=@fiyat,miktar=@miktar,firmaId=@firmaId WHERE id=@id"

kmt.Parameters.AddWithValue("@barkod", textBox1.Text)

kmt.Parameters.AddWithValue("@adi", textBox2.Text)

kmt.Parameters.AddWithValue("@fiyat", TextBox3.Text)

kmt.Parameters.AddWithValue("@miktar", TextBox4.Text)

kmt.Parameters.AddWithValue("@firmaId",ComboBox1.SelectedValue)

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery()

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click

Close()

End Sub

Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click

Dim adtr As New SqlDataAdapter("select * From ilacbil", bag)

Dim alan As String = ""

If ComboBox2.Text = "Barkod" Then

alan = "barkod"

ElseIf ComboBox2.Text = "Adı" Then

alan = "adi"

End If

If ComboBox2.Text = "Tümü" Then

bag.Open()

tablo.Clear()

kmt.Connection = bag

kmt.CommandText = "Select * from ilacbil"

adtr.SelectCommand = kmt

adtr.Fill(tablo) 'www.gorselprogramlama.com

bag.Close()

End If

If alan <> "" Then

bag.Open()

adtr.SelectCommand.CommandText = (" Select * From ilacbil" & " where(" & alan & " like '%") + TextBox6.Text & "%' )"

tablo.Clear()

adtr.Fill(tablo)

bag.Close()

End If

kmt.Dispose()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

label1.Text = ComboBox1.SelectedValue.ToString()

End Sub

End Class

Satış İşlemleri

Imports System.Data

Imports System.Data.SqlClient

Public Class recete_satis

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 tablo As New DataTable()

Dim idHas, idIla As Integer

Public Sub tcEkle()

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

connection.Open()

Dim command As New SqlCommand("Select id,tcKimlik from hastabil", connection)

Dim reader As SqlDataReader = command.ExecuteReader()

While reader.Read()

ComboBox1.Items.Add(New DictionaryEntry(reader(1).ToString(), reader(0).ToString()))

End While

reader.Close()

command.Dispose()

End Using

ComboBox1.DisplayMember = "Key"

ComboBox1.ValueMember = "Value"

ComboBox1.DataSource = ComboBox1.Items

ComboBox1.Text = ""

End Sub

Public Sub ilacEkle()

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

connection.Open()

Dim command As New SqlCommand("Select id,adi from ilacbil", connection)

Dim reader As SqlDataReader = command.ExecuteReader()

While reader.Read()

ComboBox2.Items.Add(New DictionaryEntry(reader(1).ToString(), reader(0).ToString()))

End While

reader.Close()

command.Dispose()

End Using

ComboBox2.DisplayMember = "Key"

ComboBox2.ValueMember = "Value"

ComboBox2.DataSource = ComboBox2.Items

ComboBox2.Text = ""

End Sub

Public Sub idHasta()

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

connection.Open()

Dim command2 As New SqlCommand("Select * from hastabil where id=@id", connection)

command2.Parameters.AddWithValue("@id", idHas)

Dim reader As SqlDataReader = command2.ExecuteReader()

While reader.Read()

ComboBox1.Text = reader(3).ToString()

End While

reader.Close()

command2.Parameters.Clear()

command2.Dispose()

End Using

End Sub

Public Sub idIlac()

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

connection.Open()

Dim command3 As New SqlCommand("Select * from ilacbil where id=@id", connection)

command3.Parameters.AddWithValue("@id", idIla)

Dim reader As SqlDataReader = command3.ExecuteReader()

While reader.Read()

ComboBox2.Text = reader(2).ToString()

End While

reader.Close()

command3.Parameters.Clear()

command3.Dispose()

End Using

End Sub

Public Sub listele()

tablo.Clear()

Dim adtr As New SqlDataAdapter("select * From satisbil ", bag)

adtr.Fill(tablo)

DataGridView1.DataSource = tablo

adtr.Dispose()

End Sub

Private Sub recete_satis_Load(sender As Object, e As EventArgs) Handles MyBase.Load

ilacEkle()

tcEkle()

listele()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

giris.Show()

Me.Hide()

End Sub

Private Sub btnKaydet_Click(sender As Object, e As EventArgs) Handles btnKaydet.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "INSERT INTO satisbil(hastaId,ilacId,tarih,miktar,faturaNo) VALUES (@hastaId,@ilacId,@tarih,@miktar,@faturaNo) "

kmt.Parameters.AddWithValue("@hastaId", ComboBox1.SelectedValue)

kmt.Parameters.AddWithValue("@ilacId", ComboBox2.SelectedValue)

kmt.Parameters.AddWithValue("@tarih", DateTimePicker1.Text)

kmt.Parameters.AddWithValue("@miktar", TextBox1.Text)

kmt.Parameters.AddWithValue("@faturaNo", TextBox2.Text)

kmt.ExecuteNonQuery()

kmt.Parameters.Clear()

kmt.Dispose()

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

If TypeOf Me.Controls(i) Is ComboBox Then

Me.Controls(i).Text = ""

End If

Next

listele()

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

End Sub

Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "DELETE from satisbil WHERE id=@id"

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery() 'www.gorselprogramlama.com

kmt.Dispose()

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click

Close()

End Sub

Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "UPDATE satisbil SET hastaId=@hastaId,ilacId=@ilacId,tarih=@tarih,miktar=@miktar,faturaNo=@faturaNo WHERE id=@id"

kmt.Parameters.AddWithValue("@hastaId", ComboBox1.SelectedValue)

kmt.Parameters.AddWithValue("@ilacId", ComboBox2.SelectedValue)

kmt.Parameters.AddWithValue("@tarih", DateTimePicker1.Text)

kmt.Parameters.AddWithValue("@miktar", TextBox1.Text)

kmt.Parameters.AddWithValue("@faturaNo", TextBox2.Text)

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery()

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick

TextBox1.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()

TextBox2.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString()

DateTimePicker1.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()

idHas = DataGridView1.CurrentRow.Cells(1).Value 'www.gorselprogramlama.com

idIla = DataGridView1.CurrentRow.Cells(2).Value

idHasta()

idIlac()

End Sub

Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click

Dim adtr As New SqlDataAdapter("select * From satisbil", bag)

Dim alan As String = ""

If ComboBox3.Text = "Hasta Id" Then

alan = "hastaId"

ElseIf ComboBox3.Text = "Fatura No" Then

alan = "faturaNo"

End If

If ComboBox3.Text = "Tümü" Then

bag.Open()

tablo.Clear()

kmt.Connection = bag

kmt.CommandText = "Select * from satisbil"

adtr.SelectCommand = kmt

adtr.Fill(tablo)

bag.Close()

End If

If alan <> "" Then

bag.Open()

adtr.SelectCommand.CommandText = (" Select * From satisbil" & " where(" & alan & " like '%") + TextBox6.Text & "%' )"

tablo.Clear()

adtr.Fill(tablo)

bag.Close()

End If

kmt.Dispose() 'www.gorselprogramlama.com

End Sub

End Class

Firma Ekle

Imports System.Data

Imports System.Data.SqlClient

Public Class firma_ekle

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 tablo As New DataTable()

Public Sub listele()

tablo.Clear()

Dim adtr As New SqlDataAdapter("select * From firmabil ", bag)

adtr.Fill(tablo) 'www.gorselprogramlama.com

DataGridView1.DataSource = tablo

adtr.Dispose()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "INSERT INTO firmabil(adi) VALUES (@adi)"

kmt.Parameters.AddWithValue("@adi", textBox1.Text)

kmt.ExecuteNonQuery()

kmt.Dispose()

bag.Close()

kmt.Parameters.Clear()

listele()

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

End Sub

Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "UPDATE firmabil SET adi=@adi WHERE id=@id"

kmt.Parameters.AddWithValue("@adi", textBox1.Text)

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery()

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click

bag.Open()

kmt.Connection = bag

kmt.CommandText = "DELETE from firmabil WHERE id=@id"

kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)

kmt.ExecuteNonQuery()

kmt.Dispose() 'www.gorselprogramlama.com

bag.Close()

kmt.Parameters.Clear()

listele()

End Sub

Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick

textBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()

End Sub

Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click

Close()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

giris.Show()

Me.Hide()

End Sub

Private Sub firma_ekle_Load(sender As Object, e As EventArgs) Handles MyBase.Load

listele()

End Sub

Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click

Dim adtr As New SqlDataAdapter("select * From firmabil", bag)

Dim alan As String = ""

If ComboBox3.Text = "Firma Adı" Then

alan = "adi"

End If

If ComboBox3.Text = "Tümü" Then

bag.Open()

tablo.Clear()

kmt.Connection = bag

kmt.CommandText = "Select * from firmabil"

adtr.SelectCommand = kmt 'www.gorselprogramlama.com

adtr.Fill(tablo)

bag.Close()

End If

If alan <> "" Then

bag.Open()

adtr.SelectCommand.CommandText = (" Select * From firmabil" & " where(" & alan & " like '%") + TextBox6.Text & "%' )"

tablo.Clear()

adtr.Fill(tablo)

bag.Close()

End If

kmt.Dispose() 'www.gorselprogramlama.com

End Sub

End Class

Projeyi İNDİR