Membuat Form Login Sederhana dengan VB

Membuat Form Login Sederhana dengan VB

Sering kali orang untuk menjaga agar data pada aplikasi tidak sembarang dilihat oleh orang atau bahkan sampai mengubahnya, kabanyakan orang pasti melengkapi program mereka dengan akses login. Salah satunya di program berbasis dekstop seperti di VB. Form login ada yang bersifat statis dan dinamis, dimana untuk yang dinamis kita bisa menambahkan user dan mengubah password, yang biasanya data user dan password disimpan di dalam file database. Sebelum membuat Form Login Dinamis, sebaiknya kita belajar dulu tentang cara membuat Form Login sederhana yang sifatnya statis, dimana user dan passwordnya sudah ditentukan di dalam kode program VB.

 

Diharapkan dengan mempelajari dulu form login dengan statis ini dapat memudahkan kita dalam pembuatan form login dinamis. Untuk pembuatan form login statis ini dengan vb marikita ikuti langkah-langkah berikut

1. Bukalah Program VB, lalu buatlah 2 buah form, biarkan nama form tetap pada default (Form1, Form2) .

2. Pada Form1 (di Propeties : Caption ubah dengan nama FORM LOGIN) dan tambahkan komponen seperti berikut

3 buah label (Captionnya : FORM LOGIN, Username : , Password :) .

3 buat textbox (Textnya : kosongka, dan pada textbox2 pada PasswordChar : isikan tanda tanya (?)).

2 buah commandbutton ((Captionnya : LOGIN dan EXIT ) .

3. Pada Form2 (di Propeties : Caption ubah dengan nama MENU) dan tambahkan komponen berikut

1 buah label (Captionnya : MENU UTAMA).

4. Buka form1 atau form loginnya. tapi akan saya jelaskan terlebih dahulu bahwa kita akan membuat suatu form login dimana jika orang salah memasukkan username atau password sampai 3 kali maka program tersebut akan tetutup dengan sendirinya. Dan disetiap orang tersebut salah memasukkan username atau password maka akan muncul message box peringatan

kalau begitu mari kita mulai dengan menuliskan kode untuk tombol EXIT / command2 dan berikut kodenya :

Private Sub Command2_Click()
pesan = MsgBox("Anda Yakin Mau Keluar ??", vbQuestion + vbYesNo, "Question")
If pesan = vbYes Then
End
Else
Form1.SetFocus
End If
End Sub

CATATAN :

pesan = MsgBox("Anda Yakin Mau Keluar ??", vbQuestion + vbYesNo, "Question") => untuk memunculkan pesan buat meyakinkan user ingin keluar atau tidak.


5. Selanjutnya membuat kode untuk tombol LOGIN / command1 dan berikut kodenya :

Dim login As Integer

kode di atas adalah bagian dari kode untuk tombol LOGIN gunanya untuk menjadikan login sebagai variabel angka atau integer. Kode tersebut di tulis di bagian atas seluruh kode. Dan berikut kode untuk LOGIN selanjutnya.

Private Sub Command1_Click()
User = Text1.Text
Password = Text2.Text
If User = "edwin" And Password = "123" Then
MsgBox "Selamat Datang"
Form2.Show
Form1.Hide
Else
login = login + 1
MsgBox "Anda salah memasukkan PassWord " & login & " kali"
If login = 2 Then
MsgBox "Kesempatan Anda 1 kali lagi", vbExclamation
End If
If login = 3 Then
MsgBox "Anda sudah salah memasukkan PassWord 3 kali, maka program ini akan kami tutup!", vbCritical
End
End If
End If
End Sub

CATATAN :

If User = "edwin" And Password = "123" Then => adalah nama user dan password

login = login + 1
MsgBox "Anda salah memasukkan PassWord " & login & " kali"
If login = 2 Then
MsgBox "Kesempatan Anda 1 kali lagi", vbExclamation
End If
If login = 3 Then
MsgBox "Anda sudah salah memasukkan PassWord 3 kali, maka program ini akan kami tutup!", vbCritical
End

potongan kode di atas adalah jika orang salah memasukkan username dan password maka akan muncul pesan kesempatan dia mencobanya lagi

jika kesempatannya sudah habis, yaitu 3 kali kesempatan maka akan muncul bahwa program ini akan di tutup.

6. Setelah semua selesai cobalah dengan menekan F5 dan masukkan user dan password dengan benar.

Sekian mengenai pembuatan Form Login Sederhana dengan programVisual Basic 6.0. Semoga sedikit tutorial ini dapat membantu dan bermanfaat.

 

SELAMAT MENCOBA DAN SUKSES

 

SALAM KREATIF :)

 


Komentar pembaca

anggarabro...gmana caranya kita menghubungkan dengan windows pada saat starting atau menghubungkan dengan suatu foder agar software tsbt bisa bermanfaat??? posting pada :2017-05-15 08:19:40
sukianto sihombingbelom tau aku gimana cara gmana caranya kita menghubungkan dengan windows pada saat starting atau menghubungkan dengan suatu foder agar software tsbt bisa bermanfaat??? posting pada :2017-07-28 17:49:48
ririnThankyou loh, bermanfaat bgt :) posting pada :2018-02-24 21:53:34
IrenaPesan,user,dan password tidak terbaca d tombol login. Harus di tambah Dim As lagi apa gimana ya ? posting pada :2018-07-02 11:22:53
wahyuIjin sedot ganposting pada :2018-10-14 09:25:37
FransText1.Text warna kuning ganposting pada :2018-11-22 08:05:35