系统登录对话框(SQL数据库验证) 统登录对话框(如图1-1 所示)是一般的数据库管理系统的基本功能之一,用于提供系统用户登录身份验证功能,只有成功登录之后才能启动和使用系统,从而保证系统数据安全。系统登录对话框用两个文本框分别输入用户名和登录口令, 按钮用于执行用户名和登录口令验证, 按钮用于退出登录。 本例讲述delphi中,使用SQL数据库连接验证系统登录。 ADOConnection组件 ADOQuery组件 系统登录对话框主要有以下特点: (1)界面简单。对话框中只需要使用标签显示文本框提示,用文本框来输入用户名和登录口令,用命令按钮执行用户和密码的验证以及系统的退出。 (2)基于数据库验证。一般数据库管理系统登录对话框在实现时都将用户登录信息(用户名和登录口令)保存在数据库中,这样便于管理系统用户,与直接将用户登录信息 放在代码中更有灵活性。 1.ADO Connection对象 ADO Connection对象代表了打开的、与数据源的连接,在访问数据源之前,必须先建立连接。本实例中用到的ADO Connection对象属性和方法分别如下: ConnectionString属性:指定连接数据源的基本信息,本实例使用ADO访问保存 登录信息的Access 数据库, 使用的连接字符串为: “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=图书管理系统;Data Source=服务器名”。 Open方法:打开数据源连接。 Close方法:关闭数据源连接。 2.ADO Recordset对象 ADO Recordset 对象用于保存从数据源获得记录集,本实例中用到的属性、集合和方法分别如下: ActiveConnection 属性:代表数据源的活动连接,通常将其设置为已建立的Connection对象。 EOF属性:测试当前记录位置是否位于记录集的最后一个记录之后。如果当前记录位于记录集的最后一个记录之后EOF属性将返回True,否则返回False。 Fields 集合:包含Recordset 对象的所有Field 对象,即可使用Fields 来获得当前记录各个字段的值。例如,objRs.Fields("口令").Value获得当前记录的“口令”字段的值。 Open 方法:用于打开记录集,其参数为执行查询的SQL 命令字符串,如: objRs.Open("SELECT 口令 FROM 系统用户 WHERE 用户名='admin'") 本实例的实现包括创建数据库、设计表单、建立ADO引用和编写功能代码三个步骤。 1.创建数据库和表 △开始/程序/Microsoft SQL Server/企业管理器 运行...