Delphi数据库编程教程（八）

第二节浏览和导航

创建访问数据库数据的表单有两种不同的方法。第一种方法是使用Database Form Expert（数据库表单专家）。但不幸的是，数据库表单专家仅仅只可以处理数据集组件中的BDE-aware（可视化BDE）子集。第二种方法是手工放置和连接所有的数据组件。

定义用户界面（Defining the User Interface）

我们将分三步建立自己的数据浏览表单。第一步，为表单定义用户界面；第二步，增加和配置数据访问组件；第三步也是最后一步，增加数据可视化控件。

在你开始前，关闭所有打开的工程。接着进行下面的步骤：

• 选择File | New Application。这将创建一个新的工程，包括一个空的表单、一个单元和一个工程文件；
• 在表单上增加一个PageControl组件。该组件位于组件面板的Win32页。让它的名称为默认名：PageControl。
• 在PageControl上增加TabSheets（在PageControl上右击并选择"New Page"）。设置第一个TablSheet1的标题为“Browse（浏览）”，第二个为“Edit（编辑）”。
• 在表单上放置一个DataSource（DataAccess页）、一个ADOTable和一个ADOConnection（ADO页）组件。名称全为其默认名。
• 选择PageControl组件的第一页并在Browse（浏览）标签单上放置一个DBGrid（Data Controls页）组件。
• 放置一个DBNavigator组件（Data Controls页）。导航器按钮用于移动表中的记录。
• 通过使用对象检视器设置组件间的连接，如下：

DBNavigator1.DataSource = DataSource1
DBGrid1.DataSource = DataSource1
DataSource1.DataSet = ADOTable1
ADOTable1.Connection = ADOConnection1
ADOConnection1.ConnectionString = ...
ADOConnection1.LoginPrompt = False
ADOTable1.Table = ''''Applications''''

注：如在第二章中讨论的一样，ConnectionString属性指出数据存储的物理位置和我们的访问方式。你可以使用与第二章同样的连接字符串，或者通过调用连接字符串编辑器自己建立一个。

设置ADOConnection组件的LoginPrompt属性为False，阻止数据库登录界面出现。既然我们没有为数据库设置任何密码，我们也不需要登录提示。