Membuat form login penting sebagai tahap akhir dari sebuah penyelesaiaan suatu program sebagai pembatasan akses terhadap sebuah program, cara tersebut cukup mudah
Buat form baru pada project, terus tambahkan obyek sebagai berikut:
Buat form baru pada project, terus tambahkan obyek sebagai berikut:
- Teksbox1
- Teksbox2
- Label1
- Label2
- Dan 2 commandbutton dengan caption&Login dan &Batal
Masukkan source code sbb:
Private Sub Command1_Click()
If Text1.Text = "ilham" And Text2.Text = "11081091" Then
MsgBox "Terimakasih Telah Login", vbInformation
Form1.Show
Form15.Hide
ElseIf Text1.Text <> "ilham" And Text2.Text = "11081091" Then
MsgBox "Maaf User yang anda masukkan salah", vbInformation
Text1.Text = ""
ElseIf Text1.Text = "ilham" And Text2.Text <> "11081091" Then
MsgBox "Maaf Password yang anda masukkan salah", vbInformation
Text2.Text = ""
ElseIf Text1.Text <> "ilham" And Text2.Text <> "11081091" Then
MsgBox "Maaf Password dan User yang anda masukkan salah", vbInformation
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Keterangan: form1.show adalah form yang akan muncul pertama setelah login dan form15.hide adalah menonaktifkan/sembunyika form login ini
Pada text2 ubah propertiesx pada passwordchart dengan meengetik tanda petik bintang *( biar password gak keliatan karakter alfabetnya gitu loh)….
N J go………………….
Program setelah dijalankan
Gampang banegeeeeeeeeeeeeeeeeeeeetz kan…….!!!!!!!
0 komentar:
Posting Komentar