Iklan

Senin, 20 Agustus 2012

Membuat Form Login di Visual Basic 6.0

Ini adalah langkah terakhir dalam membuat program login. Jadi ada 4 langkah dalam membuat program login. Pertama adalah membuat database User.Mdb, kedua adalah membuat form user yang berfungsi untuk mengisi database, ketiga adalah membuat form menu yang akan tampil ketika kita berhasil login, dan yang terakhir adalah membuat form login itu sendiri.

Ada hal yang harus kita perhatikan dalam membuat form login ini, yaitu jenis user tersebut. Apabila user tersebut berjenis USER, maka dia tidak berhak menyimpan user baru ataupun mengubah data user yang sudah ada. Namun apabila user tersebut berjenis ADMIN, maka dia berhak untuk menambah user baru maupun mengubah data user yang sudah ada.

OK, langsung saja ke pelajaran terakhir dalam membuat program login.Berikut langkah - langkahnya
1. Buka Visual Basic 6.0
2. Pilih Standart.Exe
(Langkah no 1 dan no 2 adalah optional, jika kita telah membuat program di pelajaran sebelumnya, langkah ini abaikan saja)
3. Buat Form baru (jika belum ada) dan beri nama pada dialog properties bagian Name dengan nama form login (cara membuat form baru telah saya ajarkan pada postingan sebelumnya)
4. Atur form tersebut seperti gambar dibawah ini
5. Setelah form selesai dibuat langkah paling awal adalah membuat form activate
6. Ketikan kode berikut pada form activated

Private Sub Form_Activate()
Txt_User = ""
Txt_Pass = ""
Txt_User.SetFocus
End Sub

7. Selanjutnya kita buat listing kode tombol LOGIN

Private Sub Cmd_Login_Click()
On Error GoTo a ‘ Jika error kita kembali ke a
Data1.Recordset.Index = "InkodeUser" ‘ cari di database menurut kodeuser
Data1.Recordset.Seek "=", Txt_User ‘ samakan dengan apa yang kita tulis di txt_user

If Data1.Recordset!Password <> Txt_Pass Then ‘ Jika tidak sama maka
    MsgBox "Kode atau Password Anda Salah !!", , "Kesalahan"
Else ‘ Jika sama maka
If Data1.Recordset!jenis <> "USER" Then  ‘ Jika Jenis di database tidak sama dengan ‘USER maka
    Me.Hide ‘Form login di sembunyikan
    Frm_Menu.Show ‘Form menu yang kita buat tadi ditampilkan
    Frm_Menu.mn_User.Enabled = True ‘ Karena jenisnya Admin maka Menu datauser ditampilkan
    Frm_Menu.Text1 = Txt_User ‘ Text1 yang ada di form menu kita isi dengan txt_user yang kita ketik di 'form login
   
Else ‘ Jika Jenis dalah USER maka
    Me.Hide ‘ Form login di sembunyikan
    Frm_Menu.Show ‘ Form menu yang kita buat tadi ditampilkan
    Frm_Menu.mn_User.Enabled = False ‘ Karena jenisnya User maka Menu datauser ‘tidak boleh 'ditampilkan
    Frm_Menu.Text1 = Txt_User ‘Text1 yang ada di form menu kita isi dengan txt_user yang kita ketik di 'form login

   
End If
End If
Exit Sub
a:
MsgBox "Kode atau Password Anda Salah !!", , "Ulangi Login"
Txt_User = ""
Txt_Pass = ""
Txt_User.SetFocus
End Sub

8. Buat listing kode Batal

Private Sub Cmd_Batal_Click()
End
End Sub
Anda telah berhasil membuat program login di visual basic 6.0

1 komentar: