Membuat Form VB : Login dengan DB

Ukuran File      : 10,6 Kb (uncompressed : 162 Kb)

Format            : .ZIP
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.

1. Buka program VB 6.0 dari menu Start atau Desktop;
2. 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

 Properti Field-nya gaes :

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

16. Jalankan 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