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

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

11-4-7:例11-7

建立一个用户注册的窗体,要求用户在窗体中输入用户名、密码、密码确认和备注姓名等信息,当单击“注册”命令按钮时,要求判断用户是否输入了用户名,用户名在表中是否已经存在,两次密码输入是否一致等,如果输入符合要求则在“用户”表中添加一条用户记录,然后转入登录窗体。

具体实现过程如下:

1.打开Access的“公司信息管理”数据库。

2.建立用户注册窗体。单击“创建”选项卡下的“窗体”组中“窗体设计”命令进入窗体的设计视图,在窗体中添加“徽标”、“标题”、“标签”、“文本框”和“命令按钮”等控件,并设置背景色等。设计效果如图11-21所示。

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

图11-21 用户注册窗体设计效果图

3.对窗体中的文本框和命令按钮等控件进行属性设置,如表11-2所示。

表11-2 用户注册窗体控件属性设置

控件类型名称用户名:其他说明
文本框username
文本框password1“输入掩码”设置为“密码”
文本框Password2“输入掩码”设置为“密码”
文本框xm
命令按钮cmd_zc注册
命令按钮Cmd_cancel取消

4.在窗体中单击选中“注册”命令按钮,在其“属性表”对话窗格中,选择“事件”选项卡,在其“单击”下拉列表框中选择“[事件过程]”,然后再用鼠标单击其右边的“ ”按钮,进入VBE,打开“注册”命令按钮的事件过程编辑窗口。

5.在事件过程中编写代码:

Private Sub cmd_zc_Click()

 Dim conn As ADODB.Connection

 Dim rs2 As New ADODB.Recordset

 Dim rs1 As New ADODB.Recordset

 Set conn = CurrentProject.Connection

 If IsNull(Me!username) Then

   MsgBox "请输入用户名!"

   username.SetFocus

   Exit Sub

 Else

   rs1.Open "select * from 用户 where 用户名='" & Me!username & "'", conn

   If Not rs1.EOF Then

     MsgBox "用户名已经存在!"

     username = ""

     username.SetFocus

     Exit Sub

   End If

   Set rs1 = Nothing

   If (Me!password1 <> Me!password2) Then

     MsgBox "两次密码输入不一致!"

     password1 = ""

     password2 = ""

     password1.SetFocus

     Exit Sub

    End If

    '添加用户记录

    rs2.Open "用户", conn, adOpenKeyset, adLockOptimistic

    rs2.AddNew

    rs2!用户名 = Me!username

    rs2!密码= Me!password1

    rs2!备注姓名 = Me!xm

    rs2.Update

    MsgBox "注册成功!返回登录窗口!"

    Set rs2 = Nothing

    conn.Close

    Me.Visible = False     DoCmd.OpenForm "登录窗体"

End Sub

6.保存并命名该窗体,假定窗体名称为“用户注册”,然后关闭它。

7.运行效果

当双击“用户注册”窗体时,在其中输入用户名和密码等信息,单击“注册”按钮时,系统检测用户名是否已经存在,如果用户表中已经存在输入的用户名将给出提示信息;然后再检查两次输入的密码是否一致,如果不一致则给出提示信息;再进入用户信息的注册并转入登录窗体。其运行效果图如图11-22所示,三种提示信息框如图11-23所示。

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

图11-22 用户注册窗体运行效果图

9.单击“确定”命令按钮后,将打开名称为“选项卡实例结果窗体”的窗体,得到的窗体视图如图9-33所示。

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

图11-23 用户注册三种提示信息


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

相关文章

国开《数据库基础与应用》第一章 1-1:计算机数据处理技术的四个发展阶段

国开《数据库基础与应用》第一章 1-1:计算机数据处理技术的四个发展阶段

1-1:计算机数据处理技术的四个发展阶段1.人工管理阶段在这个阶段,被程序所处理的数据紧跟在程序的后面,同程序一起,以二进制代码的形式,通过读穿孔纸带机或卡片机被输入到计算机内存中,经过程序运行对数据...

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

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

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

国开《数据库基础与应用》第二章 2-2-3:属性取值完整性

国开《数据库基础与应用》第二章 2-2-3:属性取值完整性

2-2-3:属性取值完整性属性取值完整性,又称为属性取值的有效性,或者叫做用户定义的完整性。它是对关系中一个属性取值的限制定义,或者叫做约束定义。例如:考试成绩属性限定它在0-100;性别属性的取值限...

国开《数据库基础与应用》第四章 4-2-2:列的数据类型

国开《数据库基础与应用》第四章 4-2-2:列的数据类型

4-2-2:列的数据类型在表结构的定义体内,对每个字段(列)的定义,都需要给出字段名称、字段的数据类型、字段的完整性约束等信息。可把SQL语言中的数据类型主要分为以下四种:char(n) 为定长字符型...

国开《数据库基础与应用》第九章 9-1-1:创建窗体的各种方法

国开《数据库基础与应用》第九章 9-1-1:创建窗体的各种方法

9-1-1:创建窗体的各种方法在“创建”选项卡的“窗体”组中,有6种创建窗体的图标按钮:窗体、窗体设计、空白窗体、窗体向导、导航、其他窗体。“其他窗体”命令菜单中有6种创建窗体的命令:多个项目、数据表...

国开《数据库基础与应用》第四章 4-6-2:WHERE选项中的筛选条件

国开《数据库基础与应用》第四章 4-6-2:WHERE选项中的筛选条件

4-6-2:WHERE选项中的筛选条件WHERE选项中的筛选条件的作用,是从源表或连接后生成的中间表中选择出所需要的记录行。筛选条件可以是由比较运算符连接的一般比较式,也可以是适用于集合运算的专门比较...

国开《数据库基础与应用》第二章 2-1-1:数据域

国开《数据库基础与应用》第二章 2-1-1:数据域

2-1-1:数据域数据域是具有相同特性的一个数据集合。例如,{1,3,5,7,9,…,99};{男,女};{东,南,西,北};{A,B,C,…X,Y,Z}。一个域中所含元素的个数称为该域的基数。如性别...

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

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

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

发表评论    

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