CARA MEMBUAT LOGIN DENGAN DATABASE SEDERHANA
1. Buat database loginnya(dblogin)
tabelnya(t_login) dan disave dengan format 2002-2003
Ket : untuk database dan
program vb nya di buat 1 folder
|
Fieldname
|
Type data/size
|
|
Username
|
Text(100)
|
|
Password
|
Text(50)
|
Lalu buat 1 record pada username dan
password
Lihat gambar dibawah ini
:
2. Buka vb nya sahabat
3. Buat 2 form
Form1
|
Properties
|
Value
|
|
Name
|
F_login
|
|
Caption
|
Login
|
Form2
|
Properties
|
Value
|
|
Name
|
F_reset
|
|
Caption
|
Reset
|
Jika sudah save lalu close database
dan ms. Acess nya
4. Sekarang masukan control 3 label, 3
button, 2 textbox pada f_login
Desain seperti gambar di
bawah ini :
5. Aduh hamper lupa membuat koneksi ke
databasenya
Yo sekarang kita buat
koneksinya caranya
Klik menu Projectà pilih dataenvironment
6. Di dataenvironment connection1 klik
kanan àpropertiesàpilih M.s Jet 4.0 ole DB Provider
next àbrows database yang kita buatà lalu test connection
Ket : bila sudah ada
pesan Test connection Succeeded tanda
database sudah terhubung
7. Klik kanan di connection1 lalu pilih
command1
Klik kanan di command1àproperties setting seperti dibawah
ini :
Jangan di ok dulu kawan
sekarang kita klik tab advanced (liat pada gambar di atas yang paling ujung)
Ubah Lock type
pada tab advanced nya jadi Optimistic
Lalu apply à ok
8. Nah sekarang kita ke F_reset
9. Drag dan drop kan Logindb yang ada
pada Dataenvironment1 ke F_Reset
10.
Buat 2 button pada F_Reset
Seting seperti dibawah
ini
Command1
Caption : Reset
Command2
Caption : Kembali
11.
Lalu sekarang masukan script di bawah ini ke
form Reset
Private Sub
Command1_Click()
DataEnvironment1.rsLogindb.Update
MsgBox
"Data berhasil direset", vbInformation, "Sukses"
End Sub
Private Sub
Command2_Click()
f_login.Show
Me.Hide
End Sub
12.
Lalu masukan script dibawah ini pada f_Login
Private Sub
Command1_Click()
If Text1 =
f_reset.txtUsername.Text And Text2 = f_reset.txtPassword.Text Then
MsgBox
"Login berhasil"
Menu.Show
Me.Hide
Else
MsgBox
"USer dan Pass yang anda masukan kurang tepat", vbCritical, "Try
again"
Text1 =
""
Text2 =
""
End If
End Sub
Private Sub
Command2_Click()
f_reset.Show
Me.Hide
End Sub
Private Sub
Command3_Click()
End
End Sub
Nah itu adalah scripnya
Ouh iyah lupa tambahkan 1
form lagi dan setting namenya jadi Menu
nah sekarang coba anda
save 1 folder dengan tempat databasenya
lalu jalankan :D
Mungkin cukup sekian
tutorial dari saya
Semoga bermanfaat bagi
sahabat oke :D
Bila sahabt masih bingung silakan Download tutorialnya
GOOD LUCK >>>
Teknologismkbppibaleendah.blogspot.com
