VB题库管理系统 第6页
在应用程序结束之前,应该释放分配给ADO对象的资源,操作系统回收这些资源并可以再分配给其他应用程序.
使用的方法为:Close方法.
语法如下:
Object.Close ' Object为ADO对象
二. 系统的技术要点
1多用户登陆问题
a 建立模块,Module1
b 在模块中申明变量 Public user
c 在数据库建立用户表,存放用户名和密码,然后输入多个用户
d 通过ADO代码连接到数据库。
E 通过SQL语句 判断是否用户数据库有。
F 如果没有则退出。
G 如果有 通过SQL语句判断是否密码正确。
H 如果正确则发送数据库的该用户名到公共变量 user = myrs("user")
I 通过变量决定各个用户的权限。
2 出试卷
手动出试卷
将题库的一个字段设为是否出试卷。
然后通过SQL语句筛选出记录,形成出试卷库。
SELECT * FORM TK WHERE 是否出卷=“是”
自动出试卷
获得随即数,然后自动出题
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
3 多级查询问题
单级查询使用 SELECT * FORM TK WHERE 字段 =SS
多级查询使用 SELECT * FORM TK WHERE 字段1 =SS AND字段2 =SS2
第五章 系统具体实现
首先建立模块,用来存放公共变量
Public user
一. 用户界面的实现
1.登陆界面
在工程引用ADO2.0。
在命令按钮单击写下连接数据库USER表的判断语句
Private Sub Command1_Click()
mname = Text1.Text
pass = Text2.Text
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;"
myrs.Open "SELECT * FROM [user] where (user.user)='" + mname + "';", mycn, adOpenKeyset, adLockOptimistic
If myrs.BOF = True And myrs.EOF = True Then
MsgBox "查无此人", , "登陆信息"
Else
If myrs("pass") = pass Then
''''''''''''''''''''''''''''''''''''''''''
MsgBox "ok", , "登陆信息"
user = myrs("user")
Form2.Show
Unload Me
'''''''''''''''''''''''''''''''''''''''''''''''''''
Else
MsgBox "密码不正确", , "登陆信息"
End If
End If
End Sub
目的是USER表没有该用户,将无法使用本程序
user = myrs("user ")
将公共变量user设为用户的身份
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
VB题库管理系统 第6页下载如图片无法显示或论文不完整,请联系qq752018766