MEMBUAT FORM LOGIN

Form login adalah sebuah form yang dirancang untuk melakukan autentikasi atau pengecekan terhadap user yang bisa masuk kedalam sebuah system. Proses ini diawali dengan pembuatan tabel login untuk menyimpan username dan password setiap user yang terdaftar dalam program tersebut.

Membuat Tabel Login

Atur dan rancang tabel seperti berikut

Field	Type	Value
User	Text	25
Pass	Text	25

Merancang Form Login

Atur objek properti seperti gambar di bawah ini.

Atur property seperti berikut:

Komponen	Property
Label	Name : Label1 Caption : USER
Label	Name : Label1 Caption : PASSWORD
TextBox	Name : Txtuser Text : (dikosongkan)
TextBox	Name : TxtPass Text : (dikosongkan) PasswordChar : *
CommandButton	Name : cmdLogin Caption : LOGIN
CommandButton	Name : cmdKeluar Caption : Keluar
Frame	Name : Frame1 Caption : LOGIN

Ketikkan kode program berikut

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset

Private Sub cmdLogin_Click()

If conn.State = 1 Then conn.Close
conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\login.mdb"

If RS.State = 1 Then RS.Close

RS.Open "select * from login where user= '" & txtuser.Text & "' And pass = '" & txtpass.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL"
Else
MsgBox "Data Salah", vbCritical, "L O G I N"
Txtuser.Text = ""
Txtpass.Text = ""
Txtuser.SetFocus
End If
End Sub

Private Sub cmdKeluar_Click()
end
End Sub

Penjelasan Kode Program

Kode Program	Penjelasan
Public conn As New ADODB.Connection Public RS As New ADODB.Recordset	Merupakan kode untuk mengkoneksikan form ke database
If conn.State = 1 Then conn.Close conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\login.mdb"	Jika koneksi yang dilakukan sedang terbuka maka tutup dahulu agar tidak terjadi kesalahan. Conn.open digunakan untuk membuka database yang ingin digunakan. Sebagai catatan anda bisa menggunakan bantuan komponen ADODC. Caranya adalah dengan men-copy use connection string-nya. Untuk mempersingkat path (atau alamat) database, anda bisa menggunakan perintah app.path. Maksud dari perintah ini adalah program akan mencari di alamat tempat projek disimpan.
If RS.State = 1 Then RS.Close RS.Open "select * from login where user= '" & txtuser.Text & "' And pass = '" & txtpass.Text & "'", conn, 3, 3	Jika recordsetnya terbuka maka tutup Rs.open adalah perintah untuk membuka tabel yang di inginkan dengan menggunakan perintah SQL.
If Not RS.EOF Then frmUtama.show Else MsgBox"Data Salah",vbCritical,"LOGIN"	Jika data tidak end of file maka tampilkan form utama. Maksud dari EOF adalah data yang dimaksud ada pada tabel. Selain itu maka tampilkan pesan kesalahan

download program di sini