Membuat Form Login Dinamis Menggunakan Vb.6.0

Setelah kemarin kita membahas tentang pembuatan form login statis nah sekarang kita akan membuat form login dinamis . Apa bedanya tentang form login statis dan dinamis ? Bedanya, form login statis ini masih bersifat manual yang dimana username atau password dituliskan didalam lembar kerja kode , sedangkan form login dinamis username atau passwordnya bisa dituliskan di selain lembar kerja kode .
Untuk lebih jelasnya mari perhatikan langkah - langkah membuat form login dinamis .

Pertama kita buat databasenya terlebih dahulu menngunakan Ms Accses . kemudian berinama latih_1.mdb . Buat sebuah table dengan nama Login dan isikan field - fieldnya seperti gambar yang di bawah ini

Buat rancangan form login menggunakan VB 6.0 dengan property dan komponen seperti gambar yang ada di bawah ini

Setelah membuat rancangan selanjutnya buat form module dengan cara
Klik Project > Add Module

tampilan form module




Langkah selanjutnya memasukan kode program tersebut kedalam lembar kerja kode
berikut kode programnya :

Untuk form login , masukan kode program tersebut kedalam form login

Private Sub Command1_Click()
Koneksi
sql = "select * from login where username = '" & Text1.Text & "' and password = '" & Text2.Text & "'"
Set rcs = con.Execute(sql)
If Not rcs.EOF Then
Else
MsgBox ("Username atau Password yang anda masukan salah !! , Coba ulangi lagi !!..."), vbInformation, "Peringatan"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub

Untuk form module masukan kode program berikut ke dalam form module

Public con As New ADODB.Connection
Public rcs As New ADODB.Recordset
Public sql As String

Public Sub Koneksi()
If con.State = 1 Then con.Close
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Login.mdb"
End Sub

selamat mencoba ya !!!

Download Artikel ini !!

Download Aplikasi Ini !!

Kunjungi terus " Blog Dreams " untuk mendapatkan informasi - informasi terkini tentang programming , cara pembuatan database , dan artikel - artikel lainnya