Di tutorial-tutorial sebelumnya saya sudah pernah membuat form login versi 1 yang tidak menggunakan database, dan form login versi 2 yang menggunakan notepad sebagai data basenya, kali ini saya akan membuat form login menggunakan database acces, baiklah berikut tutorialnya :
1. Pertama buatlah telebih dahulu Table Ms. Accesnya dengan format .mdb (Microsoft Office Access Databases (2002-2003 format)) dan dengan kriteria sebagai berikut :
Anda bisa melihat tutorialnya: Cara Membuat Database dan Tabel baru di Ms. Access
Di sini saya menamai file databasenya "Database_BluesPedia" dan nama tabel "Data_User"
Isi datanya minimal satu record seperti ini :
2. Jika sudah Buka VB dengan project standar EXE
3. Tambahkan 3 Label, 2 Text Box, 2 command button dan 1 Adodc
5. Langkah selanjutnya koneksikan File database Ms. Access dengan VB
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from Data_User where Username = '" & Text1.Text & "' and Password = '" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "MASUKAN DATA DENGAN BAIK ", vbExclamation, "Miftah"
Else
MsgBox "SELAMAT ANDA BERHASIL", vbInformation, "Miftah"
Unload Me
Form2.Show
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
Text2.PasswordChar = "*"
End Sub
7. Jika sudah tambahkan satu form lagi,
fungsi form 2 di sini, agar ketika data login yang dimasukan benar /sama dengan database maka form2 akan muncul dan form1 / login akan menghilang, Jika sudah simpan project
8. Silahkan jalankan program
Sekian tutorial kali ini semoga bermanfaat
Isi datanya minimal satu record seperti ini :
2. Jika sudah Buka VB dengan project standar EXE
3. Tambahkan 3 Label, 2 Text Box, 2 command button dan 1 Adodc
Anda bisa melihat tutorialnya : Cara Menambahkan Komponenn Tambahan (Adodc)4. Atur Propertiesnya sehingga seperti ini :
| Tool Box | Properties | Keterangan |
| Form 1 | Start Up Positions | Center Screen |
| Label 1 | Caption | LOGIN FORM |
| Font Size | 24 | |
| Label 2 | Caption | Username |
| Label 3 | Password | |
| Text 1 | Text | (Kosong) |
| Text 2 | (Kosong) | |
| Command 1 | Caption | LOGIN |
| Command 2 | END | |
| All | Font Size | 12 |
5. Langkah selanjutnya koneksikan File database Ms. Access dengan VB
Anda bisa melihat tutorialnya : Cara Mengkoneksikan Ms. Access dengan VB6. Jika data base sudah terhubung, tuliskan script berikut :
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from Data_User where Username = '" & Text1.Text & "' and Password = '" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "MASUKAN DATA DENGAN BAIK ", vbExclamation, "Miftah"
Else
MsgBox "SELAMAT ANDA BERHASIL", vbInformation, "Miftah"
Unload Me
Form2.Show
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
Text2.PasswordChar = "*"
End Sub
7. Jika sudah tambahkan satu form lagi,
fungsi form 2 di sini, agar ketika data login yang dimasukan benar /sama dengan database maka form2 akan muncul dan form1 / login akan menghilang, Jika sudah simpan project
8. Silahkan jalankan program
Sekian tutorial kali ini semoga bermanfaat