Torrent Dükkanı, Torrent Oyun, Torrent Film, Torrent Dizi, Full İndir

mod başvuru

İndirme Limiti Kalkmıştır

Forum kuralları!

Merhaba! Forumlarımızda herhangi bir aktivitede bulunmadan önce, forum düzeni ve kalıcılığı için lütfen forum kurallarını okuyunuz.

Forum Kuralları
Bilgi? Sitede Önemli Değişiklik Ve Farklılıklar. Herkesin Okumasında Fayda Var! ["TIKLAYINIZ."]
#BaşvuruYap Yetkili Alımları Başlamıştır! Sitede Görevli Olmak İsteyen Arkadaşlar Konuyu İnceleyebilir, Detaylar İçin: ["TIKLAYINIZ."]
Süper:) VİP Üyelik Ayrıcalıklarından Yararlanmak İçin Buraya! Ömür Boyu VİP Üye Olabilirsiniz Detaylar Konumuzda: ["TIKLAYINIZ."]
Dikkat! Emeklere Karşılık Olarak Konulara Yorumlarını Eksik Etmeyiniz. Kurallara Uymayanlar Siteden Men Edilecektir! Torrentleri Seed Ediniz.!

 
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
VISUAL BASIC / Library Çalışması
(Okunma: 226)
Acces
#1
Kod:
form retun books için
Imports System.Data.OleDb
Imports System.Data

Public Class returnbooks
   Dim c As Integer
   Dim con As New OleDbConnection(str)
   Dim adp1, adp2, adp3 As OleDbDataAdapter
   Dim ds1, ds2, ds3 As New DataSet
   Dim cmdb As OleDbCommandBuilder
   Dim dr As OleDbDataReader
   Dim cmd As OleDbCommand

   Private Sub returnbooks_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       con.Open()
       adp1 = New OleDbDataAdapter("select * from issue", con)
       adp2 = New OleDbDataAdapter("select * from return", con)
       adp3 = New OleDbDataAdapter("select * from book", con)
       bind()
   End Sub
   Private Sub bind()
       ComboBox1.Items.Clear()
       adp1.Fill(ds1, "i")
       Dim dr As DataRow
       For Each dr In ds1.Tables(0).Rows()
           If ComboBox1.Items.Contains(dr.Item("bookname")) = False Then
               ComboBox1.Items.Add(dr.Item("bookname"))
           End If
       Next
   End Sub

   Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
       ComboBox2.Items.Clear()
       Dim dr As DataRow
       For Each dr In ds1.Tables(0).Rows()
           If (dr.Item("bookname")) = ComboBox1.SelectedItem.ToString Then
               TextBox1.Text = dr.Item("bookcode")
               ComboBox2.Items.Add(dr.Item("studentname"))
           End If
       Next
   End Sub

   Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
       ComboBox3.Items.Clear()
       ComboBox3.Text = ""
       Dim dr As DataRow
       For Each dr In ds1.Tables(0).Rows()
           If (dr.Item("studentname")) = ComboBox2.SelectedItem.ToString Then
               If ComboBox3.Items.Contains(dr.Item("studentcourse")) = False Then
                   ComboBox3.Items.Add(dr.Item("studentcourse"))
               End If
               TextBox2.Text = dr.Item("booknumber")
               TextBox3.Text = dr.Item("dateofissue")
               TextBox4.Text = Format(Today.Date, "D")
           End If
       Next
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       On Error GoTo es
       adp2.Fill(ds2, "r")
       adp3.Fill(ds3, "r")
       Dim dr As DataRow
       dr = ds2.Tables(0).NewRow
       dr(0) = TextBox1.Text
       dr(1) = ComboBox1.SelectedItem.ToString
       dr(2) = ComboBox2.SelectedItem.ToString
       dr(3) = 0
       dr(4) = ComboBox3.SelectedItem.ToString
       dr(5) = CInt(TextBox2.Text)
       dr(6) = CDate(TextBox3.Text)
       dr(7) = CDate(TextBox4.Text)
       ds2.Tables(0).Rows.Add(dr)
       cmdb = New OleDbCommandBuilder(adp2)
       adp2.Update(ds2, "r")
       Button1.Enabled = False
       cmd = New OleDbCommand("delete from issue where bookcode=''''" & TextBox1.Text & "''''and studentname=''''" & ComboBox2.Text & "'''' and studentcourse=''''" & ComboBox3.Text & "'''' and booknumber=" & TextBox2.Text, con)
       MsgBox(cmd.CommandText)
       cmd.ExecuteNonQuery()
       cmd = New OleDbCommand("select issued from book where bookcode=''''" & TextBox1.Text & "''''", con)
       c = cmd.ExecuteScalar
       Dim cmd2 As New OleDbCommand("update book set issued=" & c - 1 & " where bookcode=''''" & TextBox1.Text & "''''", con)
       cmd2.ExecuteNonQuery()
       Button2.PerformClick()
       Exit Sub
