Script Code : Buat Form Login

Anda sekalian pasti sudah tahu apa itu Login? kalau belum tahu Login itu adalah suatu form yang digunakan untuk masuk ke sistem ID user, baik itu private maupun public. Kalau Login yang bersifat private seperti Login admin, dimana hanya admin yang bisa mengaksesnya, tapi kalau public semuanya bisa sharing. Nah, di sini saya akan berbagi Script Code untuk membuat Form Login, ini bukan Form Login biasa karena Form Login yang akan saya bagikan, Password nya saya Enkripsi, jadi Password nya di kodekan dan Form Login ini hanya bisa diakses oleh user yang mempunyai ID nya saja yang bersifat private, tapi user lain bisa mengakses dengan cara konfirmasi oleh admin sehingga user tersebut bisa mengaksesnya. Jika anda berminat bisa mengikuti langkah-langkah sebagai berikut :
1.  Form
     -  Login(Login.frm)

     Script Code :

Dim adologin As New ADODB.Recordset
Public conn As New ADODB.Connection
Dim strsql As String
-----------------------------------------------------------------------------------------
Private Sub cmdbatal_Click()
kosong
End Sub
-----------------------------------------------------------------------------------------
Private Sub cmdlogin_Click()
strsql = "select * from adm_user " _
& " where userID='" & txtUserId.Text & "' " _
& " and password=md5('" & txtPassword.Text & "')"
Set adologin = conn.Execute(strsql)
If Not adologin.EOF Then
MDIMenuUtama.Show
Me.Hide
txtUserId.Text = ""
txtPassword.Text = ""
Else
MsgBox "User atau Password Tidak Sesuai..", _
vbCritical, "Error Login"
End If
End Sub
-----------------------------------------------------------------------------------------
Private Sub Form_Load()
'Database dan Password bisa anda ganti.
strsql = "Driver={Mysql ODBC 3.51 Driver}; " _
& " Server=localhost; Database=root;" _
& " UID=root; Password="
Set conn = New ADODB.Connection
conn.ConnectionString = strsql
conn.CursorLocation = adUseClient
conn.Open
End Sub
-----------------------------------------------------------------------------------------
Sub kosong()
txtUserId.Text = ""
txtPassword.Text = ""
End Sub

Selanjutnya anda mengisi perintah SQL, sebagai berikut :

Dan Ketik SQL :

insert into adm_user values ('Rizal',md5('admin'));

Catatan :

• Dimana pada SQL yang saya gunakan adalah SQLyog, anda bisa pakai Appserv atau xammp, perintahnya sama saja.
• Bila anda belum mempunyai MySQL ODBC Konektor 3.51, bisa didownload Di Sini

Baca Juga Artikel Terkait :