Membuat Form Login Sederhana (VB6)

Halo sobat, bicara mengenai pemprograman yang banyak di bahas di internet dan media. Walaupun banyak web atau blog yang menerangkan secara gamplang mengenai vb dan Source Code nya, namun tidak ada salahnya kan saya membagikan hal yang saya bisa. 

Ok, sekarang saya akan membagikan tutorial mengenai cara Membuat Form Login Sederhana. langsung saja buka program Visual Basic 6.

• Tambahkan 1 Database (Ms.Access) dengan nama tabel 'TBL_USER' dan fieldnya terdiri dari: UserID, Pass, Nama
• Nama Database : DBProjects
• Tambahkan 1 Form : Form1 (Default)
• Tambahkan 1 MDIForm : MDIForm1 (Default)
• Tambahkan 1 Module : Module1 (Default)
• Tambahkan Microsoft ActiveX Data Objects 2.1 Library
  Caranya : Klik menu Project => References lalu cari Microsoft ActiveX Data Objects 2.1 Library

Ketikkan coding ini di Module1:

Public Rs As New ADODB.Recordset
Public Sql As String
Public Con As New ADODB.Connection
Sub Koneksi()

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBProjects.mdb;Persist Security Info=False"

End Sub

Selanjutnya ketikkan coding ini di Form1:

Private Sub Command1_Click()
Call Koneksi
Rs.CursorLocation = adUseClient

Sql = "select * from TBL_USER where USERID = '" & Text1.Text & "' and pass = '" & Text2.Text & "'"

Set Rs = Con.Execute(Sql)
If Not Rs.EOF Then
    MDIForm1.Show
    Unload Me
    Rs.Close
Else
    MsgBox ("Periksa user dan password anda"), vbInformation, "Oopzz......"
    Text1.Text = ""
    Text2.Text = ""
    txt1.SetFocus
End If
End Sub

Untuk Source Code nya bisa anda download dibawah ini

Download

Semoga bermanfaat ...

share this article to: Facebook Twitter Google+ Linkedin Technorati Digg

Posted by Admin (Ade Setiadi), Published at 2:44:00 PM and have 0 comments