Contoh Coding Login

Coding Login

Public Class Login

    Private Sub btnlogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogin.Click

        Dim sql, user, pass, hak_akses As String

        user = txtusername.Text

        pass = txtpass.Text

        hak_akses = cmbhak_akses.Text

        konek()

        sql = "SELECT * FROM admin WHERE user_name='" + user + "' AND password='" + pass + "' AND hak_akses='" + hak_akses + "'"

        cmd = New Odbc.OdbcCommand(sql, conn)

        rd = cmd.ExecuteReader()

        If rd.HasRows = True Then

            Me.Hide()

            Menu_Utama.Show()

        Else

            'msgbox pesan salah

            MessageBox.Show("Username dan Password Salah", "Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)

            txtusername.Text = ""

            txtpass.Text = ""

            cmbhak_akses.Text = ""

            txtusername.Focus()

        End If

    End Sub

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

        txtpass.PasswordChar = "X"

        txtusername.Text = ""

        cmbhak_akses.Text = ""

    End Sub

    Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click

        Me.Hide()

    End Sub

End Class

Coding Koneksi

Imports System.Data.Odbc

Imports System.Data

Module koneksi

    Public conn As OdbcConnection

    Public da As OdbcDataAdapter

    Public ds As DataSet

    Public strcon As String

    Public rd As OdbcDataReader

    Public cmd As Odbc.OdbcCommand

    Public dt As DataTable

    Public status As String

    Public Sub konek()

        strcon = "Driver={MySQL ODBC 3.51 Driver};database=db_login;server=localhost;uid=root"

        conn = New OdbcConnection(strcon)

        If conn.State = ConnectionState.Closed Then

            conn.Open()

            status = "koneksi berhasil"

        Else

            status = "koneksi gagal"

        End If

    End Sub

End Module