| 论文首页哲学论文经济论文法学论文教育论文文学论文历史论文理学论文工学论文医学论文管理论文艺术论文 |
End Sub
目的是USER表没有该用户，将无法使用本程序
user = myrs("user ")
将公共变量user设为用户的身份
2. 主界面
主界面包含几方面的内容,以下一一介绍:
首先在用户管理判断出是否管理员
If user = "管理员" Then
Form3.Show
Else
MsgBox "身份错误"
如果不是则无法进行用户管理各个模块的实现
1基础数据：对题库的基础数据进行编辑、和查询管理
通过ADO控件连接到数据库的R基础数据表，通过SQL语句
“SELECT * from;“ 筛选出全部记录
用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
2设定类型：对实验题库的试题类型进行设定。
通过ADO控件连接到数据库的实验题库表
用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。
3设定科目：对实验题库的试题科目进行设定。
通过ADO控件连接到数据库的实验项目表
用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。
4 出试卷： 对进入题库的记录进行出卷。
通过ADO控件连接到数据库的出入库表，通过SQL语句选出出试卷的记录
5查询 ：对各个表进行查询
通过ADO控件连接到数据库的各个表，通过SQL语句
ss = Text3.Text
Adodc3.RecordSource = "select * from sb where ='" + ss + "'"
Adodc3.Refresh
筛选出全部记录
用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
6 自动出题
通过随机函数获得随机数，然后自动出题。
For i = 1 To j
nb = myrs3.RecordCount （科教范文网http://fw.NSEAC.com编辑发布）
rdnb = Int((nb) * Rnd()) '获得随机数
myrs3.Move rdnb
t1 = CStr(myrs3("编号"))
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
myrs2.Open "insert into sj select * from tkgl2 where 编号='" + t1 + "' ", mycn, adOpenKeyset, adLockOptimistic
myrs3.Delete
myrs3.MoveFirst
二. 数据库的实现
基础数据表
字 段 名 数 据 类 型 数 据 长 度
编号 数字（INT） 10
题目 文本型（char） 50
类型 文本型（char） 50
分数 文本型（char） 50
科目 文本型（char） 50
答案 文本型（char） 50
是否出试卷 文本型（char） 50
用户表
字 段 名 数 据 类 型 数 据 长 度
uesr 文本型（char） 50
pass 文本型（char） 50
四. 与VB的连接
Visual Basic提供了与底层数据库系统紧密的连接。Visual Basic 支持不同的关系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服务器运行的服务以上的应用，Visual Basic连接数据库的方式有两种：·通过使用Visual Basic的 ADO控件。 ·通过使用由Visual Basic提供的专用的直接与数据库相连的接口
第七章 结束语
经过一个多月的设计和开发，该题库管理系统基本开发完毕。其功能基本符合客户需求，能够完成题库存储和。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决。但是由于时间以及水平有限，所以该系统还有许多不尽如人意的地方，比如功能较少等多方面问题。这些都有待进一步改善.也希望老师们能够多多指教,好让我能够不断进步.
主要参考文献