gathoth aje

1. Pertama buka vb 6.0, trus klik add ins, pilih visual data manager 
2. Pilih new database, Microsoft acces--> version 7.0 mdb
3. di tunjukkan gambar berikut.....

 5. Kemudian simpan di folder yang anda kehendaki
 6. Setelah di beri nama kemudian klik kanan properties-->pilih new Table.....
 7. kemudian pada tabel name dikasih nama mahasiswa...alesanya karena kita membuat tabel mahasiswa.....setelah itu klik Add Field........
 8. masukkan Field2nya seperti yang tertera di gambar...........-->pilih salah satu untuk menjadi Primary key nya.......sebagai contoh saya pilih NIK tetapi di namenya saya kasih nama cari.....(ini boleh terserah agan....NIKdex juga boleh)

• Langkah2nya sebagai berikut......cekibrooot.......

1. Buatlah database yang diberinama dbmhs.mdb
2. Bualah Recordnya sesuai dengan yang ada pada form tersebut
3. Buatlah formnya sebagai berikut:

1. Yang harus dibuat adalah bentuk form sebagai berikut:

1.  
2. Form yang terdiri dari:
•  2 label: caption yang 1 di ganti dengan user name, caption yang ke 2 diisi Password
•  1 combobox
• 1 textboxt
• 2 commandbutton captionya diisi bantuan dan keluar
3. Dengan listing sebagai berikut: 
4. Option Explicit
   Dim x As Integer
   Private Sub combo1_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   Text1.SetFocus
   End If
   End Sub
   Private Sub Command1_Click()
   MsgBox ("Passwordnya tergantung dari username")
   MsgBox ("Jika usernamenya : Administrator, maka password : admin")
   MsgBox ("Jika usernamenya : gatot, maka passwordnya : gatot")
   MsgBox ("Terimakasih")
   Combo1.SetFocus
   End Sub
   Private Sub Command2_Click()
   Unload Me
   End Sub
   Private Sub Form_Activate()
   Combo1.SetFocus
   End Sub
   Private Sub Form_Load()
   Combo1.AddItem "Administrator"
   Combo1.AddItem "gatot"
   End Sub
   Private Sub Text2_KeyPress(KeyAscii As Integer)
   If KeyAscii = 13 Then
   Select Case Combo1.Text
   Case "Administrator"
   If Text2 <> "admin" Then
   x = x + 1
   Text2 = ""
   Text2.SetFocus
   Else
   x = 0
   Unload Me
   MENUUTAMA.Show
   End If
   Case "gatot"
   If Text2 <> "gatot" Then
   x = x + 1
   Text2 = ""
   Text2.SetFocus
   Else
   x = 0
   Unload Me
   MENUUTAMA.Show
   End If
       End Select
       Select Case x
           Case 1
           MsgBox "Password salah masih ada 2 kali kesempatan"
           Case 2
           MsgBox "Password salah masih ada 1 kali kesempatan"
           Case 3
           MsgBox "Maaf, kesempatan hanya 3 kali, anda harus mengulang dari awal."
           Unload Me
       End Select
   End If
   End Sub