Setelah Bosan dengan Disegn - disegn pada VB, pasti kita ingin membuat form untuk login atau masuk ke form yang sudah kita buat tersebut, (maaf sebelumnya ya, karena ini husus saya posting untuk para programmer pemula pada vb, dan untuk anda yang
merasa post ini udah jadul silahkan di close kemudian tinggalkan, karena saya yakin ini sangat tidak bermamfaat bagi anda.)
oke sekarang kita langsung aja pada pokok pembicaraan kita ya.
untuk membuat form login kita harus membuat,
pertama, database dari form tsb (pada kali ini kita menggunakan database Ms.accsess)
kedua, design formnya (tergantung kekereatifan kita)
ketiga, masukkan kodenya,
ke empat, selesai
jika ada diantara anda yang ingin mencoba membuat form login di bawah saya sudah menyiapkan kodenya jika anda malas ngetik silahkan di copy paste
kita mulai ya.
1. buka ms.accsess nya
2. buat database dengan nama terserah anda( dalam kode di bawah ini saya menggunakan nama "db", tapi jika anda ingin menggantinya silahkan di edit pada codenya nanti sesuai dengan nama data base yang anda buat
3. buat tabel untuk penyimpanan username dan password
4.masukan username dan password yang anda inginkan pada tabel tersebut
5.save database yang anda buat tsb
6.buka program vb anda
7.design formnya dengan 2 buah label, 2 text, dan 2 command button seperti gammbar di bawah ini
8. kalau udah jadi formnya silahkan copy paste code di bawah ini
'***********************************************************
'untuk contoh, pada database sudah saya isi dengan data sbb:
'Username :adam
'password :chand
'********************potong disini*****************************
Private con As New ADODB.Connection
Private rst As New ADODB.Recordset
Private strconn As String
Private sql As String
Private Sub Connections()
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db.mdb ;Persist Security Info=False;Jet OLEDB"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strconn
Else
con.Open strconn
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdLogin_Click()
On Error Resume Next
Static i As Integer
If txtUser.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Nama", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text = "" Then
GoSub noacc
MsgBox "Anda belum memasukkan Kata Sandi", vbInformation + vbOKOnly, ":: Informasi ::"
txtPass.SetFocus
Else
sql = "SELECT * FROM LOGIN WHERE username='" & txtUser.Text & "'"
Set rst = con.Execute(sql)
If rst.EOF Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
ElseIf txtPass.Text <> rst("pass") Then
GoSub noacc
MsgBox "Nama atau Kata sandi yang anda masukkan salah", vbInformation + vbOKOnly, ":: Informasi ::"
txtUser.SetFocus
Else
MsgBox "Selamat anda berhasil login", vbInformation + vbOKOnly, "Informasi"
Unload Me
End If
End If
Exit Sub
noacc:
i = i + 1
If i = 3 Then
MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: Gagal ::"
End
Else
Return
End If
End Sub
Private Sub Form_Load()
Call Connections
txtUser.Text = ""
txtPass.Text = Empty
End Sub
***************************potong disini****************************
silahkan di coba, selamat berkreasi,semoga bermamfaat.
