Monday, May 25, 2009

SIMPLE LOGIN Part 2



AstroDigi.com | Senin, 25 Mei 2009 | Artikel ini merupakan lanjutan dari artikel SIMPLE LOGIN Part 1, disini dipergunakan text box sebagai kolom pencatat nama user yang akan login, keuntungan dari teknik ini adalah user yang tidak mempunyai hak, tidak akan dapat mencoba login dengan daftar user yang ada di database.

Saya berasumsi anda sudah mendownload program simple login (lihat artikel: SIMPLE LOGIN Part 1).
Yang harus anda lakukan hanyalah mengubah from f_user_login.
Ubah combo box IdUser menjadi text box. Anda bisa melakukan klik kanan pada combo box > Change To > Text Box
Pada even After Update dari IdUser, ganti dengan script sebagai berikut:

Private Sub IdUser_AfterUpdate()
On Error GoTo ada_kesalahan
Dim cekpas As Recordset
Set cekpas = New ADODB.Recordset
cekpas.CursorLocation = adUseClient
cekpas.Open "select * from t_user_list where [NamaUser]='" & Me.IdUser & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With cekpas
Password = .Fields("Password")
Level = .Fields("Level")
End With
cekpas.Close
ada_kesalahan:
End Sub

Berikutnya buka table design untuk tabel t_user_login.
Ubah tipe data untuk IdUser menjadi Text.

Selamat mencoba . . . :)
www.AstroDigi.com ( Nino Guevara Ruwano )

Comments :

4 comments to “SIMPLE LOGIN Part 2”

terima kasih mas, saya pilih yang ini daripada yang part1, kayaknya lebih aman ;)

MasHardi said...
on 

terima kasih sharing nya mas Nino, akan saya aplikasikan pada program saya, karena selama ini saya pakai loginnya access..yang mudah di tembus dengan aplikasi pencari password...

yanto said...
on 

quite informative
thanks a lot
free steam

sherin said...
on 

I will make sure to bookmark it and come back to learn extra of your helpful info. Thank you for the post. I will definitely comeback. picbear

Sophie Grace said...
on 

Post a Comment