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
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提供的专用的直接与数据库相连的接口
第七章 结束语
经过一个多月的设计和开发，该题库管理系统基本开发完毕。其功能基本符合客户需求，能够完成题库存储和。并提供部分系统维护功能,使用户方便进行数据备份和恢复、数据删除。，对于数据的一致性的问题也通过程序进行了有效的解决。但是由于文档设计时间以及水平有限，所以该系统还有许多不尽如人意的地方，比如功能较少等多方面问题。这些都有待进一步改善.也希望老师们能够多多指教,好让我能够不断进步.
主要参考文献
[1] Visual Basic 6.0 使用指南
作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：电子工业出版社 [2] 中文Access 2000 24学时教程 作者：Craig Eddy ，Timothy Buchanan出版社：机械工业出版社
致 谢
在本次文档设计中，我要非常感谢指导老师在我不知道写erp范文从何落手的时候给了我指点方向,在我感觉到自己知识有所贫乏的时候给了我细心的指导和技术上的支持。使我本身的能力得到了不少的提高，这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。
还有感谢这四年以来不厌其烦的给我传授大学知识的老师们，感谢在生活上以及学习上给我照顾和教诲的班主任们。
附 录
附录程序清单及注释程序清单6.1