- Buat database menggunakan Ms-Access 97 atau add-in Visual Data Manager
- Buat tabel nama Users yang terdiri dari field nama dan password lalu isi datanya
- Buka VB 6 IDE kemudian buat form seperti pada gambar di bawah
- Tambahkan komponen Data lalu sembunyikan sehingga tampilan form seperti pada gambar sebelah kiri
- Setelah mengubah properti Connection, DatabaseName, dan RecordSource pada komponen Data1 kemudian buat program seperti di bawah ini
Private Sub Command1_Click()
Dim berhasil As Boolean
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0) = Text1.Text And _
Data1.Recordset.Fields(1) = Text2.Text Then
berhasil = True
Exit Do
End If
Data1.Recordset.MoveNext
Loop
If berhasil Then
MsgBox ("Login berhasil")
Else
MsgBox ("login gagal")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Di atas adalah form login dasar dan masih harus dikembangkan agar menjadi form login yang efektif dan bebas bug. Alternatifnya, kita dapat menggunakan komponen ADODC jika databasenya selain Ms-Access 97
1 komentar:
mas,saya gagal denganb koding di atasa
Posting Komentar