VB : simulasi form login

November 25, 2008 in Belajar, Programming, Umum
Tags: login, table, user

Kali ini, kita akan mencoba membuat simulasi form untuk melakukan login pada sebuah aplikasi. Supaya project yang aku buat mudah dipahami dipahami, maka ada beberapa syarat yang harus dikuasai sebelum mencoba latihan ini.

Aku asumsikan, kita sudah belajar membuat tabel dengan sql server dan mampu membuat menu pada form. Aku membuat sebuah database yang didalamnya aku buat sebuah tabel : tbl_user. Tabel ini berisi beberapa data user, dan jika input dari form login tidak sesuai dengan data yang ada didalam tabel, maka proses selanjutnya ditolak. Tabel tbl_user sebagai berikut :

Desain interface pada form login menggunakan menu yang terdiri dari 2 menu aktif dan 1 menu non-aktif. Menu yang non-aktif tidak tersebut, akan dapat aktif kembali ketika proses login valid. Desain form login sebagai berikut :

Agar mudah dipahami, aku melakukan beberapa perubahan nama object sesuai dengan kasus tersebut.

Object	Object Name (New)
Text1	txtUser
Text2	txtPassword
Command1	cmdOK
Command2	cmdCancel
Menu Input	minput

Source code yang aku gunakan sebagai berikut :

Source code on cmdOK
	Private Sub cmdOK_Click() adodc_login.CommandType = adCmdText adodc_login.RecordSource = "" adodc_login.RecordSource = "select * from tbl_user where nm_user=’" & txtUser.Text & "’" adodc_login.Refresh If adodc_login.Recordset.RecordCount > 0 Then If adodc_login.Recordset.Fields!passwd = txtPassword.Text Then Form1.minput.Enabled = True cmdOK.Enabled = False cmdCancel.Enabled = False Else MsgBox "Password SALAH", , "Pesan Login" End If Else MsgBox "User TIDAK Ada", , "Pesan Login" End If End Sub
Source code on cmdCancel
		Private Sub cmdCancel_Click() End End Sub

Hasil Running dari form login tersebut, sebagai berikut :