Ukuran File : 10,6 Kb (uncompressed : 162 Kb)
Via : Dropbox
Artikel sebelumnya Kita sudah membuat form login dengan id dan password yang disematkan di koding program. Nah, masalahnya jika sudah dikompilasi (dibentuk .EXE), id dan password tidak bisa Kita ganti saat runtime, tapi harus dikoding ulang dan dikompilasi ulang, tentu merepotkan kalau program ini didistribusi lewat internet. Karena para User harus mendownload kembali update programnya secara utuh. Dengan menggunakan sistem Database, id dan password disimpan didalam database, yang memberikan beberapa keuntungan ini gaes :
1. Bisa membuat beberapa user id beserta passwordnya;
2. Aman, file database bisa dikunci dengan sistem enkripsi;
3. Fleksibel, id dan password bisa diganti melalui program yg Kita buat tentunya dengan tambahan koding untuk akses dan manipulasi ke file DB langsung;
Ok Gaes, let take it...
Sebelumnya, perlu ditambah komponen MS ADO terlebih dahulu untuk koneksi dan manipulasi Database, caranya :
*. Saat setelah memuat project baru, klik kanan Toolbox > pilih Components (atau bisa dengan menekan CTRL + T) dan tandai centang pada Microsoft ADO Data Control 6.0 (SP6) OLEDB (Gambar 1);
**. Klik Apply, dan kemudian klik OK.
- Buka program VB 6.0 dari menu Start atau Desktop;
- Pada kotak dialog New Project di tab New, Arahkan ke Standard Exe, dan klik Open (gambar 2);
 |
| Gambar 2 - Kotak Dialog New Project |
3. Ganti nama projek menjadi ProjekLoginWithDB;
4. Pada form1 yang sudah terbuat otomatis, Ganti caption form menjadi Form Login With DB, dan Name form menjadi FrmLoginWithDB;
5. Tambahkan 2 Label, 2 Textbox, dan 1 CommandButton (Gambar 3);
 |
| Gambar 3 - Desain Form Login |
6. Atur propertinya sbb :
| KOMPONEN | NAME | CAPTION / TEXT |
| Label1 | Label1 | ID |
| Label1 | Label2 | Password |
| Textbox1 | TxtID | - (kosongkan) |
| Textbox2 | TxtPassword | - (kosongkan) |
| CommandButton1 | CmdOK | Login |
 |
| Gambar 4 - Setelah di set propertinya |
7. Tambah kontrol ADODC dengan nama ADODC1 dan atur property Visible menjadi False;
 |
| Gambar 5 - Komponne ADODC1 |
8. Buka Software Ms Access 2003 (atau bisa yang 2007 tapi pastikan save dengan format .MDB). Buat database dengan nama userid.mdb dan simpan di 1 folder yang sama dengan projek ini. Kemudian buat 1 tabel baru (Gambar 6);
 |
| Gambar 6 - Tabel di Ms Access 2003 |
| FIELD | TYPE | LENGTH |
| id | Autonumber | - (Tidak ada isian) |
| user | Text | 25 |
| password | Text | 10 |
9. Simpan Tabel, jika ada kotak konfirmasi berikut (gambar 7), pilih Yes;
 |
| Gambar 7 -Kotak konfirmasi |
10. Buat record berikut :
 |
| Gambar 8 -Buat Record baru |
11. Kembali ke FrmLoginWithDB, dan masuk ke coding window;
12. Pada bagian General Declaration, tambahkan koding berikut :
Public koneksi As ADODB.Connection
Public rs As ADODB.Recordset
13. Koding berikut untuk string koneksi ke Database;
Private Sub Form_Load()
Set koneksi = New ADODB.Connection
koneksi.CursorLocation = adUseClient
koneksi.Provider = "microsoft.jet.oledb.4.0"
koneksi.Open App.Path & "\userid.mdb"
End Sub
14. Koding berikut pada tombol login :
Private Sub CmdLogin_Click()
Set rs = New ADODB.Recordset
rs.Open "select * from tbluser where user='" &
TxtID.Text & "' And password='" & TxtPassword.Text &
"'", koneksi, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
MsgBox "login sukses gaes :-)",
vbApplicationModal, "Login Sukses"
Else
MsgBox "login gagal gaes :-( Coba dicek lagi",
vbCritical, "Login Gagal"
TxtID.SetFocus
End If
End Sub
15. Sehingga hasilnya seperti ini :
 |
| Gambar 9 -Koding Project |
Coba login menggunakan ID dan password sesuai di database, pastikan database diclose dulu.
 |
| Gambar 10 - Login sukses |
 |
| Gambar 10 - Login gagal |
Selamat gaeeess .... :)
Bersambung...
___________
Salam SIB
