Artikel ini saya buat karena permintaan teman saya yang belum begitu mengerti dengan penjelasan dari dosen Logika Dan Algoritma di Kampus Swasta daerah Kota Tangerang, ok SKIP, langsung ke tutorial Membuat Menu bar, dan login dengan koneksi ke database MS.Access di visual basic 6, yap visual basic 6, saya juga bingung kenapa masih dipelajarin bahasa pemograman ini, padahal bahasa pemograman ini sudah banyak yang meninggalkan beralih ke pemograman .NET.

Langkah Pertama

pastinya sudah pada bisa dong membuat project baru, jadinya langsung saja ke area form1, klik kanan pada area FORM1, lalu pilih Menu Editor. Disini kita akan membuat Menu bar pada Form Utama, Setelah muncul jendela seperti digambar, buat lah beberapa Menu yang diinginkan.
Pada menu editor terdapat beberapa parameter, saya akan menjelaskan beberapa, untuk
Caption = Untuk tulisan yang tampil pada menu
Name = Sebuah penamaan UNIQ (tidak boleh sama) untuk digunakan dalam pemanggilan di coding/syntax
Shortcut = Hanya untuk sub menu, fungsinya untuk jalan pintas menggunakan keyboard mengakses sub menu tersebut.
Next = Untuk melanjutkan ke menu berikutnya
Insert = Untuk menambahkan ke menu berikutnya
Delete = Menghapus menu

Untuk membuat SUB MENU (Menu didalam Menu, pada gambar Master -> mahasiswa, buku, petugas, dll) pada saat next atau membuat menu baru tekan tombol panah ke kanan , kalau benar maka akan membentuk titik-titik sehingga menu berikutnya menjorong ke kanan (seperti gambar), untuk parameter lainnya saya tidak jelaskan disini, silahkan coba-coba sendiri.

Caption	Name
Login	login
Master	m
…...…...Mahasiswa	mhs
……...…Buku	bk
……...…Petugas	ptgs
Proses	p
……...…Pinjam	pnjm
…...……Kembali	kmbli
Laporan	l
……...…Bulanan	bln
……...…Tahunan	thn
Keluar	k

 

Langkah Kedua

Setelah menunya jadi,  sekarang lanjut ke code / syntaxnya pada form load. Fungsinya adalah disaat form ke load (muncul aplikasinya) sebelum login, beberapa menu yang ada dalam keadaan disabled atau tidak aktif.

Private Sub Form_Load()
    Form1.m.Enabled = False
    Form1.p.Enabled = False
    Form1.l.Enabled = False
   
End Sub

Keterangan :
Form1.m.Enabled = False
Form1 = Variablenya berada di Form1
m = Name menu yang akan disabled
Enabled = False = Keadaan Disabled

Langkah Ketiga

Buat form baru dengan cara pada panel Project di bagian kanan klik kanan dibagian form1 pilih Add -> Form -> Pilih Form Add/OK
Lalu pada form2 ini kita akan membuat form login yang hanya perlu memasukan password yang ada di database, pertama buat dulu beberapa komponen seperti:

Label1 = Untuk tulisan Password
Text1 = Untuk Memasukkan password
Command1 = Button/Tombol Login
Command2 = Button/Tombol Exit

Pada Properties Text1, Cari PasswordChar, dan ubah Valuenya menjadi * (star) ini berfungsi agar password yang kita ketik berubah menjadi tersembunyi atau berubah menjadi *****

Tampilan Form2

Langkah Keempat

Di langkah ini kita akan membuat databasenya, pertama pada menu bar, pilih Add Ins -> Visual Data Manager

Maka akan muncul jendela baru, langkah berikutnya pilih File -> New -> Microsofr Access -> Version 7.0 MDB

lalu diminta menyimpan file databasenya, arahkan ke folder project yang kita buat (Harus 1 folder dengan project yang dibuat untuk mempermudahkan peletakan path)
Selanjutnya adalah membuat table, klik kanan pada properties -> New Table
Akan muncul jendela baru seperti gambar diatas, lalu isi:
1. Table Name = TABEL_LOGIN (Sebaiknya tidak memakai SPASI, ganti dengan underscore_)
2. Add Field = Jendela untuk membuat Field
3. Name Field = isikan password
4. Size Field = isikan 32
5. OK, lalu close
Berikutnya klik tombol Build The Table



Selanjutnya double klik pada TABEL_LOGIN, lalu pilih Add untuk menambahkan VALUE pada Field.
1. Value Password = Yang menjadi password loginnya, disini saya masukkan 1234
2. Tombol Update = Untuk memperbaruhi value

Langkah Kelima

Masih di Form2, buat komponen baru yaitu Data, (icon pada gambar), biarkan Namenya tetap Data1

Langkah Keenam

    Data1.RecordSource = "SELECT * FROM TABEL_LOGIN WHERE password ='" & Text1.Text & "'"

    Data1.Refresh

    If Not Data1.Recordset.EOF Then

        Form1.Show
        Form1.m.Enabled = True
        Form1.p.Enabled = True
        Form1.l.Enabled = True
        Form1.login.Visible = False
        Unload Me
    Else
        MsgBox "Maaf Passwod Anda Salah...!", vbCritical, "Pesan"

        Text1.Text = ""
        Text1.SetFocus
    End If

Keterangan :
 "SELECT * FROM TABEL_LOGIN WHERE password ='" & Text1.Text & "'"
Pilih SEMUA field pada Tabel (TABEL_LOGIN) DIMANA password(Field) = Text1(yang diinput)
Unload Me = Untuk menutup Form yang terdapat syntax ini.
MsgBox = Menampilkan Alert/Pesan, dengan struktur, "Isi Pesan", Iconnya, "Title"
SetFocus = Kursor berada pada Text yang diberi syntax ini.
.Visible = False = Menyembunyikan Objek yang diberi syntax ini.
Lalu Double klik pada Button Exit (Command2), dan masukkan syntax ini:

Form1.Show
Unload Me

Semua langkah telah selesai, sekarang lihat hasilnya, jika berhasil maka akan seperti di gambar:

1. Hanya Menu Login dan Keluar yang aktif
2. Setelah menekan menu login, lalu memasukkan password tetapi salah, maka akan muncul pesan error.
3. Selelah memasukkan password yang benar, maka form login(form2) akan Unload dan menu login hilang sedangkan menu yang lainnya aktif (bisa diklik).

Sekian Tutorial yang sebenarnya singkat tapi saya buat panjang untuk dimengerti semuanya, semoga membantu dalam pembelajaran berikutnya.


(c) Original Tutorial By : Rizal Loa Wanda |FB|TW|