1.
Pilih menu project -> MDI Form
2.
Pilih menu Tols -> Menu Editor
3.
Atur properties pada Menu Editor
= Untuk Memilih menu ke bawah
= Untuk membuat menu dan sub menu
Caption
|
Name
|
Form
|
Frm
|
…..Biodata
|
Fbiodata
|
…..Mata Kuliah
|
Fmk
|
…..Nilai
|
Fnilai
|
Laporan
|
Laporan
|
…..Data Mahasiswa
|
L_biodata
|
.....Nilai Siswa
|
L_nilai
|
About
|
About
|
Klik OK
Code program untuk
menampilkan form
Private
Sub biodata_Click()
Form2.Show
End Sub
Private
Sub biodata_Lap_Click()
'DataReport1.Show
CR.ReportFileName =
App.Path & "\Laporan_Biodata.rpt"
CR.WindowState =
crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
Private
Sub keluar_Click()
psn = MsgBox("Anda
yakin mau keluar?", vbYesNo + 32, "Konfirmasi")
If psn = vbYes Then
End
End
If
End Sub
Private
Sub matakulliah_Click()
Form1.Show
End Sub
Private
Sub matakulliah_Lap_Click()
DataReport2.Show
End Sub
No comments:
Post a Comment