Visual Basic 6 – Pemrograman dengan Login dan Menu

1. Membuat FormLogin (FrmLogin)

Form Login
Buatlah project baru. Click cancel pada jendela ‘New Project’. Tambahkan form baru melalui menu Project – Add Form – Login Form.

Lakukan perubahan codenya menjadi seperti berikut:

———————————————————-

Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()

LoginSucceeded = False   ‘Jika passwordnya salah, tutup jendela login.
Unload Me
End Sub

Private Sub cmdOK_Click()

‘Cek password, jika benar tampilkan menu FrmMenu

If  txtPassword = “123456” Then
FrmMenu.Show
LoginSucceeded = True
Unload Me

‘Jika password salah, munculkan tulisan untuk mencoba lagi.
Else
MsgBox “Password salah, silahkan coba lagi!”, , “Login”
txtPassword.SetFocus ‘Posisi kursor ttp di kotak isian password
SendKeys “{Home}+{End}”
End If
End Sub
————————————————————

2. Membuat Form Menu (FrmMenu)

Name: FrmMenu
Caption: MENU UTAMA
Menu Utama
Kita akan membuat Menu seperti berikut:
– File, terdiri dari submenu Data Pelanggan, Data Mobil dan Keluar
– Transaksi, terdiri dari submenu Transaksi Sewa
– Laporan, terdiri dari submenu Laporan Sewa

Untuk membuat menu, kita gunakan Tools – Menu Editor. Lalu buatlah menu-menu seperti pada gambar dibawah ini. Untuk pindah ke kanan pada level menu yang sama gunakan tombol Next. Sedangkan untuk pindah ke level dibawahnya (submenu) gunakan tombol anak panah kanan dan naik ke level sebelumnya gunakan tombol anak panah kiri. Untuk mengaktifkan shortcut menu, gunakan tanda & didepan huruf awal nama menunya. Perhatikan gambar berikut.


Caption dan Name masing-masing menu:

&File, MFile
Data Pelanggan, MDataPelanggan
Data Mobil, MDataMobil
Keluar, MKeluar

&Transaksi, MTransaksi
Transaksi Sewa, MTransaksiSewa

&Laporan, MLaporan
Laporan Sewa, MLaporanSewa

Menu Editor
View – Code, lalu tulis program berikut:
———————————————————

Private Sub Form_Load()

End Sub

Private Sub MKeluar_Click()
Pesan = MsgBox(“Apakah mau keluar?”, vbOKCancel)
If Pesan = 1 Then
Unload Me
End If
End Sub

Private Sub MTransaksiSewa_Click()
FrmSewa.Show
End Sub
———————————————————–

3. Membuat Form Sewa (FrmSewa)

Klik menu Project – Add Form – Form untuk membuat FormSewa.

Pada properties,  Name: FrmSewa, caption: PT Abadi Motor

Perhatikan FrmSewa berikut:
Form Sewa
Keterangan:

  • Textbox untuk Nama Penyewa: Name: TxtNama
  • Tambahkan komponen baru pada toolbox baru untuk format tanggal melalui menu Project – Componen – cek list pada Microsoft Windows Common Controls 2.6.0. Setelah itu, di menu toolbox ada komponen yang bernama DTPicker, untuk mengambil tanggal dari sistem.
  • Click DTPicker dan buta kotak setelah label tanggal. Properties diatur:Custom Format: dd MMM yyyy.
  • Dibawah MerkMobil, buat ListBox. Propertiesnya: Name: txtMerk, List: BWM, MAZDA, FORD PICK-UP, TOYOTA SPORT, VW
  • Buat kotak Image, menggunakan toolbox image untuk menampilkan gambar mobil. Propertiesnya: Name: Gambar, Stretch: True, Visible: True.
  • Dibagian bawah, buat Commandbutton: Hitung (Name:CmdHitung), Hapus (Name:CmdHapus), Tutup(Name:CmdTutup), Style:Grahical, Picture: Pilih Icon VB untuk menambahkan icon pada masing-masing command button tersebut.

Program untuk FrmSewa yaitu:
————————————————————-

Private Sub CmdHitung_Click()

‘Perangkap error, jika ada Lama Sewa yang kosong
On Error GoTo Pesan
TxtBiaya.Text = TxtLama.Text * TxtTarif.Text

TxtBiaya.Text = Format(TxtBiaya.Text, “Rp #,##0”)
TxtTarif.Text = Format(TxtTarif.Text, “Rp #,##0”)

Exit Sub
Pesan:
MsgBox (“Data harus diisi lengkap…!”)
End Sub

Private Sub CmdTutp_Click()
Unload Me
End Sub

Private Sub TxtMerk_Click()
Select Case TxtMerk.ListIndex
Case 0
Gambar.Picture = LoadPicture(“C:\Icon VB\Mobil-1.BMP”)
TxtTarif = 350000
Case 1
Gambar.Picture = LoadPicture(“C:\Icon VB\Mobil-2.BMP”)
TxtTarif = 275000
Case 2
Gambar.Picture = LoadPicture(“C:\Icon VB\Mobil-3.BMP”)
TxtTarif = 250000
Case 3
Gambar.Picture = LoadPicture(“C:\Icon VB\Mobil-4.BMP”)
TxtTarif = 650000
Case 4
Gambar.Picture = LoadPicture(“C:\Icon VB\Mobil-5.BMP”)
TxtTarif = 425000
End Select
Gambar.Visible = True
End Sub
————————————————————————-

Hasil akhir program:
– Saat dijalankan, muncul Form Login. Isikan sembarang Nama dan password seperti yang sudah diset sebelumnya dalam program.

– Lalu akan muncul Form Menu. Jika diklik pada File – Keluar, maka form ini akan ditutup.

– Jika diklik pada menu Transaksi – Data Sewa,maka form Sewa yang tadi kita buat akan dibuka.

Selamat mencoba,

Salam

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: