导航窗体界面跳转管理数据 Access数据库系统功能模块讲解 VBA代码
Option Compare Database
Option Explicit
Private Sub Form_Load()
Me.窗体标题.Caption = "销售数据"
Call 设置按钮格式("功能1", 1)
Call 设置按钮格式("功能2", 2)
Call 设置按钮格式("功能3", 2)
Call 设置按钮格式("功能4", 2)
Call 设置按钮格式("功能5", 2)
Me.数据表子窗体.SourceObject = "销售数据数据表"
End Sub
Private Sub 功能1_Click()
Me.窗体标题.Caption = "销售数据"
Call 设置按钮格式("功能1", 1)
Call 设置按钮格式("功能2", 2)
Call 设置按钮格式("功能3", 2)
Call 设置按钮格式("功能4", 2)
Call 设置按钮格式("功能5", 2)
Me.数据表子窗体.SourceObject = "销售数据数据表"
End Sub
Sub 设置按钮格式(ByVal 按钮名称 As String, ByVal 格式类型 As Integer)
If 格式类型 = 1 Then '选中
Me.Controls(按钮名称).ForeColor = RGB(0, 114, 188)
Me.Controls(按钮名称).BackColor = RGB(255, 255, 255)
End If
If 格式类型 = 2 Then '未选中
Me.Controls(按钮名称).ForeColor = RGB(255, 255, 255)
Me.Controls(按钮名称).BackColor = RGB(0, 114, 188)
End If
End Sub
Private Sub 功能2_Click()
Me.窗体标题.Caption = "人事信息"
Call 设置按钮格式("功能1", 2)
Call 设置按钮格式("功能2", 1)
Call 设置按钮格式("功能3", 2)
Call 设置按钮格式("功能4", 2)
Call 设置按钮格式("功能5", 2)
Me.数据表子窗体.SourceObject = "人事信息数据表"
End Sub
Private Sub 功能3_Click()
Me.窗体标题.Caption = "工资记录"
Call 设置按钮格式("功能1", 2)
Call 设置按钮格式("功能2", 2)
Call 设置按钮格式("功能3", 1)
Call 设置按钮格式("功能4", 2)
Call 设置按钮格式("功能5", 2)
Me.数据表子窗体.SourceObject = "工资记录数据表"
End Sub
Private Sub 功能4_Click()
Me.窗体标题.Caption = "客户管理"
Call 设置按钮格式("功能1", 2)
Call 设置按钮格式("功能2", 2)
Call 设置按钮格式("功能3", 2)
Call 设置按钮格式("功能4", 1)
Call 设置按钮格式("功能5", 2)
Me.数据表子窗体.SourceObject = "客户管理数据表"
End Sub
Private Sub 功能5_Click()
Me.窗体标题.Caption = "产品管理"
Call 设置按钮格式("功能1", 2)
Call 设置按钮格式("功能2", 2)
Call 设置按钮格式("功能3", 2)
Call 设置按钮格式("功能4", 2)
Call 设置按钮格式("功能5", 1)
Me.数据表子窗体.SourceObject = "产品管理数据表"
End Sub
