'1.kısım girdiğiniz bilgi ve icerikleri kaydettiğiniz kısım
Sub cmbyukle()
Combo1.AddItem "KITAP"
Combo1.AddItem "SURELI YAYIN"
Combo1.AddItem "BROSUR"
Combo1.AddItem "MAKALE"
End Sub
Sub temizle()
Text2.Text = ""
Text3.Text = ""
Text5.Text = ""
MaskEdBox1.Text = "__.__.____"
Text6.Text = ""
Text7.Text = ""
Combo1.Clear
End Sub
Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii 8 Then
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End If
End Sub
Private Sub Command1_Click()
Dim isbnno As Integer
On Error GoTo hata
Dim enbyk As Integer
If Text2.Text "" Then
If Text3.Text "" Then
say = InStr(MaskEdBox1.Text, "_")
If say = 0 Then
If Text5.Text "" Then
If Text6.Text "" Then
If Combo1.Text "" Then
If Text7.Text "" Then
Call vtbaglan
Call tablo_ac("select * from kitaplik")
enbyk = alan!kitapno
alan.MoveNext
Do While Not alan.EOF
If enbyk < alan!kitapno Then enbyk = alan!kitapno
alan.MoveNext
Loop
vt.Close
Call vtbaglan
Call tablo_ac("select * from kitaplik")
alan.AddNew
alan!kitapno = enbyk + 1
alan!kitapadi = Text2.Text
alan!yazaradi = Text3.Text
alan!basimtarihi = MaskEdBox1.Text
alan!isbnno = Text5.Text
alan!basimevi = Text6.Text
alan!tur = Combo1.Text
alan!icerik = Text7.Text
alan.Update
vt.Close
MsgBox "kayit eklendi. kitap no = " & enbyk + 1
temizle
cmbyukle
Else
MsgBox "icerik alanini doldurun"
End If
Else
MsgBox "tur alanini doldurun"
End If
Else
MsgBox "basim evi alanini doldurun"
End If
Else
MsgBox "isbn no alanini doldurun"
End If
Else
MsgBox "tarih alanini tam olarak doldurun"
End If
Else
MsgBox "yazar alanini doldurun"
End If
Else
MsgBox "kitap adi alanini doldurun"
End If
Exit Sub
hata:
If Err.Number = 3021 Then
enbyk = 1
Call vtbaglan
Call tablo_ac("select * from kitaplik")
alan.AddNew
alan!kitapno = enbyk
alan!kitapadi = Text2.Text
alan!yazaradi = Text3.Text
alan!basimtarihi = MaskEdBox1.Text
alan!isbnno = Text5.Text
alan!basimevi = Text6.Text
alan!tur = Combo1.Text
alan!icerik = Text7.Text
alan.Update
vt.Close
MsgBox "kayit eklendi. kitap numarasi= " & enbyk
Else
Text5.Text = ""
End If
If Err.Number = 3421 Then
MsgBox "isbn nosunu harf olarak girdiniz.tekrar deneyin."
End If
End Sub
Private Sub Command2_Click()
Form1.Show
Unload Form2
End Sub
Private Sub Form_Load()
cmbyukle
End Sub
'2. kısım farklı alanlarda arama yapmak icin
Dim veri As String
Sub temizle()
Text1.Text = ""
End Sub
Sub baslik()
MSFlexGrid1.TextMatrix(0, 0) = "kitap no"
MSFlexGrid1.TextMatrix(0, 1) = "kitap adi"
MSFlexGrid1.TextMatrix(0, 2) = "yazar adi"
MSFlexGrid1.TextMatrix(0, 3) = "basim tarihi"
MSFlexGrid1.TextMatrix(0, 4) = "isbn no"
MSFlexGrid1.TextMatrix(0, 5) = "basim evi"
MSFlexGrid1.TextMatrix(0, 6) = "tur"
MSFlexGrid1.TextMatrix(0, 7) = "icerik"
End Sub
Sub cmyukle(veri)
If Option1.Value = True Then
tablo1 ("select * from kitaplik where yazaradi like '" & veri & "%' ")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not tb.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = tb!kitapno
MSFlexGrid1.TextMatrix(i, 1) = tb!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = tb!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = tb!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = tb!isbnno
MSFlexGrid1.TextMatrix(i, 5) = tb!basimevi
MSFlexGrid1.TextMatrix(i, 6) = tb!tur
MSFlexGrid1.TextMatrix(i, 7) = tb!icerik
tb.MoveNext
Loop
vrt.Close
End If
If Option2.Value = True Then
tablo1 ("select * from kitaplik where kitapno like '" & veri & "%' ")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not tb.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = tb!kitapno
MSFlexGrid1.TextMatrix(i, 1) = tb!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = tb!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = tb!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = tb!isbnno
MSFlexGrid1.TextMatrix(i, 5) = tb!basimevi
MSFlexGrid1.TextMatrix(i, 6) = tb!tur
MSFlexGrid1.TextMatrix(i, 7) = tb!icerik
tb.MoveNext
Loop
vrt.Close
End If
If Option3.Value = True Then
tablo1 ("select * from kitaplik where isbnno like '" & veri & "%' ")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not tb.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = tb!kitapno
MSFlexGrid1.TextMatrix(i, 1) = tb!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = tb!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = tb!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = tb!isbnno
MSFlexGrid1.TextMatrix(i, 5) = tb!basimevi
MSFlexGrid1.TextMatrix(i, 6) = tb!tur
MSFlexGrid1.TextMatrix(i, 7) = tb!icerik
tb.MoveNext
Loop
vrt.Close
End If
If Option4.Value = True Then
tablo1 ("select * from kitaplik where kitapadi like '" & veri & "%' ")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not tb.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = tb!kitapno
MSFlexGrid1.TextMatrix(i, 1) = tb!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = tb!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = tb!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = tb!isbnno
MSFlexGrid1.TextMatrix(i, 5) = tb!basimevi
MSFlexGrid1.TextMatrix(i, 6) = tb!tur
MSFlexGrid1.TextMatrix(i, 7) = tb!icerik
tb.MoveNext
Loop
vrt.Close
End If
If Option5.Value = True Then
tablo1 ("select * from kitaplik where tur like '" & veri & "%' ")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not tb.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = tb!kitapno
MSFlexGrid1.TextMatrix(i, 1) = tb!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = tb!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = tb!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = tb!isbnno
MSFlexGrid1.TextMatrix(i, 5) = tb!basimevi
MSFlexGrid1.TextMatrix(i, 6) = tb!tur
MSFlexGrid1.TextMatrix(i, 7) = tb!icerik
tb.MoveNext
Loop
vrt.Close
End If
If Option6.Value = True Then
tablo1 ("select * from kitaplik where (icerik like '" & veri & "%') or (icerik like '%," & veri & "%')")
'tablo1 ("select * from kitaplik where (icerik like '" & veri & "%') or (icerik like '%" & veri & "%') or (icerik like '%" & veri & "'")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not tb.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = tb!kitapno
MSFlexGrid1.TextMatrix(i, 1) = tb!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = tb!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = tb!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = tb!isbnno
MSFlexGrid1.TextMatrix(i, 5) = tb!basimevi
MSFlexGrid1.TextMatrix(i, 6) = tb!tur
MSFlexGrid1.TextMatrix(i, 7) = tb!icerik
tb.MoveNext
Loop
vrt.Close
End If
If Option7.Value = True Then
tablo1 ("select * from kitaplik where (yazaradi like '" & veri & "%') or (kitapadi like '" & veri & "%') or (isbnno like '" & veri & "%') or (tur like '" & veri & "%') or (icerik like '" & veri & "%') or (kitapno like '" & veri & "%')")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not tb.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = tb!kitapno
MSFlexGrid1.TextMatrix(i, 1) = tb!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = tb!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = tb!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = tb!isbnno
MSFlexGrid1.TextMatrix(i, 5) = tb!basimevi
MSFlexGrid1.TextMatrix(i, 6) = tb!tur
MSFlexGrid1.TextMatrix(i, 7) = tb!icerik
tb.MoveNext
Loop
vrt.Close
End If
End Sub
Private Sub Command2_Click()
Call vtbaglan
Call tablo_ac("select * from kitaplik")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not alan.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = alan!kitapno
MSFlexGrid1.TextMatrix(i, 1) = alan!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = alan!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = alan!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = alan!isbnno
MSFlexGrid1.TextMatrix(i, 5) = alan!basimevi
MSFlexGrid1.TextMatrix(i, 6) = alan!tur
MSFlexGrid1.TextMatrix(i, 7) = alan!icerik
alan.MoveNext
Loop
vt.Close
End Sub
Private Sub Command3_Click()
Form1.Show
Unload Form3
End Sub
Private Sub Text1_Change()
cmyukle (Text1.Text)
End Sub
'3.kısım durumu yonetmek icin kitaplıkda olan kitapları bulmak olmayanları bulmak icin
Dim yer As Boolean
Dim satir As String
Dim kisi As String
Private Sub Combo1_Click()
If Combo1.Text = "buradakiler" Then
yer = True
Else
yer = False
End If
yukle (yer)
End Sub
Sub yukle(xx)
Call vtbaglan
Call tablo_ac("select * from kitaplik where durum=" & xx)
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not alan.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = alan!kitapno
MSFlexGrid1.TextMatrix(i, 1) = alan!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = alan!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = alan!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = alan!isbnno
MSFlexGrid1.TextMatrix(i, 5) = alan!basimevi
MSFlexGrid1.TextMatrix(i, 6) = alan!tur
MSFlexGrid1.TextMatrix(i, 7) = alan!icerik
MSFlexGrid1.TextMatrix(i, 8) = alan!durum
If yer = True Then
MSFlexGrid1.TextMatrix(i, 8) = "var"
Else
MSFlexGrid1.TextMatrix(i, 8) = "yok"
End If
alan.MoveNext
Loop
vt.Close
End Sub
Sub baslik()
MSFlexGrid1.TextMatrix(0, 0) = "kitap no"
MSFlexGrid1.TextMatrix(0, 1) = "kitap adi"
MSFlexGrid1.TextMatrix(0, 2) = "yazar adi"
MSFlexGrid1.TextMatrix(0, 3) = "basim tarihi"
MSFlexGrid1.TextMatrix(0, 4) = "isbn no"
MSFlexGrid1.TextMatrix(0, 5) = "basim evi"
MSFlexGrid1.TextMatrix(0, 6) = "tur"
MSFlexGrid1.TextMatrix(0, 7) = "icerik"
MSFlexGrid1.TextMatrix(0, 8) = "durum"
End Sub
Sub forumyukle()
Call vtbaglan
Call tablo_ac("select * from kitaplik")
i = 0
MSFlexGrid1.Rows = 1
baslik
Do While Not alan.EOF
i = i + 1
MSFlexGrid1.AddItem ""
MSFlexGrid1.TextMatrix(i, 0) = alan!kitapno
MSFlexGrid1.TextMatrix(i, 1) = alan!kitapadi
MSFlexGrid1.TextMatrix(i, 2) = alan!yazaradi
MSFlexGrid1.TextMatrix(i, 3) = alan!basimtarihi
MSFlexGrid1.TextMatrix(i, 4) = alan!isbnno
MSFlexGrid1.TextMatrix(i, 5) = alan!basimevi
MSFlexGrid1.TextMatrix(i, 6) = alan!tur
MSFlexGrid1.TextMatrix(i, 7) = alan!icerik
MSFlexGrid1.TextMatrix(i, 8) = alan!durum
If alan!durum = True Then
MSFlexGrid1.TextMatrix(i, 8) = "var"
Else
MSFlexGrid1.TextMatrix(i, 8) = "yok"
End If
alan.MoveNext
Loop
vt.Close
End Sub
Private Sub Command1_Click()
Call vtbaglan
Call tablo_ac("select * from kitaplik where kitapno='" & satir & "'")
alan.Edit
If Check1.Value = 1 Then
alan!durum = 1
ElseIf Check1.Value = 0 Then
alan!durum = 0
End If
alan.Update
vt.Close
forumyukle
End Sub
Private Sub Command2_Click()
Form4.Hide
End Sub
Private Sub Form_Load()
forumyukle
End Sub
Private Sub MSFlexGrid1_Click()
satir = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0)
Command1.Enabled = True
End Sub
BU ARADA BANA YARDIMCI OLAN suleymandoner ' E TEŞEKKURLER.
__________________