⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.vb

📁 酒店管理系统。可对酒店的各项任务分配管理
💻 VB
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
        zsdj.MdiParent = Me
        zsdj.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()
        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim yjzj As New yjzj
        yjzj.MdiParent = Me
        yjzj.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()


        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Dim yjzj As New yjzj
        yjzj.MdiParent = Me
        yjzj.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()
        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Dim tsjz As New tsjz
        tsjz.MdiParent = Me
        tsjz.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()
        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        Dim tsjz As New tsjz
        tsjz.MdiParent = Me
        tsjz.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()


        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim zscx As New zscx
        zscx.MdiParent = Me
        zscx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()
        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim zscx As New zscx
        zscx.MdiParent = Me
        zscx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()

        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Dim kfcx As New kfcx
        kfcx.MdiParent = Me
        kfcx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()
        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
        Dim kfcx As New kfcx
        kfcx.MdiParent = Me
        kfcx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()

        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim sftx As New sftx
        sftx.MdiParent = Me
        sftx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()
        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click
        Dim sftx As New sftx
        sftx.MdiParent = Me
        sftx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()

        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub Button5_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim kfxx As New kfxx
        kfxx.MdiParent = Me
        kfxx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
        Button11.Hide()
        Button12.Hide()

        Button17.Hide()    '系统维护
        Button18.Hide()
        Button19.Hide()
        Button20.Hide()
        Me.WindowState = FormWindowState.Maximized '窗口最大化
    End Sub

    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        Dim kfxx As New kfxx
        kfxx.MdiParent = Me
        kfxx.Show()

        Button1.Hide() '主按钮
        Button2.Hide()
        Button3.Hide()
        Button4.Hide()

        Button13.Hide()  '前台管理
        Button14.Hide()
        Button15.Hide()
        Button16.Hide()

        Button5.Hide()    '客房管理
        Button6.Hide()
        Button7.Hide()
        Button8.Hide()

        Button9.Hide()  '基础信息
        Button10.Hide()
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -