Jumat, 29 Maret 2013


      



Pembahasan kita kali ini adalah membuat Form Login pada Visual Basic 6.0. Form Login digunakan sebagai akses utama ketika seorang user akan masuk dan menggunakan program. Dengan adanya form login maka tidak semua orang dapat mengakses program yang kita buat dengan bebas. Hanya orang - orang tertentu yang bisa masuk dan menggunakannya. 

Baiklah saya akan memberikan sedikit gambaran mengenai Form login. Contoh berikut ini masih sangat sederhana, teman - teman dapat mengembangkannya lebih lanjut. 
Membuat database di Ms  Access ( Nama database terserah, sebagaicontoh teknikkom.mdb
 
 Membuat table User yang berisi table ( kodeuser, namauser, passworduser )
Setelah selesai membuat database sekarang buka VB teman - teman  dan kemudian membuat form Login sepertigambar diatas
Kode User menggunakan Text1
Password menggunakan Text2
Login menggunakan Command1
Batal Menggunakan Command2

Setelah membuat form seperti yang saya instuksikan kemudian untuk menggunakan coding seperti di bawahini :
 Sub Form_Load()
    Call BukaDB
    Text1.MaxLength = 6
    Text2.MaxLength = 10
    Text2.PasswordChar = "X"
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
    Call BukaDB
    Call CariData
            If RSuser.EOF Then
                MsgBox "User TidakTerdeteksi, Cobalagi"
                Text1 = ""
            Else
            Text2.SetFocus
            End If
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
    If KeyAscii = 13 Then
        Command1.SetFocus
    End If
End Sub

Function CariData()
    Call BukaDB
    RSuser.Open "Select * From admin where kodeuser='" & Text1 & "'", koneksi
End Function
Private Sub Command1_Click()
Call BukaDB
        RSuser.Open "Select * from admin where kodeuser ='" & Text1 & "' and passworduser='" & Text2 & "'", koneksi
        If RSuser.EOF Then
            MsgBox "Password Salah, CobaLagi!"
            Text2 = ""
            Text2.SetFocus
        Else
            Unload Me
            menu.Show
        End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub
Jangan lupa membuat coding Modules seperti dibawah ini
Public koneksi As New ADODB.Connection
Public RSuser As ADODB.Recordset
Public Sub BukaDB()
Set koneksi = New ADODB.Connection
Set RSuser = New ADODB.Recordset
koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" &App.Path& "\teknikkom.mdb"
End Sub
Posted by Unknown On 05.39.00 1 comment

1 komentar:

  • RSS
  • Delicious
  • Digg
  • Facebook
  • Twitter
  • Linkedin
  • Youtube