范文健康探索娱乐情感热点
投稿投诉
热点动态
科技财经
情感日志
励志美文
娱乐时尚
游戏搞笑
探索旅游
历史星座
健康养生
美丽育儿
范文作文
教案论文
热点动态科技财经
手机电脑通信数码头戴车载

课程签到管理系统VBA代码

　　教师管理
　　Option Compare Database
　　Option Explicit
　　Private Sub Command清空_Click()
　　教师姓名.Value = ＂＂
　　教师编号.Value = ＂＂
　　性别.Value = ＂＂
　　学院.Value = ＂＂
　　职位.Value = ＂＂
　　职务.Value = ＂＂
　　联系方式.Value = ＂＂
　　备注.Value = ＂＂
　　End Sub
　　Private Sub Command全部_Click()
　　Me.数据表子窗体.Form.FilterOn = False
　　End Sub
　　Private Sub Command添加_Click()
　　On Error GoTo 添加失败错误
　　If 教师姓名 = ＂＂ Or IsNull(教师姓名) = True Then
　　MsgBox ＂教师姓名值为空！＂
　　Exit Sub
　　End If
　　If 教师编号 = ＂＂ Or IsNull(教师编号) = True Then
　　MsgBox ＂教师编号值为空！＂
　　Exit Sub
　　End If
　　If Nz(DCount(＂教师姓名＂, ＂教师表＂, ＂教师姓名=＂＂ & Me.教师姓名 & ＂＂＂), 0) > 0 Then
　　MsgBox ＂该教师姓名已存在！请输入其他教师姓名＂
　　Exit Sub
　　End If
　　Dim add_rs As DAO.Recordset
　　Set add_rs = CurrentDb.OpenRecordset(＂教师表＂, dbOpenTable)
　　With add_rs
　　.AddNew
　　!教师姓名.Value = 教师姓名.Value
　　!教师编号.Value = 教师编号.Value
　　!性别.Value = 性别.Value
　　!学院.Value = 学院.Value
　　!职位.Value = 职位.Value
　　!职务.Value = 职务.Value
　　!联系方式.Value = 联系方式.Value
　　!备注.Value = 备注.Value
　　.Update
　　.Close
　　End With
　　Set add_rs = Nothing
　　＂================================================================
　　MsgBox ＂添加成功！＂
　　Me.数据表子窗体.Requery
　　Exit Sub
　　添加失败错误:
　　MsgBox ＂添加失败！＂
　　MsgBox Err.Description
　　End Sub
　　教师数据表
　　Option Compare Database
　　Option Explicit
　　Private Sub Form_BeforeUpdate(Cancel As Integer)
　　On Error GoTo 数据更新前提醒_Err
　　If (MsgBox(＂是否保存对记录的修改＂, 1, ＂修改记录提醒＂) = 1) Then
　　Beep
　　Else
　　DoCmd.RunCommand acCmdUndo
　　End If
　　数据更新前提醒_Exit:
　　Exit Sub
　　数据更新前提醒_Err:
　　MsgBox Error$
　　Resume 数据更新前提醒_Exit
　　End Sub
　　Private Sub 教师姓名_DblClick(Cancel As Integer)
　　DoCmd.OpenForm ＂教师信息更新删除＂, acNormal, , ＂教师姓名=＂＂ & 教师姓名 & ＂＂＂
　　End Sub
　　教师信息更新删除
　　Option Compare Database
　　Option Explicit
　　Private Sub Command保存_Click()
　　On Error Resume Next
　　DoCmd.RunCommand acCmdSaveRecord
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　Else
　　MsgBox ＂保存成功＂
　　End If
　　End Sub
　　Private Sub Command撤销_Click()
　　On Error Resume Next
　　DoCmd.RunCommand acCmdUndo
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　End If
　　End Sub
　　Private Sub Command删除_Click()
　　On Error Resume Next
　　DoCmd.SetWarnings (False)
　　If MsgBox(＂是否删除该记录＂, vbOKCancel) = vbOK Then
　　DoCmd.RunCommand acCmdDeleteRecord
　　MsgBox ＂删除成功＂
　　DoCmd.Close acForm, Me.Name
　　Else
　　Exit Sub
　　End If
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　End If
　　End Sub
　　Private Sub Form_BeforeUpdate(Cancel As Integer)
　　On Error GoTo 数据更新前提醒_Err
　　If (MsgBox(＂是否保存对记录的修改＂, 1, ＂修改记录提醒＂) = 1) Then
　　Beep
　　Else
　　DoCmd.RunCommand acCmdUndo
　　End If
　　数据更新前提醒_Exit:
　　Exit Sub
　　数据更新前提醒_Err:
　　MsgBox Error$
　　Resume 数据更新前提醒_Exit
　　End Sub
　　Private Sub Form_Close()
　　Forms(＂教师管理＂).Form.数据表子窗体.Requery
　　End Sub课程管理
　　Option Compare Database
　　Option Explicit
　　Private Sub Command清空_Click()
　　课程编号.Value = ＂＂
　　课程名称.Value = ＂＂
　　任课教师.Value = ＂＂
　　上课地点.Value = ＂＂
　　上课周数.Value = ＂＂
　　上课时间.Value = ＂＂
　　备注.Value = ＂＂
　　End Sub
　　Private Sub Command全部_Click()
　　Me.数据表子窗体.Form.FilterOn = False
　　End Sub
　　Private Sub Command添加_Click()
　　On Error GoTo 添加失败错误
　　If 课程编号 = ＂＂ Or IsNull(课程编号) = True Then
　　MsgBox ＂课程编号值为空！＂
　　Exit Sub
　　End If
　　If 课程名称 = ＂＂ Or IsNull(课程名称) = True Then
　　MsgBox ＂课程名称值为空！＂
　　Exit Sub
　　End If
　　If 任课教师 = ＂＂ Or IsNull(任课教师) = True Then
　　MsgBox ＂任课教师值为空！＂
　　Exit Sub
　　End If
　　If Nz(DCount(＂课程编号＂, ＂课程表＂, ＂课程编号=＂＂ & Me.课程编号 & ＂＂＂), 0) > 0 Then
　　MsgBox ＂该课程编号已存在！请输入其他课程编号＂
　　Exit Sub
　　End If
　　Dim add_rs As DAO.Recordset
　　Set add_rs = CurrentDb.OpenRecordset(＂课程表＂, dbOpenTable)
　　With add_rs
　　.AddNew
　　!课程编号.Value = 课程编号.Value
　　!课程名称.Value = 课程名称.Value
　　!任课教师.Value = 任课教师.Value
　　!上课地点.Value = 上课地点.Value
　　!上课周数.Value = 上课周数.Value
　　!上课时间.Value = 上课时间.Value
　　!备注.Value = 备注.Value
　　.Update
　　.Close
　　End With
　　Set add_rs = Nothing
　　MsgBox ＂添加成功！＂
　　Me.数据表子窗体.Requery
　　Exit Sub
　　添加失败错误:
　　MsgBox ＂添加失败！＂
　　MsgBox Err.Description
　　End Sub课程签到情况
　　Option Compare Database
　　Option Explicit
　　Private Sub Command全部_Click()
　　Me.选择课程 = ＂＂
　　Me.数据表子窗体.Form.FilterOn = False
　　Me.数据表子窗体2.Form.FilterOn = False
　　End Sub
　　Private Sub Command生成报表_Click()
　　If Me.选择课程 <> ＂＂ Then
　　DoCmd.OpenReport ＂课程签到情况报表＂, acViewReport, , ＂课程签到情况汇总统计查询_课程编号=＂＂ & Me.选择课程 & ＂＂＂
　　Else
　　DoCmd.OpenReport ＂课程签到情况报表＂, acViewReport
　　End If
　　End Sub
　　Private Sub 选择课程_Change()
　　Me.数据表子窗体.Form.Filter = ＂课程编号=＂＂ & Me.选择课程 & ＂＂＂
　　Me.数据表子窗体.Form.FilterOn = True
　　Me.数据表子窗体2.Form.Filter = ＂课程编号=＂＂ & Me.选择课程 & ＂＂＂
　　Me.数据表子窗体2.Form.FilterOn = True
　　End Sub
　　课程数据表
　　Option Compare Database
　　Option Explicit
　　Private Sub Form_BeforeUpdate(Cancel As Integer)
　　On Error GoTo 数据更新前提醒_Err
　　If (MsgBox(＂是否保存对记录的修改＂, 1, ＂修改记录提醒＂) = 1) Then
　　Beep
　　Else
　　DoCmd.RunCommand acCmdUndo
　　End If
　　数据更新前提醒_Exit:
　　Exit Sub
　　数据更新前提醒_Err:
　　MsgBox Error$
　　Resume 数据更新前提醒_Exit
　　End Sub
　　Private Sub 课程编号_DblClick(Cancel As Integer)
　　DoCmd.OpenForm ＂课程信息更新删除＂, acNormal, , ＂课程编号=＂＂ & 课程编号 & ＂＂＂
　　End Sub课程信息更新删除
　　Option Compare Database
　　Option Explicit
　　Private Sub Command保存_Click()
　　On Error Resume Next
　　DoCmd.RunCommand acCmdSaveRecord
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　Else
　　MsgBox ＂保存成功＂
　　End If
　　End Sub
　　Private Sub Command撤销_Click()
　　On Error Resume Next
　　DoCmd.RunCommand acCmdUndo
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　End If
　　End Sub
　　Private Sub Command删除_Click()
　　On Error Resume Next
　　DoCmd.SetWarnings (False)
　　If MsgBox(＂是否删除该记录＂, vbOKCancel) = vbOK Then
　　DoCmd.RunCommand acCmdDeleteRecord
　　MsgBox ＂删除成功＂
　　DoCmd.Close acForm, Me.Name
　　Else
　　Exit Sub
　　End If
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　End If
　　End Sub
　　Private Sub Form_BeforeUpdate(Cancel As Integer)
　　On Error GoTo 数据更新前提醒_Err
　　If (MsgBox(＂是否保存对记录的修改＂, 1, ＂修改记录提醒＂) = 1) Then
　　Beep
　　Else
　　DoCmd.RunCommand acCmdUndo
　　End If
　　数据更新前提醒_Exit:
　　Exit Sub
　　数据更新前提醒_Err:
　　MsgBox Error$
　　Resume 数据更新前提醒_Exit
　　End Sub
　　Private Sub Form_Close()
　　Forms(＂课程管理＂).Form.数据表子窗体.Requery
　　End Sub签到管理
　　Option Compare Database
　　Option Explicit
　　Private Sub Command查询_Click()
　　Me.数据表子窗体.Form.Filter = ＂日期=#＂ & Me.日期 & ＂# and 课程编号=＂＂ & Me.选择课程 & ＂＂＂
　　Me.数据表子窗体.Form.FilterOn = True
　　Me.数据表子窗体.Requery
　　End Sub
　　Private Sub Command生成签到记录_Click()
　　If 日期 = ＂＂ Or IsNull(日期) = True Then
　　MsgBox ＂日期值为空！＂
　　Exit Sub
　　End If
　　If 选择课程 = ＂＂ Or IsNull(选择课程) = True Then
　　MsgBox ＂选择课程值为空！＂
　　Exit Sub
　　End If
　　If 上课时间 = ＂＂ Or IsNull(上课时间) = True Then
　　MsgBox ＂选择课程值为空！＂
　　Exit Sub
　　End If
　　Dim search_rs As DAO.Recordset
　　Dim search_sql As String
　　search_sql = ＂Select * From 选课表 Where 课程编号=＂＂ & Me.选择课程 & ＂＂＂
　　Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)
　　Dim add_rs As DAO.Recordset
　　Set add_rs = CurrentDb.OpenRecordset(＂签到记录表＂, dbOpenTable)
　　With add_rs
　　Do While search_rs.EOF = False
　　＂----------------------------------生成签到记录
　　.AddNew
　　!日期.Value = 日期.Value
　　!课程编号.Value = 选择课程
　　!学号.Value = search_rs!学号.Value
　　!上课时间.Value = 上课时间.Value
　　!迟到.Value = False
　　!早退.Value = False
　　!请假.Value = False
　　!旷课.Value = False
　　.Update
　　search_rs.MoveNext
　　Loop
　　.Close
　　End With
　　Set add_rs = Nothing
　　search_rs.Close
　　Set search_rs = Nothing
　　Me.数据表子窗体.Form.Filter = ＂日期=#＂ & Me.日期 & ＂# and 课程编号=＂＂ & Me.选择课程 & ＂＂＂
　　Me.数据表子窗体.Form.FilterOn = True
　　Me.数据表子窗体.Requery
　　End Sub
　　Private Sub Form_Load()
　　Me.日期 = Date
　　Me.上课时间 = Time
　　End Sub签到记录查询数据表
　　Option Compare Database
　　Option Explicit
　　Private Sub 签到ID_DblClick(Cancel As Integer)
　　If MsgBox(＂是否删除该选课记录＂, vbOKCancel) = vbOK Then
　　DoCmd.SetWarnings (False)
　　Dim del_sql As String
　　del_sql = ＂Delete From 签到记录表 Where 签到ID=＂ & 签到ID
　　DoCmd.RunSQL del_sql
　　Forms(＂签到管理＂).数据表子窗体.Requery
　　End If
　　End Sub
　　Private Sub 签到时间_DblClick(Cancel As Integer)
　　Me.签到时间 = Time
　　End Sub系统登录
　　Option Compare Database
　　Option Explicit
　　Private Sub 登录_Click()
　　If 账号 <> ＂＂ And 密码 <> ＂＂ Then
　　If Me.密码 = DLookup(＂密码＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂) Then ＂修改域函数参数
　　MsgBox ＂登录成功＂
　　学生管理权限 = DLookup(＂学生管理＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂)
　　教师管理权限 = DLookup(＂教师管理＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂)
　　课程管理权限 = DLookup(＂课程管理＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂)
　　选课管理权限 = DLookup(＂选课管理＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂)
　　签到管理权限 = DLookup(＂签到管理＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂)
　　课程签到情况查询权限 = DLookup(＂课程签到情况查询＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂)
　　学生签到情况查询权限 = DLookup(＂学生签到情况查询＂, ＂账号密码表＂, ＂账号=＂＂ & Me.账号 & ＂＂＂)
　　DoCmd.OpenForm ＂系统主页＂, acNormal, , ＂账号=＂＂ & Me.账号 & ＂＂＂
　　DoCmd.Close acForm, Me.Name
　　Else
　　MsgBox ＂账号或密码错误＂
　　End If
　　Else
　　MsgBox ＂请输入账号和密码＂
　　End If
　　End Sub
　　Private Sub 退出_Click()
　　Application.Quit
　　End Sub
　　系统主页
　　Option Compare Database
　　Option Explicit
　　Private Sub Command教师管理_Click()
　　If 教师管理权限 = True Then
　　DoCmd.OpenForm ＂教师管理＂, acNormal
　　Else
　　MsgBox ＂无权限＂
　　Exit Sub
　　End If
　　End Sub
　　Private Sub Command课程管理_Click()
　　If 教师管理权限 = True Then
　　DoCmd.OpenForm ＂课程管理＂, acNormal
　　Else
　　MsgBox ＂无权限＂
　　Exit Sub
　　End If
　　End Sub
　　Private Sub Command课程签到情况_Click()
　　If 课程签到情况查询权限 = True Then
　　DoCmd.OpenForm ＂课程签到情况＂, acNormal
　　Else
　　MsgBox ＂无权限＂
　　Exit Sub
　　End If
　　End Sub
　　Private Sub Command签到管理_Click()
　　If 签到管理权限 = True Then
　　DoCmd.OpenForm ＂签到管理＂, acNormal
　　Else
　　MsgBox ＂无权限＂
　　Exit Sub
　　End If
　　End Sub
　　Private Sub Command退出系统_Click()
　　Application.Quit acQuitSaveAll
　　End Sub
　　Private Sub Command选课管理_Click()
　　If 选课管理权限 = True Then
　　DoCmd.OpenForm ＂选课管理＂, acNormal
　　Else
　　MsgBox ＂无权限＂
　　Exit Sub
　　End If
　　End Sub
　　Private Sub Command学生管理_Click()
　　If 学生管理权限 = True Then
　　DoCmd.OpenForm ＂学生管理＂, acNormal
　　Else
　　MsgBox ＂无权限＂
　　Exit Sub
　　End If
　　End Sub
　　Private Sub Command学生签到情况_Click()
　　If 学生签到情况查询权限 = True Then
　　DoCmd.OpenForm ＂学生签到情况＂, acNormal
　　Else
　　MsgBox ＂无权限＂
　　Exit Sub
　　End If
　　End Sub选课管理
　　Option Compare Database
　　Option Explicit
　　Private Sub 选择课程_Change()
　　Me.Filter = ＂课程编号=＂＂ & Me.选择课程 & ＂＂＂
　　Me.FilterOn = True
　　＂---------计算选课人数
　　Me.选课人数 = Nz(DCount(＂选课ID＂, ＂选课表＂, ＂课程编号=＂＂ & Me.课程编号 & ＂＂＂), 0)
　　End Sub学生管理
　　Option Compare Database
　　Option Explicit
　　Private Sub Command清空_Click()
　　学号.Value = ＂＂
　　姓名.Value = ＂＂
　　性别.Value = ＂＂
　　班级.Value = ＂＂
　　专业.Value = ＂＂
　　学院.Value = ＂＂
　　联系方式.Value = ＂＂
　　备注.Value = ＂＂
　　End Sub
　　Private Sub Command全部_Click()
　　Me.数据表子窗体.Form.FilterOn = False
　　End Sub
　　Private Sub Command添加_Click()
　　On Error GoTo 添加失败错误
　　If 学号 = ＂＂ Or IsNull(学号) = True Then
　　MsgBox ＂学号值为空！＂
　　Exit Sub
　　End If
　　If 姓名 = ＂＂ Or IsNull(姓名) = True Then
　　MsgBox ＂姓名值为空！＂
　　Exit Sub
　　End If
　　If Nz(DCount(＂学号＂, ＂学生表＂, ＂学号=＂＂ & Me.学号 & ＂＂＂), 0) > 0 Then
　　MsgBox ＂该学号已存在！请添加其他学号＂
　　Exit Sub
　　End If
　　Dim add_rs As DAO.Recordset
　　Set add_rs = CurrentDb.OpenRecordset(＂学生表＂, dbOpenTable)
　　With add_rs
　　.AddNew
　　!学号.Value = 学号.Value
　　!姓名.Value = 姓名.Value
　　!性别.Value = 性别.Value
　　!班级.Value = 班级.Value
　　!专业.Value = 专业.Value
　　!学院.Value = 学院.Value
　　!联系方式.Value = 联系方式.Value
　　!备注.Value = 备注.Value
　　.Update
　　.Close
　　End With
　　Set add_rs = Nothing
　　MsgBox ＂添加成功！＂
　　Me.数据表子窗体.Requery
　　Exit Sub
　　添加失败错误:
　　MsgBox ＂添加失败！＂
　　MsgBox Err.Description
　　End Sub学生签到情况
　　Option Compare Database
　　Option Explicit
　　Private Sub Command全部_Click()
　　Me.选择学生 = ＂＂
　　Me.数据表子窗体.Form.FilterOn = False
　　Me.数据表子窗体2.Form.FilterOn = False
　　End Sub
　　Private Sub Command生成报表_Click()
　　If Me.选择学生 <> ＂＂ Then
　　DoCmd.OpenReport ＂学生签到情况报表＂, acViewReport, , ＂学号=＂＂ & Me.选择学生 & ＂＂＂
　　Else
　　DoCmd.OpenReport ＂学生签到情况报表＂, acViewReport
　　End If
　　End Sub
　　Private Sub 选择学生_Change()
　　Me.数据表子窗体.Form.Filter = ＂学号=＂＂ & Me.选择学生 & ＂＂＂
　　Me.数据表子窗体.Form.FilterOn = True
　　Me.数据表子窗体2.Form.Filter = ＂学号=＂＂ & Me.选择学生 & ＂＂＂
　　Me.数据表子窗体2.Form.FilterOn = True
　　End Sub学生数据表
　　Option Compare Database
　　Option Explicit
　　Private Sub Form_BeforeUpdate(Cancel As Integer)
　　On Error GoTo 数据更新前提醒_Err
　　If (MsgBox(＂是否保存对记录的修改＂, 1, ＂修改记录提醒＂) = 1) Then
　　Beep
　　Else
　　DoCmd.RunCommand acCmdUndo
　　End If
　　数据更新前提醒_Exit:
　　Exit Sub
　　数据更新前提醒_Err:
　　MsgBox Error$
　　Resume 数据更新前提醒_Exit
　　End Sub
　　Private Sub 学号_DblClick(Cancel As Integer)
　　DoCmd.OpenForm ＂学生信息更新删除＂, acNormal, , ＂学号=＂＂ & 学号 & ＂＂＂
　　End Sub学生数据表2
　　Option Compare Database
　　Option Explicit
　　Private Sub 学号_DblClick(Cancel As Integer)
　　If Nz(DCount(＂选课ID＂, ＂选课表＂, ＂课程编号=＂＂ & Forms(＂选课管理＂).课程编号 & ＂＂ and 学号=＂＂ & Me.学号 & ＂＂＂), 0) > 0 Then
　　MsgBox ＂该学生已选择该课程！请勿重复选择＂
　　Exit Sub
　　Else
　　DoCmd.SetWarnings (False)
　　Dim add_sql As String
　　add_sql = ＂Insert Into 选课表 (课程编号,学号) Values (＂＂ & Forms(＂选课管理＂).课程编号 & ＂＂,＂＂ & 学号 & ＂＂)＂
　　DoCmd.RunSQL add_sql
　　Forms(＂选课管理＂).Form.数据表子窗体2.Requery
　　Forms(＂选课管理＂).选课人数 = Nz(DCount(＂选课ID＂, ＂选课表＂, ＂课程编号=＂＂ & Forms(＂选课管理＂).课程编号 & ＂＂＂), 0)
　　End If
　　End Sub学生信息更新删除
　　Option Compare Database
　　Option Explicit
　　Private Sub Command保存_Click()
　　On Error Resume Next
　　DoCmd.RunCommand acCmdSaveRecord
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　Else
　　MsgBox ＂保存成功＂
　　End If
　　End Sub
　　Private Sub Command撤销_Click()
　　On Error Resume Next
　　DoCmd.RunCommand acCmdUndo
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　End If
　　End Sub
　　Private Sub Command删除_Click()
　　On Error Resume Next
　　DoCmd.SetWarnings (False)
　　If MsgBox(＂是否删除该记录＂, vbOKCancel) = vbOK Then
　　DoCmd.RunCommand acCmdDeleteRecord
　　MsgBox ＂删除成功＂
　　DoCmd.Close acForm, Me.Name
　　Else
　　Exit Sub
　　End If
　　If Error.Number <> 0 Then
　　MsgBox Error.Description
　　End If
　　End Sub
　　Private Sub Form_BeforeUpdate(Cancel As Integer)
　　On Error GoTo 数据更新前提醒_Err
　　If (MsgBox(＂是否保存对记录的修改＂, 1, ＂修改记录提醒＂) = 1) Then
　　Beep
　　Else
　　DoCmd.RunCommand acCmdUndo
　　End If
　　数据更新前提醒_Exit:
　　Exit Sub
　　数据更新前提醒_Err:
　　MsgBox Error$
　　Resume 数据更新前提醒_Exit
　　End Sub
　　Private Sub Form_Close()
　　Forms(＂学生管理＂).Form.数据表子窗体.Requery
　　End Sub学生选课查询数据表
　　Option Compare Database
　　Option Explicit
　　Private Sub 选课ID_DblClick(Cancel As Integer)
　　If MsgBox(＂是否删除该选课记录＂, vbOKCancel) = vbOK Then
　　DoCmd.SetWarnings (False)
　　Dim del_sql As String
　　del_sql = ＂Delete From 选课表 Where 选课ID=＂ & 选课ID
　　DoCmd.RunSQL del_sql
　　Forms(＂选课管理＂).数据表子窗体2.Requery
　　Forms(＂选课管理＂).选课人数 = Nz(DCount(＂选课ID＂, ＂选课表＂, ＂课程编号=＂＂ & Forms(＂选课管理＂).课程编号 & ＂＂＂), 0)
　　End If
　　End Sub
　　模块1
　　Option Compare Database
　　Option Explicit
　　Public 学生管理权限 As Boolean
　　Public 教师管理权限 As Boolean
　　Public 课程管理权限 As Boolean
　　Public 选课管理权限 As Boolean
　　Public 签到管理权限 As Boolean
　　Public 课程签到情况查询权限 As Boolean
　　Public 学生签到情况查询权限 As Boolean
电脑开机正常启动，但显示器无信号然后黑屏怎么回事？一招解决大家在使用电脑的时候有时会遇到这么一种问题，就是电脑开机后主机可以正常启动，但是显示器无信号然后黑屏，造成这一故障的原因有很多种，看看亿说电脑张一张是如何一招解决的。先说明一下造成主板上的纽扣电池没电了，影响电脑开机吗？大家都知道在我们电脑的主板上有一颗纽扣电池，当电脑使用好几年之后电池就能会亏电，这时有的朋友会了，当电脑上板上的纽扣电池没电了，影响电脑开机吗？亿说电脑张一亿通过几个问题的问答来告你知道显卡挖矿有多费电吗？一台矿机一天到底能耗多少电？越来越多的人入坑显卡挖矿，小编也帮不少朋友搞过矿机，都说挖矿赚钱，但挖矿成本也是很高的，这里的成本除去显卡价格外最关心的就是电费了，你知道一台矿机有多费电吗？亿说电脑张一亿给大家细为什么我的144hz显示器是只显示60hz？教你正确设置屏幕刷新率要玩游戏除了主机硬件要好之外，没有个好的显示器怎么能行呢，一般的玩家都喜欢配144hz以上的屏幕，有的甚至要165hz的，前不久有个朋友跟我说，他明明买的是144hz的显示器，为什主板上的南桥和北桥是什么意思？我们的主板上有两个很重要的芯片，分别叫北桥芯片组南桥芯片组，它们的作用是什么呢？要知道早期的制造工艺相对粗糙，晶体管的数量相对偏少，因此曾经的处理器集成度较低，必须要由主板芯片组来拒绝第三方！用微软提供的方法安装官方版win10系统U盘版跟大家分享一个如何自己动手做Win10安装U盘的方法，我们不用那些ghost类的，还不知道里面捆绑了多少没用的东西，用就用最官方最纯净的Win10系统，正好微软给我们提供一个方法，全新iPhone13Pro需要加价，网友果断买二手iPhone13Pro虽然上市一个月，但iPhone13Pro已经缺货，官网要等，其他非官方渠道都需要加价才有现货。网友不想加价，果断买了一台成色极品的二手iPhone13Pro。iPhone13Pro刘继业Ansys收购ModelCenter意在数字孪生体2021年5月17日，Ansys宣布收购ModelCenter，这是数字孪生体仿真派的一件大事，它意味着数字孪生体产业结构开始变化了，特别是传统工业软件巨头利用资本的力量，不断强化第2期数字孪生国防沙龙明确了三项工作任务2021年10月31日，第2期数字孪生国防沙龙如期在UXV创新实验室会议室举办，来自数字孪生国防领域10多人参加了交流讨论。此次沙龙确定了兵棋推演和ModelCenter开源工作，预算6000，网友纠结13和12Pro，最终选择了战损版iPhone12PM6000块能买很多全新机，比如苹果最新的iPhone13。但今天这位粉丝特立独行，总喜欢选择不一样的产品，他就入手了一台二手iPhone12ProMax512GB，价格同样只要60iPhone13真的有预激活机制？别被商家给忽悠了最近有人在网上说iPhone13系列有预激活机制，意思就是即便你的iPhone没有拆封，没有激活，查询序列号也是激活状态。稍微懂的人都知道，iPhone激活之前查询序列号都是未激活
<<<<<<－>>>>>>
华为高工资是第一推动力华为为什么那么高的工资呢？在任正非的眼中，华为是个三高企业高效率高压力高工资。他相信，高工资是第一推动力，重赏之下必有勇夫，华为给员工的不仅仅有高工资，还有股票和其他各种待遇。19Python爬虫抓取动态加载数据本节讲解如何抓取豆瓣电影分类排行榜中的电影数据（httpsmovie。douban。comchart），比如输入犯罪则会输出所有犯罪影片的电影名称评分，效果如下所示剧情喜剧动作爱情SpringMVC数据格式化（Formatter）SpringMVC框架的Formatter与Converter一样，也是一个可以将一种数据类型转换成另一种数据类型的接口。不同的是，Formatter的源类型必须是String类型SpringMVC数据校验一般情况下，用户的输入是随意的，为了保证数据的合法性，数据验证是所有Web应用必须处理的问题。SpringMVC有以下两种方法可以验证输入利用Spring自带的验证框架利用JSR3SpringMVCJSON数据交互SpringMVC在数据绑定的过程中需要对传递数据的格式和类型进行转换，它既可以转换String等类型的数据，也可以转换JSON等其他类型的数据。本节将针对SpringMVC中JS看亏钱的京东，企业要挣钱还是值钱？一个亏钱的企业，为什么还能上市？那是因为企业值钱！3个方面，收藏好第一，资本会算一笔账。只要京东有持续性的用户，那么，挣钱是早晚的事，而且随时挣钱。所以，即使亏损，即使当年只有25计算机毕业设计之屌炸宇宙SpringBoot微信小程序校园闲置二手交易功能1。用户端（1）用户信息模块用户注册登录个人信息维护（2）闲置信息模块闲置信息的发布查询（3）留言模块实时留言功能（4）关注用户实时了解关注用户动态2。管理端（1）用户端功能（计算机毕业设计springbootvue校园二手交易平台开发技术springbootmybatispluswebsocketLayUIVue。js创新点百度echarts图表统计可视化前后端分离之vue。js的使用阿里云短信接口（用户注5000个老年友好型社区来了，智慧健康养老产业将成为蓝海市场国家卫生健康委员会全国老龄工作委员会办公室联合发布关于开展示范性全国老年友好型社区创建工作的通知（国卫老龄发202023号文），通知提出，首个全国示范性城乡老年友好型社区标准发布，安心养老建设银行在打造智慧养老产业新生态的市场化探索随着全球人口老龄化，新的消费机会和市场将会出现，面向年长人士的产品和服务市场正在变得越发强劲，甚至可以说，年长人士正在改变消费和资本市场。面对更加多层次多元化的养老需求和市场前景，计算机毕业设计之SpringBoot校园二手交易小程序校园二手交易平台技术后台SpringBootMybatisShiroMavenMySQL前端Layui运行截图校园二手交易小程序校园二手交易小程序校园二手交易小程序校园二手交易小程序校园二手交易小