Form Menu
Listing Program Menu
Public Class Menu_Utama
Private Sub DataPesananToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
DataPesananToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KeluarProgramToolStripMenuItem.Click
End
End Sub
Private Sub LapKamarToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
LapKamarToolStripMenuItem.Click
Dim
laporan As New
Rptpesanan
cetak.CrystalReportViewer1.ReportSource
= laporan
cetak.Show()
End Sub
End Class
Tidak ada komentar:
Posting Komentar