《利用窗体维护数据》ppt课件

《《利用窗体维护数据》ppt课件》由会员分享，可在线阅读，更多相关《《利用窗体维护数据》ppt课件（24页珍藏版）》请在金锄头文库上搜索。

1、第9章 利用窗体维护数据,窗体（Form）是建立数据库应用程序必不可少的工具，通过在窗体中添加数据库访问组件和数据库控制组件，可以将数据和窗体连接起来。在数据库应用程序中，可以利用窗体建立友好的界面，达到客户的要求。 9.1 窗体对象 9.2 利用窗体进行数据的操作 9.3 字段对象 9.4 使用多个数据表格 9.5 使用Form Wizard,9.1 窗体对象,Delphi的应用程序是从建立窗体开始的，因此熟练地掌握窗体的重要属性、方法和事件，对于开发数据库应用程序是非常重要的。 9.1.1 基本属性 9.1.2 窗体的常用事件和方法,9.1.1 基本属性,1. BorderStyle Bo

2、rderStyle属性控制窗体边框的类型，它是一个集合类型的属性。 2. BorderIcon BorderIcon是一个属性的集合，这个属性是用来说明是否显示窗体顶部的控制菜单，即最大化按钮，最小化按钮及帮助按钮。 3. Ctl3D 该属性是用来确定窗体是否具有立体效果，在窗体上的对象将参考窗体的Ctl3D属性来决定是否具有立体效果。 4. Caption 该属性用来确定窗体的标题。 5. Name 该属性为窗体指定了在程序中的引用名。 6. FormStyle 该属性确定窗体的类型。 7. Enable 该属性确定窗体是否可用，若其值为False，则不能用鼠标和键盘对它操作。 8. Win

3、dowState 该属性确定窗体所处的状态。,9.1.1 基本属性,9. Cursor 该属性确定鼠标在窗体上移动时的光标形状。 10. Font 该属性用来描述显示文本中的字符对象，它是一个TFont类型的属性，在设计或运行时设定对象的属性可以决定窗体上显示的字体的大小及颜色等。 11. ActiveConctrol 该属性确定窗体上的哪个对象取得了焦点及是否触发键盘事件。 12. KeyPreview 设置为“是”，当窗体的任何对象有键盘输入时，都先触发窗体的键盘事件，然后再触发该对象的键盘事件，通过设置该属性，可以使用键盘事件做输入过滤。 13. Icon 该属性确定窗口最小化时所显示的

4、图标。 14. Handle 该属性是只读属性，只有在运行时可以使用。 15. Hint和ShowHint ShowHint属性用于启动提示功能。Hint属性是用来设置提示信息文本的。,9.1.2 窗体的常用事件和方法,在数据库应用程序中常用的方法和事件是完成窗体的建立、显示和关闭功能的方法和事件。 1. Creare方法和OnCreate事件 调用Create方法可以建立并初始化一个窗体。 调用Create方法可以触发OnCreate事件，在窗体建立时要实现某些操作，可以在该事件处理程序中进行。 2. Show和ShowModal方法与Onshow事件 Show方法用于显示窗体，ShowMo

5、dal用于显示模态窗体，这两种方法都可以触发OnShow事件。 3. Close方法和OnClose事件 Close方法可以关闭窗体，同时触发OnClose事件。,9.2 利用窗体进行数据的操作,通过窗体可以对数据库的数据进行一些基本的操作，例如数据的排序，数据的查询，数据的修改等。本节将分别介绍这些基本的操作，这将为我们创建复杂的功能打下良好的基础。 9.2.1 数据的排序 9.2.2 数据的查询 9.2.3 对数据库中的数据进行修改 9.2.4 数据的插入和删除,9.2.1 数据的排序,数据库中有大量的数据信息，通过设计表格可以浏览这些信息，在显示这些信息的时候，我们可以把数据以不同的顺序

6、排列出来，当然显示的方式也是可以选择的。 数据的排序要用到TTable组件的IndexFields属性，通过指定属性的值，就可以将信息以不同的排列顺序显示出来。 【例9-1】下面通过一个例子来演示如何在窗体中使数据以不同的排列顺序显示出来。 首先，建立一个新工程，建立窗体和数据源的连接。修改窗体Caption的属性为Index，并将Name属性修改为FrmIndex。从组件选择板上选取一个Table和一个DataSource放入窗体中，再选取DBGrid放入窗体中，不改变这几个组件的Name属性。 向窗体中加入三个命令按钮，给这三个命令按钮的Caption属性和Name属性分别设置为City、

7、CustNo、Name和CmdCity、CmdNo、CmdName。,9.2.1 数据的排序,然后加入程序代码。 procedure TFrmIndex.CmdCityClick(Sender: TObject); begin Table1.IndexFieldNames:=City; 以City为索引 end; procedure TFrmIndex.CmdNoClick(Sender: TObject); begin Table1.IndexFieldNames:=CustNo; 以CustNo为索引 end; procedure TFrmIndex.CmdNameClick(Sender

8、: TObject); begin Table1.IndexFieldNames:= Last_Name;First_Name; 以Name为索引 end; end.,9.2.2 数据的查询,数据的查询是数据库应用程序的一项重要功能。要建立程序功能，首先要确定查询的字段，一般都是数据表格的主关键字段或辅助索引。 在程序中可以通过下面几种方法移动记录指针。,9.2.3 对数据库中的数据 进行修改,如果权限允许，用户可以对数据库中的数据进行修改。修改数据首先要将TTable组件设置为编辑状态，用Edit方法实现。调用方法后，组件处于编辑状态，就可以修改记录中的数据。修改的结果并没有写入实际的数据库

