📄 main.vb
字号:
Me.MenuItem10.Index = 3
Me.MenuItem10.Text = "宿费提醒"
'
'MenuItem11
'
Me.MenuItem11.Index = 2
Me.MenuItem11.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem12, Me.MenuItem13, Me.MenuItem14, Me.MenuItem15})
Me.MenuItem11.Text = "基础信息维护"
'
'MenuItem12
'
Me.MenuItem12.Index = 0
Me.MenuItem12.Text = "客房信息"
'
'MenuItem13
'
Me.MenuItem13.Index = 1
Me.MenuItem13.Text = "员工信息"
'
'MenuItem14
'
Me.MenuItem14.Index = 2
Me.MenuItem14.Text = "部门信息"
'
'MenuItem15
'
Me.MenuItem15.Index = 3
Me.MenuItem15.Text = "单位信息"
'
'MenuItem16
'
Me.MenuItem16.Index = 3
Me.MenuItem16.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem17, Me.MenuItem18, Me.MenuItem19})
Me.MenuItem16.Text = "系统维护"
'
'MenuItem17
'
Me.MenuItem17.Index = 0
Me.MenuItem17.Text = "系统初始化"
'
'MenuItem18
'
Me.MenuItem18.Index = 1
Me.MenuItem18.Text = "操作员管理"
'
'MenuItem19
'
Me.MenuItem19.Index = 2
Me.MenuItem19.Text = "数据备份"
'
'MenuItem20
'
Me.MenuItem20.Index = 4
Me.MenuItem20.Text = "帮助"
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem6, Me.MenuItem11, Me.MenuItem16, Me.MenuItem20})
'
'main
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(600, 335)
Me.Controls.Add(Me.Button20)
Me.Controls.Add(Me.Button19)
Me.Controls.Add(Me.Button18)
Me.Controls.Add(Me.Button17)
Me.Controls.Add(Me.Button8)
Me.Controls.Add(Me.Button7)
Me.Controls.Add(Me.Button6)
Me.Controls.Add(Me.Button5)
Me.Controls.Add(Me.Button12)
Me.Controls.Add(Me.Button11)
Me.Controls.Add(Me.Button10)
Me.Controls.Add(Me.Button9)
Me.Controls.Add(Me.Button13)
Me.Controls.Add(Me.Button14)
Me.Controls.Add(Me.Button15)
Me.Controls.Add(Me.Button16)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.Button4)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.IsMdiContainer = True
Me.Menu = Me.MainMenu1
Me.Name = "main"
Me.Text = "客房管理系统"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button13.Show() '前台管理
Button14.Show()
Button15.Show()
Button16.Show()
Button5.Hide() '客房管理
Button6.Hide()
Button7.Hide()
Button8.Hide()
Button9.Hide() '基础信息
Button10.Hide()
Button11.Hide()
Button12.Hide()
Button17.Hide() '系统维护
Button18.Hide()
Button19.Hide()
Button20.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button13.Show()
Button14.Show()
Button15.Show()
Button16.Show()
Button5.Hide()
Button6.Hide()
Button7.Hide()
Button8.Hide()
Button9.Hide()
Button10.Hide()
Button11.Hide()
Button12.Hide()
Button17.Hide()
Button18.Hide()
Button19.Hide()
Button20.Show()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button13.Hide()
Button14.Hide()
Button15.Hide()
Button16.Hide()
Button5.Hide()
Button6.Hide()
Button7.Hide()
Button8.Hide()
Button9.Show()
Button10.Show()
Button11.Show()
Button12.Show()
Button17.Hide()
Button18.Hide()
Button19.Hide()
Button20.Show()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Button13.Hide()
Button14.Hide()
Button15.Hide()
Button16.Hide()
Button5.Show()
Button6.Show()
Button7.Show()
Button8.Show()
Button9.Hide()
Button10.Hide()
Button11.Hide()
Button12.Hide()
Button17.Hide()
Button18.Hide()
Button19.Hide()
Button20.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
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.Show()
Button18.Show()
Button19.Show()
Button20.Show()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Dim tscx As New tscx
tscx.MdiParent = Me
tscx.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 MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Dim f2 As New kfyd
f2.MdiParent = Me
f2.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 MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
Dim tscx As New tscx
tscx.MdiParent = Me
tscx.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 main_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus
Button1.Show()
Button2.Show()
Button3.Show()
Button4.Show()
Button13.Show() '前台管理
Button14.Show()
Button15.Show()
Button16.Show()
Button5.Hide() '客房管理
Button6.Hide()
Button7.Hide()
Button8.Hide()
Button9.Hide() '基础信息
Button10.Hide()
Button11.Hide()
Button12.Hide()
Button17.Hide() '系统维护
Button18.Hide()
Button19.Hide()
Button20.Show()
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Dim f2 As New kfyd
f2.MdiParent = Me
f2.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 MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim zsdj As New zsdj
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 Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Dim zsdj As New zsdj
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -