Membuat Form Log in dengan VB 6

Akhirnya... bisa kembali nulis nulis lagi hehehe, dari kemarin lagi asik belajar Visual basic c......

Okelah kalo begitu..... ni ane kasih salah satu pelajaran yang ane dapet.

mungkin anda pernah melihat suatu program yang mana ketika anda mencoba masuk ke dalam program tersebut anda harus login dahulu dengan user name dan password tentunya.. bingung cara buatnya? sama... hahahaha, tapi akhirnya bisa juga, ni aku bagi tutorialnya....

Langkah yang harus di persiapkan adalah membuat sebuah database menggunakan MS. Access. Berikan namalogin.mdb. Kemudian buat sebuah tabel dengan nama login. Isikan field2nya seperti gambar di bawah ini

Field Name	Field Type	Field Size
USER	Text	25
PASS	Text	25

Setelah anda membuat tabelnya. Langkah berikut yang harus anda kerjakan adalah merancang form pada VB dengan komponen dan property seperty tabel dibawah ini

Komponen	Property
Label	Name : Label1Caption : USER
Label	Name : Label1Caption : PASSWORD
TextBox	Name : Text1Text : (dikosongkan)
TextBox	Name : Text2Text : (dikosongkan) PasswordChar : *
CommandButton	Name : Command1Caption : LOGIN
CommandButton	Name : Command2Caption : Keluar
Frame	Name : Frame1Caption : LOGIN

Kode program yang harus anda ketikkan dapat di lihat pada gambar berikut

Tetapi jgan lupa sebelum menulis kan kodenya anda harus mencentang referece seperti gambar di bawah ini.

Kode program selengkapnya:

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

Private Sub Command1_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= '" & Text1.Text & _
"' And pass = '" & Text2.Text & "'", conn, 3, 3
If Not RS.EOF Then
MsgBox "BERHASIL"
Else
MsgBox "Data Salah", vbCritical, "L O G I N"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub