Delphi数据库程序设计教程 第9章 利用窗体维护数据.ppt

1、第9章使用表单来维护数据。表单是构建数据库应用程序不可或缺的工具。通过向表单添加数据库访问组件和数据库控制组件，可以连接数据和表单。在数据库应用程序中，您可以使用表单建立一个友好的界面来满足客户的要求。9.1表单对象9.2表单的数据操作9.3字段对象9.4使用多个数据表9.5使用表单向导9.1表单对象德尔福的应用程序从表单的建立开始，因此熟练掌握表单的重要属性、方法和事件对于开发数据库应用程序非常重要。9.1.1基本属性9.1.2常见事件和表单方法，9.1.1基本属性，1。边框样式边框样式属性控制窗体框架的类型，这是一个集合类型属性。2.BorderIcon BorderIcon是属性的集合，

2、用于说明是否在窗体顶部显示控件菜单，即最大化按钮、最小化按钮和帮助按钮。3.此属性用于确定表单是否具有三维效果。表单上的对象将引用表单的Ctl3D属性来确定它是否具有三维效果。4.标题该属性用于确定表单的标题。5.名称此属性指定程序中表单的引用名称。6.表单样式此属性决定表单的类型。7.启用此属性确定表单是否可用。如果其值为假，则不能用鼠标和键盘操作。8.窗口状态该属性决定窗体的状态。9.1.1基本属性，9。光标当鼠标在窗体上移动时，该属性决定光标的形状。10.字体该属性用于描述显示文本中的字符对象。它是一个TFont类型属性。在设计或运行时设置对象的属性可以确定窗体上显示的字体的大小和颜色。

3、11.此属性确定窗体上的哪个对象具有焦点以及是否触发键盘事件。12.关键评论设置为“是”。当表单中的任何对象有键盘输入时，它将首先触发表单的键盘事件，然后触发对象的键盘事件。通过设置此属性，可以使用键盘事件进行输入筛选。13.图标此属性确定窗口最小化时显示的图标。14.句柄此属性是只读的，只能在运行时使用。15.提示和显示提示显示提示属性用于启动提示功能。提示属性用于设置提示信息的文本。9.1.2常见事件和形式方法。数据库应用程序中常用的方法和事件是完成创建、显示和关闭表单功能的方法和事件。1.创建方法和OnCreate事件调用创建方法来建立和初始化表单。调用Create方法可以触发OnCre

4、ate事件，并且在创建表单时可以在事件处理程序中执行一些操作。2.Show和ShowModal方法和OnShow事件显示方法用于显示表单，而ShowModal用于显示模态表单，这两种方法都可以触发OnShow事件。关闭方法和OnClose事件关闭方法可以关闭窗体并同时触发OnClose事件。9.2使用表单操作数据，可以对数据库数据进行一些基本操作，如数据排序、数据查询、数据修改等。本节将分别介绍这些基本操作，这将为我们创建复杂的函数打下良好的基础。9.2.1数据排序9.2.2数据查询9.2.3修改数据库中的数据9.2.4插入和删除数据，9.2.1数据排序。数据库中有大量的数据信息，可以通过设计

5、表格来浏览。当显示这些信息时，我们可以按不同的顺序排列数据，当然我们也可以选择显示方式。表组件的索引字段属性用于对数据进行排序。通过指定属性值，信息可以以不同的顺序显示。示例9-1下面是一个演示如何在表单中以不同顺序显示数据的示例。首先，创建一个新项目，并在表单和数据源之间建立连接。将表单标题的属性修改为索引，并将名称属性修改为FrmIndex。从组件面板中选择一个表和一个数据源，并将它们放入表单中，然后选择数据库网格将它们放入表单中，而不更改这些组件的名称属性。向表单中添加三个命令按钮，并将这三个命令按钮的标题属性和名称属性分别设置为城市、客户编号、名称和城市、城市名称和城市名称。9.2.1

6、数据排序，然后添加程序代码。过程TFrmIndex。点击(发送器：到对象)；开始表1。索引字段名称：=城市；以城市为索引结束；过程TFrmIndex。CmdNoClick(发送器：至对象)；开始表1。索引字段名称：=客户编号；以客户编号作为索引结束；过程TFrmIndex。CmdNameClick(发送器：到对象)；开始表1。索引字段名：=姓氏；名字；以名称作为索引结束；结束。9.2.2数据查询是数据库应用的重要功能。要设置程序功能，我们必须首先确定要查询的字段，这些字段通常是数据表的主键段或辅助索引。在程序中，您可以通过以下方式移动记录指针。9.2.3修改数据库中的数据。如果权限允许，用户可

7、以修改数据库中的数据。要修改数据，首先要将表组件设置为编辑状态，这是通过编辑方法实现的。调用方法后，组件处于编辑状态，可以修改记录中的数据。修改后的结果不会写入实际的数据库。要修改实际数据库中的数据，必须调用Post方法将修改后的结果写入数据数据库。9.2.4数据插入和删除，数据库记录可以在数据库工作平台中插入和删除，但是在实际的数据库应用中，一般用户不会采用这种方法，所以应该建立一个友好的界面，根据用户的最终命令来完成这种操作。插入记录的方法相对简单。Delphi提供了插入和追加两种方法来实现插入记录的功能。插入方法在当前记录的指针处插入一条记录，追加方法在数据库表的末尾插入一条记录。当数据

8、表中有索引时，插入的记录将根据索引存储在数据表中。一般来说，追加方法适用于没有索引的数据库表，但是这种数据库表很少，所以很少使用追加方法，通常使用插入方法。要使用插入方法，应该先将空记录插入数据库表，然后依次添加数据。使用此方法的基本步骤如下：开始插入；/依次插入空记录和添加数据；张贴；/将添加的记录传送到数据库端；9.2.4对于数据插入和删除，可以使用插入记录方法一次性完成上述功能。InsertRecord方法将记录的所有字段合成为一个字段数组作为其参数，并且可以为插入的记录的每个字段分配一个字段值。您还可以分配比记录中更多的字段值，直到记录中的所有字段都被赋值。您还可以使分配的字段值小于记

9、录中的值，插入记录使用空值为那些未分配的字段赋值。调用删除方法删除记录。要删除记录，首先将记录指针移动到要删除的记录，然后调用Delete方法删除该记录。删除记录后，记录下的记录依次向前移动，记录指针指向下一条记录。通常，在删除记录之前，您应该确认是否删除它。为了实现这个目标，在删除记录之前会弹出一个对话框来确认是否删除它。9.3字段对象是一种对象，在数据库编程中应用广泛且灵活。TFields对象在数据库打开时动态生成，在数据库关闭时自动消失。字段编辑器可以记录永久字段对象的列表，创建的字段对象保存在应用程序中，即使数据库表的结构发生变化，字段对象也将保留。9.3.1字段对象的数据类型9.3.

10、2创建永久字段对象9.3.3字段对象的属性和方法9.3.4字段对象的使用，9.3.1字段对象的数据类型，它们对应于数据表中的字段。字段对象可以在应用程序运行期间动态生成，或者通过使用字段编辑器创建为永久字段。因为字段对象对应于数据表中的字段，所以数据表中的字段有多种数据类型，所以字段对象有多种数据类型。9.3.2创建一个永久字段对象，可以使用字段编辑器创建。下面是一个演示如何创建永久字段对象的示例。创建一个基于动物的数据库应用程序。选择表1组件，双击鼠标左键打开字段对象编辑器。单击鼠标右键，并在弹出对话框中选择“添加字段”选项，从中可以选择所需的字段并将它们添加到字段编辑器中。单击“确定”按钮

11、完成创建永久字段对象的过程。创建永久字段对象后，您可以在对象检查器窗口中看到表1名称和表1纪元等对象。如果您发现一个不必要的字段对象并想删除它，您可以在对象编辑器中选择要删除的字段对象，然后单击鼠标右键并选择删除选项将其删除。9.3.3场对象的属性和方法，以及9.3.4场对象的使用。字段对象是动态生成的，永久字段对象是在字段编辑器中创建的。像其他对象一样，它们有自己的属性、方法和事件，尽管它们在程序设计和操作过程中是不可见的。我们可以访问和控制程序中的字段对象。因为动态字段对象没有自己的名称，但是永久字段对象有自己的名称，所以它们在程序中的使用是不同的。让我们分别介绍这两个字段对象的用法。1.

12、动态字段对象的使用动态字段对象是表组件和查询的一部分，它们是随着数据库的打开而动态生成的，每个动态字段对象对应于数据表中的字段。“表”或“查询”组件中的所有字段对象都存在于“字段”属性中，并且“字段”中的字段对象对应于一个索引号，该索引号可用于访问字段对象。程序运行时，分配字段对象的索引号，数据表左边第一个字段的索引号为“0”，依此类推，索引值依次分配给字段对象。使用字段对象的索引号来访问字段对象就像访问其他对象一样。2.对永久字段对象的访问对永久字段对象的访问基本上与对其他类型对象的访问相同，并且字段对象的属性可以直接用于程序中的访问。3.字段对象的输出使用字段对象的值属性，该属性可以将字段

13、的值输出到所需的位置。4.计算字段对象有时数据表中现有的字段不能满足用户的需要，所以需要添加一些不在数据表中的字段。这些字段可以根据数据表中的字段进行计算。9.4使用多个数据表，前面的内容是使用一个数据表，我们可以以一种形式浏览多个数据库表。示例9-6以下示例显示了如何创建一个简单的表单来浏览多个数据表。在如图所示的对话框中选择要打开的数据表，右边的命令按钮是浏览记录和重新选择数据表。，例9-6，程序代码如下：程序TFRMSHOW。CMDOpenClick(发送器：至对象)；开始表1。关闭；关闭打开的表表1 . table name :=CMB choice . text；选择表表1。开放给开

14、放；打开桌端；过程TFrmshow。CmdPriorClick(发送器：对象)；开始表1。优先。结束；过程TFrmshow。CmdNextClick(发送器：对象)；开始表1。下一个。结束；过程TFrmshow。CmdCloseClick(发送器：对象)；开始CmbChoice。文本：=；表1。关闭；结束；过程TFrmshow。CmdExitClick(发送器：对象)；开始申请。终止；结束；9.5使用表单向导，表单向导是一个由Delphi提供的工具，用于快速创建数据库应用程序。使用该工具，可以快速方便地创建简单的数据库应用程序。使用可以创建单个数据表或一对多应用程序的应用程序。9.5.1使用表

15、单向导创建单个数据表的应用程序，并在主菜单的数据库选项中选择表单向导选项。在“表单选项”框中，选择“创建简单表单”以表示创建单个数据表的应用程序。在数据选项框中，选择使用表对象创建表单以选择表对象。选择要在其中创建应用程序的数据表。点击下一步按钮，弹出选择数据表窗口。选择c:程序文件com文件borland共享数据customer.db作为应用程序的数据库表，并基于该数据库表创建应用程序。选择必填字段。选择数据库表后，单击“下一步”按钮，将弹出选择字段的对话框。在左侧的“可用字段”对话框中，数据表中有所有字段。选择所需的字段，然后单击按钮将其添加到右侧的对话框中。如果选择了所有字段，请单击按钮。选择应用程序的格式。选择字段后，单击“下一步”按钮，弹出选择应用程序格式的对话框。在此对话框中，提供了三种应用程序格式。水平显示表格中的数据，垂直显示表