Rabu, 06 Februari 2013

Login Database sederhana


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

Tidak ada komentar:

Poskan Komentar