|
以上描述了存储五种题型的5张数据表中各个字段含义。接下来来介绍一下最后一张数据表---登录表中的属性设置。 paper51.com ◘3.1.2 登录文件 copyright paper51.com 该表中总共设置了三个字段属性---用户名，密码，访问次数。 copyright paper51.com · 用户名--字符型，是每条记录中的主键，值唯一，不能重复。数字、字母都可以。在系统的使用过程中，具有一定权限的管理员可以对其进行删除和增加。 内容来自论文无忧网 www.paper51.com
· 密码--用于核准用户的权限，避免一些不合法的人进入系统进行破坏活动。 内容来自www.paper51.com · 访问次数--整型 用来显示该用户已经使用过本系统的次数。 copyright paper51.com §3.2 tempdb数据库 paper51.com 其中只有一张数据表—temp。它用来存储在抽取试题过程中产生的一些中间数据。有2个字段：题目和答案，均为备注型。在系统运行过程中，该表中的数据会被不断的更新。 内容来自www.paper51.com 第四章 系统总体结构设计 copyright paper51.com
根据系统各模块的实现，系统主要结构即流程图如下所示： 内容来自www.paper51.com
内容来自论文无忧网 www.paper51.com
浏览试题 http://www.paper51.com 删除试题 内容来自www.paper51.com 修改试题 copyright paper51.com 更新试题 http://www.paper51.com
添加试题 内容来自论文无忧网 www.paper51.com 退出 内容来自论文无忧网 www.paper51.com
copyright paper51.com 退出 http://www.paper51.com 新 copyright paper51.com
建 copyright paper51.com 数 内容来自论文无忧网 www.paper51.com 据库 内容来自www.paper51.com 添加用户 paper51.com 修改密码 内容来自www.paper51.com 随机抽题 内容来自www.paper51.com 编辑试卷 paper51.com
copyright paper51.com 图4-1总体结构图 copyright paper51.com
第五章 功能模块的设计及其实现 内容来自论文无忧网 www.paper51.com §5.1 用户登录模块 内容来自www.paper51.com ● 功能：该模块是检验用户的合法性 内容来自论文无忧网 www.paper51.com ● 窗口设计如下： paper51.com 图5-1登录界面 内容来自www.paper51.com ● 设计思路：当该模块被加载时，从数据库中的登录表中读取已经存在的用户名。将用户名逐一添加到组合列表框的选项中，以供用户选择，（可以避免用户手动输入之繁），在用户选择了某个用户以及在密码框中输入了密码之后（以*显示），在按下“登录”键的时候，系统从数据表中找到对应该用户名的记录，然后检查所输入的密码是否与数据库中的密码一致，若不一致，则提示密码错误，拒绝登录；若一致，则显示该用户以往登录的次数，允许进行后面的操作。 copyright paper51.com
● 代码实现 （以下代码中‘后为注释） http://www.paper51.com Private Sub Form_Load() copyright paper51.com login.Picture = LoadPicture(App.Path &"\login2.jpg") http://www.paper51.com Adodc1.ConnectionString= “provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+\datadb.mdb" 内容来自www.paper51.com Adodc1.RecordSource ="登录" ‘ 数据库连接 内容来自论文无忧网 www.paper51.com Adodc1.Refresh copyright paper51.com
Adodc1.Recordset.MoveFirst paper51.com
Do While NotAdodc1.Recordset.EOF paper51.com Combo1.AddItemAdodc1.Recordset("用户名") http://www.paper51.com Adodc1.Recordset.MoveNext copyright paper51.com Loop http://www.paper51.com End Sub 内容来自www.paper51.com Private Subdenglu_Click() 内容来自www.paper51.com Adodc1.Recordset.MoveFirst copyright paper51.com
For p = 1 Touserid http://www.paper51.com Adodc1.Recordset.MoveNext paper51.com
Next copyright paper51.com If Text1.Text <> Adodc1.Recordset("密码") Then http://www.paper51.com MsgBox "您输入的密码不正确，请重新登录",vbCritical, "错误提示" paper51.com Else paper51.com cnt = Adodc1.Recordset("访问次数")+ 1 内容来自论文无忧网 www.paper51.com k = MsgBox("祝贺你成功登录" + Chr(13) + "这是您第"& cnt & "次访问该系统",vbOKOnly, "Congratulations") http://www.paper51.com Adodc1.Recordset("访问次数") =cnt copyright paper51.com Adodc1.Recordset.update paper51.com End If 内容来自www.paper51.com If k = 1 Then 内容来自论文无忧网 www.paper51.com enter.Visible = True 内容来自www.paper51.com
Unload Me http://www.paper51.com Load enter http://www.paper51.com
End If paper51.com End Sub paper51.com |