Di sini menerima pembuatan Program Aplikasi, bila anda berminat bisa kontak lewat via Email rizal.lonly@gmail.com, dan bila ada link yang rusak segera hubungi admin, Terima kasih atas kunjungannya.

Script Code : Buat Form Login

Posted on
  • Friday, December 16, 2011
  • by
  • Rizal
  • in
  • Labels:
  • 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 :

     
    Copyright © 2011 - 2012 Blogger templates by Rizal