Kütüphane Takip Programı VB.Net
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
Kayıt İşlemi Buttonu’na tıkladığımız da karşımıza gelen form
Burada girilmesi zorunlu olan bilgiler var örneğin barkod numarası gibi programda kullandığımız bir yöntemle daha önceden girilmiş bir barkod numarası varsa eğer hata mesajı ile kullanıcıyı uyarmaktayız.
Anaform da bulunun Okuyucu Kayıt buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
Bu formda da girilmesi zorunlu olan bilgiler var bu bilgiler *(yıldız)’la işaretlenmiştir,boş geçilmeye çalışıldığında hata vermektedir.
Anaform da bulunun Okuyucu Liste buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Burada kayıtlarımızı görmekteyiz yalan burada silme işlemi için uygulanan yöntem TextBox’ların Change özelliğine yazdığımız kodlar sayesinde oldu girilen Ad ve Soyadın bulunduğu bir bilgi var ise SİL buttonuna tıklağomız zaman direkmen silmekteyiz.
Anaform da bulunun Kitap Liste buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Okuyucu Liste’sinde olduğu gibi aynı işlem burada da uygulanmıştır,bulunan bir Barkod numarası girildiğinde SİL buttonuna bastığımızda bilgisi silmiş oluyoruz.
Anaform da bulunun Emanet Kitaplar buttonuna tıkladığımız karşımıza gelen formda Teslim Al buttonuna tıkladığımız zaman karşımıza gelen form aşağıdaki gibidir.
Burada ise emanet alınan kitapların geri teslim durumları göz önünde bulunduruluyor okuyucu kitabı geri nasıl bırakmış onu görmekteyiz. Programımız böyle çalışmaktadır şimdi Kod satırlarına geçelim.
FORM1 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form1
Public bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")
Public kmt As New OleDbCommand()
Public adtr As New OleDbDataAdapter()
Public dtst As New DataSet()
Public satir As Integer
Public durum As [Boolean] = False
Private barkodno As String, no As String, adsoyad As String, kitapad As String, kitapyazar As String, tarih As String
Public Sub kitaplistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From kitapbil WHERE StokSayisi>0", bag)
adtr.Fill(dtst, "kitapbil")
dataGridView1.DataSource = dtst.Tables("kitapbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub kitaplistele2()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
adtr.Fill(dtst, "kitapbil")
Form5.dataGridView1.DataSource = dtst.Tables("kitapbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub okuyuculistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From okuyucubil ", bag)
adtr.Fill(dtst, "okuyucubil")
dataGridView2.DataSource = dtst.Tables("okuyucubil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub okuyuculistele2()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From okuyucubil ", bag)
adtr.Fill(dtst, "okuyucubil")
Form4.dataGridView1.DataSource = dtst.Tables("okuyucubil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub emanetlistele()
bag.Open()
Dim adtr As New OleDbDataAdapter("select * From emanetbil ", bag)
adtr.Fill(dtst, "emanetbil")
Form6.dataGridView1.DataSource = dtst.Tables("emanetbil")
adtr.Dispose()
bag.Close()
End Sub
Public Sub kitapcombo()
Dim durum As Integer
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select YazarAdi,YayinEvi,KitapTuru,TeminBicimi from kitapbil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
durum = Form2.comboBox1.FindString(oku(0).ToString())
If durum = -1 Then
Form2.comboBox1.Items.Add(oku(0).ToString())
End If
durum = Form2.comboBox2.FindString(oku(1).ToString())
If durum = -1 Then
Form2.comboBox2.Items.Add(oku(1).ToString())
End If
durum = Form2.comboBox3.FindString(oku(2).ToString())
If durum = -1 Then
Form2.comboBox3.Items.Add(oku(2).ToString())
End If
durum = Form2.comboBox3.FindString(oku(2).ToString())
If durum = -1 Then
Form2.comboBox3.Items.Add(oku(2).ToString())
End If
durum = Form2.comboBox4.FindString(oku(3).ToString())
If durum = -1 Then
Form2.comboBox4.Items.Add(oku(3).ToString())
End If
End While
bag.Close()
oku.Dispose()
End Sub
Public Sub okuyucucombo()
Dim durum As Integer
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select Sinifi,DogumYeri from okuyucubil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
durum = Form3.comboBox1.FindString(oku(0).ToString())
If durum = -1 Then
Form3.comboBox1.Items.Add(oku(0).ToString())
End If
durum = Form3.comboBox2.FindString(oku(1).ToString())
If durum = -1 Then
Form3.comboBox2.Items.Add(oku(1).ToString())
End If
End While
bag.Close()
oku.Dispose()
End Sub
Public Sub barkodkontrol()
durum = False
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select BarkodNo from kitapbil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
If Form2.textBox1.Text = oku(0).ToString() Then
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 TcKimlik,Nosu from okuyucubil"
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
If Form3.textBox1.Text = oku(0).ToString() OrElse Form3.textBox3.Text = oku(1).ToString() Then
durum = True
End If
End While
bag.Close()
oku.Dispose()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kitaplistele()
okuyuculistele()
dataGridView1.Columns(0).HeaderText = "Barkod No"
dataGridView1.Columns(1).HeaderText = "Kitap Adı"
dataGridView1.Columns(2).HeaderText = "Yazar Adı"
dataGridView1.Columns(3).HeaderText = "Yayın Evi"
dataGridView1.Columns(4).HeaderText = "Kitap Türü"
dataGridView1.Columns(5).HeaderText = "Temin Biçimi"
dataGridView1.Columns(6).HeaderText = "Temin Tarihi"
dataGridView1.Columns(7).HeaderText = "Stok Sayısı"
dataGridView1.Columns(0).Width = 65
dataGridView1.Columns(1).Width = 95
dataGridView1.Columns(2).Width = 95
dataGridView1.Columns(3).Width = 90
dataGridView1.Columns(4).Width = 60
dataGridView1.Columns(5).Width = 70
dataGridView1.Columns(6).Width = 85
dataGridView1.Columns(7).Width = 55
dataGridView2.Columns.RemoveAt(10)
dataGridView2.Columns.RemoveAt(9)
dataGridView2.Columns.RemoveAt(8)
dataGridView2.Columns.RemoveAt(7)
dataGridView2.Columns.RemoveAt(6)
dataGridView2.Columns.RemoveAt(5)
dataGridView2.Columns.RemoveAt(4)
dataGridView2.Columns.RemoveAt(0)
dataGridView2.Columns(0).HeaderText = "Adı Soyadı"
dataGridView2.Columns(1).HeaderText = "Sınıfı"
dataGridView2.Columns(2).HeaderText = "No"
dataGridView2.Columns(3).HeaderText = "Kitap Sayısı"
dataGridView2.Columns(4).HeaderText = "Emanet Sayısı"
dataGridView2.Columns(1).Width = 35
dataGridView2.Columns(2).Width = 40
dataGridView2.Columns(3).Width = 46
dataGridView2.Columns(4).Width = 46
End Sub
Private Sub btnKitapkayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKitapkayit.Click
Form2.ShowDialog()
End Sub
Private Sub btnOkuyucukayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkuyucukayit.Click
Form3.ShowDialog()
End Sub
Private Sub btnOkuyuculiste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOkuyuculiste.Click
Form4.ShowDialog()
End Sub
Private Sub btnKitapliste_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKitapliste.Click
Form5.ShowDialog()
End Sub
Private Sub btnEmanetkitap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmanetkitap.Click
emanetlistele()
Form6.ShowDialog()
End Sub
Private Sub txtAdSoyadAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAdSoyadAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", bag)
If txtAdSoyadAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "okuyucubil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(AdiSoyadi like ‘%") + txtAdSoyadAra.Text & "%’ )"
dtst.Tables("okuyucubil").Clear()
adtr.Fill(dtst, "okuyucubil")
bag.Close()
End Sub
Private Sub txtOkulNoAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtOkulNoAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", bag)
If txtOkulNoAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "okuyucubil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Nosu like ‘%") + txtOkulNoAra.Text & "%’ )"
dtst.Tables("okuyucubil").Clear()
adtr.Fill(dtst, "okuyucubil")
bag.Close()
End Sub
Private Sub txtSinifAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSinifAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", bag)
If txtSinifAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "okuyucubil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Sinifi like ‘%") + txtSinifAra.Text & "%’ )"
dtst.Tables("okuyucubil").Clear()
adtr.Fill(dtst, "okuyucubil")
bag.Close()
End Sub
Private Sub txtBarkodAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarkodAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
If txtBarkodAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "kitapbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(BarkodNo like ‘%") + txtBarkodAra.Text & "%’ )"
dtst.Tables("kitapbil").Clear()
adtr.Fill(dtst, "kitapbil")
bag.Close()
End Sub
Private Sub txtKitapadiAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapadiAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
If txtKitapadiAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "kitapbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(KitapAdi like ‘%") + txtKitapadiAra.Text &"%’ )"
dtst.Tables("kitapbil").Clear()
adtr.Fill(dtst, "kitapbil")
bag.Close()
End Sub
Private Sub txtKitapyazariAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapyazariAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", bag)
If txtKitapyazariAra.Text = "" Then
kmt.Connection = bag
kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = kmt
adtr.Fill(dtst, "kitapbil")
End If
If Convert.ToBoolean(bag.State) = False Then
bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(YazarAdi like ‘%") + txtKitapyazariAra.Text &"%’ )"
dtst.Tables("kitapbil").Clear()
adtr.Fill(dtst, "kitapbil")
bag.Close()
End Sub
Private Sub dataGridView2_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dataGridView2.CellMouseClick
Dim satir As Integer
For satir = 0 To dataGridView2.Rows.Count – 1
If dataGridView2.Rows(satir).Cells(0).Selected = True OrElse dataGridView2.Rows(satir).Cells(1).Selected = True OrElse dataGridView2.Rows(satir).Cells(2).Selected = True OrElse dataGridView2.Rows(satir).Cells(3).Selected = True OrElse dataGridView2.Rows(satir).Cells(4).Selected = True Then
Exit For
End If
Next
textBox2.Text = dataGridView2.Rows(satir).Cells(0).Value.ToString()
textBox3.Text = dataGridView2.Rows(satir).Cells(3).Value.ToString()
textBox4.Text = dataGridView2.Rows(satir).Cells(4).Value.ToString()
no = dataGridView2.Rows(satir).Cells(2).Value.ToString()
adsoyad = dataGridView2.Rows(satir).Cells(0).Value.ToString()
End Sub
Private Sub dataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dataGridView1.CellMouseClick
Dim satir As Integer
For satir = 0 To dataGridView1.Rows.Count – 1
If dataGridView1.Rows(satir).Cells(0).Selected = True OrElse dataGridView1.Rows(satir).Cells(1).Selected = True OrElse dataGridView1.Rows(satir).Cells(2).Selected = True OrElse dataGridView1.Rows(satir).Cells(3).Selected = True OrElse dataGridView1.Rows(satir).Cells(4).Selected = True OrElse dataGridView1.Rows(satir).Cells(5).Selected = True OrElse dataGridView1.Rows(satir).Cells(6).Selected = True OrElse dataGridView1.Rows(satir).Cells(7).Selected = True Then
Exit For
End If
Next
textBox1.Text = dataGridView1.Rows(satir).Cells(1).Value.ToString()
barkodno = dataGridView1.Rows(satir).Cells(0).Value.ToString()
kitapad = dataGridView1.Rows(satir).Cells(1).Value.ToString()
kitapyazar = dataGridView1.Rows(satir).Cells(2).Value.ToString()
End Sub
Private Sub btnEmanetKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEmanetKaydet.Click
Try
If textBox1.Text <> "" AndAlso textBox2.Text <> "" Then
tarih = DateTime.Now.ToShortDateString()
bag.Open()
kmt.Connection = bag
kmt.CommandText = ("INSERT INTO emanetbil(AdiSoyadi,Nosu,BarkodNo,KitapAdi,KitapYazari,BaslangicTarihi,BitisTarihi,EmanetDurumu) VALUES (‘" & adsoyad & "’,’" &a no & "’,’" & barkodno & "’,’" & kitapad & "’,’" & kitapyazar & "’,’" & tarih &"’,’") + dateTimePicker1.Text & "’,’" & "Teslim Edilmedi" &"’) "
kmt.ExecuteNonQuery()
kmt.CommandText = "UPDATE okuyucubil SET KitapSayisi=KitapSayisi+1,EmanetSayisi=EmanetSayisi+1 WHERE Nosu=’" & no & "’"
kmt.ExecuteNonQuery()
kmt.CommandText = "UPDATE kitapbil SET StokSayisi=StokSayisi-1 WHERE BarkodNo=’" & barkodno & "’"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
dtst.Tables("okuyucubil").Clear()
dtst.Tables("kitapbil").Clear()
okuyuculistele()
kitaplistele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
Else
MessageBox.Show("Listeden seçim yapınız !")
End If
Catch
End Try
End Sub
Private Sub Cikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cikis.Click
Application.Exit()
End Sub
End Class
[/code]
FORM2 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Public Class Form2
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Me.Close()
End Sub
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.kitapcombo()
End Sub
Private Sub btnKaydet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Form1.barkodkontrol()
If Form1.durum = False Then
If textBox2.Text <> "" AndAlso textBox2.Text <> "" AndAlso textBox3.Text <> "" AndAlso comboBox1.Text <> "" AndAlso comboBox2.Text <> "" AndAlso comboBox3.Text <> "" Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ((((((("INSERT INTO kitapbil(BarkodNo,KitapAdi,YazarAdi,YayinEvi,KitapTuru,TeminBicimi,TeminTarihi,StokSayisi) VALUES (‘" + textBox1.Text & "’,’") + textBox2.Text & "’,’") + comboBox1.Text & "’,’") + comboBox2.Text & "’,’") + comboBox3.Text & "’,’") + comboBox4.Text & "’,’") + dateTimePicker1.Text & "’,’") + textBox3.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
If TypeOf Me.Controls(i) Is ComboBox Then
Me.Controls(i).Text = ""
End If
Next
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele()
Form1.kitapcombo()
MessageBox.Show("Kayıt işlemi tamamlandı !")
Else
MessageBox.Show("Boş alanları doldurunuz !")
End If
Else
MessageBox.Show("Girmiş olduğunuz Barkod No kullanılmış")
End If
End Sub
End Class
[/code]
FORM3 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Public Class Form3
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 <> "" Then
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = (((((((((("INSERT INTO okuyucubil(TcKimlik,AdiSoyadi,Sinifi,Nosu,DogumTarihi,DogumYeri,Telefon,Eposta,UyelikTarihi,Cinsiyet,Adres) VALUES (‘" + textBox1.Text & "’,’") + textBox2.Text & "’,’") + comboBox1.Text & "’,’") + textBox3.Text & "’,’") + dateTimePicker1.Text & "’,’") + comboBox2.Text & "’,’") + textBox4.Text & "’,’") + textBox5.Text & "’,’") + dateTimePicker2.Text & "’,’") + comboBox3.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
If TypeOf Me.Controls(i) Is ComboBox Then
Me.Controls(i).Text = ""
End If
Next
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyucucombo()
Form1.okuyuculistele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
Else
MessageBox.Show("Boş alanları doldurunuz !")
End If
Else
MessageBox.Show("Kayıtlı Tc Kimlik veya Öğrenci No Girdiniz !")
End If
End Sub
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.okuyucucombo()
End Sub
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Me.Close()
End Sub
End Class
[/code]
FORM4 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form4
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele2()
End Sub
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Me.Close()
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele()
Form1.dataGridView2.Columns.Remove("DogumTarihi")
Form1.dataGridView2.Columns.Remove("DogumYeri")
Form1.dataGridView2.Columns.Remove("Telefon")
Form1.dataGridView2.Columns.Remove("Eposta")
Form1.dataGridView2.Columns.Remove("UyelikTarihi")
Form1.dataGridView2.Columns.Remove("Cinsiyet")
Form1.dataGridView2.Columns.Remove("Adres")
End Sub
Private Sub txtAdSoyadAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAdSoyadAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtAdSoyadAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" &" where(AdiSoyadi like ‘%") + txtAdSoyadAra.Text & "%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtOkulNoAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtOkulNoAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtOkulNoAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Nosu like ‘%") + txtOkulNoAra.Text &"%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtSinifAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSinifAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtSinifAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(Sinifi like ‘%") + txtSinifAra.Text & "%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtTcKimlikAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTcKimlikAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtTcKimlikAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(TcKimlik like ‘%") + txtTcKimlikAra.Text &"%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub txtDogumYeriAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtDogumYeriAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From okuyucubil", Form1.bag)
If txtDogumYeriAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from okuyucubil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "okuyucubil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From okuyucubil" & " where(DogumYeri like ‘%") + txtDogumYeriAra.Text & "%’ )"
Form1.dtst.Tables("okuyucubil").Clear()
adtr.Fill(Form1.dtst, "okuyucubil")
Form1.bag.Close()
End Sub
Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
Dim silinecek As String
Try
Dim row As Integer = 0
For row = 0 To dataGridView1.Rows.Count
If dataGridView1.Rows(row).Cells(0).Selected = True OrElse dataGridView1.Rows(row).Cells(1).Selected = True OrElse dataGridView1.Rows(row).Cells(2).Selected = True OrElse dataGridView1.Rows(row).Cells(3).Selected = True OrElse dataGridView1.Rows(row).Cells(4).Selected = True OrElse dataGridView1.Rows(row).Cells(5).Selected = True OrElse dataGridView1.Rows(row).Cells(6).Selected = True OrElse dataGridView1.Rows(row).Cells(7).Selected = True OrElse dataGridView1.Rows(row).Cells(8).Selected = True OrElse dataGridView1.Rows(row).Cells(9).Selected = True OrElse dataGridView1.Rows(row).Cells(10).Selected = True OrElse dataGridView1.Rows(row).Cells(11).Selected = True OrElse dataGridView1.Rows(row).Cells(12).Selected = True Then
Exit For
End If
Next
silinecek = dataGridView1.Rows(row).Cells(0).Value.ToString()
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 okuyucubil WHERE TcKimlik=’" & silinecek & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele2()
End If
Catch
End Try
End Sub
End Class
[/code]
FORM5 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”]
Imports System.Data.OleDb
Public Class Form5
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele2()
End Sub
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele()
Me.Close()
End Sub
Private Sub txtBarkodAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBarkodAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtBarkodAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(BarkodNo like ‘%") + txtBarkodAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtKitapadiAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapadiAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtKitapadiAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(KitapAdi like ‘%") + txtKitapadiAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtKitapyazariAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapyazariAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtKitapyazariAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(YazarAdi like ‘%") + txtKitapyazariAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtYayinEviAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYayinEviAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtYayinEviAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" & " where(YayinEvi like ‘%") + txtYayinEviAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtKitapTuruAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKitapTuruAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtKitapTuruAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" &" where(KitapTuru like ‘%") + txtKitapTuruAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub txtTeminBicimiAra_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtTeminBicimiAra.TextChanged
Dim adtr As New OleDbDataAdapter("select * From kitapbil", Form1.bag)
If txtTeminBicimiAra.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from kitapbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "kitapbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From kitapbil" &" where(TeminBicimi like ‘%") + txtTeminBicimiAra.Text & "%’ )"
Form1.dtst.Tables("kitapbil").Clear()
adtr.Fill(Form1.dtst, "kitapbil")
Form1.bag.Close()
End Sub
Private Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
Dim silinecek As String
Try
Dim row As Integer = 0
For row = 0 To dataGridView1.Rows.Count
If dataGridView1.Rows(row).Cells(0).Selected = True OrElse dataGridView1.Rows(row).Cells(1).Selected = True OrElse dataGridView1.Rows(row).Cells(2).Selected = True OrElse dataGridView1.Rows(row).Cells(3).Selected = True OrElse dataGridView1.Rows(row).Cells(4).Selected = True OrElse dataGridView1.Rows(row).Cells(5).Selected = True OrElse dataGridView1.Rows(row).Cells(6).Selected = True OrElse dataGridView1.Rows(row).Cells(7).Selected = True Then
Exit For
End If
Next
silinecek = dataGridView1.Rows(row).Cells(0).Value.ToString()
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 kitapbil WHERE BarkodNo=’" & silinecek & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele2()
End If
Catch
End Try
End Sub
End Class
[/code]
FORM6 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”] Imports System.Data.OleDb
Public Class Form6
Private Sub btnCikis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCikis.Click
Form1.dtst.Tables("emanetbil").Clear()
Me.Close()
End Sub
Private Sub txtAraAdiSoyadi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraAdiSoyadi.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtAraAdiSoyadi.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(AdiSoyadi like ‘%") + txtAraAdiSoyadi.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub txtAraOkulNo_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraOkulNo.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtAraOkulNo.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(Nosu like ‘%") + txtAraOkulNo.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub txtaraKitapAdi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtaraKitapAdi.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtaraKitapAdi.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(KitapAdi like ‘%") + txtaraKitapAdi.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub txtAraYazarAdi_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAraYazarAdi.TextChanged
Dim adtr As New OleDbDataAdapter("select * From emanetbil", Form1.bag)
If txtAraYazarAdi.Text = "" Then
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = "Select * from emanetbil"
adtr.SelectCommand = Form1.kmt
adtr.Fill(Form1.dtst, "emanetbil")
End If
If Convert.ToBoolean(Form1.bag.State) = False Then
Form1.bag.Open()
End If
adtr.SelectCommand.CommandText = (" Select * From emanetbil" & " where(KitapYazari like ‘%") + txtAraYazarAdi.Text & "%’ )"
Form1.dtst.Tables("emanetbil").Clear()
adtr.Fill(Form1.dtst, "emanetbil")
Form1.bag.Close()
End Sub
Private Sub dataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dataGridView1.CellMouseClick
Form1.satir = 0
While Form1.satir < dataGridView1.Rows.Count
If dataGridView1.Rows(Form1.satir).Cells(0).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(1).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(2).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(3).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(4).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(5).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(6).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(7).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(8).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(9).Selected = True Then
Exit While
End If
Form1.satir += 1
End While
no = dataGridView1.Rows(Form1.satir).Cells(1).Value.ToString()
ad = dataGridView1.Rows(Form1.satir).Cells(0).Value.ToString()
kitapad = dataGridView1.Rows(Form1.satir).Cells(3).Value.ToString()
barkodno = dataGridView1.Rows(Form1.satir).Cells(2).Value.ToString()
End Sub
Private Sub btnTeslimAl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTeslimAl.Click
Form7.ShowDialog()
End Sub
End Class
[/code]
FORM7 İçerisine Yazılacak Kodlar…
[code lang=”vbnet”] Public Class Form7
Private Sub btnTamam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTamam.Click
Dim hdurum As String
Try
If textBox1.Text <> "" AndAlso textBox2.Text <> "" Then
hdurum = "Teslim Edildi"
If comboBox1.Text = "Kayıp" Then
hdurum = ""
End If
Form1.bag.Open()
Form1.kmt.Connection = Form1.bag
Form1.kmt.CommandText = ("UPDATE emanetbil SET TeslimTarihi=’" + dateTimePicker1.Text & "’,HasarDurumu=’") + comboBox1.Text & "’,EmanetDurumu=’" & hdurum & "’ WHERE Nosu=’" & Convert.ToString(Form6.no) & "’ AND KitapAdi=’" & Form6.kitapad & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "UPDATE okuyucubil SET EmanetSayisi=EmanetSayisi-1 WHERE Nosu=’" & Convert.ToString(Form1.frm6.no) & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.CommandText = "UPDATE kitapbil SET StokSayisi=StokSayisi+1 WHERE BarkodNo=’" & Convert.ToString(Form1.frm6.barkodno) & "’"
Form1.kmt.ExecuteNonQuery()
Form1.kmt.Dispose()
Form1.bag.Close()
Form1.dtst.Tables("emanetbil").Clear()
Form1.emanetlistele()
Form1.dtst.Tables("okuyucubil").Clear()
Form1.okuyuculistele()
Form1.dtst.Tables("kitapbil").Clear()
Form1.kitaplistele()
Me.Close()
Else
MessageBox.Show("Kitap teslimi için listeden seçim yapmalısınız !")
End If
Catch
End Try
End Sub
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
textBox1.Text = Form6.ad
textBox2.Text = Form6.kitapad
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
[/code]
Bu ve benzeri takip programlar veya bu programa artı özellikler ekletmek istiyorsanız gorselprogram@gmail.com adresine mail atın.
merhaba ben bu hataları alıyorum sebebini anlayamadım yardımcı olabilirmisin
Error 1 ‘frm6’ is not a member of ‘kutuphane_takip_1._0.Form1’. Form7.vb 13 209 kutuphane_takip_1.0
Error 2 ‘frm6’ is not a member of ‘kutuphane_takip_1._0.Form1’. Form7.vb 15 125 kutuphane_takip_1.0
Error 3 ‘frm6’ is not a member of ‘kutuphane_takip_1._0.Form1’. Form7.vb 17 123 kutuphane_takip_1.0
Error 4 ‘ad’ is not a member of ‘kutuphane_takip_1._0.Form6’. Form7.vb 40 25 kutuphane_takip_1.0
Error 5 ‘kitapad’ is not a member of ‘kutuphane_takip_1._0.Form6’. Form7.vb 41 25 kutuphane_takip_1.0
hata düzeltildi.
ben buradan projeyi indirdim ve bu hatayı verdi bana bunları nasıl görmesini sağlayabilirim acaba paylaşılan projedemi hata var yoksa benim bilgisayara geçincemi oldu bu hata
Hatayı düzelttim arkadaşlar . Tekrardan indirip deneyin.
teşekkürler şimdi gayet güzel çalışıyor
bu programı yapıp buraya koyandan alah razı olsun çok yardımcı oldu çok saol…
ben bu programı indirdiğim zaman hiç bir değişiklik yapmadan çalışır mı bilgi verirseniz sevinirim…
çalışır tabiki.
vb.nette Datagridview filtrelemek istiyorum combobox’ın içindekilerden herhangi birini seçtiğimizde ara butonuna tıklayınca datagridview’de göstermesini istiyorum örn: bir kütüphanede üye olanları arıcaz comboboxtan üye olanları seçip ara buttonuna bastığımızda üye olanların listesini datagridde göstericek üye olmayanları gösteri seçip ara buttonuna tıkladığımızda ise datagridview’de üye olmayanların listesini göstericek. ?? ===Acaba bu konu hakkında bana yardım edebilirmisiniz ?? (ÇOK ACİL) ===
konu ile ilgili bir örnek hazırladım. link : http://www.gorselprogramlama.com/comboboxta-secili-veriyi-datagridviewde-gosterme-filtreleme-vb-net
admın videolu mufredata uygun videolar koyabılır msn 11 sınıf ve 12. sınıflar için ?
ilgilenirsen çok faydan olur.
‘][‘eşekkürler
İlerleyen dönemlerde olabilir.
form6 da listeden seçim yapıp teslim al dediğimde listeden kitap seçin diyor. bunu nasıl düzeltebiliriz.
form6 da listeden seçim yapıp teslim al dediğimde listeden kitap seçin diyor. bunu nasıl düzeltebiliriz.
adısoyadı ve kitap adı kısımlarını doldurmuyor?
dataGridView1_CellMouseClick olayına yazılan kodları sil. yazdığım kodları ekle çalışıyor.denedim.Yukarıdaki form6’yada ekledim.Ayrıca projeyede ekledim.Tekrar indirip bakabilirsin.
Private Sub dataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dataGridView1.CellMouseClick
Form1.satir = 0
While Form1.satir < dataGridView1.Rows.Count
If dataGridView1.Rows(Form1.satir).Cells(0).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(1).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(2).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(3).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(4).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(5).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(6).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(7).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(8).Selected = True OrElse dataGridView1.Rows(Form1.satir).Cells(9).Selected = True Then
Exit While
End If
Form1.satir += 1
End While
no = dataGridView1.Rows(Form1.satir).Cells(1).Value.ToString()
ad = dataGridView1.Rows(Form1.satir).Cells(0).Value.ToString()
kitapad = dataGridView1.Rows(Form1.satir).Cells(3).Value.ToString()
barkodno = dataGridView1.Rows(Form1.satir).Cells(2).Value.ToString()
End Sub
cevabın için teşekkür ederim. bir sorum daha olacaktı. kitap teslim al da farklı kitaplarda hasarlı ya da hasarsız seçeneğini seçtiğimde daha önceden başka kitap alan kişinin emanet kitapları aynı oluyor. mesala a kitabını hasarsız teslim ettim. daha sonra b kitabını hasarlı teslim ettim. bu durumda a kitabı da hasarlı oluyor! bu durumu nasıl düzeltebiliriz acaba. yanıtın için şimdiden teşekkür ederim…
form7 deki ilk sorguda WHERE Nosu='” & Convert.ToString(Form6.no) yanına AND KitapAdi='” & Form6.kitapad & “‘ komutunu ekledim.Ayrıca düzenlenmiş halini projeye ekledim.Projeyi tekrardan indirip bakabilirsin.
admin bu dosya üzerinde değişiklik yapmamız için gereli dosyayı koyarmısın
form6 da end while den sonra hata veriyor yardımcı olurmusunuz
yaptıgım bir işlemi kaydetmiyor neden
ekledigim yaptıgım hiçbir işlemi kaydetmiyor
Program için teşekkür ederim. 🙂
merhaba arkadaslar bu programın weri tabanı bağlantısı hangı program acaba? MySql mi access mi ?
access
cok teşekkur ederm …
Arkadaşlar sizden bir konuyla ilgili yardım istiycektim.Benim performans ödevi için konuya ihtiyacım var ama oyun yapıcam.Aklınıza gelen bir oyun olursa ismini yazarsanız sevinirim.
Not;Yapıcağım ödev C#.Net!te olucak.
Şimdiden teşekkür ederim 🙂
ben bu kütüphane programını yaptım.kodlrı aynen yazdım fakat form1deki datagridviewlerdeki sütunları tıkladığımda bana hata veriyo.yardıcı olursanız sevinirim..
hatayı yaz.yardımcı olalım.
hatayı düzelttim şimdide form4deki bir kaydı seçtiğimde sil butonuna tıkladığımda en ustteki kaydı siliyor ve çıkış yaptığımda ;
form1.datagridview2.colums.remove(“doğum tarihi”)
bu hatayı veriyor.
form7nin kodlarının bazı yerlerinde ise şu hatayı veriyor;
Form1.kmt.CommandText = “UPDATE okuyucubil SET EmanetSayisi=EmanetSayisi-1 WHERE Nosu='” & Convert.ToString ->>(Form1.form6.no)<>(Form1.form6.barkodno)<> Form6.ad
TextBox2.Text =–> Form6.kitapad
(ok ile gösterdiğim yerler hata veriyor)
yardımcı olurmusunuz
formlardaki simge resimlerini bulabileceğim bildiğiniz bi adres varmı??
form4 deki bir kaydı seçtiğimde sil butonuna tıkladığımda seçtiğim kayıt değilde en ustteki kayıt siliniyor ve çıkış yaptığımda
form1.datagridview2.colums.remove(“doğum tarihi”) bu hatayı veriyor
form7de ise ;
(Form6.no)
Form6.kitapad
(Form1.form6.
load kısmında ise
Form6.ad
Form6.kitapad
hatalarını veriyor yardımcı olurmusunz??
google yaz.Birçok yerde bulursun.
kendin tekrardan yazdıysan tün değişkenleri eklediğine dikkat et.Ve veri tabanında tüm alanların olduğuna.
değişkenler tanımlanmadıysa bu hataları verir.
çoook teşekkür ederim sağolun oldu sonunda:D
proje ödevim için emlak programı lazım.visual basic dilinde olması gerkiyor yardım edermisiniz
proje isteklerinizi gorselprogram@gmail.com adresine mail atın.
mail atıyoruz ama cevap gelmiyor.s
Bütün maillere cevap veriliyor.Kullanmadığınız mail ile gönderiyorsunuzdur.
Oyun Takip Programı….
şu hatayı veriyor programı çalıştırırken : ” A first chance exception of type ‘System.InvalidOperationException’ occurred in System.Data.dll ”
bag.Open() … gösteriyor hata .
data.dll doyasını bulamıyor.proje açıkken solution explorer penceresinde proje ismimiz üzerine sağ tıklayıp Add Reference ‘den data.dll’yi yükleyin.
“Add Reference” ‘de data.dll görmüyor ? “kutuphane_takip_1.0.exe” dosyasını görüyor yalnızca .
Sorun 64 bit’ten kaynaklanıyormuş hallettim. Çözüm :**For 64 bit development with Visual Studio and SQL Server Compact 3.5, the Target CPU option in the Advanced Compiler Settings must be explicitly set to x86. When the Target CPU is set to the default value of Any CPU, you might receive an “Unable to load sqlceme35.dll” message. Set the Target CPU option in the Advanced Compiler Settings in project properties.**
Bu Program Acılmadı Neden Oldugunu Solermisiniz Rica Etsem Cok acil Lütfen
vs 2008 ve üstü kurulu olması gerekir.vs 2005 te açılmaz.
MERHABA ADMIN BANA YARDIMCI OLURSAN COK SEWINICEM FORM1 DE KİTAP TESLIM TARIHI VARYA BEN ORAYA 15 GUN SINIR KOYMK ISTIYOM B IR KISI KITABI HANGİ TARIHTE ALDIYSA ALDIGI TARIHTEN SONRAKI 15 INCI GÜNDE BANA BILGI VERMESINI ISTIYOM SU KULLANICINI KITABI ALALI 15 GUN OLMUSTUR DIE BİRDE EMANET KİTAP SAYISI BOLUMU NE BIR KISIYE EN FAZLA 3 KITAP VERILECEK 4 UNCUYU VERMICEK UYARICAK BENI BU KULLANICIN ELINDE 3 EMANET KITAP VAR 4 UNCUYU ALAMAZ DIE LURTFEN EN KISA ZAMANDA BANA YARDIM CI OLURMUSUN LUTFEN ACIL LAZIMMM
15 gün için kitap veriliş tarihi ile bugünün farkını almasın.
Dim tfark As TimeSpan
tfark = DateTime.Parse(DateTime.Now.ToShortDateString()- DateTime.Parse(Baslangıç tarihi)
emanet kitap sayısı için :
şart eklen gerekir .
If Val(dataGridView2.CurrentRow.Cells(4).Value).ToString() > 4 Then
MessageBox.Show(“3’den fazla emanet kitap alınmaz”)
Else
MessageBox.Show(“Kitap alabilir”)
‘Burada kayıt işlemleri için gerekli kodlar olacak.
End If
çok teşekkur edıyorumm::
şu kodların ne işe yaradığını açıklama satırlarıyla yazarmısınız?
Public Sub kitapcombo()
Dim durum As Integer
bag.Open()
kmt.Connection = bag
kmt.CommandText = “Select YazarAdi,YayinEvi,KitapTuru,TeminBicimi from kitapbil”
Dim oku As OleDbDataReader
oku = kmt.ExecuteReader()
While oku.Read()
durum = Form2.ComboBox1.FindString(oku(0).ToString())
If durum = -1 Then
Form2.ComboBox1.Items.Add(oku(0).ToString())
End If
durum = Form2.ComboBox2.FindString(oku(1).ToString())
If durum = -1 Then
Form2.ComboBox2.Items.Add(oku(1).ToString())
End If
durum = Form2.ComboBox3.FindString(oku(2).ToString())
If durum = -1 Then
Form2.ComboBox3.Items.Add(oku(2).ToString())
End If
durum = Form2.ComboBox3.FindString(oku(2).ToString())
If durum = -1 Then
Form2.ComboBox3.Items.Add(oku(2).ToString())
End If
durum = Form2.ComboBox4.FindString(oku(3).ToString())
If durum = -1 Then
Form2.ComboBox4.Items.Add(oku(3).ToString())
End If
End While
bag.Close()
oku.Dispose()
End Sub