VB.Net 2008 Form Login Dengan Database SQL

Assalamu'alaikum.....

Lama nda posting nih, kali ini ane mau............tulis artikel request dari seorang sahabat mengenai form login, Ok! langsung ane share nih.

Pertama

Agan tentunya harus bikin  2 form, dimana form pertama untuk form login itu sendiri dan form kedua untuk.........ya,,,,,untuk apa aja boleh....hehehehe. Lebih kurang formnya seperti ini

Form Pertama

Kedua

Tentunya agan harus bikin codingnya dong.....! kaya apa yach codingnya?! ane kasih nih codingannya, tapi jangan asal copas ya, pastikan event yang terjadi dan jangan lupa, tools yang ada di form namanya apa aja gan, cari sendiri ya!

Imports Microsoft.VisualBasic

Imports System.Security

dua fungsi diatas sangat fital, jangan sampai lupa untuk masukan ke dalam form.

Dim SQL As String

    Dim Proses As New clskoneksi

    Dim tblAdmin As DataTable

    Dim Kesempatan As Integer = 3

    Dim str As String = "Kesempatan : "

    Sub ClearForm()

        txtUser.Clear()

        txtPassword.Clear()

    End Sub

Berikut coding untuk logika yang terjadi ketika form dijalankan

#Region "LOGIKA"

    Sub LoginSebagai()

        If cboLevel.Text = "Administrator" Then

            frmMenu.tssLOGIN.Text = "Administrator"

        Else

            frmMenu.tssLOGIN.Text = "Operator"

        End If

        If frmMenu.tssLOGIN.Text = "Operator" Then

            frmMenu.MenuItem2.Enabled = False

            frmMenu.mnuT_Barang.Enabled = False

            frmMenu.mnuT_Kategori.Enabled = False

            frmMenu.mnuT_Kasir.Enabled = False

        Else

            frmMenu.MenuItem2.Enabled = True

            frmMenu.mnuT_Barang.Enabled = True

            frmMenu.mnuT_Kategori.Enabled = True

            frmMenu.mnuT_Kasir.Enabled = True

        End If

    End Sub

    Sub LoginForm()

        If txtPassword.Text = "" Or txtUser.Text = "" Or cboLevel.Text = "" Then

            MessageBox.Show("Harap lengkapi semua kolom yang kosong", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

            txtUser.Focus()

        Else

            SQL = "Select * From dboUser where Username='" & txtUser.Text & "' And Password='" & txtPassword.Text & "' And Tingkat='" & cboLevel.Text & "'"

            tblAdmin = Proses.ExecuteQuery(SQL)

            If tblAdmin.Rows.Count <> 0 Then

                Me.Hide()

                Call LoginSebagai()

                frmMenu.Show()

                frmMenu.Enabled = True

            Else

                MessageBox.Show("Data yang Anda masukan salah, kesempatan Anda tinggal " & Kesempatan - 1 & " kali lagi.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

                Call ClearForm()

                txtUser.Focus()

                Kesempatan = Kesempatan - 1

                SB_Login.Text = str & Kesempatan

                If Kesempatan = 0 Then

                    MessageBox.Show("Kesempatan Anda untuk login sudah habis.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand)

                    btnLogin.Enabled = False

                End If

            End If

        End If

    End Sub

#End Region

Event berikut ini saya buat agar kita tidak perlu menggunakan tombol Tab pada keyboard, namun tinggal tekan Enter saja. Berikut codingnya :

#Region "ENTER"

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

        Dim KeyAscii As Short

        KeyAscii = Asc(e.KeyChar)

        If KeyAscii = 13 Then

            txtPassword.Focus()

        End If

    End Sub

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

        Dim KeyAscii As Short

        KeyAscii = Asc(e.KeyChar)

        If KeyAscii = 13 Then

            cboLevel.Focus()

        End If

    End Sub

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

        Dim KeyAscii As Short

        KeyAscii = Asc(e.KeyChar)

        If KeyAscii = 13 Then

            btnLogin.Focus()

        End If

    End Sub

#End Region

Kalo yang berikut ini event klik biasa:

#Region "KLIK EVENT"

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

        Call LoginForm()

    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click

        Me.Hide()

        frmMenu.Enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        tssTIME.Text = TimeOfDay

    End Sub

#End Region

Ok, agan semua.............ane rasa udah cukup nih. Terimakasih udah mau baca, hehehehe........

Wassalamu'alaikum................