Imports MySql.Data.MySqlClient
Public Class frmSiswa
    Dim mysqlconn As MySqlConnection
    Dim cmd As MySqlCommand
    Dim reader As MySqlDataReader

    Sub bersih()
        txtNis.Clear()
        txtNamaSiswa.Clear()
        txtTempatLahir.Clear()
    End Sub

    Sub koneksi()
        Try
            mysqlconn = New MySqlConnection
            mysqlconn.ConnectionString = "server=localhost;user id=root;database=db_sekolah"
            mysqlconn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Sub tampil()
        Dim msd As New MySqlDataAdapter
        Dim dt As New DataTable
        Dim bs As New BindingSource

        Try
            koneksi()
            Dim query As String
            query = "SELECT * FROM tb_siswa"
            cmd = New MySqlCommand(query, mysqlconn)
            msd.SelectCommand = cmd
            msd.Fill(dt)
            bs.DataSource = dt
            dgvSiswa.DataSource = bs
            msd.Update(dt)
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
        Try
            koneksi()
            Dim query As String
            query = "INSERT INTO tb_siswa (nis,nama_siswa,tempat_lahir,tanggal_lahir) VALUES ('" & txtNis.Text & "','" & txtNamaSiswa.Text & "','" & txtTempatLahir.Text & "','" & dtpTanggalLahir.Text & "')"
            cmd = New MySqlCommand(query, mysqlconn)
            reader = cmd.ExecuteReader
            MessageBox.Show("Data Tersimpan", "Informasi")
            tampil()
            bersih()
            mysqlconn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub btnUbah_Click(sender As Object, e As EventArgs) Handles btnUbah.Click
        Try
            koneksi()
            Dim query As String
            query = "UPDATE tb_siswa SET nis ='" & txtNis.Text & "',nama_siswa = '" & txtNamaSiswa.Text & "',tempat_lahir = '" & txtTempatLahir.Text & "',tanggal_lahir ='" & dtpTanggalLahir.Text & "' WHERE nis='" & txtNis.Text & "'"
            cmd = New MySqlCommand(query, mysqlconn)
            reader = cmd.ExecuteReader
            MessageBox.Show("Data Terubah", "Informasi")
            bersih()
            tampil()
            mysqlconn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click
        Try
            koneksi()
            Dim query As String
            query = "DELETE FROM tb_siswa WHERE nis ='" & txtNis.Text & "'"
            cmd = New MySqlCommand(query, mysqlconn)
            reader = cmd.ExecuteReader
            MessageBox.Show("Data Terhapus", "Informasi")
            bersih()
            tampil()
            mysqlconn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub dgvSiswa_DoubleClick(sender As Object, e As EventArgs) Handles dgvSiswa.DoubleClick
        txtNis.Text = dgvSiswa.SelectedCells(0).Value
        txtNamaSiswa.Text = dgvSiswa.SelectedCells(1).Value
        txtTempatLahir.Text = dgvSiswa.SelectedCells(2).Value
        dtpTanggalLahir.Text = dgvSiswa.SelectedCells(3).Value
    End Sub


End Class