FORM LOGIN

FORM  LOGIN

Karena banyak yang bertanya cara membuat form login di Visual Basic, maka saya buat program sederhana untuk login di sini dengan menggunakan adodb untuk koneksi ke database dan database yang digunakan adalah Microsoft Access.

Berikut langkah2nya:

1. Design dulu formnya,

Jangan lupa ubah name untuk textbox Username & Password dan button Login.
Dalam contoh, namenya diubah menjadi:
- txtUsername untuk textbox Username
- txtPassword untuk textbox Password
- cmdLogin untuk button login.

2. Tambah referrence ke Microsoft ActiveX Data Object -> ini diperlukan untuk akses database menggunakan ADODB.
Dalam Visual Basic, ke menu Project -> Referrences -> Check Microsoft ActiveX Data Object 2.8 Library (atau versi lainnya) -> OK.

3. Untuk memeriksa apakah referrence telah ditambahkan dengan benar atau belum, klik 2x pada form (akan mengarah ke window code). Kemudian, di bagian atas, deklarasikan recordset sebagai ADODB.RecordSet. Jika Referrence telah ditambahkan dengan benar, maka intellisense / auto completion VB akan menunjukkan ADODB seperti gambar di bawah ini:

4. Buat sebuah module untuk koneksi ke database.
Di window project explorer (sebelah kanan atas), klik kanan project, kemudian pilih add -> Module.

5. Sebelum masuk ke code untuk module, kita perlu membuat database Access terlebih dahulu, yang berisikan sebuah tabel bernama tabelUser dan memiliki 2 buah field di dalamnya, yaitu field Username & Password.

6. Buat connection string untuk koneksi ke database, salah satu cara yang paling mudah adalah dengan menggunakan udl.
Di windows explorer, buat file baru dengan extension .udl, kemudian pilih OK.

Klik 2x file .udl yang telah dibuat, Pilih tab Provider -> Pilih Microsoft Jet 4.0 OLE DB Provider -> Next

Pilih file Database Access yang telah dibuat sebelumnya -> OK

Tekan tombol Test Connection. Jika berhasil, akan muncul pesan berhasil -> OK -> OK lagi. Jika tidak, ulangi lagi langkah 6 di atas

Untuk melihat connection string yang telah dibuat dari file .udl tadi, buka file .udl dengan menggunakan notepad atau pembaca text sejenisnya. Connection string inilah yang akan digunakan di dalam module untuk langkah 7 di bawah.

  

7. Untuk code di module, gunakan code di bawah ini:

Option Explicit

Public conn As New ADODB.Connection

Public Sub Connect(flag As Boolean)

    Dim connectionString As String

    connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False" 'agar tidak statis, data source diubah sedikit dengan mengarahkan database ke folder yang sama tempat aplikasi dibuat, menggunakan app.path

   

On Error GoTo Handler

    If flag = True Then

        conn.Open connectionString

    Else

        conn.Close

    End If

    Exit Sub

Handler:

    MsgBox Err.Description, vbCritical, "Error"

End Sub

8. Berikut ini code untuk login form. Silakan diamati dan dipelajari

Option Explicit

Dim rs As ADODB.Recordset

Private Sub cmdLogin_Click()

    Dim sql As String

    sql = "select username from tabelUser where username = '" & Replace(txtUsername.Text, "'", "''") & "' and " & _

            "password = '" & Replace(txtPassword.Text, "'", "''") & "'"

    Set rs = New ADODB.Recordset

    Set rs = conn.Execute(sql)

    If Not rs.EOF Then

        'Username dan password ada

        MsgBox "Login sukses"

    Else

        'Username atau password salah

        MsgBox "Username atau Password Anda salah", vbCritical

        txtUsername.SetFocus

    End If

End Sub

Private Sub Form_Load()

    Connect (True)

End Sub

Private Sub Form_Unload(Cancel As Integer)

    Connect (False)

End Sub

Private Sub txtPassword_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then 'kalau tekan Enter, maka login

        cmdLogin_Click

    End If

End Sub

Private Sub txtUsername_KeyPress(KeyAscii As Integer)

    If KeyAscii = 13 Then 'kalau tekan Enter, maka login

        cmdLogin_Click

    End If

End Sub

9. Jalankan / eksekusi program (tekan F5), berikut ini hasilnya:

Dalam contoh, login yang digunakan:
Username: StevenLuck
Password: hereisthepassword

Bagikan :

• Tweet

Terkait

FORM LOGIN

Description: FORM LOGIN Rating: 4.5 Reviewer: Unknown ItemReviewed: FORM LOGIN

Al

Mbah Qopet Updated at: 5/28/2013 09:52:00 PM