Docstoc

Cara membuat LOGIN

Document Sample
Cara membuat LOGIN Powered By Docstoc
					http://ilham-sundanis.blogspot.com/2012/02/cara-membuat-form-login-pada-vb.html
Home » VB » Cara Membuat Form LOGIN pada VB
Cara Membuat Form LOGIN pada VB




Salam Programmer, Kali ini vainit akan mencoba berbagi pengalaman dengan Bahasa
Pemograman VB, dan Pembahasaannya adalah cara membuat Form Login di VB, Form login
ini tentunya saya relasikan dengan database. Ikuti langkah saya berikut ini :

Membuat database di Ms Access ( Nama database terserah, sebagai contoh dbvainit.mdb
Membuat table User yang berisi table ( kodeuser, namauser, passworduser )
Setelah selesai membuat database sekarang buka VB anda dan kemudian membuat form
Login seperti gambar diatas
Kode User menggunakan Text1
Password menggunakan Text2
Login menggunakan Command1
Batal Menggunakan Command2

Setelah membuat form seperti yang saya instuksikan kemudian anda gunakan coding seperti
di bawah ini :
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 Tidak Terdeteksi, Coba lagi"
            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, Coba Lagi!"
         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 &
"\dbvainit.mdb"
End Sub

				
DOCUMENT INFO
Shared By:
Categories:
Tags:
Stats:
views:42
posted:11/1/2012
language:Malay
pages:3