Salam Programmer, Kali ini Admin Blog Mas Atepz  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 :

Saya Anggap Teman – Teman sudah Mengerti Membuat Database pada Ms Access. Sekarang Buka Ms Access dan Membuat database di Ms  Access ( Nama database terserah, sebagai contoh dbkaryawan.mdb)
dan sekarang teman teman buat table User yang berisi table ( kodeuser, namauser, passworduser ) kemudian simpan database anda dalam 1 folder dengan project vb yang akan anda buat.Setelah selesai membuat database sekarang buka VB yang barusan di instal dan kemudian membuat form Login seperti gambar diatas

Kode User menggunakan Textbox1.text
Password menggunakan  Textbox2.text
Login menggunakan Command1
Batal Menggunakan Command2

Setelah membuat form seperti yang saya instuksikan kemudian anda gunakan coding seperti di bawah ini :

*Add MODULE untuk koneksi ke databse , Berikut Codingnya :

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 &    “\dbkaryawan.mdb”
End Sub

*Copas Coding Di bawah ini dan masukan ke Sub Form_Load()                                        Sub Form_Load()
Call BukaDB
Text1.MaxLength = 6
Text2.MaxLength = 10
Text2.PasswordChar = “X”
End Sub

*Copas Codingan di bawah ini dan masukan ke Textbox1
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

*Copas Codingan di bawah ini dan masukan ke Textbox1
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

*Copas Codingan masukan ke sub Form_Load taroh paling bawah :                       Function CariData()
Call BukaDB
RSuser.Open “Select * From admin where kodeuser='” & Text1 & “‘”, koneksi
End Function

*Copas Codingan di bawah ini dan masukan ke Sub Command1_Click :
Private Sub Command1_Click()
Call BukaDB
RSuser.Open “Select * from admin where kodeuser ='” & Textbox1.text & “‘ and               passworduser='” & Textbox2.text & “‘”, koneksi
If RSuser.EOF Then
MsgBox “Password Salah, Coba Lagi!”
Text2 = “”
Text2.SetFocus
Else
Unload Me
menu.Show
End If
End Sub

*Copas Codingan di bawah ini dan masukan ke Sub Command2_Click :                     Private Sub Command2_Click()
Unload Me
End Sub

Setelah kelar coba runing atau tekan F5 maka program akan coba di load.

Mudah Bukan???

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s