FORM TAMBAH ADMIN KARYAWAN

Rumus :

Public Class FormTambahAdmin
    Dim a, b, c As String

    Private Sub BtnDaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDaftar.Click
        a = TxtUsernameBaru.Text
        b = TxtPasswordBaru.Text
        c = TxtUlangiPassword.Text

        If b = c Then
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "Insert into tbuser values ('" & a & "', '" & b & "')"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Admin Baru sudah tersimpan!" & Chr(13) & "Silahkan mencoba Login dengan data yang dimasukan.", MsgBoxStyle.Information, "SUKSES")

            TxtUsernameBaru.Text = ""
            TxtPasswordBaru.Text = ""
            TxtUlangiPassword.Text = ""
            TxtUsernameBaru.Focus()

        Else
            MsgBox("Password dan Ulangi Password tidak cocok!" & Chr(13) & "Silahkan ulangi input data admin yang benar.", MsgBoxStyle.Information, "GAGAL")
        End If
    End Sub

    Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
        Refresh()
    End Sub

    Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
        FormMenuUtama.Enabled = True
        Me.Close()


    End Sub
End Class