Option Compare Database

Option Explicit

Private Sub Form_Load()

Me.窗體標(biāo)題.Caption = "銷售數(shù)據(jù)"

Call 設(shè)置按鈕格式("功能1", 1)

Call 設(shè)置按鈕格式("功能2", 2)

Call 設(shè)置按鈕格式("功能3", 2)

Call 設(shè)置按鈕格式("功能4", 2)

Call 設(shè)置按鈕格式("功能5", 2)

Me.數(shù)據(jù)表子窗體.SourceObject = "銷售數(shù)據(jù)數(shù)據(jù)表"

End Sub

Private Sub 功能1_Click()

Me.窗體標(biāo)題.Caption = "銷售數(shù)據(jù)"

Call 設(shè)置按鈕格式("功能1", 1)

Call 設(shè)置按鈕格式("功能2", 2)

Call 設(shè)置按鈕格式("功能3", 2)

Call 設(shè)置按鈕格式("功能4", 2)

Call 設(shè)置按鈕格式("功能5", 2)

Me.數(shù)據(jù)表子窗體.SourceObject = "銷售數(shù)據(jù)數(shù)據(jù)表"

End Sub

Sub 設(shè)置按鈕格式(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.窗體標(biāo)題.Caption = "人事信息"

Call 設(shè)置按鈕格式("功能1", 2)

Call 設(shè)置按鈕格式("功能2", 1)

Call 設(shè)置按鈕格式("功能3", 2)

Call 設(shè)置按鈕格式("功能4", 2)

Call 設(shè)置按鈕格式("功能5", 2)

Me.數(shù)據(jù)表子窗體.SourceObject = "人事信息數(shù)據(jù)表"

End Sub

Private Sub 功能3_Click()

Me.窗體標(biāo)題.Caption = "工資記錄"

Call 設(shè)置按鈕格式("功能1", 2)

Call 設(shè)置按鈕格式("功能2", 2)

Call 設(shè)置按鈕格式("功能3", 1)

Call 設(shè)置按鈕格式("功能4", 2)

Call 設(shè)置按鈕格式("功能5", 2)

Me.數(shù)據(jù)表子窗體.SourceObject = "工資記錄數(shù)據(jù)表"

End Sub

Private Sub 功能4_Click()

Me.窗體標(biāo)題.Caption = "客戶管理"

Call 設(shè)置按鈕格式("功能1", 2)

Call 設(shè)置按鈕格式("功能2", 2)

Call 設(shè)置按鈕格式("功能3", 2)

Call 設(shè)置按鈕格式("功能4", 1)

Call 設(shè)置按鈕格式("功能5", 2)

Me.數(shù)據(jù)表子窗體.SourceObject = "客戶管理數(shù)據(jù)表"

End Sub

Private Sub 功能5_Click()

Me.窗體標(biāo)題.Caption = "產(chǎn)品管理"

Call 設(shè)置按鈕格式("功能1", 2)

Call 設(shè)置按鈕格式("功能2", 2)

Call 設(shè)置按鈕格式("功能3", 2)

Call 設(shè)置按鈕格式("功能4", 2)

Call 設(shè)置按鈕格式("功能5", 1)

Me.數(shù)據(jù)表子窗體.SourceObject = "產(chǎn)品管理數(shù)據(jù)表"

End Sub