|
(b)修改记录集 其实修改核对记录集中的数据重新赋值没有什么太大的区别,只要用SQL语句将要修改的字段的一个数据找出来重新赋值就可以了.这里不再细说了. http://www.paper51.com (c)删除记录 在ADO中删除记录集中的数据的方法为:Delete方法,这与DAO对象的方法相同,但是在ADO中它的能力增强了,可以删掉一组记录了. 它的语法如下: Recordset.Delete AffectRecords 其中的,AffectRecords参数是确定Delete方法作用的方式的,它的取值如下: adAffectCurrent 只删除当前的记录 adAffectGroup 删除符合Filter属性设置的那些记录.为了一次能删除一组数据,应设置Filter属性. 内容来自论文无忧网 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语句,表名或存储过程. http://www.paper51.com (4)断开连接 在应用程序结束之前,应该释放分配给ADO对象的资源,操作系统回收这些资源并可以再分配给其他应用程序. 使用的方法为:Close方法. 语法如下: Object.Close ' Object为ADO对象 内容来自www.paper51.com
二. 系统的技术要点 内容来自www.paper51.com 1多用户登陆问题 copyright paper51.com a 建立模块，Module1 copyright paper51.com
b 在模块中申明变量 Public user paper51.com c 在数据库建立用户表，存放用户名和密码，然后输入多个用户 内容来自论文无忧网 www.paper51.com
d 通过ADO代码连接到数据库。 copyright paper51.com E 通过SQL语句 判断是否用户数据库有。 copyright paper51.com F 如果没有则退出。 http://www.paper51.com G 如果有 通过SQL语句判断是否密码正确。 http://www.paper51.com H 如果正确则发送数据库的该用户名到公共变量 user =myrs("user") paper51.com I 通过变量决定各个用户的权限。 copyright paper51.com 2 出试卷 http://www.paper51.com 手动出试卷 内容来自论文无忧网 www.paper51.com 将题库的一个字段设为是否出试卷。 paper51.com 然后通过SQL语句筛选出记录，形成出试卷库。 paper51.com SELECT* FORM TK WHERE 是否出卷=“是” http://www.paper51.com 自动出试卷 内容来自论文无忧网 www.paper51.com 获得随即数，然后自动出题 内容来自论文无忧网 www.paper51.com nb = myrs3.RecordCount paper51.com
rdnb = Int((nb) * Rnd()) '获得随机数 内容来自论文无忧网 www.paper51.com myrs3.Move rdnb http://www.paper51.com t1 = CStr(myrs3("编号")) paper51.com
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' paper51.com myrs2.Open "insert into sj select *from tkgl2 where 编号='" + t1 + "' ", mycn, adOpenKeyset, adLockOptimistic http://www.paper51.com 内容来自论文无忧网 www.paper51.com myrs3.Delete http://www.paper51.com myrs3.MoveFirst copyright paper51.com 3 多级查询问题 单级查询使用SELECT * FORM TK WHERE 字段 =SS 内容来自论文无忧网 www.paper51.com 多级查询使用 SELECT * FORM TK WHERE 字段1 =SS AND字段2 =SS2 http://www.paper51.com 第五章 系统具体实现 内容来自论文无忧网 www.paper51.com 首先建立模块，用来存放公共变量 copyright paper51.com Public user http://www.paper51.com 一. 用户界面的实现1.登陆界面 paper51.com
内容来自论文无忧网 www.paper51.com 在工程引用ADO2.0。 copyright paper51.com 在命令按钮单击写下连接数据库USER表的判断语句 http://www.paper51.com Private Sub Command1_Click() 内容来自www.paper51.com mname = Text1.Text 内容来自www.paper51.com
pass = Text2.Text 内容来自论文无忧网 www.paper51.com Dim mycn As New ADODB.Connection 内容来自www.paper51.com
Dim myrs As New ADODB.Recordset 内容来自论文无忧网 www.paper51.com
Set myrs = New ADODB.Recordset copyright paper51.com
mycn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kygl.mdb;" 内容来自www.paper51.com
myrs.Open "SELECT * FROM [user] where(user.user)='" + mname + "';", mycn, adOpenKeyset,adLockOptimistic paper51.com
If myrs.BOF = True And myrs.EOF = TrueThen 内容来自论文无忧网 www.paper51.com MsgBox "查无此人", , "登陆信息" paper51.com Else 内容来自论文无忧网 www.paper51.com
http://www.paper51.com Ifmyrs("pass") = pass Then paper51.com copyright paper51.com '''''''''''''''''''''''''''''''''''''''''' 内容来自论文无忧网 www.paper51.com MsgBox "ok", , "登陆信息" paper51.com user= myrs("user") copyright paper51.com
paper51.com Form2.Show 内容来自www.paper51.com 内容来自www.paper51.com Unload Me paper51.com paper51.com
http://www.paper51.com ''''''''''''''''''''''''''''''''''''''''''''''''''' 内容来自www.paper51.com Else http://www.paper51.com
MsgBox "密码不正确", , "登陆信息" 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
End Sub http://www.paper51.com
|