main.vb

来自「酒店管理系统。可对酒店的各项任务分配管理」· VB 代码 · 共 1,643 行 · 第 1/4 页

VB
1,643 行
字号
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

main.vb - 源码说明

本页面展示了「酒店管理系统。可对酒店的各项任务分配管理」中的 main.vb 源码文件，采用 VB 编程语言编写，共 1,643 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与酒店管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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