国开《数据库基础与应用》第十一章 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』不迷路哦~

相关文章

国开《数据库基础与应用》第二章 2-1-2:笛卡儿积

国开《数据库基础与应用》第二章 2-1-2:笛卡儿积

2-1-2:笛卡儿积笛卡尔积是定义在一组域上的数据集合。假定n个数据域用D1、D2、...、Dn表示,则它们的笛卡尔积表示为D1×D2×...×Dn,笛卡尔积中的每个元素为一个n元组:(d1,d2,....

国开《数据库基础与应用》第十一章 11-1-1:创建宏和模块的命令

国开《数据库基础与应用》第十一章 11-1-1:创建宏和模块的命令

11-1-1:创建宏和模块的命令如下图1所示,在其最右面的“宏与代码”命令组中,存在着4个命令按钮,分别为宏、模块、类模块、Visual Basic。单击“宏”按钮,将自动打开创建一个宏的生成器窗口,...

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

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

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

国开《数据库基础与应用》第十章 10-1-1:创建报表的各种方法

国开《数据库基础与应用》第十章 10-1-1:创建报表的各种方法

10-1-1:创建报表的各种方法在Access中,根据不同的需要,有许多种创建报表的方法,如下图1所示。报表命令适合于在一个数据表或查询上自动建立报表,报表向导命令用来在一个或多个数据表(查询)上按步...

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

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

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

国开《数据库基础与应用》第八章 8-1-2:利用查询向导创建不带查询条件的查询对象

国开《数据库基础与应用》第八章 8-1-2:利用查询向导创建不带查询条件的查询对象

8-1-2:利用查询向导创建不带查询条件的查询对象当采用第1种方法,点击“查询向导”图标时,将自动打开一个标题为“新建查询”的对话框,如下图2所示。图2 新建查询对话框通过查询向导可以建立简单查询、交...

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

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

11-4-4:例11-4编写VBA代码,通过输入对话框输入一个100以内的正整数,使用循环语句计算这个整数的阶乘,然后输出结果值。实现过程和步骤说明如下:1.打开Access的“公司信息管理”数据库,...

国开《数据库基础与应用》第五章 5-2-3:逻辑设计

国开《数据库基础与应用》第五章 5-2-3:逻辑设计

5-2-3:逻辑设计根据上一步概念设计得到的4个基本表:即客房表、住宿表、消费卡表和旅客登记表,以及5个视图表:即客房空闲表、住宿费表、伙食费表、娱乐费表和催补款表,以及它们之间的内在联系。creat...

发表评论    

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