出入库数据表

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

库存查询数据表

Private Sub 货品编号_DblClick(Cancel As Integer)

Forms("出入库").Form.Filter = "货品编号='" & Me.货品编号 & "'"

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

Forms("出入库").货品编号.SetFocus

End Sub

入库数据表

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

系统主页

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