Rabu, 30 Maret 2011

Membuat Form Password(1)_sistem textbox

Sebuah aplikasi, sesederhana apapun itu, sebaiknya mempunyai pengaman atau system security. Yang dimaksudkan disini dengan pangaman adalah sebuah form untuk meminta masukan nama dan password atau key, jika masukan atau entry benar, maka user dapat menggunakan program tersebut tetapi jika tidak, maka user tidak dapat menggunakan program tersebut.

Pentingnya pembuatan system pengaman ini adalah agar semua data yang ada dalam aplikasi yang kita buat tidak digunakan oleh oknum yang tidak berhak atau tidak berkepentingan, sehingga menghidari terjadinya kerusakan data, sabotase dan sebagainya.

Okelah…cukup dulu basa-basinya…sekarang kita akan mencoba membuat sebuah system security paling sederhana yakni dengan menggunakan validasi input textbox.
Langkah-langkahnya adalah sebagai berikut :
1.       Buatlah 2 buah form (standart EXE). Form1 anda ganti namanya (name) menjadi frmlogin dan form2 menjadi frmmenu.
2.       Tambahkan komponen hingga kedua formnya Nampak sebagai berikut :
                                                        komponen untuk form1 (frmlogin)

                                                         komponen untuk form2 (frmmenu)

3.       Kemudian setting propertiesnya sehingga menjadi seperti berikut :



4.       Setelah tampilan form1(frmlogin) dan form2(frmmenu) sama dengan diatas, maka langkah selanjutnya adalah memasukkan script. Klik 2 kali command1 ( OK ) lalu masukkan listing berikut :

Private Sub command1_Click()
    'cek jika nama dan password benar
    If Text1 = "FADLY" And Text2 = "FADLY" Then
        frmlogin.Hide     'menyembunyikan frmlogin
        frmmenu.Show      'memunculkan frmmenu
    'cek jika nama benar dan password salah
    ElseIf Text1 = "FADLY" And Text2 <> "FADLY" Then
        MsgBox "Nama Benar tapi Password Salah!", , "Informasi"
        'mengosongkan text2 dan focus pada text2
        Text2 = ""
        Text2.SetFocus
    'Cek jika nama salah dan password benar
    ElseIf Text1 <> "FADLY" And Text2 = "FADLY" Then
        MsgBox "Password Benar tapi Nama salah!", , "Informasi"
        'mengosongkan text1 dan fokus pada text1
        Text1 = ""
        Text1.SetFocus
    'Cek jika nama dan password salah
    ElseIf Text1 <> "FADLY" And Text2 <> "FADLY" Then
        MsgBox "Nama salah dan Password Salah!", , "Informasi"
        'mengosongkan text1 dan text2 serta fokus di text1
        Text1 = ""
        Text2 = ""
        Text1.SetFocus
    End If
End Sub

5.       Klik 2 kali command2 (Cancel) dan masukkan listing berikut :

Private Sub command2_Click()
    End 'keluar dari program
End Sub

Setelah itu jalankan program…Ingatlah nama dan password dalam aplikasi ini adalah FADLY. Jika sudah mantap, anda tentu dapat mengganti sesuai keinginan anda, yang penting adalah perhatikan huruf besar dan kecilnya. Jika delisting anda menulis dengan huruf besar, maka masukan yang anda tulis pada text juga harus huruf besar.

cobalah jalankan aplikasi diatas dan perhatikan reaksi program untuk hal-hal berikut :
a.       Memasukkan nama FADLY dan password FADLY
b.      Memasukkan nama UDIN dan password FADLY
c.       Memasukkan nama FADLY dan password UDIN
d.      Memasukkan nama UDIN dan password UDIN

Apa reaksi program untuk percobaan diatas ? Penasaran ? hehehe…silahkan mencoba dan semoga berhasil J

0 komentar:

Posting Komentar