Access应用小技巧_实用的生活小技巧

时间：2019-01-09 03:20:46　来源：雅意学习网本文已影响人

　　摘要：我们利用Access编写出题系统，可以让计算机安全保存所有试题，进行快速提取，实现试卷制作的系统化、规范化，它属于典型的信息管理系统（MIS）。整个出题程序由Access数据库配合Visual Basic即可完成，代码量小，后期大量的工作，可以用在丰富试题数量上，操作简单，易于使用。
　　关键词： AccessVisual Basic 出题系统应用技巧
　　
　　该出题系统可以运行于Windows平台，利用Access配合Visual Basic语言开发，结构简单、代码量小。
　　整个出题系统存储文件单一，一个Access数据库就是一个.mdb文件，包含一系列数据表、查询、窗体、模块和宏等。
　　1.系统结构
　　本试题提取系统包括录入系统、提取系统等，提供题库制作和试题的随机提取等功能。
　　（1）录入系统
　　该窗体的功能在试卷提取之前使用，属于系统维护阶段重要的窗体，它可以对总题库中的试题进行增加、删除、修改和查找等操作，主要在以后的教学中用来更新试题。
　　（2）提取系统
　　该窗体的功能是根据教师的需要，设置需要提取的试题数目、难度、范围和科目等，并产生成套的试题，实现与Word等软件的连接，打印试卷等。
　　2.部分程序代码：
　　（1）移动记录指针
　　Private Sub TopRec_Click（）
　　 On Error GoTo Err_TopRec_Click
　　 DoCmd.GoToRecord，， acFirst
　　 N = 0
　　 For I = 1 To Len（Me.TiMu.Value）
　　 If Mid＄（Me.TiMu.Value， I， 2） = vbCrLf Then
　　N = N + 1
　　 End If
　　 Next
　　 Me.Text34.Caption = Str（N - 1）
　　 Call Star（Me.Name）
　　 Exit_TopRec_Click:
　　 Exit Sub
　　Err_TopRec_Click:
　　 MsgBox Err.Description
　　 Resume Exit_TopRec_Click
　　End Sub
　　（2）产生试题
　　Randomize ?�随机抽取试题
　　?� 填空
　　For I = 0 To a1 - 1
　　 A（I） = Int（Rnd（） * 394 + 1）
　　Next
　　For I = 0 To a1 - 2 ?�禁止出现相同题
　　 Forj = I + 1 To a1 - 1
　　 If A（I） = A（j） Then
　　A（j） = Int（Rnd（） * 394 + 1）
　　 I = 0
　　 j = I + 1
　　End If
　　Next
　　Next
　　MsgBox CStr（a）
　　Dim aa As Object
　　dbs.Close
　　For I = 0 To a1 - 1 ?�向题库中添加数据――填空题
　　 dbs.Execute （"Insert into Temp select TianKong.* from TianKong Where ID=" & A（I））
　　Next
　　（3）产生报表
　　If Val（Forms!［shijuantiqu］.［Text81］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text83］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text84］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text85］.Value） = 0 Or Val（Forms!［shijuantiqu］.［Text86］.Value） = 0 Then
　　M = MsgBox（"题型及题数设置有错，试卷不能正确提取！"， vbCritical + vbOKOnly， "错误提示..."）
　　Forms!［shijuantiqu］.［Text81］.SetFocus
　　Else
　　DoCmd.RunMacro "OutPutInt"
　　End If
　　经过这样的初步设计，试卷提取系统基本能满足日常教学的需要，可以完成试题的录入、存储、查询、报表的打印等。这个小系统的完成，很大程度上减轻了自己的工作强度，在系统制作过程中，也让我学到了不少东西。例如数据库的发展历史和现状，同时也让我深刻体会到软件的开发不是一件容易的事情，需要设计者具备全面的知识，缜密的思维，严谨的工作态度和较强的分析能力。
　　由于时间短暂，该系统有很多不完美的地方，比如没有联机帮助文档，界面友好度不够，查询功能较弱等。这些都有待完善，希望在以后的教学中能逐步修补改善。
　　注：“本文中所涉及到的图表、公式、注解等请以PDF格式阅读”
本文为全文原貌未安装PDF浏览器用户请先下载安装原版全文

推荐访问:小技巧 Access

Access应用小技巧_实用的生活小技巧

最新文章

热门文章