Program Login Multi User atau Program Login Menggunakan Database Access dengan Menggunakan Microsoft Visual Basic 6.0

Pada artikel sebelumnya, yaitu : Cara Membuat Program Login Sederhana Dengan Menggunakan Microsoft Visual Basic 6.0, saya telah membahas bagaimana cara membuat program login sederhana. Mengapa disebut program login sederhana ? Disebut program login sederhana karena merupakan Program Login Single User, dimana user name dan password diketikkan langsung pada kode program, sehingga tidak memungkinkan untuk menyimpan lebih dari 1 user name dan password serta apabila user name atau password hendak diganti atau diubah, maka harus melalui kode program. Dalam artikel ini, saya akan membahas Cara Membuat Form Login Multi Users Atau Cara Membuat Form Login Dengan Menggunakan Database, dimana user name dan password disimpan dalam sebuah database. Oleh karena itu dapat disimpan lebih dari satu user name dan password, dengan kata lain program ini merupakan Program Login Multi Users.

Sebelum masuk pada pembuatan program, terlebih dahulu harus dibuat sebuah database untuk menyimpan user name dan password. Database yang kita gunakan adalah database access. Langkah – Langkah pembuatan database dengan menggunakan Microsoft Access dapat dilihat pada artikel Cara Membuat Database Microsotft Access Melalui Microsoft Visual Basic 6.0.

Agar tidak terjadi error ketika program dijalankan, sebaiknya database yang akan dibuat disesuaikan dengan rincian berikut :

Nama Database     : LOGIN.MDB

Nama Tabel           : tbl_user

Field                      : user_name

                               password

Sekarang kita masuk kepada langkah - langkah pembuatan Program Login Multi Users :

·   Disain form dengan menggunakan 2 buah 0bjek Label dan 2 buah objek TextBox seperti gambar berikut :

 Gbr 1

·   Atur Properties masing – masing objek seperti beikut :

Kontrol	Properties	Pengaturan
TextBox1	Name        PasswordChar Text      Font ForeColor	Txt_UserName * (dikosongkan) Lucida Sans Typewriter, Bold, 12 &H00400000&
TextBox1	Name        PasswordChar Text      Font ForeColor	Txt_Password * (dikosongkan) Lucida Sans Typewriter, Bold, 12 &H00400000&
Label1	Caption Font ForeColor	User Name Lucida Sans Typewriter, Bold, 12 &H00800000&
Label2	Caption Font ForeColor	Password Lucida Sans Typewriter, Bold, 12 &H00800000&

Form 1

Name Caption

Frm_Login_use_DatabaseAccess Form Login

·      Klik menu View  =>  Code

·      Copy Paste (copas) kode program dibawah ini :

Dim Conn As New ADODB.Connection

Dim RsUsers As New ADODB.Recordset

Private Sub ConDb()

Set Conn = New ADODB.Connection

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\LOGIN.MDB;Persist Security Info=False"

End Sub

Private Sub Form_Load()

Me.Txt_Password.Enabled = False

ConDb

Set RsUsers = New ADODB.Recordset

    RsUsers.Open "Select * From tbl_user", Conn, adOpenDynamic, adLockOptimistic

End Sub

Private Sub Txt_Password_KeyPress(KeyAscii As Integer)

'KeyAscii = Asc(UCase(Chr(KeyAscii)))               'Merubah karakter menjadi huruf besar (UpperCase)

If KeyAscii = 13 Then

If Right(Me.Txt_Password.Text, 1) = "" Then

    MsgBox "Password Tidak Boleh Kosong ", vbOKOnly + vbCritical, Pesan

    Me.Txt_Password.SetFocus

Else

ConDb

Set RsUsers = New ADODB.Recordset

    StrCariUserName_Password = "Select * From tbl_user Where user_name = '" + Me.Txt_UserName.Text + "'  and password  = '" + Me.Txt_Password.Text + "'"

    RsUsers.Open StrCariUserName_Password, Conn, adOpenDynamic, adLockOptimistic

        If Not RsUsers.EOF Then

            Unload Me

        Else

            MsgBox "User Name atau Password Salah, Coba lagi", vbOKOnly + vbCritical, "Salah"

            Me.Txt_UserName.Text = ""

            Me.Txt_UserName.Enabled = True

            Me.Txt_UserName.SetFocus

            Me.Txt_Password.Text = ""

            Me.Txt_Password.Enabled = False

        End If

