delphi7操作sql数据库简单实例

《delphi7操作sql数据库简单实例》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、系统登录对话框(SQL数据库验证)统登录对话框（如图1-1所示）是一般的数据库管理系统的基本功能之一，用于提供系统用户登录身份验证功能，只有成功登录之后才能启动和使用系统，从而保证系统数据安全。系统登录对话框用两个文本框分别输入用户名和登录口令，按钮用于执行用户名和登录口令验证，按钮用于退出登录。本例讲述delphi中，使用SQL数据库连接验证系统登录。:ADOConnection组件:ADOQuery组件系统登录对话框主要有以下特点：（1）界面简单。对话框中只需要使用标签显示文本框提示，用文本框来输入用户名和登录口令，用命令按钮执行用户和密码的验证以及系统的退出。（2）基于数据

2、库验证。一般数据库管理系统登录对话框在实现时都将用户登录信息（用户名和登录口令）保存在数据库中，这样便于管理系统用户，与直接将用户登录信息放在代码中更有灵活性。1．ADOConnection对象ADOConnection对象代表了打开的、与数据源的连接，在访问数据源之前，必须先建立连接。本实例中用到的ADOConnection对象属性和方法分别如下：ConnectionString属性：指定连接数据源的基本信息，本实例使用ADO访问保存登录信息的Access数据库，使用的连接字符串为：“Provider=SQLOLEDB.1;PersistSecurityInfo=False;U

3、serID=sa;InitialCatalog=图书管理系统;DataSource=服务器名”。²Open方法：打开数据源连接。²Close方法：关闭数据源连接。2．ADORecordset对象ADORecordset对象用于保存从数据源获得记录集，本实例中用到的属性、集合和方法分别如下：²ActiveConnection属性：代表数据源的活动连接，通常将其设置为已建立的Connection对象。²EOF属性：测试当前记录位置是否位于记录集的最后一个记录之后。如果当前记录位于记录集的最后一个记录之后EOF属性将返回True，否则返回False。²Fields集合：包含Record

4、set对象的所有Field对象，即可使用Fields来获得当前记录各个字段的值。例如，objRs.Fields("口令").Value获得当前记录的“口令”字段的值。²Open方法：用于打开记录集，其参数为执行查询的SQL命令字符串，如：objRs.Open（"SELECT口令FROM系统用户WHERE用户名='admin'"）本实例的实现包括创建数据库、设计表单、建立ADO引用和编写功能代码三个步骤。1．创建数据库和表△开始/程序/MicrosoftSQLServer/企业管理器运行企业管理器后，依次展开控制台根目录/MicrosftSQLServers/(Local)(Win

5、dowsNT)/数据库在“数据库”点右键，弹出菜单选择“新建数据库”在弹出的新建数据库的“数据库属性”的名称处输入数据库的名称：图书管理系统。△创建表。在建立好的“图书管理系统”上右键，新建“表”。如下图然后建立如下的结构：完成时关闭窗口，提示保存，输入表的名字：操作员信息表接着我们给它添一条测试记录在“操作员停息表”右键，弹出菜单选择“打开表”/反回所有行然后输入如图内容：操作编号：001操作员姓名：abc操作员密码：123操作员级别：10时间：空2．设计窗体Delphi为可视化的程序设计语言，其应用程序界面就是窗体，而窗体设计主要通过鼠标拖放操作完成。本实例中的系统登录对话框

6、窗体实现，窗体中需用标签控件显示各输入框提示，用文本框输入用户名和口令，用命令按钮提交验证或退出登录，其具体设计步骤如下：（1）启动Delphi选择Windows“开始”菜单中的“程序”/“BorlandDelphi7/Delphi7.0”命令，启动Delphi7.0，如图1-9所示。Delphi7.0启动后，已为我们自动建好了一个窗体，我们调整它到适当大小，然后在其上放置如下控件：两个Label,两个Edit,两个Button，一个ADOQuery，一个ADOConnection。控件属性设置如下：控件名属性属性值Form1Caption系统登录Label1Caption操作员

7、姓名Label2Caption操作员密码Edit1Text空Edit2Text空PasswordChar*Button1Caption登录Button2Caption退出ADOConnection1ConnectionString注意：这一步的值我们后面讲设置方法Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;InitialCatalog=图书管理系统;DataSource=LRH01ADOQuery1Connect