導(dǎo)航窗體界面跳轉(zhuǎn)管理數(shù)據(jù) Access數(shù)據(jù)庫系統(tǒng)功能模塊講解 VBA代碼
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
