Cara Membuat Form Login dengan Database di VB6

Cara Membuat Form Login dengan Database di VB6

Pada artikel yang lalu Saya sudah membahas tentang cara membuat Form Login tanpa Database, dimana form login ini hanya bisa digunakan 1 User saja.

Tetapi pada pertemuan kali saya akan membahas judul yang hampir sama yaitu membuat Form Login dengan Database.Berbeda dengan form login tanpa databse, form login kali ini bisa digunakan untuk banyak User hingga tak terbatas karena Passwordnya dan datanya sudah tersimpan dalam sebuah database. Si user bisa membukanya dengan Passwornya masing-masing

Database yang digunakan pada artkel ini menggunkan Microsof Access 2016 yang akan di hubungkan dengan Form Visual Basic. Berikut dibawah ini adalah penampakan Form Login yang sudah jadi

Form Login dengan Database

Bagi anda yang penasaran bagaimana cara membuatnya, ikutilah langkah berikut dibawah ini :

A. Membuat Database

• Buatlah sebuah database di MS.Acess terlebih dahulu
• Dengan ketentuan Database sebagai berikut :
• Nama File :DBUser (Format Acess 2000-2003)
• Nama Tabel : TBLUser
• Field terdiri dari :NoID, NmUser dan Pass

Desain Database

• Kemudian isi Database Anda No IDnya,Nama Usernya dan Passwordnya contoh seperti gambar dibawah ini :

• Setelah itu jangan lupa simpan Satu Folder dengan Form VB yang akan kita buat

B. Membuat Form Login :

• Buka Form VB6 Anda pilih Standar EXE
• Tanamkan beberapa Label, 2 Textbox, 1 Checkbox dan 1 Commandbuton di Form1
• Desainlah Form seperti gambar dibawah ini :

Desain Form

• Tambahkan 1 Form lagi jadi ada 2 Form yaitu Form1 dan Form2 dengan cara Project >> Add Form, Form2 akan muncul
• Sekarang kembali ke Form1, lalu ketik kode dibawah ini :

Public conn As ADODB.Connection

Public rs As New ADODB.Recordset

Public strsql As String

Public X As String

Private Sub Check1_Click()

If Not Check1.Value = 1 Then

Text2.PasswordChar = "*"

Else

Text2.PasswordChar = vbNullString

End If

Text2.SetFocus

End Sub

Private Sub Command1_Click()

Set conn = New ADODB.Connection

If conn.State = 1 Then

    conn.Close

End If

If rs.State = 1 Then

    rs.Close

End If

conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" & "Persist Security Info=False;Data source=" & App.Path & "\DBUser.mdb"

conn.Open

conn.CursorLocation = adUseClient

strsql = "select* from TBLUser"

rs.Open strsql, conn, adOpenDynamic, adLockOptimistic, adCmdText

If (Text1.Text = "") Or (Text2.Text = "") Then

MsgBox "Silahkan masukan ID Pengguna dan Password dengan benar !", vbInformation + vbOKOnly, "Isi ID Pengguna dan Password !"

Text1.SetFocus

Else

    X = "NoID='" & Text1.Text & "'"

    rs.Find X

    If rs.EOF Then

        MsgBox "ID Pengguna belum terdaftar" & vbCrLf & "Login Gagal..", vbCritical, "Login Gagal"

        rs.MoveFirst

        Text1.SetFocus

    Else

        If Text1.Text = rs("NoID") And Text2 = rs("Pass") Then

        Form2.Caption = "Administrator : " + Form1.rs("NmUser") 'menampilkan nama User di Form2

            rs.Close

            conn.Close

            Form2.Show 'menampilkan Form2 Administrasi jika berhasil login

            

            Unload Me

        Else

            MsgBox "Password salah !" & vbCrLf & "Silahkan coba lagi dengan benar dan periksa CapsLock karena berpengaruh !", vbCritical + vbOKOnly, "Login Gagal"

            rs.MoveFirst

            

            Text2.SetFocus

        End If

    End If

End If

End Sub

Private Sub Form_Load()

Text1.ToolTipText = "Masukan Nomor ID Anda"

Text2.ToolTipText = "Masukan Password Anda"

'membuat form slalu tampil ditengan

Dim Atas As Long

Dim Kiri As Long

Atas = (Screen.Height - Me.Height) / 2

Kiri = (Screen.Width - Me.Width) / 2

Me.Move Kiri, Atas

    

      

'mengosongkan textbox

Text1.Text = ""

Text2.Text = ""

'menyembunyikan karakter

Text2.PasswordChar = "*"

'efek transfaran pada label

Label1.BackStyle = 0

Label2.BackStyle = 0

Label3.BackStyle = 0

'background warna form

Form1.BackColor = &HFFFF00

Check1.BackColor = &HFFFF00

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

'menampilkan huruf besar

KeyAscii = Asc(UCase(Chr(KeyAscii)))

'penekanan tobol enter

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

'penekanan tombol enter

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

Keterangan kode :

DBUser adalah nama Database-nya

TBLUser adalah nama Tebel-nya

Penulisan huruf besar huruf kecil berpengaruh pada Field Table

Kode pada Form2

Private Sub Form_Activate()

MsgBox "Berhasil Login", vbOKOnly, "Login Sukses"

End Sub

Private Sub Form_Load()

WindowState = 2

End Sub

 

• Kemudian simpan kode anda dan jalankan program

Cara Pengoperasian :

Masukan Nomor ID dan Password yang ada di Database yang sudah diisi, jika berhasil login maka Form2 akan muncul dengan Caption Nama User seperti pada gambar dibawah ini :

Login Sukses

Demikinalah artikel pada kali ini tentang Cara Membuat Form Login dengan Database di VB6, semoga artikel ini bermanfaat buat kita semua.Amin

Sealamat mencoba semoga sukses