9、中，要实现对实际数据库中的数据修改，就必须调用Post方法将修改的结果写入数据的数据库中。,9.2.4 数据的插入和删除,在数据库工作平台可以对数据库的记录进行插入和删除，但在实际的数据库应用程序中，一般用户都不会采取这种方式，应该建立一个友好的界面根据用户的最终命令来完成这类操作。 插入记录的方法比较简单，Delphi提供了Insert和Append两种方法来实现插入记录的功能。Insert方法是在当前记录的指针处插入记录，Append方法是在数据库表格的结尾处插入记录。当数据表格存在索引时，插入的记录就会按索引在数据表格中存放。一般Append方法适用于没有索引的数据库表格，但这种数据库表

10、格比较少，所以Append方法使用的比较少，通常使用Insert方法。使用Insert方法要在数据库表格中先插入一个空记录，然后再依次添加数据，使用这种方法的基本程序段如下： begin Insert; /插入空记录 依次添加数据; Post; /将添加的记录传送给数据库 end;,9.2.4 数据的插入和删除,可以使用InsertRecord方法一次来完成上述功能，InsertRecord方法把记录的各个字段合成一个字段数组作为它的参数，可以为插入的记录的每个字段赋一个字段值。也可以使赋的字段值比记录中的字段值多，直到记录的字段都被赋了值。同样也可以使赋的字段值比记录中的字段值少，Inser

11、tRecord用空值来给那些没有赋值的字段赋值。 调用Delete方法可以删除记录。要删除记录，首先将记录的指针移到要删除的记录，然后调用Delete方法，就可以删除该记录了。记录删除后，该记录下面的记录依次向前移动，记录指针指到下一个记录。通常在删除记录之前，都要确认是否真正删除该记录，为了达到这个目的，在删除记录前弹出一个对话框，确认是否删除。,9.3 字段对象,字段对象是对象的一种，在数据库编程时用得很多，使用也很灵活。 TFields对象是在打开数据库时动态产生的，在数据库关闭时自动消失。通过字段编辑器可以记录永久字段对象列表，创建后的字段对象保存到应用程序中，即使数据库表格的结构发生

12、了变化，字段对象也会保留。 9.3.1 字段对象的数据类型 9.3.2 创建永久字段对象 9.3.3 字段对象的属性和方法 9.3.4 字段对象的使用,9.3.1 字段对象的数据类型,字段对象对应着数据表格中的字段，字段对象可以在应用程序运行的过程中动态地产生，也可以利用字段编辑器创建成为永久字段。 由于字段对象对应数据表格中的字段，数据表格中的字段的数据类型比较多，所以字段对象的数据类型也比较多。,9.3.2 创建永久字段对象,使用字段编辑器可以创建永久性字段对象。 下面通过一个例子来演示如何创建永久性字段对象。 创建一个基于Animals.dbf的数据库应用程序。 选择Table1组件，双

13、击鼠标左键，就可以打开字段对象编辑器。 单击鼠标右键，在弹出的对话框中选择Add Fields选项，从中选择需要的字段，加入到字段编辑器中。 单击OK按钮，结束创建永久字段对象的过程。 在创建完永久字段对象后，在Object Inspector窗口中就可以看到Table1Name、Table1Aera等对象。 发现有不需要的字段对象想删除它，可以在对象编辑器中选择需要删除的字段对象，然后单击鼠标右键，选择Delete选项，就可以删除该字段对象了。,9.3.3 字段对象的属性和方法,9.3.4 字段对象的使用,字段对象有动态生成的，也有在字段编辑器中创建的永久性字段对象，它们和其他对象一样，拥有

14、自己的属性、方法和事件，虽然它们在程序的设计和运行过程中是不可见的。我们可以在程序中访问和控制字段对象。 由于动态字段对象没有自己的名称，而永久性字段对象有自己的名称，所以两者在程序中的使用方法是不一样的，下面我们就分别介绍一下这两个字段对象的用法。 1. 动态字段对象的使用 动态字段对象是TTable组件和Query的一部分，它们是随着数据库的打开而动态地生成的，每个动态字段对象都分别对应着数据表格中的字段。TTable或Query组件中的所有的字段对象都存在于Fields属性中，Fields中的字段对象分别对应着一个索引号，可以利用这个索引号来访问字段对象。在程序运行时为字段对象的索引号赋

15、值，数据表格中左边第一个字段的索引号为“0”，以此类推，依次为字段对象赋索引值。利用字段对象的索引号来访问字段对象就可以像访问其他对象一样了。 2. 永久性字段对象的访问 永久性字段对象的访问同其他类型对象的访问基本一样，在程序中可以直接使用字段对象的属性进行访问。 3. 字段对象的输出 使用字段对象的Value属性，可以将字段的值输出到需要的地方。 4. 计算字段对象 有时数据表格中的现有字段不能满足用户的需求，需要增加一些数据表格中没有的字段，这些字段可以根据数据表格中的字段计算出来。,9.4 使用多个数据表格,前面讲的内容都是使用一个数据表格，我们还可以在一个窗体中浏览多个数据库表格。

16、【例9-6】下面通过一个实例显示如何创建一个简单的浏览多个数据表格的窗体。 在图所示的对话框中选择要打开的数据表格，右边的命令按钮分别是浏览记录和重新选择数据表格 。,【例9-6】,程序的代码如下： procedure TFrmshow.CmdOpenClick(Sender:TObject); begin Table1.Close;关闭打开的表格 Table1.TableName:=CmbChoice.Text;选择要打开的表格 Table1.Open;打开表格 end; procedure TFrmshow.CmdPriorClick(Sender:TObject); begin Table1.Prior; end; procedure TFrmshow.CmdNextClick(Sender:TObject); begin Table1.Next; end; procedure TFrmshow.CmdCloseClick(Sender:TObject); begin CmbChoice.Text:=; Table1