√ Arahan Listing Form Sajian Kegiatan Penggajian Memakai Visual Basic 6.0

Setelah anda melihat contoh aplikasi kegiatan penggajian Pt Hoyama memakai visual basic, selanjutnya langkah pertama yang harus anda lakukan yaitu menciptakan Form Menunya terlebih dahulu. Namun, sebelum menciptakan form sajian anda harus menciptakan (Wajib dibuat) :

1.) MODULE terlebih dahulu sebagai koneksi dari kegiatan visual basic ke databasenya (Mysql).

Untuk menciptakan MODULE anda dapat melihatnya di Membuat Module kegiatan aplikasi penggajian visual basic.

2.) Membuat Databasenya memakai MySql (Phpmyadmin)

Setelah tamat menciptakan module dan databasenya anda dapat menciptakan Form Menu Utamanya, silahkan buat form menyerupai dibawah ini dan ubah juga Name pada propertiesnya.

1. Buka Visual basic anda, pilih sajian Project > Add MDI Form
2. Ubah Name nya (lihat properties) menjadi fmenu
3. Silahkan anda buat menyerupai dibawah ini sajian dan sub menunya ;

4. Jika anda resah menciptakan menunya, silahkan simak Tutorial Cara menciptakan Menu pada Visual Basic 6.0

5. Selanjutnya anda menciptakan Status Bar pada Menunya (Wajib Dibuat), silahkan lihat Cara Membuat Status Bar pada kegiatan penggajian Menggunakan visual basic 6.0

6. Masukan Timer, namenya Timer1

7. Silahkan Pastekan Kode Listing dibawah ini (doubleklik pada form menu)

Private Sub mbonus_Click()
formdatabonus.Show
End Sub

Private Sub mbonusthr_Click()
formhitungbonus.Show
End Sub

Private Sub mbonus2_Click()
formhitungbonus.Show
End Sub

Private Sub mdasar_Click()
formdasar.Show
End Sub

Private Sub MDIForm_Load()
Call nonaktif
mlogin.Enabled = True
End Sub
Sub nonaktif()
mlogin.Enabled = False
mlogout.Enabled = False
mexit.Enabled = False
mdata.Enabled = False
mpenghitungan.Enabled = False
mlaporan.Enabled = False

End Sub

Private Sub mexit_Click()
a = MsgBox("Keluar Aplikasi?", vbQuestion + vbYesNo, "INFO")
If a = vbYes Then
End
End If
End Sub

Private Sub mgaji_Click()
formpenghitungan.Show
End Sub

Private Sub minfo_Click()
MsgBox ("Selamat Datang Di Aplikasi Program Penggajian PT Hoyama, Kritik dan saran Kunjungi Wwww.hendrisetiawan.com")
End Sub

Private Sub mkaryawan_Click()
formkaryawan.Show
End Sub




Private Sub mlaporan_Click()
Formlaporan.Show
End Sub

Private Sub mlogin_Click()

formlogin.Show
End Sub

Private Sub mlogout_Click()
a = MsgBox("Yakin Logout?", vbQuestion + vbYesNo, "INFO")
If a = vbYes Then
Call koneksi
MsgBox "Anda Barhasil Logout", vbInformation
fmenu.StatusBar.Panels(2) = "---"
fmenu.StatusBar.Panels(4) = "---"
fmenu.StatusBar.Panels(6) = "---"
Call nonaktif
mlogin.Enabled = True
mexit.Enabled = True
End If
End Sub



Private Sub mthr_Click()
formhitungthr.Show
End Sub

Private Sub muser_Click()
formuser.Show
End Sub

8. Jika saat di running error itu wajar, alasannya yaitu anda belum menciptakan form-form yang lainnya
Sumber http://www.hendrisetiawan.com