Kütüphane Takip Programı ( Kapsamlı ) VB.Net

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.

Projeyi İNDİR

Yorumlar 116

← Eski Yorumlar
Yeni Yorumlar →

  • combobox’ın findstring özellği –> eğer belirtilen değer var ise sııra numarasını yoksa -1 döndürür.-1 ise yok demektir.
    şartlarda diyor ki -1 yani yok ise comboya ekle.Bu şekilde aynı eleman iki defa eklenmemiş oluyor.

  • kitap teslim al’ da problem var düzeltemiyorum form7’de tamam a tıklatınca işlem yapmıyor.

  • hatayı yazarsan yardımcı oluruz.

  • MERHABA BEN 15 GUN ICIN KOD YAZMISTIN YA ONDA İŞLEM YAPMIYOR YANI 15 GÜN SONRA BANA HABER WERMIYOR BENIM ISTEDIGIM 15 GI-UN DOLDUGU GUN YANI BU AYIN 15 INDE ALDIYSAM AYIN 30 UNDA BANA BILGI VERICEK SU KULLANICI KITAPI ALALI 15 GUN OLMUSTUR DIE BIRDE KULLANICI KITABI GETIRMEDIGI GUN ICIN 50 KRŞ CEZA ODUCEK BUNUDA BILDIRIRSE COK IYI OLUR TEKRAR YARDIMCI OLURSAN COK SEWINIRIM SIMDIDEN TESEKKURLER:

  • bu programın yaptım ama,kullanıcı bunu kullanması için bilgisyra yüklemesi gerekiyor,setupunu nasıl yapıcam..yardımcıolurmusunuz?

  • bu kodların ne işe yaradıklarını yazarmısınız?

    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

  • Aşağıdaki linki incele :
    http://www.gorselprogramlama.com/setup-olusturma-resimli-anlatim-c-netcnet

  • Veri tabanı kayıt işlemleri.Biraz incelersen anlarsın.

  • MERHABA BEN 15 GUN ICIN KOD YAZMISTIN YA ONDA İŞLEM YAPMIYOR YANI 15 GÜN SONRA BANA HABER WERMIYOR BENIM ISTEDIGIM 15 GI-UN DOLDUGU GUN YANI BU AYIN 15 INDE ALDIYSAM AYIN 30 UNDA BANA BILGI VERICEK SU KULLANICI KITAPI ALALI 15 GUN OLMUSTUR DIE BIRDE KULLANICI KITABI GETIRMEDIGI GUN ICIN 50 KRŞ CEZA ODUCEK BUNUDA BILDIRIRSE COK IYI OLUR TEKRAR YARDIMCI OLURSAN COK SEWINIRIM SIMDIDEN TESEKKURLER:uğrastım ben ama yapamadın tekrar yardımcı olurmusun lutfenn

  • proje isteklerinizi gorselprogram@gmail.com adresine mail atınız.

  • sa hocam sizde elinizde müşteri takip proğramı varmı ama v.b.net le olacak bana cevap dönerseniz çok memnun olurum bilkde kullanıcı adı ve şifre kodları varsa sizden haber bekliyorum.

  • a.s.yok.olanlar yayınlananlar.

  • ya banada inşaat malzemesi satışı yapan prgrm lazm burda hepsi var bi bnmki yok yardmcı olabileniz varsa sevinirim bi kaç gün içinde lazım acilllll:(

  • proje isteklerinizi gorselprogram@gmail.com adresine mail atınızz.

  • programda okuyucu kayıtta bulunan sınf no özelliğini kaldırıp, kitap kayıtta stok sayısını kaldrıp ve programa guncellme ozelliği koyarmısınız

  • proje isteklerinizi gorselprogram@gmail.com adresine mail atınızzz.

  • dataview de bulunan bilgilerin nasıl önizlemesini ve yazdırma işlemini yapabiliriz yardımcı olurmusunuz ?

  • crystal reports eklemen lazım.

  • yaptığımız programları nasıl web ortamına aktarabiliriz. örneğin bu programı nasıl web ortamında html olarak görüntüleyebiliriz.

  • Yukarıdaki proje windows application. Eğer site olsun istiyorsan Web site olarak oluşturman lazım.Tabiki bu durumda bazı komutlar farklılıklar gösteriyo.Ama aynı bölümleri baya fazla.Yukarıdaki projeyi web site olarak uyarlayabilirsin.

  • tamam nasıl web site olarak yapıcam nerden oluşturacam

  • o öyle bir cümle ile yapılacak iş değil.Asp net öğrenmen lazım.

  • tamam anladım teşekkürler 🙂

  • ben bu kütüphane takip programını kendi istediğim şekile göre değiştirdim. fakat kayıt ekledikden sonra arama işlemi çalışmıyor bunun nedeni ne olabilir? yardımcı olursanız sevinirim.şimdiden Teşekkürler

  • projeyi gönder bakalım. gorselprogram@gmail.com

  • gönderdim. teşekkür ederim ilgilendiğiniz için.

  • Private Sub btnKitapkayit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKitapkayit.Click
    adtr.SelectCommand.CommandText = (” Select * From kitapbil” & ” where(KitapAdi like ‘%”) + txtKitapadiAra.Text & “%’ )”

    BunLarda hep hata veriyor..
    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()
    burdaki no ad kitap ad barkod no hata veriyor

  • barkodno yu tanımlayı unutmuşsundur.

  • bu program vb kaçta yapıldı

  • vs 2008

  • adodc no recordsource specified ado komut metni komut nesnesi için ayarlanmadı hatasıı veriyor buu neee off :(((

  • Form1.dataGridView2.Columns.Remove(“DogumTarihi”)

    satırda sütun bulunamıyor hatası veriyor

  • dataGridView’de öyle bir kolon olmadığı için bu hatayı veriyor.O satırı sil.Düzelir.

  • herşey çok güzel, bir sorum olacaktı. bu program istediğimiz bi yerde yapılan kayıtların toplamını gösteremezmiyiz. yani şu anda bilmem şu kadar okuyucunuz, bilmem ne kadar kitabınız vardır gibi bi yazı.

    açıkcası kayıt sayılarını nasıl bi kodla gösterebiliriz ?

  • sql Count komutunu kullanarak yapabilirsin.

  • Sitemizin Google’da Ön Sıralarda Çıkması İçin Lütfen Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.

  • Ellerinize sağlık çok güzel anlatmışsınız kendi adıma teşekkür ederim paylaşımınız için. Ben Access veri tabanı ile bağlantı yapacağım sanırım bağlantı kodları da dahil ancak veri tabanını da paylaşabilir misiniz?

  • Projeyi indirdim ancak sln dosyasını bulamadığı için açılmıyor ne yapacağım acele yardıma ihtiyacım var

  • merhaba ben basit bir kütüphane programı yapmak istiyorum örnek olarak basit bir program elinizde varsa mail atarsanız çok sevinirim.

  • şahin :
    Aşağıdaki linkleri incele
    http://www.gorselprogramlama.com/kutuphane-takip-programi-vbnet/
    http://www.gorselprogramlama.com/kutuphane-takip-programi-vbnet-2/

  • Kardeş program çok güzel olmuş eline sağlık. Fakat bende programı açıyorum “bag.open” da hata veriyor sebebini açıklarmısınız.Yada ne yapmam gerekli

  • yahya: hatayı yazarsan yardımcı oluruz.

  • PROGRAMI İNDİRDİM. ” bag.Open() ” HATA VERİYOR BAĞLANTIDA SORUN VAR AMA BEN DÜZELTEMİYORUM YARDIMCI OLURSANIZ SEVİNİRİM.

  • Ümit :
    access versiyon sorunu olabilir.Eğer Access 2007 ,2010 veya 2013 kullanıyorsan access 2003 kurmalısın veya kodlarda jet yerine ace , 4.0 yerine 12.0 ve veri tabanı ismi data.accdb olmalı.Tabi veri tabanına 2007 veya 2010 veya 201′te açıp 2007 ,2010 veya 2013 olarak kaydetmelisin.Veri tabanı bin–>debug klasöründe.

  • teşekkür ederim söylediklerinizi deniycem inşallah düzelir.

  • iyi günler diliyorum benim sorunum bag.open() sorunu veriyor ve Add Referenceda data.dll dosyası görünmüyor yardımcı olurmusunuz

  • burak:
    access versiyon sorunu olabilir.Eğer Access 2007 ,2010 veya 2013 kullanıyorsan access 2003 kurmalısın veya kodlarda jet yerine ace , 4.0 yerine 12.0 ve veri tabanı ismi data.accdb olmalı.Tabi veri tabanına 2007 veya 2010 veya 201′te açıp 2007 ,2010 veya 2013 olarak kaydetmelisin.Veri tabanı bin–>debug klasöründe.

  • kütüphane otomasyonu yapıyorum ama emanet işini nasıl yapacağımı bilmiyorum yardım edermisiniz lütfen

  • zilan :
    Emanet işleminin kodları projede var.Projeyi indirip kodlarına bakabilirsin.

  • bu baglantı sorunu çözülmüş hali varsa ekleyebilir misiniz. dediğiniz işlemleri yaptıgım halde çözülmedi….

← Eski Yorumlar
Yeni Yorumlar →

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

➤