Kode Listing Form Menu Program Penggajian Menggunakan Visual Basic 6.0

Advertisement
Setelah anda melihat contoh aplikasi program penggajian Pt Hoyama menggunakan visual basic, selanjutnya langkah pertama yang harus anda lakukan adalah membuat Form Menunya terlebih dahulu. Namun, sebelum membuat form menu anda harus membuat (Wajib dibuat) :

1.) MODULE terlebih dahulu sebagai koneksi dari program visual basic ke databasenya (Mysql).
Untuk membuat MODULE anda bisa melihatnya di Membuat Module program aplikasi penggajian visual basic.
2.) Membuat Databasenya menggunakan MySql (Phpmyadmin)

Setelah selesai membuat module dan databasenya anda bisa membuat Form Menu Utamanya, silahkan buat form seperti dibawah ini dan ubah juga Name pada propertiesnya.




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

4. Jika anda bingung membuat menunya, silahkan simak Tutorial Cara membuat Menu pada Visual Basic 6.0




5. Selanjutnya anda membuat Status Bar pada Menunya (Wajib Dibuat), silahkan lihat Cara Membuat Status Bar pada program 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 ketika di running error itu wajar, karena anda belum membuat form-form yang lainnya
0 Komentar untuk "Kode Listing Form Menu Program Penggajian Menggunakan Visual Basic 6.0"

Silahkan Komentar sobat !
Berkomentarlah dengan sopan dan tidak menaruh link aktif!
Baca Aturan Berkomentar

Back To Top