Cara Membuat Login / PassWord/ Hak Akses

Ingat Suatu Hal " Ilmu Tanpa Amalan Laksana Pohon Tiada Berbuah. dan Lebih baik menjadi orang yang bodoh tapi mau belajar dari pada menjadi orang pintar namun tidak mampu mengamalkan ilmunya. "

Nah.. berlandaskan hal tersebut.. dari pada Netter gak menentu meng Klak-klik tampilan FB, Lebih baik konsentrasi membaca catatan saya berikut.
Kegunaan Form Login ini sangatlah signifikan, karena dengan menggunakan form ini program yang anda ciptakan tidak dapat diakses oleh sembarang orang, sehingga data anda tidak akan dapat diedit oleh tangan yang tidak bertanggungjawab.
CARA MEMBUAT FORM PASSWORD/LOGIN/HAK AKSES

Dengan Asumsi Anda telah membuat Database dengan nama ADOpesanan.mdb dan Tabel dengan nama Kasir dan sebuah form menu.

Rancanglah Form seperti tampilan pada gambar dibawah :


Keterangan Gambar :
Gambar disamping ini Menggunakan Label, namenya terserah anda karena tidak mempengaruhi source kode


Selanjutnya Gambar disamping ini anda rancang Menggunakan Textbox, name nya : txtnamaksr dan txtpasswordksr (sebaiknya ikutin name ini agar mudah mengikuti source kode yang akan saya berikan, namun tidak masalah juga jika anda ingin merubah namanya asalkan di source kodenya juga anda rubah)


Setelah Tampilan anda rancang seperti pada gambar diatas lalu copylah source kode yang ada dibawah . setelah anda yakin mengkopi semua source kode dengan benar maka kembalilah ke Form dan pastekan source kode tersebut setelah anda menekan tombol F7 pada keyboard anda.

Berikut Source Kodenya :

Dim A As Byte
Dim B As Byte
Private Sub Form_Load()
TxtNamaKsr.MaxLength = 35
TxtPasswordKsr.MaxLength = 15
TxtPasswordKsr.PasswordChar = "*"
TxtPasswordKsr.Enabled = False
TxtKodeKsr.Enabled = False
End Sub

Private Sub TxtNamaKsr_KeyPress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
If Keyascii = 27 Then Unload Me
If Keyascii = 13 Then
Call BukaDB
RSKasir.Open "Select NamaKsr from Kasir where NamaKsr ='" & TxtNamaKsr & "'", Conn

If RSKasir.EOF Then
A = A + 1
If 1 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal"
TxtNamaKsr = ""
TxtNamaKsr.SetFocus
ElseIf 2 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal"
TxtNamaKsr = ""
TxtNamaKsr.SetFocus
ElseIf 3 - A = 0 Then
MsgBox "Kesempatan ke " & A & " Salah" & Chr(13) & _
"Nama '" & TxtNamaKsr & "' tidak dikenal" & Chr(13) & _
"Kesempatan habis, Ulangi dari awal"

Unload Me
End If
Else
TxtNamaKsr.Enabled = False
TxtPasswordKsr.Enabled = True
TxtPasswordKsr.SetFocus
End If
End If
End Sub

Private Sub txtpasswordksr_KeyPress(Keyascii As Integer)
Keyascii = Asc(UCase(Chr(Keyascii)))
If Keyascii = 27 Then Unload Me
Dim LoginKasir As String
Dim KodeKasir As String
Dim NamaKasir As String
If Keyascii = 13 Then

Call BukaDB
RSKasir.Open "Select * from Kasir where NamaKsr ='" & TxtNamaKsr & "' and PasswordKsr='" & TxtPasswordKsr & "'", Conn
If RSKasir.EOF Then
B = B + 1
If 1 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
TxtPasswordKsr = ""
TxtPasswordKsr.SetFocus
ElseIf 2 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
TxtPasswordKsr = ""
TxtPasswordKsr.SetFocus
ElseIf 3 - B = 0 Then
MsgBox "Kesempatan ke " & B & " Salah"
'End
Unload Me
End If
Else
Unload Me
Menu.Show
End If
End If
End Sub

Jika tulisan source kode berubah menjadi warna merah berarti ada kesalahan dalam kode program. Silahkan anda perhatikan baik-baik dan sesuaikan dengan rumus diatas. Dan jika source kode tidak ada kesalahan, saatnya anda melanjutkan pekerjaan. Langkah selanjutnya adalah klik menu Project – Pilih Add Module. Lalu kopilah source kode dibawah dan pastekan pada module tersebut

Berikut source kode pada Module :
' Kegunaan source kode ini adalah untuk koneksi antara vb dengan database.. akan tetapi jika anda mempunyai cara koneksi lain tidak masalah digunakan yang terpenting diselaraskan antara nama database dan nama tabelnya. source kode yang saya berikan ini adalah source adodb, untuk pengembangan silahkan gunakan adodc.
Public Conn As New ADODB.Connection
Public RSKasir As ADODB.Recordset

Public Sub BukaDB()
Dim STR As String
Set Conn = New ADODB.Connection
Set RSKasir = New ADODB.Recordset
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ADOPesanan.mdb"
End Sub

Selamat Mencoba !!!