Tutorial Membuat Form Login Visual Basic 6.0

    

    Ketika masuk ke program aplikasi akan tampak form login, tetapi tanpa adanya menu, untuk memunculkan menu utama, maka pengguna harus mengisi user_name dan passwordnya dan menekan tombol masuk tombol hak atau tombol enter, sehingga muncul tombol hak akses Pengguna, ketika Pengguna menekan tombol hak akses maka akan muncul menu sesuai hak akses. Sebelum kita membuat programnya terlebih dahulu kita membuat databasenya disini saya akan membuat database menggunakan Ms.Access seperti pada gambar dibawah ini :

Field Name	Type	Size
Kode_Kasir	Text	7
Nama_Kasir	Text	30
Alamat	Text	30
Telpn	Text	15
Password	Text	5

Selanjutnya kita merancang tampilan form login dengan memasukkan komponen dibawah ini :

Komponen	Nama
Label1 Label2 Textbox1 Textbox2 Commondbutton1 Commondbutton2	Username Password Tuser Tpass Login Cancel

Setelah itu desain sepert gambar berikut :

Belum lengkap sebuah program tanpa ada script didalamnya, untuk dapat digunakan kita masukkan perintah, yang pertama klik 2 kali pada form load ( form kosong) dan masukkan perintah berikut :

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "/db.mdb"

Data1.RecordSource = "kasir"

Label1.Caption = " Perancangan Sistem Informasi Pengolahan Data Pembelian dan Penjualan Pada Toko Mitra Andalan"       'text yang akan muncul di label, anda bisa merubah sesuai keinginan
Label1.AutoSize = True

End Sub

Berikutnya klik 2 kali pada tombol login

Private Sub clogin_Click()

On Error GoTo a

Data1.Recordset.Index = "kode_kasir"

Data1.Recordset.Seek "=", tuser

If Data1.Recordset!Password <> tpass Then

    MsgBox "Data Tidak ada", , "Info"

Else

    Me.Hide

    menu.Show

    menu.Label1.Caption = Data1.Recordset!nama_kasir

End If

Exit Sub

a:

MsgBox "Data Tidak ada", , "Info"

tuser = ""

tpass = ""

tuser.SetFocus

End Sub

Lalu perintah untuk tombol cancel :

Private Sub cbatal_Click()
End

End Sub

   

Demikianlah tutorial form login VB kali ini semoga dapat membantu.