论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > VB6.0 >

A400263自动出题题库系统

    (b)修改记录集    其实修改核对记录集中的数据重新赋值没有什么太大的区别,只要用SQL语句将要修改的字段的一个数据找出来重新赋值就可以了.这里不再细说了. 内容来自www.paper51.com

    (c)删除记录    在ADO中删除记录集中的数据的方法为:Delete方法,这与DAO对象的方法相同,但是在ADO中它的能力增强了,可以删掉一组记录了.    它的语法如下:    Recordset.Delete AffectRecords    其中的,AffectRecords参数是确定Delete方法作用的方式的,它的取值如下:    adAffectCurrent 只删除当前的记录    adAffectGroup 删除符合Filter属性设置的那些记录.为了一次能删除一组数据,应设置Filter属性. http://www.paper51.com

    (d)查询记录    在ADO中查询的方法很灵活,有几种查询的方法.    ●使用连接对象的Execute方法执行SQL命令,返回查询记录集.    ●使用Command对象的Execute方法执行CommandText属性中设置的SQL命令,返回查询记录集.    第一个方法的具体语法在前面数据连接时已经介绍过了,下面就第二方法具体说一下.    Command对象的Execute方法的语法如下:    Command.Execute RecordsAffected, Parameters, Options '不返回记录集    或者 SetRscordset=cmmnad.Execute(RecordsAffected,Parameters,Options) '返回记录集    CommandText的语法为:    Command.CommandText=stringvariable    其中: stringvariable为字符串变量,包含SQL语句,表名或存储过程. 内容来自论文无忧网 www.paper51.com

    (4)断开连接    在应用程序结束之前,应该释放分配给ADO对象的资源,操作系统回收这些资源并可以再分配给其他应用程序.    使用的方法为:Close方法.    语法如下:    Object.Close ' Object为ADO对象 内容来自www.paper51.com

二. 系统的技术要点 http://www.paper51.com

1多用户登陆问题 内容来自论文无忧网 www.paper51.com

a  建立模块,Module1 内容来自www.paper51.com

b  在模块中申明变量 Public user copyright paper51.com

    c  在数据库建立用户表,存放用户名和密码,然后输入多个用户

paper51.com

    d  通过ADO代码连接到数据库。 paper51.com

    E  通过SQL语句 判断是否用户数据库有。

paper51.com

    F  如果没有则退出。

paper51.com

    G  如果有 通过SQL语句判断是否密码正确。

内容来自论文无忧网 www.paper51.com

H  如果正确则发送数据库的该用户名到公共变量 user =myrs("user")

内容来自www.paper51.com

I  通过变量决定各个用户的权限。

copyright paper51.com

2 出试卷

http://www.paper51.com

    手动出试卷 copyright paper51.com

将题库的一个字段设为是否出试卷。

内容来自www.paper51.com

然后通过SQL语句筛选出记录,形成出试卷库。

paper51.com

SELECT* FORM TK WHERE 是否出卷=“是”

内容来自论文无忧网 www.paper51.com

自动出试卷

copyright paper51.com

获得随即数,然后自动出题 内容来自www.paper51.com

nb = myrs3.RecordCount

http://www.paper51.com

rdnb = Int((nb) * Rnd()) '获得随机数

paper51.com

myrs3.Move rdnb paper51.com

    t1 = CStr(myrs3("编号")) copyright paper51.com

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' paper51.com

 myrs2.Open "insert into sj select *from tkgl2 where 编号='" + t1 + "' ", mycn, adOpenKeyset, adLockOptimistic copyright paper51.com

     

http://www.paper51.com

  myrs3.Delete

paper51.com

 myrs3.MoveFirst

copyright paper51.com

3  多级查询问题  单级查询使用SELECT * FORM TK WHERE 字段 =SS copyright paper51.com

多级查询使用 SELECT * FORM TK WHERE 字段1 =SS  AND字段2 =SS2 copyright paper51.com

第五章       系统具体实现 http://www.paper51.com

首先建立模块,用来存放公共变量

paper51.com

Public user

copyright paper51.com

一.   用户界面的实现1.登陆界面 内容来自www.paper51.com

   

copyright paper51.com

在工程引用ADO2.0。

copyright paper51.com

在命令按钮单击写下连接数据库USER表的判断语句

内容来自www.paper51.com

Private Sub Command1_Click()

paper51.com

mname = Text1.Text 内容来自论文无忧网 www.paper51.com

pass = Text2.Text http://www.paper51.com

Dim mycn As New ADODB.Connection http://www.paper51.com

Dim myrs As New ADODB.Recordset

paper51.com

Set myrs = New ADODB.Recordset paper51.com

mycn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;"

copyright paper51.com

myrs.Open "SELECT * FROM [user] where(user.user)='" + mname + "';", mycn, adOpenKeyset,adLockOptimistic 内容来自www.paper51.com

If myrs.BOF = True And myrs.EOF = TrueThen

内容来自www.paper51.com

MsgBox "查无此人", , "登陆信息" 内容来自www.paper51.com

Else paper51.com

    

copyright paper51.com

     Ifmyrs("pass") = pass Then

http://www.paper51.com

        内容来自www.paper51.com

        '''''''''''''''''''''''''''''''''''''''''' http://www.paper51.com

       MsgBox "ok", , "登陆信息" copyright paper51.com

        user= myrs("user")

copyright paper51.com

                

内容来自www.paper51.com

         Form2.Show 内容来自www.paper51.com

         内容来自论文无忧网 www.paper51.com

        Unload Me 内容来自www.paper51.com

        内容来自论文无忧网 www.paper51.com

       内容来自论文无忧网 www.paper51.com

          '''''''''''''''''''''''''''''''''''''''''''''''''''

内容来自论文无忧网 www.paper51.com

     Else

内容来自www.paper51.com

       MsgBox "密码不正确", , "登陆信息"

内容来自www.paper51.com

     End If

copyright paper51.com

 End If 内容来自www.paper51.com

    内容来自论文无忧网 www.paper51.com

End Sub

copyright paper51.com

------分隔线----------------------------
联系方式