Membuat Form Login Pada Visual Basic

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.

Socializer Widget By Blogger Yard

SOCIALIZE IT →

Tweet

FOLLOW US →

SHARE IT →