Membuat Form Login Tanpa Database

Pada tutorial kali ini akan ada pembahasan mengenai form login yaitu bagaimana cara membuat form login tanpa database sebagai media penyimpanan data dan itu sangat mudah, kita hanya  perlu sebuah file untuk menyimpan data informasi login kita, baik file dengan ekstensi *text yang gampang banget di buka dan di ruba atau file dengan ekstensi custom buatan kita sendiri yang tentu biarpun bisa di edit oleh editor sejenis Notepad++ tapi tetap meninggalkan kesan aneh sehingga minim kemungkinan untuk di edit user.
Buat file dulu dalam contoh ini file text untuk menyimpan username dan pass kita kemudian simpan, dalam contoh ini lokasi penyimpannyan sama dengan project. format penulisan pada file adalah sebagai berikut;

admin

root

lalu buat lah design form seperti ini;

Komponen:

• 2 Textboxt.. Textbox username adalah Textbox1, dan Textbox 2 untuk pass
• 1 CommandButton
• 1 CheckBox
• 3 Label silahkan sesuaikan dengan desaign sendiri 

Code untuk Command button;

 Private Sub Command1_Click()

    uname = Text1.Text
    upass = Text2.Text
   
    Open App.Path & "\coba.txt" For Input As #1
    Input #1, nem
    Input #1, pss
    Close #1
   
    If uname Like nem = True And upass Like pss = True Then
        MsgBox "login berhasil"
    Else
        MsgBox "username/pass salah"
    End If
End Sub

Yang bermaksud;
Ketika tombol di klik, mengambil nilai dari textbox dan menyimpan ke variable uname/upass
kemudian membuka file "coba.txt"  dan mamsukan isi dari file itu ke variable nem/pss.
tugas statemen if kini dimulai, penentu kondisi dengan menggunakan fungsi like yaitu untuk membanding nilai dari variable yang di tentukan dengan variable yang di maksud, apakah sama atau tidak, jika hasilnya sama yang berarti kondisi itu benar/true maka akan begitu dan seterusnya

Code untuk CheckBox;

Private Sub Check1_Click()

If Not Check1.Value = 1 Then

    Text2.PasswordChar = "*"

Else

    Text2.PasswordChar = vbNullString

End If

End Sub

Yang bermaksud;
jika value pada check bukan checked/ceklist  maka sensor isi pada textbox dengan menggunakan karakter "*", jika yang terjadi kok sebaliknya maka gak perlu lah di sensor.