Visual Basic 2010 数据库开发之酒店管理系统02主窗体

最新推荐文章于 2020-06-25 20:08:19 发布

ngbshzhn

最新推荐文章于 2020-06-25 20:08:19 发布

阅读量245

点赞数

分类专栏： # Visual Basic 2010 数据库开发实例

本文链接：https://blog.csdn.net/ngbshzhn/article/details/106908676

版权

Visual Basic 2010 数据库开发实例专栏收录该内容

42 篇文章 10 订阅

订阅专栏

Public Class frmMain
    Private Sub 退出系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系统ToolStripMenuItem.Click
        If MessageBox.Show("确定退出吗？", "提示信息", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Me.Close()
        End If
    End Sub

    Private Sub 客房信息设置ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 客房信息设置ToolStripMenuItem1.Click
        frmKeFangInfo.Show()
        Me.Hide()
    End Sub

    Private Sub 预定管理ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 预定管理ToolStripMenuItem1.Click
        frmYuDing.Show()
        Me.Hide()
    End Sub

    Private Sub 入住管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 入住管理ToolStripMenuItem.Click
        frmRuZhu.Show()
        Me.Hide()
    End Sub

    Private Sub 结账退房ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 结账退房ToolStripMenuItem1.Click
        frmTuiFang.Show()
        Me.Hide()
    End Sub

    Private Sub 客房信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 客房信息查询ToolStripMenuItem.Click
        frmKeFangChaXun.Show()
        Me.Hide()
    End Sub

    Private Sub 入住登记查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 入住登记查询ToolStripMenuItem.Click
        frmRuZhuChaXun.Show()
        Me.Hide()
    End Sub

    Private Sub 预定信息查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 预定信息查询ToolStripMenuItem.Click
        frmYuDingChaXun.Show()
        Me.Hide()
    End Sub

    Private Sub 入住客史查询ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 入住客史查询ToolStripMenuItem.Click
        frmRuZhuChaXun.Show()
        Me.Hide()
    End Sub
End Class