出入庫數(shù)據(jù)表

Private Sub Form_AfterUpdate()

Forms("出入庫").庫存子窗體.Requery

End Sub

Private Sub 出庫日期_DblClick(Cancel As Integer)

Me.出庫日期 = Date

End Sub

出入庫

Private Sub Command刷新_Click()

Me.庫存子窗體.Requery

End Sub

庫存查詢數(shù)據(jù)表

Private Sub 貨品編號_DblClick(Cancel As Integer)

Forms("出入庫").Form.Filter = "貨品編號='" & Me.貨品編號 & "'"

Forms("出入庫").Form.FilterOn = True

Forms("出入庫").貨品編號.SetFocus

End Sub

入庫數(shù)據(jù)表

Private Sub Form_AfterUpdate()

Forms("出入庫").庫存子窗體.Requery

End Sub

Private Sub 入庫日期_DblClick(Cancel As Integer)

Me.入庫日期 = Date

End Sub

單選題

Dim search_rs As DAO.Recordset

Dim truetext As String

Private Sub Command確定_Click()

If IsNull(Frame選項) = True Then

MsgBox "請選擇選項"

Exit Sub

End If

Dim selecttext As String

Select Case Me.Frame選項

Case 1

selecttext = "A"

Case 2

selecttext = "B"

Case 3

selecttext = "C"

Case 4

selecttext = "D"

End Select

If selecttext = truetext Then

MsgBox "正確"

Else

MsgBox "錯誤：正確答案為：" & truetext

End If

Frame選項 = Null

search_rs.MoveNext

If search_rs.EOF = False Then

題目.Value = search_rs!題目.Value

LabelA.Caption = search_rs!A.Value

LabelB.Caption = search_rs!B.Value

LabelC.Caption = search_rs!C.Value

LabelD.Caption = search_rs!D.Value

truetext = search_rs!正確答案.Value

Else

MsgBox "已到達最后一題"

End If

End Sub

Private Sub Form_Close()

search_rs.Close

Set search_rs = Nothing

End Sub

Private Sub Form_Load()

Dim search_sql As String

search_sql = "Select * From 題目表"

Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)

If search_rs.EOF = False Then

題目.Value = search_rs!題目.Value

LabelA.Caption = search_rs!A.Value

LabelB.Caption = search_rs!B.Value

LabelC.Caption = search_rs!C.Value

LabelD.Caption = search_rs!D.Value

truetext = search_rs!正確答案.Value

End If

End Sub

系統(tǒng)主頁

Private Sub Form_Load()

Me.窗體標題.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.窗體標題.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.窗體標題.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.窗體標題.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.窗體標題.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.窗體標題.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