Membuat Form Login dengan VB6

Hai sobat bodolers dimanapun berada, malam ini mimin lagi galau nih jadi mimin mau share ilmu mimin sama kalian semua biar galaunya ilang. Kemarin kita sudah belajar membuat aplikasi-aplikasi sederhana dengan vb6  dan kali inipun tidak kalah sederhananya tapi sangat berguna karena kebanyakan aplikasi akan menggunakannya. Langsung saja kita mulai yah ,,,
Langkah pertama kita buat dulu databasenya , kali ini kita menggunakan database acces. Caranya :
1. Kita buka dulu MS Acces nya

2. Klik Bagian yan ditunjuk tanda panah

3. Ketik nama databasenya , disini mimin pakai "Gudang.mdb" lalu pilih direktorinya kemudian klik 'Create'

4. Akan muncul tampilan ini , klik bagian bertanda panah

5. Kemudian simpan dengan nama 'login'

6. Buat tabelnya dan jika sudah jadi akan seperti tampilan di atas

 Setelah database berhasil dibuat , maka langkah selanjutnya adalah membuat tampilan form login di VB6. Buat form seperti gambar di bawah

Tampilan form yang belum jadi

Kemudian di listing programnya tuliskan seperti ini :
=========================================================================
'memunculkan pasword
Private Sub Check1_Click()
If Check1.Value = 1 Then
Text2.PasswordChar = ""
Else
Text2.PasswordChar = "*"
End If
End Sub

Private Sub Command1_Click()
Call koneksi
Set rslogin = New ADODB.Recordset
rslogin.Open " select * from login where user = '" & Text1.Text & "' and password = '" & Text2.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rslogin.EOF Then
    Unload Me
    MsgBox " Selamat datang "
    Form2.Show
    Else
    MsgBox " Maaf, anda bukan pengguna yang berhak !"
    Text1 = ""
    Text2 = ""
    Text1.SetFocus
    End If
    End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Text2.SetFocus
    End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    Command1.SetFocus
    End If
End Sub
=========================================================================
namun agar program dapat berjalan seperti seharusnya kita harus menambahkan sebuah Module koneksi pada project kita dan berikut listing programnya
=========================================================================
Public cn As New ADODB.Connection
 Public rsbeli As New ADODB.Recordset
 Public rsbarang As New ADODB.Recordset
 Public rslogin As New ADODB.Recordset
 Public rsjenis As New ADODB.Recordset
 Public RSsupli As New ADODB.Recordset

 Sub koneksi()
 Set cn = New ADODB.Connection
 cn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0; data source= " & App.Path & "\gudang.mdb;" & "Persist Security Info = False"
 cn.CursorLocation = adUseClient
 cn.Open
 End Sub
==========================================================================

Penampakan setelah jadi (password dilindungi tanda *)

 

Password dapat dilihat dengan meng-klik pada checkbox

Sekian potingan mimin kali ini, lebih kurangnya mimin minta maaf dan jika ada pertanyaan silahkan post di komen. Silahkan download projectnya pada tombol dibawah