Senin, 03 Juni 2013

Yuk! Belajar Pemrograman Visual Basic dot Net Di Mesran.Net



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