es:
       MsgBox(Err.Description)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       ComboBox1.Items.Clear()
       ComboBox2.Items.Clear()
       ComboBox3.Items.Clear()
       ComboBox1.Text = ""
       ComboBox2.Text = ""
       ComboBox3.Text = ""
       TextBox1.Text = ""
       TextBox2.Text = ""
       TextBox3.Text = ""
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       Button1.Enabled = True
       bind()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       con.Close()
       Me.Close()
       mainform.Show()

   End Sub
End Class


main form için
Public Class mainform

   Private Sub mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Label1.Width = Me.Width
       Label2.Text = Now

   End Sub

   

   Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
       Button1.BackColor = Color.Silver
       Button1.ForeColor = Color.Black
   End Sub

   Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
       Button1.BackColor = Color.Purple
       Button1.ForeColor = Color.White

   End Sub

   
   
   
   Private Sub Button2_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.MouseLeave
       lv(sender)

   End Sub
   Private Sub lv(ByVal sender As Object)
       sender.BackColor = Color.Silver
       sender.ForeColor = Color.Black
   End Sub
   Private Sub mv(ByVal sender As Object)
       sender.BackColor = Color.Purple
       sender.ForeColor = Color.White

   End Sub

   Private Sub Button2_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button2.MouseMove
       mv(sender)

   End Sub

   Private Sub Button3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.MouseLeave
       lv(sender)

   End Sub

   Private Sub Button3_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button3.MouseMove
       mv(sender)

   End Sub

   Private Sub Button4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.MouseLeave
       lv(sender)

   End Sub

   Private Sub Button4_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button4.MouseMove
       mv(sender)

   End Sub

   

   Private Sub Button5_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.MouseLeave
       lv(sender)

   End Sub

   Private Sub Button5_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button5.MouseMove
       mv(sender)

   End Sub
Son Düzenleme: 01-06-2016, Saat: 19:53, Düzenleyen: Acces
Ara
Cevapla
 


Anahtar Kelimeler

VISUAL BASIC / Library Çalışması, VISUAL BASIC / Library Çalışması indir, VISUAL BASIC / Library Çalışması Videosu, VISUAL BASIC / Library Çalışması online izle, VISUAL BASIC / Library Çalışması Bedava indir, VISUAL BASIC / Library Çalışması Yükle, VISUAL BASIC / Library Çalışması Hakkında, VISUAL BASIC / Library Çalışması nedir, VISUAL BASIC / Library Çalışması Free indir, VISUAL BASIC / Library Çalışması oyunu, VISUAL BASIC / Library Çalışması download



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  VISUAL BASIC / Ini Dosyalarinin Okunup/Yazilmasi Acces 0 260 01-06-2016, Saat: 19:54
Son Yorum: Acces
  VISUAL BASIC / Bilimsel Hesap Makinesi Acces 0 270 01-06-2016, Saat: 19:53
Son Yorum: Acces
  VISUAL BASIC / Ms Dondurucu Acces 0 232 01-06-2016, Saat: 19:46
Son Yorum: Acces

Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi