Membuat Program Login - Logout menggunakan VB 6.0

Selamat Pagi / Siang / Sore / Malam

Kali ini saya coba share lagi koding sederhana yang bisa jadi referensi buat belajar. Pembuatan form login sangat penting buat aplikasi apapun yang kalian buat, soalnya itu bakal ngaruh ke otorisasi si usernya. Nah, kalau begitu kita simak ajja gimana sih buat form login yang kalau user dan passwordnya benar akan membuka form berikutnya. Silahkn menyimak  (^_^)

Output :

Source Code :

Pada Form 1

Private Sub Command1_Click()

Dim U, P As String

U = "Kurniadi"

P = "110395"

If Text1.Text = U And Text2.Text = P Then

    Form1.Hide

    Form2.Show

    Form2.Label1.Caption = "Selamat Datang, " + U

Else:

    MsgBox "User Name atau Password Anda Salah, Coba Lagi !"

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

End If

End Sub

Pada Form 2

Private Sub Command1_Click()

Form2.Hide

Form1.Show

Form1.Text1.Text = ""

Form1.Text2.Text = ""

Form1.Text1.SetFocus

End Sub

Penjelasan :

Dalam pembuatan program login sederhana ini, saya menggunakan komponen text box, label dan button. Untuk membuat program login sebenarnya cukup mudah, kita hanya harus menyamakan teks pada text box dengan string yang telah kita siapkan sebagai kunci nya. Berikut penjelasan koding per baris nya :

Dim U, P As String

Merupakan pendeklarasian tipe variabel. Saya menggunakan tipe data string karena kebutuhan pembuatan username dan password umumnya adalah menggunakan karakter, angka dan symbol sehingga tipe data string merupakan yang paling cocok untuk ini.

U = “Kurniadi”

P  = “110395”

Merupakan pemberian nilai pada variabel U dan P. Dimana U akan dijadikan sebagai kunci untuk username dan P akan dijadikan kunci untuk Password.

If Text1.Text = U And Text2.Text = P Then

    Form1.Hide

    Form2.Show

    Form2.Label1.Caption = "Selamat Datang, " + U

Ketika button Login di klik, bagian di atas menyeleksi kondisi saat teks pada text box 1 dan text box 2 bernilai “true” pada kedua string kunci yang telah kita siapkan sebagai variabel U dan P sebelumnya. Ketika kondisi bernilai true maka Form1 akan disembunyikan dan Form2 akan dimunculkan. Kemudian Caption label1 pada Form2 akan diubah menjadi “Selamat Datang, Kurniadi” (Tergantung Username pada variabel U).

Else:

    MsgBox "User Name atau Password Anda Salah, Coba Lagi !"

    Text1.Text = ""

    Text2.Text = ""

    Text1.SetFocus

End If

Bagian else akan dijalankan saat kondisi teks pada Text box 1 dan Text box 2 tidak sesuai dengan string yang telah kita siapkan sebagai kunci. Ketika kondisi bernilai “false” program akan memunculkan messagebox dengan tulisan seperti di atas. Kemudian mengosongkan text1 dan text2 serta mengembalikan posisi kursor ke text1.

Lalu pada form2

Form2.Hide

Form1.Show

Ketika button  logout diklik, Form2 akan disembunyikan dan Form1 akan dimunculkan kembali.

Form1.Text1.Text = ""

Form1.Text2.Text = ""

Perintah ini digunakan untuk mengosongkan text1 dan text2 yang ada di form1.

Form1.Text1.SetFocus

Merupakan perintah untuk mengembalikan posisi kursor ke Text1 yang ada di form1.