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

相关文章

国开《数据库基础与应用》第十一章 11-1-2:宏操作命令简介

国开《数据库基础与应用》第十一章 11-1-2:宏操作命令简介

11-1-2:宏操作命令简介在教材中表11-1-1中,列出了一部分的宏操作命令,它被分为数据库对象、筛选/查询/搜索、宏命令、系统命令、用户界面命令、窗口管理、数据输入操作、数据导入/导出等8种类型的...

国开《数据库基础与应用》第十一章 11-3-1:在窗体中使用Access数据库应用举例

国开《数据库基础与应用》第十一章 11-3-1:在窗体中使用Access数据库应用举例

11-3-1:在窗体中使用Access数据库应用举例例如:我们要建立一个窗体,用来查询公司信息管理数据库中的雇员表内的信息。如查询雇员工资的最大值、最小值和平均值,查询某种职称的人员数量,按姓名查询出...

国开《数据库基础与应用》第十章 10-1-4:标签命令

国开《数据库基础与应用》第十章 10-1-4:标签命令

10-1-4:标签命令使用标签命令建立标签报表的执行过程,与使用报表向导建立报表的执行过程类似,都要经过自动打开的若干个对话框的步骤,由用户进行相应的设置。例如:请根据雇员表中的雇员ID、姓名、性别、...

国开《数据库基础与应用》第四章 4-6-1:WHERE选项格式

国开《数据库基础与应用》第四章 4-6-1:WHERE选项格式

4-6-1:WHERE选项格式WHERE <逻辑表达式>此逻辑表达式用来指定不同源表之间记录的连接条件,以及从连接后的中间表中选取记录的筛选条件(或者叫选择条件),它们之间通过逻辑与(AN...

国开《数据库基础与应用》第四章 4-5-4:ORDER BY选项

国开《数据库基础与应用》第四章 4-5-4:ORDER BY选项

4-5-4:ORDER BY选项ORDER BY选项的语法格式如下:ORDER BY <排序列名1> [ASC | DESC] [, <排序列名2> [ASC | DESC]…...

国开《数据库基础与应用》第十章 10-3-2:例10-2

国开《数据库基础与应用》第十章 10-3-2:例10-2

10-3-2:例10-2在“公司信息管理”数据库中以“订单明细”表为源数据创建标签报表。具体操作步骤如下:1.在Access 2010中打开“公司信息管理”数据库,并选择“订单明细”表。2.单击“创建...

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

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

7-4-3:例7-3假定要在“公司信息管理”数据库中建立“用户”表,它包含有用户名、密码、用户类型这三个字段,用户类型只能取“超级管理员”、“管理员”、“普通用户”和“游客”这四个值,请把“用户类型“...

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

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

11-4-5:例11-5在“公司信息管理”数据库中建立一个用户登录的窗口,对“确定”命令按钮编写事件过程,要求对输入的用户名和密码给出正确与否的应答信息。窗体创建及事件代码内容如下:1.单击“创建”选...

发表评论    

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