'Button simpan
    Private Sub Bt_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_simpan.Click
        Try
        dim tglInput as Date
        dim kd_alter as String' (atau integer?)
        dim Nama as string
        dim nilai_timework as double
        dim nilai_mskrj as double
        dim nilai_presensi as double
        dim nilai_kreatif as double
        dim nilai_total as double

        if date.tryparse (tglInput.text, tglInput) = false then
            'Tanggal input salah
            messagebox.show("tanggal input salah!")
            return
        end if

         Dim simpan As String = String.Empty
                simpan = "insert into tb_normalisasi (tgl_penilaian,kd_alter,Nama,nilai_timework,nilai_mskrj,nilai_presensi,nilai_kreatif, nilai_total) " &
                "values (?,?,?,?,?,?,?,?)"
          Call mengkoneksikan()
          CMD = CONN.CreateCommand()
          CMD.CommandText = simpan
            For Each row As DataGridViewRow In dg_normalisasi.Rows
                kd_alter = Convert.ToString(row.Cells(0).Value)
                Nama = Convert.ToString(row.Cells(1).Value)
                nilai_timework = Convert.ToDouble (row.Cells(2).Value)
                nilai_mskrj =  Convert.ToDouble (row.Cells(3).Value)
                nilai_presensi =  Convert.ToDouble (row.Cells(4).Value)
                nilai_kreatif =  Convert.ToDouble (row.Cells(5).Value)
                nilai_total =  Convert.ToDouble (row.Cells(6).Value)

                CMD.Parameters.addWithValue ("?1", tglInput)
                CMD.Parameters.addWithValue ("?2", kd_alter)
                CMD.Parameters.addWithValue ("?3", Nama)
                CMD.Parameters.addWithValue ("?4", nilai_timework)
                CMD.Parameters.addWithValue ("?5", nilai_mskrj)
                CMD.Parameters.addWithValue ("?6", nilai_presensi)
                CMD.Parameters.addWithValue ("?7", nilai_kreatif)
                CMD.Parameters.addWithValue ("?8", nilai_total)


                CMD.ExecuteNonQuery()
                CMD.Parameters.Clear()
            Next
            '====================
            'Pesan Jika Berhasil
            '====================
            MessageBox.Show("Data Perhitungan Baru Berhasil Di Simpan")

        Catch ex As Exception
            '=================
            'Pesan Jika Gagal
            '=================
            MessageBox.Show("Data Perhitungan Sudah Ada Tolong Di Cek Kembali, Mohon Di Cek Kembali")
        End Try