Gorsel Programlama | Görsel Programlama | C#.Net | VB.Net | C# Console

ana sayfa > Görsel Programlama, VB.NET > Kütüphane Takip Programı ( Kapsamlı ) VB.Net

Kütüphane Takip Programı ( Kapsamlı ) VB.Net
Salı, 07 Eyl 2010 yorum ekle yorumlara git

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…


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

FORM2 İçerisine Yazılacak Kodlar…


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

FORM3 İçerisine Yazılacak Kodlar…


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


FORM4 İçerisine Yazılacak Kodlar…

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

FORM5 İçerisine Yazılacak Kodlar…


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

FORM6 İçerisine Yazılacak Kodlar…

 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

FORM7 İçerisine Yazılacak Kodlar…

 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

 

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

Projeyi İNDİR








Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.
Paylaş :
Categories: Görsel Programlama, VB.NET Tags: , , , , , , , , ,



Böyle bir web sayfam olsun diyorsanız iletişim bölümünden veya gorselprogram@gmail.com mail adresinden bize ulaşabilirsiniz.


  1. admin
    Pazartesi, 18 Nis 2011 zamanında 18:19 | #1
    yanıtla | alıntı

    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.

  2. delimavi
    Pazartesi, 18 Nis 2011 zamanında 23:13 | #2
    yanıtla | alıntı

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

  3. admin
    Pazartesi, 18 Nis 2011 zamanında 23:43 | #3
    yanıtla | alıntı

    hatayı yazarsan yardımcı oluruz.

  4. YALÇIN
    Salı, 19 Nis 2011 zamanında 14:03 | #4
    yanıtla | alıntı

    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:

  5. derya
    Çarşamba, 20 Nis 2011 zamanında 17:03 | #5
    yanıtla | alıntı

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

  6. ozan
    Çarşamba, 20 Nis 2011 zamanında 17:19 | #6
    yanıtla | alıntı

    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

  7. admin
    Çarşamba, 20 Nis 2011 zamanında 17:22 | #7
    yanıtla | alıntı
  8. admin
    Çarşamba, 20 Nis 2011 zamanında 17:23 | #8
    yanıtla | alıntı

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

  9. YALÇIN
    Salı, 26 Nis 2011 zamanında 13:04 | #9
    yanıtla | alıntı

    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

  10. admin
    Salı, 26 Nis 2011 zamanında 22:51 | #10
    yanıtla | alıntı

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

  11. muhammetşenel
    Cuma, 29 Nis 2011 zamanında 21:43 | #11
    yanıtla | alıntı

    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.

  12. admin
    Cuma, 29 Nis 2011 zamanında 21:46 | #12
    yanıtla | alıntı

    a.s.yok.olanlar yayınlananlar.

  13. ela
    Cuma, 29 Nis 2011 zamanında 23:43 | #13
    yanıtla | alıntı

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

  14. admin
    Cumartesi, 30 Nis 2011 zamanında 13:12 | #14
    yanıtla | alıntı

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

  15. kazım
    Cuma, 06 May 2011 zamanında 10:11 | #15
    yanıtla | alıntı

    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

  16. admin
    Cuma, 06 May 2011 zamanında 10:12 | #16
    yanıtla | alıntı

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

  17. Yusuf
    Perşembe, 12 May 2011 zamanında 15:01 | #17
    yanıtla | alıntı

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

  18. admin
    Perşembe, 12 May 2011 zamanında 15:07 | #18
    yanıtla | alıntı

    crystal reports eklemen lazım.

  19. Ahmet
    Cuma, 13 May 2011 zamanında 14:57 | #19
    yanıtla | alıntı

    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.

  20. admin
    Cuma, 13 May 2011 zamanında 16:15 | #20
    yanıtla | alıntı

    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.

  21. Ahmet
    Cuma, 13 May 2011 zamanında 16:54 | #21
    yanıtla | alıntı

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

  22. admin
    Cuma, 13 May 2011 zamanında 21:27 | #22
    yanıtla | alıntı

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

  23. Ahmet
    Cumartesi, 14 May 2011 zamanında 11:55 | #23
    yanıtla | alıntı

    tamam anladım teşekkürler :)

  24. erhan
    Pazar, 15 May 2011 zamanında 13:55 | #24
    yanıtla | alıntı

    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

  25. admin
    Pazar, 15 May 2011 zamanında 14:14 | #25
    yanıtla | alıntı

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

  26. erhan
    Pazartesi, 16 May 2011 zamanında 11:18 | #26
    yanıtla | alıntı

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

  27. BerKe
    Pazar, 22 May 2011 zamanında 16:14 | #27
    yanıtla | alıntı

    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

  28. admin
    Pazar, 22 May 2011 zamanında 17:20 | #28
    yanıtla | alıntı

    barkodno yu tanımlayı unutmuşsundur.

  29. bayram
    Pazartesi, 24 Eki 2011 zamanında 16:26 | #29
    yanıtla | alıntı

    bu program vb kaçta yapıldı

  30. admin
    Pazartesi, 24 Eki 2011 zamanında 21:24 | #30
    yanıtla | alıntı

    vs 2008

  31. Turan
    Çarşamba, 28 Ara 2011 zamanında 18:19 | #31
    yanıtla | alıntı

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

  32. okan
    Pazartesi, 23 Oca 2012 zamanında 17:00 | #32
    yanıtla | alıntı

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

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

  33. admin
    Salı, 24 Oca 2012 zamanında 18:50 | #33
    yanıtla | alıntı

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

  34. okan
    Pazartesi, 06 Şub 2012 zamanında 16:09 | #34
    yanıtla | alıntı

    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 ?

  35. admin
    Çarşamba, 08 Şub 2012 zamanında 16:27 | #35
    yanıtla | alıntı

    sql Count komutunu kullanarak yapabilirsin.

yorum sayfaları
1 2 6068
  1. şimdilik geri bağlantı yok