Program Data Pertandingan

Di Bawah Ini adalah Desain Form yang akan di kerjakan

 

Form di atas itu nanti akan di connect kan di database, Maka dari itu kita buat dahulu databasenya dengan cara. 

*Klik menu start

*Cari Run

*Lalu ketikkan cmd

 Kemudian, ikuti langkah" berikut ini 

Di bawah ini adalah LISTING progran FORM yang di atas

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim db As New MySql.Data.MySqlClient.MySqlConnection

    Dim sql As String

    Dim cmd As MySqlCommand

    Dim rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd=;database=mutia"

        Try

            db.ConnectionString = sql

            db.Open()

            MsgBox("connect lohhh")

        Catch ex As Exception

            MsgBox("tidak connect")

        End Try

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from olahraga"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("TIM")

                lst.SubItems.Add(rs("Kandang"))

                lst.SubItems.Add(rs("Tandang"))

                lst.SubItems.Add(rs("Score"))

                lst.SubItems.Add(rs("Nilai"))

                lv.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call buattable()

        opendb()

        isitabel()

        edit.Enabled = False

    End Sub

    Sub buattable()

        lv.Columns.Add("TIM")

        lv.Columns.Add("Kandang")

        lv.Columns.Add("Tandang")

        lv.Columns.Add("Score")

        lv.Columns.Add("Nilai")

        lv.GridLines = True

        lv.View = View.Details

        lv.FullRowSelect = True

    End Sub

    Private Sub delete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delete.Click

        If tim.Text = "" Then

            MsgBox("Isi Tim dan enter untuk hapus", MsgBoxStyle.Information, "Info")

        Else

            MsgBox("anda yakin data ini di hapus", MsgBoxStyle.YesNo + MsgBoxStyle.Information, "info")

            Call prosesdb(2)

        End If

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into olahraga(TIM,Kandang,Tandang,Score,Nilai)" & _

                    "values('" & tim.Text & _

                    "','" & kandang.Text & _

                    "','" & tandang.Text & _

                    "','" & score.Text & _

                    "','" & nilai.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update olahraga set TIM='" & tim.Text & "', " & _

                    "Kandang='" & kandang.Text & "'," & _

                    "Tandang='" & tandang.Text & "' " & _

                    "Score='" & score.Text & "'" & _

                    "Nilai='" & nilai.Text & "'" & _

                    "where TIM='" & tim.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from olahraga where TIM='" & tim.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        tim.Text = ""

        kandang.Text = ""

        tandang.Text = ""

        score.Text = ""

        nilai.Text = ""

    End Sub

    Sub showdb()

        rs.Read()

        tim.Text = rs("TIM")

        kandang.Text = rs("Kandang")

        tandang.Text = rs("Tandang")

        score.Text = rs("Score")

        nilai.Text = rs("Nilai")

    End Sub

    Private Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click

        If tim.Text = "" Or kandang.Text = "" Or tandang.Text = "" Or score.Text = "" Or nilai.Text = "" Then

            MsgBox("isi data dengan benar")

            Call bersih()

        Else

            sql = "insert into olahraga values ('" & tim.Text & "','" & kandang.Text & "','" & tandang.Text & "','" & score.Text & "','" & nilai.Text & "')"

            If save.Text = "Save" Then prosesdb(0) Else prosesdb(1)

            MsgBox("data telah disimpan")

        End If

    End Sub

    Private Sub tim_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tim.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If tim.Text = "" Then

                MsgBox("isi TIM terlebih dahulu")

            Else

                sql = "select * from olahraga where TIM='" & tim.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = tim.Text

                    bersih()

                    tim.Text = x

                End Try

                kandang.Focus()

                rs.Close()

            End If

        End If

    End Sub

End Class

KETIKA DI JALANKAN PROGRAMNYA

 *Isi semua data kemudian klik SAVE

 

Maka data akan tesimpan ke LISTVIEW

PROSES UNTUK TOMBOL DELETE
*Isikan salah satu nama TIM yang telah ada di LISTVIEW, Kemudia di ENTER

*Kemudian Pilih salah satu data yang ada di LISTVIEW untuk di DELETE

 

tekan tombol DELETE

 Maka data akan terhapus dari LISTVIEW