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
