Selasa, 28 Mei 2013

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 smile


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











Terkait

Description: FORM LOGIN Rating: 4.5 Reviewer: annajmin zega ItemReviewed: FORM LOGIN
Al
Mbah Qopet Updated at: 5/28/2013 09:52:00 PM

0 komentar :

Poskan Komentar