Eczane Otomasyon Sistemi — VB.NET

Eczane Otomasyon Sistemi — VB.NET

Giriş Paneli

[code lang=”vb”]

Imports System.Data

Imports System.Data.OleDb ‘www.gorselprogramlama.com

Public Class girisPanel

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

Public kmt As New OleDbCommand()

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.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

[/code]

AnaMenü

[code lang=”vb”]

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

[/code]

Hasta Kaydı

[code lang=”vb”]

Imports System.Data

Imports System.Data.OleDb

Public Class hasta_kaydi

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

Public tablo As New DataTable()

Public Sub listele()

tablo.Clear()

Dim adtr As New OleDbDataAdapter("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()

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

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

listele()

End Sub

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

Dim adtr As New OleDbDataAdapter("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

[/code]

İlaç Kaydı

[code lang=”vb”]

Imports System.Data

Imports System.Data.OleDb

Public Class ilac_ekle

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

Public tablo As New DataTable()

Dim idfir As Integer

Public Sub firmaEkle()

bag.Open()

kmt.Connection = bag

Dim oku As OleDbDataReader

kmt.CommandText = "Select * from firmabil"

oku = kmt.ExecuteReader()

While oku.Read()

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

End While

bag.Close()

oku.Dispose()

ComboBox1.DisplayMember = "Key"

ComboBox1.ValueMember = "Value"

ComboBox1.DataSource = ComboBox1.Items

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

End Sub

Public Sub idFirma()

Dim kmt2 As New OleDbCommand()

Try

bag.Open()

kmt2.Connection = bag

Dim oku As OleDbDataReader

kmt2.CommandText = "Select * from firmabil where id=@id"

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

oku = kmt2.ExecuteReader()

While oku.Read()

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

End While

bag.Close()

oku.Close()

kmt2.Dispose()

Catch ex As Exception

End Try

End Sub

Public Sub listele()

tablo.Clear()

Dim adtr As New OleDbDataAdapter("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

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

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

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 OleDbDataAdapter("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

End Class

[/code]

Satış İşlemleri

[code lang=”vb”]

Imports System.Data

Imports System.Data.OleDb

Public Class recete_satis

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

Dim idHas, idIla As Integer

Public Sub tcEkle()

bag.Open()

kmt.Connection = bag

Dim oku As OleDbDataReader

kmt.CommandText = "Select id,tcKimlik from hastabil"

oku = kmt.ExecuteReader()

While oku.Read()

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

End While

bag.Close()

oku.Dispose()

kmt.Dispose() ‘www.gorselprogramlama.com

ComboBox1.DisplayMember = "Key"

ComboBox1.ValueMember = "Value"

ComboBox1.DataSource = ComboBox1.Items

ComboBox1.Text = ""

End Sub

Public Sub ilacEkle()

bag.Open()

kmt.Connection = bag

Dim oku As OleDbDataReader

kmt.CommandText = "Select id,adi from ilacbil"

oku = kmt.ExecuteReader()

While oku.Read()

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

End While

bag.Close()

oku.Dispose()

kmt.Dispose()

ComboBox2.DisplayMember = "Key"

ComboBox2.ValueMember = "Value"

ComboBox2.DataSource = ComboBox2.Items

ComboBox2.Text = ""

End Sub

Public Sub idHasta()

Try

Dim kmt2 As New OleDbCommand()

bag.Open()

kmt2.Connection = bag

Dim oku As OleDbDataReader

kmt2.CommandText = "Select * from hastabil where id=@id"

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

oku = kmt2.ExecuteReader()

While oku.Read()

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

End While ‘www.gorselprogramlama.com

bag.Close()

oku.Close()

kmt2.Dispose()

Catch ex As Exception

End Try

End Sub

Public Sub idIlac()

Try

Dim kmt3 As New OleDbCommand()

bag.Open()

kmt3.Connection = bag

Dim oku As OleDbDataReader

kmt3.CommandText = "Select * from ilacbil where id=@id"

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

oku = kmt3.ExecuteReader()

While oku.Read()

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

End While

bag.Close() ‘www.gorselprogramlama.com

oku.Close()

kmt3.Dispose()

Catch ex As Exception

End Try

End Sub

Public Sub listele()

tablo.Clear()

Dim adtr As New OleDbDataAdapter("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.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()

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

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

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 OleDbDataAdapter("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

[/code]

Firma Ekle

[code lang=”vb”]

Imports System.Data

Imports System.Data.OleDb

Public Class firma_ekle

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

Public tablo As New DataTable()

Public Sub listele()

tablo.Clear()

Dim adtr As New OleDbDataAdapter("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()

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

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

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 OleDbDataAdapter("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

[/code]

Projeyi İNDİR 2012

Projeyi İNDİR 2010