📄 main.vb

📁 酒店管理系统。可对酒店的各项任务分配管理
💻 VB
📖 第 1 页 / 共 4 页
字号:
上一页 1 2 34
        Button11.Hide()
        Button12.Hide()

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

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

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim ygxx As New ygxx
        ygxx.MdiParent = Me
        ygxx.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 MenuItem13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem13.Click
        Dim ygxx As New ygxx
        ygxx.MdiParent = Me
        ygxx.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 Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim bmxx As New bmxx
        bmxx.MdiParent = Me
        bmxx.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 MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
        Dim bmxx As New bmxx
        bmxx.MdiParent = Me
        bmxx.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 Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim dwxx As New dwxx
        dwxx.MdiParent = Me
        dwxx.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 MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click
        Dim dwxx As New dwxx
        dwxx.MdiParent = Me
        dwxx.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 Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Dim xtcsh As New xtcsh
        xtcsh.MdiParent = Me
        xtcsh.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 MenuItem17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem17.Click
        Dim xtcsh As New xtcsh
        xtcsh.MdiParent = Me
        xtcsh.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 Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Dim czygl As New czygl
        czygl.MdiParent = Me
        czygl.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 MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
        Dim czygl As New czygl
        czygl.MdiParent = Me
        czygl.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 Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Dim sjbf As New sjbf
        sjbf.MdiParent = Me
        sjbf.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 MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
        Dim sjbf As New sjbf
        sjbf.MdiParent = Me
        sjbf.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 Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Close()
    End Sub
End Class
上一页 1 2 34
💿 文件大小 658 K
👤 上传用户 hxyw
📂 所属分类酒店行业
🏷️ 相关标签

#管理系统 #分配
⌨️ 快捷键说明

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