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] 下一页