delphi7操作数据库之Access

《delphi7操作数据库之Access》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实例1系统登录对话框系统统登录对话框（如图1-1所示）是一般的数据库管理系统的基本功能之一，用于提供系统用户登录身份验证功能，只有成功登录之后才能启动和使用系统，从而保证系统数据安全。系统登录对话框用两个文本框分别输入用户名和登录口令，按钮用于执行用户名和登录口令验证，按钮用于退出登录。图1-1系统登录对话框:Eenter键替代Tab键:ADOConnection对象:ADORecordset对象在动手设计“系统登录对话框”前，先来对该实例进行一些分析，以便理清思路，掌握一般数据库管理系统登录对话框设

2、计的基本方法。系统登录对话框主要有以下特点：（1）界面简单。对话框中只需要使用标签显示文本框提示，用文本框来输入用户名和登录口令，用命令按钮执行用户和密码的验证以及系统的退出。（2）基于数据库验证。一般数据库管理系统登录对话框在实现时都将用户登录信息（用户名和登录口令）保存在数据库中，这样便于管理系统用户，与直接将用户登录信息放在代码中更有灵活性。一般数据库管理系统登录对话框有以下有两种基本方法：【方法1】在数据库中建立一个数据表用于保存系统用户登录基本信息，在设计登录对话框时通过查询该数据表完成验证

3、。该方法具有一般性。【方法2】对于一些支持安全验证的数据库管理系统，如MicrosoftSQLServer、MicrosoftAccess，可以将系统用户定义为数据库用户。在设计登录对话框时，使用用户输入的用户名和登录口令来连接数据库，让数据库管理系统自己完成验证。本实例采用方法一来实现，在实现时还增加了限制登录次数功能，用户每次最多允许5次验证操作，当用户登录成功后将保存用户登录的时间和登录系统的次数，这样便于对用户的综合管理。1．ADOConnection对象ADOConnection对象代表了打

4、开的、与数据源的连接，在访问数据源之前，必须先建立连接。本实例中用到的ADOConnection对象属性和方法分别如下：2.ConnectionString属性：指定连接数据源的基本信息，本实例使用ADO访问保存登录信息的Access数据库，使用的连接字符串为：“Provider=Microsoft.Jet.OLEDB.3.51;DataSource=E:精彩范例\01dbdb01.mdb”。-9-第1篇简单应用篇²Open方法：打开数据源连接。²Close方法：关闭数据源连接。3．ADORe

5、cordset对象ADORecordset对象用于保存从数据源获得记录集，本实例中用到的属性、集合和方法分别如下：ActiveConnection属性：代表数据源的活动连接，通常将其设置为已建立的Connection对象。EOF属性：测试当前记录位置是否位于记录集的最后一个记录之后。如果当前记录位于记录集的最后一个记录之后EOF属性将返回True，否则返回False。Fields集合：包含Recordset对象的所有Field对象，即可使用Fields来获得当前记录各个字段的值。例如，objRs.Fi

6、elds("口令").Value获得当前记录的“口令”字段的值。Open方法：用于打开记录集，其参数为执行查询的SQL命令字符串，如：objRs.Open（"SELECT口令FROM系统用户WHERE用户名='admin'"）本实例的实现包括创建数据库、设计表单、建立ADO引用和编写功能代码三个步骤。1．创建数据库本实例中用于实现登录验证的数据保存在Access数据库中，该数据库用MicrosoftOffice办公软件的MicrosoftAccess工具创建，其具体操作步骤如下：（1）启动Micros

7、oftAccess，打开可视化数据管理器，如图1-2所示。图1-2点文件/新建/在右侧出现的新建文件任务下选择“空数据库”，弹出保存位置对话框，这时我们选择存到我们程序的目录下就行了，如：桌面/delphi数库库实例/db01.mdb,然后出现如下图1-3（2）创建表图1-3选中左边的“表”，再点上面的“设计”，就弹出了表设置的视图，我们建立如图1-4的表：图1-4创建“用户表”结构，添加了字段后的“表结构”对话框如图1-4所示。在“表结构”对话框的“字段列表”显示了该表的字段，并允许修改字段的名称、

8、顺序位置、验证文本、验证规则、缺省值、是否零长度、是否为必要字段等。表1-1“系统用户”表结构字段定义如下：字段名类型长度ID自动编号20USERNAME文本20USERPASS整型TIMESLASTTIME日期/时间单击按钮，打开保存数据库表对话框，在对话框中输入数据库表的名称T_USER，然后单击按钮对设计的T_USER数据库表进行保存，如图1-5所示。图1-5（3）添加数据记录。在设计完成T_SUER数据库表后，如图1-7所示的对话框中，选中T_U