Cara Membuat Form Login

Cara Membuat Form Login  dengan visual basic 6.0Untuk 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

Subscribe to receive free email updates:

1 Response to "Cara Membuat Form Login "