Access数据库VBA编程实例通用成绩处理系统Word格式.docx

1、自动及格人数高分人数平均分单精度及格率4高分率2、窗体的设计与实现窗体是Access 2003数据库系统的一个重要对象。前面介绍的数据导入、浏览记录、质量分析、显示查询结果、导出数据等都是在“数据表”视图中所进行的操作。（1）通用成绩处理系统窗体： 图一 该窗体及命令按钮VBA代码：Private Sub Form_Load（） MsgBox （使用前先进入“使用帮助”，花几分钟阅读一下使用说明，会使你的工作事半功倍!）End SubPrivate Sub 命令0_Click（） On Error GoTo err Dim db As Database Set db = CurrentDb（）

2、 For i = 0 To db.TableDefs.Count - 1 If db.TableDefs（i）.Name = 学生成绩 Then DoCmd.DeleteObject acTable, End If Next i Set db = Nothing请将要导入的文件置于“成绩统计”文件夹中，文件名必须是“学生成绩” DoCmd.TransferSpreadsheet acImport, 8, , CurrentProject.Path & 学生成绩.xls, True导入完成! Exit Suberr:找不到文件或文件格式不对Private Sub 命令11_Click（） DoC

3、md.OpenTable Private Sub 命令12_Click（）提示：00表示年段，01表示一班，02表示二班.质量分析Private Sub 命令13_Click（） DoCmd.OpenQuery tempPrivate Sub 命令15_Click（） FollowHyperlink CurrentProject.Path &功能说明.docPrivate Sub 命令22_Click（） DoCmd.Quit acQuitSaveAllPrivate Sub 命令6_Click（） DoCmd.OpenForm Private Sub 命令7_Click（）导出结果（2）质量

4、分析窗体各命令按钮VBA代码：Private Sub 命令10_Click（）Dim kmzf（15） As DoubleDim kmmc（15） As String For i = 1 To 11 kmzf（i） = Val（Me.Controls（txtzf & i）.Value） Nextkmmc（1） = 数学kmmc（2） = 语文kmmc（3） = 英语kmmc（4） = 物理kmmc（5） = 化学kmmc（6） = 地理kmmc（7） = 政治kmmc（8） = 历史kmmc（9） = 生物kmmc（10） = 文综kmmc（11） = 理综Dim k As Stringtt

5、= Falsek = Dim db As DAO.Database 声明数据库对象变量Set db = CurrentDb（）db.Execute DELETE * FROM 质量分析;For i = 1 To 11 If Me.Controls（check i） 0 Then Call 统计（kmmc（i）, kmzf（i）, 00） 算年段三率 For j = Val（TXTbjks.Value） To Val（TXTbjks.Value） + bjzs - 1 If j 10 Then k = 0 CStr（j） Call 统计（kmmc（i）, kmzf（i）, k） 算班级三率 El

6、se k = CStr（j） Call 统计（kmmc（i）, kmzf（i）, k） Next jNext iIf tt = False Then统计完毕，请返回主菜单导出结果打印End IfPrivate Sub 命令97_Click（） Call 查询Private Sub 命令100_Click（） DoCmd.ClosePrivate Sub 命令111_Click（） Dim kk As String Call 计算总分 For i = Val（TXTbjks.Value） To Val（TXTbjks.Value） + Val（txtbjzs.Value） - 1 Debug.P

7、rint i If i = kmzf * 0.6 Then jgrs = jgrs + 1 = 0.8 * kmzf Then gfrs = gfrs + 1 高分的人数intI = intI + 1 recName.MoveNext 读取记录集的下一行记录Loopavg = sum / intI gfli = gfrs / intI jgli = jgrs / intI 写入“质量分析”表Set recName = db.OpenRecordset（将“”表读入记录集recName.AddNewrecName.Fields（0） = jjrecName.Fields（1） = kmrecName.Fi