Cara Membuat Form Login Visual Basic 6.0
Ok, Kali saya akan barbagi sedikit
tentang pemograman visual basic 6.0. langsung aja kita ke pembahasannya.
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
|
Nama Pengguna
Kata Sandi
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
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
End
End Sub
0 komentar