VB题库管理系统 第7页
主界面包含几方面的内容,以下一一介绍:
首先在用户管理判断出是否管理员
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] [2] [3] [4] [5] [6] [7]