评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

vb+论文+试题库管理系统(一)毕业论文(4)

2013-06-18 02:00 ;或者 Set Rscordset=cmmnad.Execute(RecordsAffected,Parameters,Options) '返回记录集    CommandText的语法为:    Command.CommandText=stringvariable    其中: stringvariable为字符串变量,包含SQL语句,表名或存储过程.
    (4) 断开连接    在应用程序结束之前,应该释放分配给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
       
      
           ''''''''''''''''''''''''''''''''''''''''''''''''''' （科教作文网http://zw.nseAc.com）
     Else
        MsgBox "密码不正确", , "登陆信息"
     End If
 
 
  End If
  &nb