End If

End If

End Sub

Private Sub Txt_UserName_KeyPress(KeyAscii As Integer)

'KeyAscii = Asc(UCase(Chr(KeyAscii)))               'mengubah karakter menjadi huruf besar (UpperCase)

If KeyAscii = 13 Then

If Right(Me.Txt_UserName.Text, 1) = "" Then

    MsgBox "User Name Tidak Boleh Kosong ", vbOKOnly + vbCritical, Pesan

    Me.Txt_UserName.SetFocus

Else

    Me.Txt_Password.Enabled = True

    Me.Txt_Password.SetFocus

End If

End If

End Sub

·   Perhatikan teks berwarna biru yang ada pada kode program. Teks berwarna oranye tersebut harus diganti karena harus sesuai dengan lokasi file mdb (file database access) disimpan. Untuk menggantinya ikuti langkah - langkah beikut :

·    Klik menu Project  =>  Components atau tekan tombol Ctrl + T pada keyboard atau klik kanan          pada ToolBox lalu pilih Components.

·    Centang checkbox Microsoft ADO Data Control 6.0 (OLEDB), kemudian klik Apply lalu klik OK

·    Klik objek Adodc pada ToolBox kemudian masukkan ke dalam form.

·    Klik kanan pada objek Adodc1 yang ada di form lalu pilih Adodc Properties

·    Pilih Use Connection String, lalu klik Build

·    Pilih Microsoft Jet 4.0 OLE DB Provider lalu klik Next

·    Klik tombol …. yang ada disamping kotak isian Select or enter a database name

·    Cari dan pilih database yang telah dibuat sebelumnya lalu klik Open. File database yang saya buat        sebelumnya adalah LOGIN.MDB

·    Klik Test Connection

·    Apabila muncul pesan error, artinya database sedang dibuka

·   Tutup database yang sedang terbuka pada Microsoft Access, lalu klik lagi Test Connection

·   Maka akan muncul pesan seperti gambar, yang artinya tes koneksi database berhasil.      Kemudian   klik OK, lalu klik OK sekali lagi.

·   Klik tab RecordSource

·   Pilih 2 – adCmdTable pada Command Type

·   Pilih nama tabel, misalnya : tbl_user pada Table Or Stored Procedur Name.

·   Klik Apply lalu kllik OK

·   Untuk lebih jelasnya silahkan lihat artikel Koneksi Database Access Melalui Properties Pada         MicrosoftVisual Basic 6.0.

·   Klik objek Adodc1 sehingga dalam keadaan aktif, kemudian klik ConnectionString yang ada pada   Properties - Adodc1. Lalu copy (Ctrl + C) tulisan yang terdapat di kotak di sebelah                         ConnectionString tersebut. Kemudian ganti tulisan berwarna biru di atas dengan tulisan (teks) yang baru dicopy.

·   Buka kembali database yang telah dibuat sebelumnya dan isikan beberapa data user name dan   password.

·   Jalankan program dengan menekan tombol F5 pada keyboard atau pilih menu Run  =>  Start

·   Hasilnya ketika program dijalankan :

 Gbr 2

Ketik User Name lalu tekan Enter. Apabila User Name dikosongkan lalu ditekan Enter maka muncul pesan seperti gambar di bawah ini :

 Gbr 3

Apabila Password dikosongkan lalu ditekan Enter maka muncul pesan seperti gambar di bawah ini :

 Gbr 4

User Name dan Password harus sesuai dengan data yang ada di tabel tbl_user file LOGIN.MDB. Apabila User Name atau Password salah atau kedua - duanya  salah maka akan muncul pesan seperti gambar di bawah ini :

 Gbr 5

Download Program Login Multi Users disini

Related post : Cara Membuat Program Login Sederhana Dengan Menggunakan Bahasa Pemograman Microsoft Visual Basic 6.0