Cara Membuat Form Login

Untuk membuat sistem keamanan dalam program yang dibuat,  kita harus membuat form login yang bisa membatasi orang yang akan masuk ke sistem. Ada beberapa cara yang dapat dilakukan untuk membuat sebuah form login pada sebuah program. Cara ini tentu tergantung pada selera dan kebutuhan. Pada contoh ini kita akan membuat sebuah form login yang terdiri dari satu tabel login, form login, module koneksi. Adapun langkah-lankahnya sebagai berikut.

1. Membuat Tabel Login: Sebetulnya dalam mebuat form login tidak selamanya harus menggunakan      tabel login. Tidak mesti juga membuatnya harus dimulai dengan membuat tabel login. 

field	type data	field size
username	text	30
password	text	30

2. Membuat form login sederhana

3. Membuat Kode Module :Tambahkan satu module yang akan kita gunakan untuk membuat module     koneksi. kemudian ketik kode-kede berikut.

  Global conn As ADODB.Connection

Global rspasien As ADODB.Recordset

Global rsobat As ADODB.Recordset

Global rsterapi As ADODB.Recordset

Sub koneksi()

    Set conn = New ADODB.Connection

        conn.Provider = "microsoft.jet.oledb.4.0"

        conn.CursorLocation = adUseClient

        conn.Open App.Path & "\dbdr.mdb"

End Sub

4. Ketikan mantra-mantra berikut pada jendela kode

Private Sub Form_Load()

koneksi

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Command1_Click()

If Tuser.Text <> "" And Tpas.Text <> "" Then

    Set rslogin = New ADODB.Recordset

        rslogin.LockType = adLockOptimistic

        rslogin.CursorType = adOpenDynamic

        rslogin.Open "select * from login where user_name = '" & Tuser.Text & "' and password = '" & Tpas.Text & "'", conn, , , adCmdText

        If Not rslogin.EOF Then

        MsgBox ("Login Anda Berhasil")

        Form1.Show

        login.Visible = False

        Else

            MsgBox "User Name dan Password Salah Silahkan Ulangi Kembali", vbCritical

            Exit Sub

        End If

End If

End Sub

Private Sub Timer1_Timer()  ' tulisan berjalan pada caption

Caption = Mid(Caption, 1 + 1, Val(Len(Caption) - 1)) & Mid(Caption, 1, 1)

End Sub

Tweet

Subscribe to receive free email updates: