Cara Membuat Form Login Menggunakan VB 6.0

Persiapan :
Membuat database menggunakan ms. Access 2007.
Membuat Form Login.

Tahap 1 : Membuat Database.
Buatlah Database dengan menggunakan ms. Access 2007 dan simpan dengan nama database LoginDB.mdb.
clip_image002

Tahap 2 : Membuat Form Login.
Buatlah Form Login seperti contoh gambar di bawah ini. Jika selesai membuat form tambah sebuah komponen Adodc

Tahap 3 : Mengatur Properti.
textBox1 : name txtNama
textBox2 : name txtSandi
commandButton1 : name cmdLogin, Caption LOGIN
commandButton1 : name cmdBatal, Caption BATAL

tahap 4 : Menghubungkan Database.
Klik Kanan komponen Adodc dan pilih ADODC Properties
Klik Build - Microsoft Jet 4.0 OLE DB Provider Next.
pilih Select Database Name
Masukkan database yang telah sobat dibuat hingga seperti gambar berikut :
Untuk memastikan database terkoneksi atau tidak coba klik Test Connection dan jika terkoneksi dengan database maka hasilnya akan seperti berikut :

Tahap 5 : Membuat Coding.
Tambahkan sebuah module pada project sobat.

Selanjutnya copas coding berikut :

Source Code Module
'Event Module
Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

Doble klik tombol Login dan copas code berikut :
Source Code Login
'Event Tombol Login
If conn.State = 1 Then conn.Close
conn.Open " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\myAplikasi\loginDB.mdb;Persist Security Info=False"
If RS.State = 1 Then RS.Close
RS.Open "select * from login where nama= '" & txtNama.Text & "' And sandi = '" & txtSandi.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL"
Form2.Show
Else
MsgBox "Data Salah", vbCritical, "L O G I N"
txtNama.Text = ""
txtSandi.Text = ""
txtNama.SetFocus
End If
Untuk tombol Batal, doble klik tombol Batal dan copas code berikut :
Source Code Batal

'Event Tombol Batal
unload me

Selengkapnya : http://contohprogramvb6.blogspot.com/

By: agusvibi
As posted on http://MobineSSia.com