Gönderen Konu: Görsel Proğramlama Klüp Kayıt Proğramı  (Okunma sayısı 914 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı GameLear

  • Administrator
  • *
  • İleti: 289
  • Cinsiyet: Bay
  • Ondokuz Mayıs Üniversitesi
    • Profili Görüntüle
  • Akademik: Çarşamba Ticaret Borsası Meslek Yüksekokulu
  • Bölüm: Bilgisayar Proğramcılığı
Görsel Proğramlama Klüp Kayıt Proğramı
« : 25 Aralık 2015, 02:53:33 »
Bilgisayar Proramcılığı [h2]Görsel Proğramlama[/h2] Klüp kayıt uygulaması Kaydet,Bul,Güncelle,Temizle,Sil




Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
    Dim baglanti As New SqlConnection
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
     
Bul Butonu
 
        Dim komut As New SqlCommand("select * from kayit where o_no= '" & TextBox1.Text & "' ", baglanti)
        Dim dr As SqlDataReader
        baglanti.Open()
        dr = komut.ExecuteReader
        If dr.HasRows Then
            Do While dr.Read
                TextBox2.Text = dr("ad_soyad")
                ComboBox1.Text = dr("bolum")
                ComboBox2.Text = dr("sınıf")
                ComboBox3.Text = dr("sube")
                If dr("ogretim") = "I. Öğretim" Then
                    RadioButton1.Checked = True
                Else
                    RadioButton2.Checked = True

                End If
                MaskedTextBox1.Text = dr("tel")
                RichTextBox1.Text = dr("adres")
            Loop
            Button4.Visible = True
            Button5.Visible = True
        Else
            MsgBox("Kayıt Bulunamadı")
        End If

        baglanti.Close()

    End Sub
    Private Sub temizle()
        TextBox1.Clear()
        TextBox2.Clear()
        ComboBox1.Text = ""
        ComboBox2.Text = ""
        ComboBox3.Text = ""
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        MaskedTextBox1.Clear()
        RichTextBox1.Clear()
        Button5.Visible = False
        Button4.Visible = False

    End Sub
    Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If (Microsoft.VisualBasic.Asc(e.KeyChar)) < 48 Or (Microsoft.VisualBasic.Asc(e.KeyChar) > 57) Then
            e.Handled = True
        End If
        If (Microsoft.VisualBasic.Asc(e.KeyChar)) = 8 Then
            e.Handled = False
        End If
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        baglanti.ConnectionString = "Data Source=CMYO-BILGISAYAR\SQLEXPRESS;Initial Catalog=veri;Integrated Security=True;Pooling=False"
    End Sub


Kaydet Butonu

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Try
            Dim ogretim_sekli As String
            If RadioButton1.Checked = True Then
                ogretim_sekli = "I. Öğretim"
            Else
                ogretim_sekli = "II. Öğretim"
            End If

            Dim komut As New SqlCommand("insert into kayit(o_no, ad_soyad, bolum, sınıf,sube,ogretim, tel,adres) values ( '" & TextBox1.Text & "',  '" & TextBox2.Text & "',  '" & ComboBox1.Text & "',  '" & ComboBox2.Text & "', '" & ComboBox3.Text & "','" & ogretim_sekli & "','" & MaskedTextBox1.Text & "','" & RichTextBox1.Text & "')", baglanti)
            baglanti.Open()
            komut.ExecuteNonQuery()
            baglanti.Close()
            MsgBox(" Kayıt Başarılı")
            temizle()

        Catch ex As Exception
            MsgBox(" Kayıt Gerçekleştirilemedi")
        End Try

    End Sub

Temizle Butonu

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        temizle()

    End Sub

Güncelle Butonu


    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Dim ogretim_sekli As String
        If RadioButton1.Checked = True Then
            ogretim_sekli = "I. Öğretim"
        Else
            ogretim_sekli = "II. Öğretim"
        End If
        Dim komut As New SqlCommand("update kayit set ad_soyad='" & TextBox2.Text & "', bolum='" & ComboBox1.Text & "',sınıf='" & ComboBox2.Text & "',sube='" & ComboBox3.Text & "',ogretim='" & ogretim_sekli & "',tel='" & MaskedTextBox1.Text & "', adres='" & RichTextBox1.Text & "' ", baglanti)
        baglanti.Open()
        komut.ExecuteNonQuery()
        baglanti.Close()
        Button5.Visible = False
        Button4.Visible = False

    End Sub

Sil Butonu

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Dim komut As New SqlCommand(" delete from kayit where o_no= '" & TextBox1.Text & "'", baglanti)
        baglanti.Open()
        komut.ExecuteNonQuery()
        MsgBox("Kayıt Silindi")
        temizle()
        baglanti.Close()
        Button5.Visible = False
        Button4.Visible = False

    End Sub
End Class




Dipnot:Orjinal Word Belgesi Ekdedir Ekdeki Belgeye İndirmek İçin Foruma Üye Olmalısınız Veya Giriş Yapmalısınız ;)


« Son Düzenleme: 22 Ocak 2016, 17:58:37 Gönderen: GameLear »



 

Hızlı yanıt'ı kullanarak çabukça ileti gönderebilir, iletilerinizde gülümseme ve bbc kullanabilirsiniz.

Not: Bu konu bir moderatör tarafından onaylanmadan görüntülenmeyecektir.
Kullanıcı Adı: E-Posta:
Doğrulama:
Resimde gördüğünüz harfleri giriniz
Harfleri dinle / Farklı bir resim göster
Resimde gördüğünüz harfleri giriniz:
Ondokuz Mayıs Üniversitesi Kuruluş Tarihi Kutucuğa Yazın(1975):