Cara Membuat Form Login Sederhana
Untuk menjaga agar data pada Aplikasi tidak sembarang orang bisa melihat dan mengubahnya biasanya dibuatlah Form Login, dengan adanya Form Login data-data yang tersimpan diaplikasi hanya bisa dilihat dan edit oleh user yang sudah terdaftar. Pada Aplikasi Standar biasanya menggunakan Form Login dinamis dengan begitu 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, maksudnya adalah user dan password ditentukan didalam coding vb 6 jadi tidak bisa diubah. Dengan mempelajari dasar pembuatan Form Login Statis maka nantinya akan memudahkan kita pada saat membuat Form Login Dinamis.
Untuk Membuat Form Login Sederhana, ikuti langkah-langkah berikut ini:
- Buatlah dua buah Form, nama Form biarkan Defaut (Form1 dan Form2)
- Pada Form1 tambahkan komponen:
- 2 TextBox (kosongkan text , pada PasswordChar TextBox2 isi tanda bintang (*))
- 3 Label ( Caption: FORM LOGIN, User Name, Password)
- 2 Command Button (Login dan Exit)
- Pada Form2 Tambahkan 1 buah Label, ubah captionnya menjadi "INI FORM MENU UTAMA"
- Selanjutnya tinggal memasukkan script ke Form1, Klik kanan pada Form1 dan pilih View Code untuk membuka jendela code. kemudian masukkan script kode berikut ini:
01
Private
Sub
Command1_Click()
02
If
Text1 =
"admin"
And
Text2 =
"admin"
Then
03
Form2.Show
'Perintah Menampilkan Form 2
04
Form1.Visible =
False
'Menyembunyikan Form 1
05
Unload
Me
'Menutup Form 1
06
Else
07
MsgBox
"User Name atau Password yang Anda Masukkan salah"
_
08
& vbNewLine &
"Silahkan Coba lagi !!"
, vbCritical,
"Warning!!"
09
Text1 =
""
10
Text2 =
""
11
Text1.SetFocus
12
End
If
13
End
Sub
14
Private
Sub
Command2_Click()
15
Unload
Me
16
End
Sub
- Tekan F5 untuk melihat hasilnya.
- Coba isi User Name dan Password dengan "admin" kemudian kilk Login, maka jendela Form2 atau Form Utama akan ditampilkan.
Untuk menjaga agar data pada Aplikasi tidak sembarang orang bisa melihat dan mengubahnya biasanya dibuatlah Form Login, dengan adanya Form Login data-data yang tersimpan diaplikasi hanya bisa dilihat dan edit oleh user yang sudah terdaftar. Pada Aplikasi Standar biasanya menggunakan Form Login dinamis dengan begitu 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, maksudnya adalah user dan password ditentukan didalam coding vb 6 jadi tidak bisa diubah. Dengan mempelajari dasar pembuatan Form Login Statis maka nantinya akan memudahkan kita pada saat membuat Form Login Dinamis.
Untuk Membuat Form Login Sederhana, ikuti langkah-langkah berikut ini:
Sebelum membuat Form Login Dinamis, sebaiknya kita belajar dulu tentang cara membuat Form Login sederhana yang sifatnya statis, maksudnya adalah user dan password ditentukan didalam coding vb 6 jadi tidak bisa diubah. Dengan mempelajari dasar pembuatan Form Login Statis maka nantinya akan memudahkan kita pada saat membuat Form Login Dinamis.
Untuk Membuat Form Login Sederhana, ikuti langkah-langkah berikut ini:
- Buatlah dua buah Form, nama Form biarkan Defaut (Form1 dan Form2)
- Pada Form1 tambahkan komponen: - 2 TextBox (kosongkan text , pada PasswordChar TextBox2 isi tanda bintang (*))
- Pada Form2 Tambahkan 1 buah Label, ubah captionnya menjadi "INI FORM MENU UTAMA"
- Selanjutnya tinggal memasukkan script ke Form1, Klik kanan pada Form1 dan pilih View Code untuk membuka jendela code. kemudian masukkan script kode berikut ini:
- Tekan F5 untuk melihat hasilnya.
- Coba isi User Name dan Password dengan "admin" kemudian kilk Login, maka jendela Form2 atau Form Utama akan ditampilkan.
- 3 Label ( Caption: FORM LOGIN, User Name, Password)
- 2 Command Button (Login dan Exit)
01 | Private Sub Command1_Click() |
02 | If Text1 = "admin" And Text2 = "admin" Then |
03 | Form2.Show 'Perintah Menampilkan Form 2 |
04 | Form1.Visible = False 'Menyembunyikan Form 1 |
05 | Unload Me 'Menutup Form 1 |
06 | Else |
07 | MsgBox "User Name atau Password yang Anda Masukkan salah" _ |
08 | & vbNewLine & "Silahkan Coba lagi !!" , vbCritical, "Warning!!" |
09 | Text1 = "" |
10 | Text2 = "" |
11 | Text1.SetFocus |
12 | End If |
13 | End Sub |
14 | Private Sub Command2_Click() |
15 | Unload Me |
16 | End Sub |