国开《数据库基础与应用》第十一章 11-4-6:例11-6

搜答案方法:电脑端按「Ctrl+F」、手机端用「页面查找」功能输入关键词查找。

11-4-6:例11-6

在公司信息管理数据库中增加一个“用户”表,表中存放使用系统的用户名和密码等信息,其表结构如图11-19所示。并在表中输入几条记录以备测试使用。

国开《数据库基础与应用》第十一章 11-4-6:例11-6

图11-19 “用户”表结构

现要求在图11-20所示的登录窗体中检测用户输入的用户名或密码是否是表中已经存在的用户名和密码,根据正确与否给出相应的提示信息。

国开《数据库基础与应用》第十一章 11-4-6:例11-6

图11-20 登录窗体的设计视图

具体操作步骤如下:

1.打开图11-20所示的登录窗体,在该窗体中,两个文本框名称分别为“username”和“password”,“确定”命令按钮的名称为“cmd_ok”,当用户在两个文本框输入了用户名和密码信息后,单击“确定”命令按钮,开始执行此命令按钮的单击事件代码。

2.事件代码首先要连接当前数据库,然后构造一条查询语句,在“用户”表中查看是否有给定的用户名和密码,执行查询语句返回记录集结果。如果没有找到记录,则记录集为空,表示用户名和密码不正确。否则表示找到了指定用户名和密码的记录,则记录集非空。

3.“确定”命令按钮的单击事件代码如下所示:

Private Sub cmd_ok_Click()

 Dim conn As ADODB.Connection '定义连接对象conn

 Dim rs As New ADODB.Recordset '定义记录集对象rs

 Dim strSQL As String 'strSQL是查询语句对应的字符串变量

 Set conn = CurrentProject.Connection 'conn对象连接到当前数据库

 strSQL = "select * from 用户 where 用户名='" '本行和下一行构造查询字符串strSQL

 strSQL = strSQL & username & " ' and 密码='" & password & "'"

 rs.Open strSQL, conn '执行查询返回记录集到rs中

 If rs.EOF Then '判断并给出提示信息

   MsgBox "抱歉,用户名或密码错误!"

 Else

   MsgBox "恭喜您!用户名和密码正确。"

 End If

End Sub

在代码中,定义了连接对象conn连接到当前数据库,定义了记录集对象rs,用于查询用户表中是否有指定的记录。运行结果如上一节图11-17和11-18所示。


「国开学习吧」:用户COOKIE有效时间30天,收藏网址『guokaixuexi.com』不迷路哦~

相关文章

国开《数据库基础与应用》第七章 7-4-1:例7-1

国开《数据库基础与应用》第七章 7-4-1:例7-1

7-4-1:例7-1在“公司信息管理”数据库中,利用表的设计视图创建“雇员”表结构。待创建的雇员表结构如下表7-1所示。表7-1 “雇员”表结构字段名称数据类型字段大小雇员ID自动编号默认雇员姓名文本...

国开《数据库基础与应用》第二章 2-3-2:交运算

国开《数据库基础与应用》第二章 2-3-2:交运算

2-3-2:交运算设两个关系R和S具有完全相同的结构,则R和S的交运算的结果仍然是一个关系,该关系的结构与R或S的结构相同,该关系的值是R和S中共同具有的元组的集合。R和S的交运算记作R∩S,用集合运...

国开《数据库基础与应用》第一章 1-4-1:各种逻辑数据模型概述

国开《数据库基础与应用》第一章 1-4-1:各种逻辑数据模型概述

1-4-1:各种逻辑数据模型概述概念数据模型是不能在计算机中使用的,必须把它转换为相应的逻辑数据模型,从而在计算机中实现数据处理活动。逻辑数据模型:层次数据模型、网状数据模型、关系数据模型、面向对象数...

国开《数据库基础与应用》第八章 8-3-7:例8-7

国开《数据库基础与应用》第八章 8-3-7:例8-7

8-3-7:例8-7在“公司信息管理”数据库中根据给定的日期范围来查找雇员信息。例如查找出生日期是1978年至1985年间的雇员信息,这里的日期有起始值还有终止值。具体操作步骤如下:1.在已经打开的“...

国开《数据库基础与应用》第二章 2-2-1:数据库系统简介

国开《数据库基础与应用》第二章 2-2-1:数据库系统简介

2-2-1:数据库系统简介在一个关系中,每个元组表示现实世界中的一个可描述的实体,而每个实体又包含有许多属性,其中至少存在着一种或一组属性,作为其主码。该主码值绝对不能取空值。空值是一种不确定的值,表...

国开《数据库基础与应用》第九章 9-3-2:令按钮控件的使用

国开《数据库基础与应用》第九章 9-3-2:令按钮控件的使用

9-3-2:令按钮控件的使用命令按钮是Access窗体中最重要的控件,通过鼠标单击或双击操作可以实现用户所需要的给定动作。例如:要利用“窗体设计”命令,创建一个窗体,该窗体中带有两个文本框,用来给用户...

国开《数据库基础与应用》第三章 3-2-4:给关系添加候选码

国开《数据库基础与应用》第三章 3-2-4:给关系添加候选码

3-2-4:给关系添加候选码根据最小函数依赖集求出关系中的侯选码:候选码定义:设一个关系为R(U),X为U的一个子集,若X能够函数决定U中的每个属性,并且X的任何真子集都不能函数决定U中的每个属性,则...

国开《数据库基础与应用》第六章 6-1-3:ccess工作界面的结构

国开《数据库基础与应用》第六章 6-1-3:ccess工作界面的结构

6-1-3:ccess工作界面的结构Access的工作界面,也叫做操作界面、用户界面等,它是进行数据库操作的主界面,如上图就是对“公司信息管理”数据库进行操作的工作界面。Access的工作界面主要由4...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。