PHP Code:
Public Class KullanıcıGirisi
Dim a As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Admin" And TextBox2.Text = "Admin" Then
Giris.Show()
Else
MsgBox("Kullanıcı Adı Veya Şifre Yanlış")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
a = MsgBox("Cıkmak İstiyor Musunuz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If a = 6 Then
Me.Close()
Else
End If
End Sub
End Class
[IMG]http://img97.**************/img97/1581/2giri.th.png[/IMG]
PHP Code:
Public Class Giris
Dim x, y, xx As Integer
Private Sub Giris_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
KullanıcıGirisi.Visible = False
xx = 10
Timer1.Enabled = True
Label1.Location = New Point(x = -500, y = 85)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
x = Label1.Location.X
y = Label1.Location.Y
Label1.Location = New Point(x + xx, y)
If Label1.Location.X >= 500 Then
Label1.Location = New Point(x = -500, y = 85)
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
KutuphaneProgrami.Show()
End Sub
End Class
[IMG]http://img840.**************/img840/2540/3ktphaneprogram.png[/IMG]
Uploaded with **************
PHP Code:
Public Class KutuphaneProgrami
Dim a As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Uyeler.Show()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
a = MsgBox("Cıkmak İstiyor Musunuz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If a = 6 Then
End
Else
End If
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
İnternet.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Kitaplar.Show()
End Sub
Private Sub KutuphaneProgrami_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Giris.Visible = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
okuyucular.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
muzik.Show()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
End Class
[IMG]http://img685.**************/img685/2374/yegirii.png[/IMG]
Uploaded with **************
PHP Code:
Public Class Uyeler
Dim kisisayisi, a As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
YeniuyeEkleme.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
a = MsgBox("Cıkmak İstiyor Musunuz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If a = 6 Then
Me.Close()
Else
End If
End Sub
Private Sub Uyeler_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KutuphaneDataSet.YeniuyeEkleme' table. You can move, or remove it, as needed.
Me.YeniuyeEklemeTableAdapter.Fill(Me.KutuphaneData Set.YeniuyeEkleme)
'TODO: This line of code loads data into the 'KutuphaneDataSet.YeniuyeEkleme' table. You can move, or remove it, as needed.
Me.YeniuyeEklemeTableAdapter.Fill(Me.KutuphaneData Set.YeniuyeEkleme)
kisisayisi = YeniuyeEklemeBindingSource.Count
End Sub
Private Sub YeniuyeEklemeBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.YeniuyeEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub YeniuyeEklemeBindingNavigatorSaveItem_Click_1(ByVa l sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.YeniuyeEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
kisisayisi = YeniuyeEklemeBindingSource.Count
YeniuyeEklemeBindingSource.MoveFirst()
For i = 0 To kisisayisi
If TextBox1.Enabled = False Then
If Trim(UCase(TextBox2.Text)) = UCase(Trim(Tc_Kimlik_No__TextBox.Text)) Then
Tc_Kimlik_No__TextBox.Text = TextBox2.Text
TextBox3.Text = Uye_Adi__TextBox.Text & " " & Uye_Soyadi__TextBox.Text & " " & Kisi_Ogrenci_No__TextBox.Text & " " & SinifiTextBox.Text & " " & Tc_Kimlik_No__TextBox.Text & " " & Telefonu__TextBox.Text & " " & E_Posta_AdresiTextBox.Text & " " & AdresTextBox.Text & " " & SehirTextBox.Text
End If
End If
If TextBox2.Enabled = False Then
If Trim(UCase(TextBox1.Text)) = UCase(Trim(Uye_Adi__TextBox.Text)) Then
Tc_Kimlik_No__TextBox.Text = TextBox2.Text
TextBox3.Text = Uye_Adi__TextBox.Text & " " & Uye_Soyadi__TextBox.Text & " " & Kisi_Ogrenci_No__TextBox.Text & " " & SinifiTextBox.Text & " " & Tc_Kimlik_No__TextBox.Text & " " & Telefonu__TextBox.Text & " " & E_Posta_AdresiTextBox.Text & " " & AdresTextBox.Text & " " & SehirTextBox.Text
End If
End If
Next
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text "" Then
TextBox2.Enabled = False
Else
TextBox2.Enabled = True
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text "" Then
TextBox1.Enabled = False
Else
TextBox1.Enabled = True
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
YeniuyeEkleme.Text = "Uye Duzenleme"
YeniuyeEkleme.Show()
YeniuyeEkleme.Button3.Visible = False
YeniuyeEkleme.Label1.Visible = True
YeniuyeEkleme.TextBox1.Visible = True
YeniuyeEkleme.Button4.Visible = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
YeniuyeEkleme.Show()
YeniuyeEkleme.Button3.Visible = False
End Sub
End Class
[IMG]http://img97.**************/img97/3391/yeniyeekleme.png[/IMG]
Uploaded with **************
PHP Code:
Public Class YeniuyeEkleme
Dim sayac As Integer
Private Sub YeniuyeEklemeBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles YeniuyeEklemeBindingNavigatorSaveItem.Click
Me.Validate()
Me.YeniuyeEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub YeniuyeEkleme_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KutuphaneDataSet.YeniuyeEkleme' table. You can move, or remove it, as needed.
Me.YeniuyeEklemeTableAdapter.Fill(Me.KutuphaneData Set.YeniuyeEkleme)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Validate()
Me.YeniuyeEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
YeniuyeEklemeBindingSource.CancelEdit()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
sayac = YeniuyeEklemeBindingSource.Count
YeniuyeEklemeBindingSource.MoveFirst()
For i = 0 To sayac
If Trim(UCase(TextBox1.Text)) = Trim(UCase(Uye_Adi__TextBox.Text)) Then
Uye_Adi__TextBox.Text = TextBox1.Text
Else
YeniuyeEklemeBindingSource.MoveNext()
End If
Next
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
YeniuyeEklemeBindingSource.AddNew()
End Sub
Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim sil As Integer
sil = MsgBox("Bu İşlem Geri Alınamaz Silmek İstiyor Musunuz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If sil = 6 Then
YeniuyeEklemeBindingSource.RemoveCurrent()
YeniuyeEklemeTableAdapter.Update(KutuphaneDataSet. YeniuyeEkleme)
Else
End If
End Sub
End Class
[IMG]http://img819.**************/img819/5016/kitaplar.png[/IMG]
Uploaded with **************
PHP Code:
Public Class Kitaplar
Dim kisisayisi As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
YeniKitapEkleme.Show()
YeniKitapEkleme.Text = "Yeni Kitap Ekleme"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text "" Then
TextBox2.Enabled = False
Else
TextBox2.Enabled = True
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text "" Then
TextBox1.Enabled = False
Else
TextBox1.Enabled = True
End If
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click(By Val sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Kitaplar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KutuphaneDataSet.Yeni_Kitap_Ekleme' table. You can move, or remove it, as needed.
Me.Yeni_Kitap_EklemeTableAdapter.Fill(Me.Kutuphane DataSet.Yeni_Kitap_Ekleme)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
kisisayisi = Yeni_Kitap_EklemeBindingSource.Count
Yeni_Kitap_EklemeBindingSource.MoveFirst()
For i = 0 To kisisayisi
If TextBox1.Enabled = False Then
If Trim(UCase(TextBox2.Text)) = Trim(UCase(Kitap_Adi__TextBox.Text)) Then
Kitap_Adi__TextBox.Text = TextBox2.Text
TextBox3.Text = Barkod_No__TextBox.Text & " - " & Kitap_Adi__TextBox.Text & " - " & Demirbas_No__TextBox.Text & " - " & Dolap_Adi_TextBox.Text & " - " & Yayin_Evi__TextBox.Text & " - " & Yazar_1_TextBox.Text & " - " & Yazar_2_TextBox.Text & " - " & Yazar_3_TextBox.Text & " - " & Stok_SayisiTextBox.Text & " - " & KategorisiTextBox.Text & " - " & Basım_TarihiTextBox.Text & " - " & Sayfa_SayısıTextBox.Text & " - " & Cilt_NoTextBox.Text & " - " & BaskısıTextBox.Text & " - " & ISBN_NumarasıTextBox.Text & " - " & FiyatıTextBox.Text & " - Tl - " & Anahtar_SozcukTextBox.Text
Else
Yeni_Kitap_EklemeBindingSource.MoveNext()
End If
End If
If TextBox2.Enabled = False Then
If Trim(UCase(TextBox1.Text)) = Trim(UCase(Barkod_No__TextBox.Text)) Then
Kitap_Adi__TextBox.Text = TextBox2.Text
TextBox3.Text = Barkod_No__TextBox.Text & " - " & Kitap_Adi__TextBox.Text & " - " & Demirbas_No__TextBox.Text & " - " & Dolap_Adi_TextBox.Text & " - " & Yayin_Evi__TextBox.Text & " - " & Yazar_1_TextBox.Text & " - " & Yazar_2_TextBox.Text & " - " & Yazar_3_TextBox.Text & " - " & Stok_SayisiTextBox.Text & " - " & KategorisiTextBox.Text & " - " & Basım_TarihiTextBox.Text & " - " & Sayfa_SayısıTextBox.Text & " - " & Cilt_NoTextBox.Text & " - " & BaskısıTextBox.Text & " - " & ISBN_NumarasıTextBox.Text & " - " & FiyatıTextBox.Text & " - Tl - " & Anahtar_SozcukTextBox.Text
Else
Yeni_Kitap_EklemeBindingSource.MoveNext()
End If
End If
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
YeniKitapEkleme.Show()
YeniKitapEkleme.Button4.Visible = True
YeniKitapEkleme.Label1.Visible = True
YeniKitapEkleme.TextBox1.Visible = True
YeniKitapEkleme.Yeni_Kitap_EklemeBindingNavigator. Visible = False
YeniKitapEkleme.Button2.Visible = False
YeniKitapEkleme.Button3.Visible = False
YeniKitapEkleme.Text = "Duzenleme"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
YeniKitapEkleme.Button3.Visible = False
YeniKitapEkleme.Label1.Text = "Silmek İstediğiniz Kitabı Arayınız"
YeniKitapEkleme.Show()
End Sub
End Class
[IMG]http://img593.**************/img593/1771/yenikitapekleme.png[/IMG]
Uploaded with **************
PHP Code:
Public Class YeniKitapEkleme
Dim sayac As Integer
Dim ad As String
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click(By Val sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub FillByToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Me.Yeni_Kitap_EklemeTableAdapter.FillBy(Me.Kutupha neDataSet.Yeni_Kitap_Ekleme)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub YeniKitapEkleme_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KutuphaneDataSet.Yeni_Kitap_Ekleme' table. You can move, or remove it, as needed.
Me.Yeni_Kitap_EklemeTableAdapter.Fill(Me.Kutuphane DataSet.Yeni_Kitap_Ekleme)
'TODO: This line of code loads data into the 'KutuphaneDataSet.Yeni_Kitap_Ekleme' table. You can move, or remove it, as needed.
Me.Yeni_Kitap_EklemeTableAdapter.Fill(Me.Kutuphane DataSet.Yeni_Kitap_Ekleme)
'TODO: This line of code loads data into the 'KutuphaneDataSet.Yeni_Kitap_Ekleme' table. You can move, or remove it, as needed.
Me.Yeni_Kitap_EklemeTableAdapter.Fill(Me.Kutuphane DataSet.Yeni_Kitap_Ekleme)
'TODO: This line of code loads data into the 'KutuphaneDataSet.Yeni_Kitap_Ekleme' table. You can move, or remove it, as needed.
Me.Yeni_Kitap_EklemeTableAdapter.Fill(Me.Kutuphane DataSet.Yeni_Kitap_Ekleme)
'TODO: This line of code loads data into the 'KutuphaneDataSet.Yeni_Kitap_Ekleme' table. You can move, or remove it, as needed.
Me.Yeni_Kitap_EklemeTableAdapter.Fill(Me.Kutuphane DataSet.Yeni_Kitap_Ekleme)
'TODO: This line of code loads data into the 'KutuphaneDataSet.Yeni_Kitap_Ekleme' table. You can move, or remove it, as needed.
Me.Yeni_Kitap_EklemeTableAdapter.Fill(Me.Kutuphane DataSet.Yeni_Kitap_Ekleme)
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click_2( ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click_3( ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click_4( ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click_5( ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Yeni_Kitap_EklemeBindingNavigatorSaveItem_Click_6( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Yeni_Kitap_EklemeBindingNavigatorSaveItem.Click
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
KategorisiTextBox.Text = ComboBox1.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
sayac = Yeni_Kitap_EklemeBindingSource.Count
Yeni_Kitap_EklemeBindingSource.MoveFirst()
For i = 0 To sayac
If Trim(UCase(TextBox1.Text)) = Trim(UCase(Kitap_Adi__TextBox.Text)) Then
Kitap_Adi__TextBox.Text = TextBox1.Text
Else
Yeni_Kitap_EklemeBindingSource.MoveNext()
End If
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Yeni_Kitap_EklemeBindingSource.AddNew()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Validate()
Me.Yeni_Kitap_EklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Yeni_Kitap_EklemeBindingSource.CancelEdit()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim sil As Integer
sil = MsgBox("Bu İşlem Geri Alınamaz Silmek İstiyor Musunuz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If sil = 6 Then
Yeni_Kitap_EklemeBindingSource.RemoveCurrent()
Yeni_Kitap_EklemeTableAdapter.Update(KutuphaneData Set.Yeni_Kitap_Ekleme)
Else
End If
End Sub
End Class
[IMG]http://img825.**************/img825/6836/okuyucular.png[/IMG]
Uploaded with **************
PHP Code:
Public Class okuyucular
Dim sayac, a As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Yeniokuyucuekle.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
a = MsgBox("Cıkmak İstiyor Musunuz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If a = 6 Then
Me.Close()
Else
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Yeniokuyucuekle.Show()
Yeniokuyucuekle.Text = "Okuyucuları Duzenle"
Yeniokuyucuekle.Label2.Visible = True
Yeniokuyucuekle.Button4.Visible = True
Yeniokuyucuekle.TextBox1.Visible = True
Yeniokuyucuekle.Button3.Visible = False
Yeniokuyucuekle.YeniOkuyucuEklemeBindingNavigator. Visible = False
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
sayac = YeniOkuyucuEklemeBindingSource.Count
YeniOkuyucuEklemeBindingSource.MoveFirst()
For i = 0 To sayac
If TextBox1.Enabled = False Then
If Trim(UCase(TextBox2.Text)) = UCase(Trim(Tc_Kimlik_No__TextBox.Text)) Then
Tc_Kimlik_No__TextBox.Text = TextBox2.Text
TextBox3.Text = Tc_Kimlik_No__TextBox.Text & " " & Adi_SoyadiTextBox.Text & " " & Sınıf_SubeTextBox.Text & " " & Okul_NoTextBox.Text & " " & Doğum_Yeri__TextBox.Text & " " & Doğum_Tarihi__TextBox.Text & " " & CinsiyetTextBox.Text & " Uyelik Durumu :" & Uyeliğiniz_Var_Mı__TextBox.Text
End If
End If
If TextBox2.Enabled = False Then
If Trim(UCase(TextBox1.Text)) = UCase(Trim(Adi_SoyadiTextBox.Text)) Then
Tc_Kimlik_No__TextBox.Text = TextBox2.Text
TextBox3.Text = Tc_Kimlik_No__TextBox.Text & " " & Adi_SoyadiTextBox.Text & " " & Sınıf_SubeTextBox.Text & " " & Okul_NoTextBox.Text & " " & Doğum_Yeri__TextBox.Text & " " & Doğum_Tarihi__TextBox.Text & " " & CinsiyetTextBox.Text & " Uyelik Durumu :" & Uyeliğiniz_Var_Mı__TextBox.Text
End If
End If
Next
End Sub
Private Sub YeniOkuyucuEklemeBindingNavigatorSaveItem_Click(By Val sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.YeniOkuyucuEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub YeniOkuyucuEklemeBindingNavigatorSaveItem_Click_1( ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.YeniOkuyucuEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub okuyucular_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KutuphaneDataSet.YeniOkuyucuEkleme' table. You can move, or remove it, as needed.
Me.YeniOkuyucuEklemeTableAdapter.Fill(Me.Kutuphane DataSet.YeniOkuyucuEkleme)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text "" Then
TextBox2.Enabled = False
Else
TextBox2.Enabled = True
End If
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If TextBox2.Text "" Then
TextBox1.Enabled = False
Else
TextBox1.Enabled = True
End If
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Yeniokuyucuekle.Button3.Visible = False
Yeniokuyucuekle.Label2.Text = "Silmek İstediğiniz Uye Tc Sini Arayınız"
Yeniokuyucuekle.Show()
End Sub
End Class
[IMG]http://img842.**************/img842/1965/yeniokuyucuekleme.png[/IMG]
Uploaded with **************
PHP Code:
Public Class Yeniokuyucuekle
Dim sayac As Integer
Private Sub YeniOkuyucuEklemeBindingNavigatorSaveItem_Click(By Val sender As System.Object, ByVal e As System.EventArgs) Handles YeniOkuyucuEklemeBindingNavigatorSaveItem.Click
Me.Validate()
Me.YeniOkuyucuEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Yeniokuyucuekle_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'KutuphaneDataSet.YeniOkuyucuEkleme' table. You can move, or remove it, as needed.
Me.YeniOkuyucuEklemeTableAdapter.Fill(Me.Kutuphane DataSet.YeniOkuyucuEkleme)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Doğum_Yeri__TextBox.Text = ComboBox1.Text
End Sub
Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
If ComboBox3.Text = "Hayır" Then
Uyelik_Başlangıc_TarihinizTextBox.Visible = False
Label1.Visible = False
Else
Uyelik_Başlangıc_TarihinizTextBox.Visible = True
Label1.Visible = True
End If
Uyeliğiniz_Var_Mı__TextBox.Text = ComboBox3.Text
End Sub
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
CinsiyetTextBox.Text = ComboBox2.Text
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
sayac = YeniOkuyucuEklemeBindingSource.Count
YeniOkuyucuEklemeBindingSource.MoveFirst()
For i = 0 To sayac
If UCase(Trim(TextBox1.Text)) = UCase(Trim(Tc_Kimlik_No__TextBox.Text)) Then
Tc_Kimlik_No__TextBox.Text = TextBox1.Text
Else
YeniOkuyucuEklemeBindingSource.MoveNext()
End If
Next
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
YeniOkuyucuEklemeBindingSource.AddNew()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Validate()
Me.YeniOkuyucuEklemeBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.KutuphaneDataS et)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
YeniOkuyucuEklemeBindingSource.CancelEdit()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim sil As Integer
sil = MsgBox("Bu İşlem Geri Alınamaz Silmek İstiyor Musunuz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo)
If sil = 6 Then
YeniOkuyucuEklemeBindingSource.RemoveCurrent()
YeniOkuyucuEklemeTableAdapter.Update(KutuphaneData Set.YeniOkuyucuEkleme)
Else
End If
End Sub
End Class
[IMG]http://img28.**************/img28/4396/mzik.png[/IMG]
Uploaded with **************
PHP Code:
Option Explicit On
Public Class muzik
Dim ResourceFilePath As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.Multiselect = True
OpenFileDialog1.ShowDialog()
OpenFileDialog1.Filter = "mp3 dosyaları (*.mp3)|*.mp3"
AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
End Sub
End Class
[IMG]http://img98.**************/img98/7349/internetc.png[/IMG]
Uploaded with **************
PHP Code:
Public Class İnternet
Private Sub İnternet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("www.google.com")
End Sub
End Class
Arkadaşlar Kodlar Tamamiyle Bana Aittir.Lutfen Alıntı Vb Şeyler Soylemeyiniz.
Programı İndirmek İsteyenler Aşağıda Link Paylaştım .Dosya İcerisinde Resimli Anlatım Ve Programın Kendisi Bulunmaktadır.
http://hotfile.com/dl/129100480/e008...e_Pro.rar.html
http://www.upload.gen.tr/d.php/www/3...e_Pro.rar.html
http://ul.to/5wnqjif4
Lutfen Emeğe Saygı ...
__________________