Delphi_数据库程序设计

1、DelphiDelphi数据库程序设计数据库程序设计主讲：张明清主讲：张明清Email:Email:电话：电话：1303781091713037810917贵州工业大学资源环境学院DelphiDelphi数据库编程数据库编程1 Delphi数据库系统概述数据库系统概述2 数据库引擎管理器数据库引擎管理器3 连接连接ODBC数据库数据库4 数据库桌面系统数据库桌面系统5 数据集控件数据集控件6 数据控制控件数据控制控件7 Decision Cube控件控件8 报表控件报表控件DelphiDelphi数据库编程数据库编程1. Delphi数据库系统概述数据库系统概述Delphi应用程序如何通过应用

2、程序如何通过BDE和数据库相和数据库相连，连，BDE如何通过如何通过ODBC设置。设置。数据库桌面系统数据库桌面系统Database Desktop。数据集控件的使用。数据集控件的使用。数据控制控件的使用。数据控制控件的使用。Delphi的图表显示及报表打印。的图表显示及报表打印。 (源码网整理：源码网整理：)返回本章首页DelphiDelphi数据库编程数据库编程1.1 BDE数据库访问策略数据库访问策略DelphiDelphi数据库编程数据库编程1.1 ADO数据库访问策略数据库访问策略DelphiDelphi数据库编程数据库编程1 1.2 Delphi可访问的数据源可访问的数据源本地数据

3、库：本地数据库：dBASE、Paradox、ASCII 等等远程数据库：远程数据库：SQLServer、Oracle等等ODBC数据源数据源DelphiDelphi数据库编程数据库编程1 1.3 Delphi数据访问部件数据访问部件DelphiDelphi数据库编程数据库编程1.1.4 数据库引擎管理器数据库引擎管理器1.1.4.1 BDE简介简介1.1.4.2 数据库引擎管理器的功能数据库引擎管理器的功能返回本章首页DelphiDelphi数据库编程数据库编程1.1.4.1 BDE简介简介BDE为为Delphi数据库应用程序访问各种数据数据库应用程序访问各种数据库提供了一致的接口。它具有以下

4、一些特点：库提供了一致的接口。它具有以下一些特点：通过通过BDE访问任何一种格式的数据库，用户不必访问任何一种格式的数据库，用户不必修改程序代码，只需在修改程序代码，只需在BDE中设置新的数据库的中设置新的数据库的服务器名或者路径即可。服务器名或者路径即可。DelphiDelphi数据库编程数据库编程BDE非常适合开发大型的客户机非常适合开发大型的客户机/服务器应用服务器应用程序程序.如果要让如果要让BDE能访问一个新的数据库，只要能访问一个新的数据库，只要在系统中安装新数据库的在系统中安装新数据库的BDE驱动程序或者驱动程序或者ODBC驱动程序就可以了。驱动程序就可以了。BDE是是32位的数

5、据库引擎，支持多线程和有位的数据库引擎，支持多线程和有优先级的多任务处理，多个应用程序可以同时运优先级的多任务处理，多个应用程序可以同时运行并访问同一个数据库。行并访问同一个数据库。(源码网整理：源码网整理：)返回本节返回本节DelphiDelphi数据库编程数据库编程1.1.4.3 数据库引擎管理器的功能数据库引擎管理器的功能1 1数据库别名的管理数据库别名的管理2 2驱动程序的管理驱动程序的管理3 3系统配置系统配置DelphiDelphi数据库编程数据库编程图6-2 BDE Administrator运行界面DelphiDelphi数据库编程数据库编程图6-3 设置数据库驱动程序名Del

6、phiDelphi数据库编程数据库编程图6-4 Paradox数据库的BDE别名DelphiDelphi数据库编程数据库编程图6-5 BDE Administrator管理驱动程序的界面DelphiDelphi数据库编程数据库编程图6-6 BDE Administrator的系统配置 返回本节返回本节DelphiDelphi数据库编程数据库编程1.1.4.4 配置配置ODBC数据源数据源安装安装ODBC驱动程序后，打开驱动程序后，打开Windows的的控制面板，双击控制面板，双击“ODBC Data Source（32bit）”，打开打开ODBC Data Source Administrat

7、or对话框，依提示设置即可。对话框，依提示设置即可。返回本章首页DelphiDelphi数据库编程数据库编程单击单击“Add”按钮，就会打开创建新数据源对话按钮，就会打开创建新数据源对话框，框，DelphiDelphi数据库编程数据库编程从驱动程序列表中选择从驱动程序列表中选择“Microsoft Access Driver（*.mdb）”，并单击并单击“完成完成”按钮，则按钮，则会打开会打开ODBC Microsoft Access Setup对话框对话框DelphiDelphi数据库编程数据库编程图6-9 ODBC Microsoft Access Setup对话框 DelphiDelph

8、i数据库编程数据库编程选择选择Configuration页框，展开页框，展开Drivers节点，然后节点，然后用鼠标右键单击用鼠标右键单击ODBC，从弹出的菜单中选择从弹出的菜单中选择“New”选项，这时将打开选项，这时将打开New ODBC Driver对话对话框框1.1.4.5 在在BDE中连接中连接ODBC数据源数据源DelphiDelphi数据库编程数据库编程展开展开Database页框，选择页框，选择“Object”菜单上的菜单上的“New”命令，打开命令，打开New Database Alias对话对话框框DelphiDelphi数据库编程数据库编程选择选择ODBC-access作

9、为数据库驱动程序，单击作为数据库驱动程序，单击“OK”。输入完整的别名。输入完整的别名accesstry。最后，选择。最后，选择Object菜单上的菜单上的Apply命令，将新建的别名保存命令，将新建的别名保存到到BDE配置文件中。配置文件中。DelphiDelphi数据库编程数据库编程1.2 数据库桌面系统数据库桌面系统Database Desktop概述概述设定工作目录和私有目录设定工作目录和私有目录创建数据库表创建数据库表数据库表的属性数据库表的属性创建创建SQL类型数据表类型数据表在在Database Desktop中使用查询中使用查询返回本章首页DelphiDelphi数据库编程数据

10、库编程1.2.1 Database Desktop概述概述 Database Desktop是是Delphi附带的一个附带的一个桌面数据库管理系统（桌面数据库管理系统（DBMS）主要用来管理本主要用来管理本地数据库，及对远程数据进行查询、录入，在程地数据库，及对远程数据进行查询、录入，在程序开发过程中输入调试数据，是一个小型桌面序开发过程中输入调试数据，是一个小型桌面DBMS系统。系统。 本地数据库维护本地数据库维护 向远程数据库传递向远程数据库传递SQL语句，并返回执语句，并返回执行结果行结果DelphiDelphi数据库编程数据库编程Database Desktop界面返回本节返回本节De

11、lphiDelphi数据库编程数据库编程1.2.1 Desktop工作目录和私有目录工作目录和私有目录1工作目录工作目录指在打开或者保存文件时，指在打开或者保存文件时，Database Desktop首先用来寻找文件的地方。即缺省本地首先用来寻找文件的地方。即缺省本地数据库数据库(Foxbase、Pardox)目录。目录。2私有目录私有目录是用户自己使用的目录，主要用来存放其产是用户自己使用的目录，主要用来存放其产生的中间结果。生的中间结果。DelphiDelphi数据库编程数据库编程（a）设置工作目录 （b）设置私有目录返回本节返回本节DelphiDelphi数据库编程数据库编程1.2.2

12、用用Desktop创建数据库表创建数据库表1、创建表、创建表2、创建主键、创建主键3、创建第二索引、创建第二索引4、缺省值、校验值设置、缺省值、校验值设置5、密码保护、密码保护6、紧缩表、紧缩表DelphiDelphi数据库编程数据库编程（1）依次单击）依次单击“File”“New”“Table”选项，选项，则会出现选择数据库表类型对话框则会出现选择数据库表类型对话框1.2.2.1 创建表结构创建表结构DelphiDelphi数据库编程数据库编程（2）单击）单击“OK”，定义字段名，在，定义字段名，在Size列中输入列中输入字段的宽度。字段的宽度。 DelphiDelphi数据库编程数据库编程

13、（3）单击）单击“Save As”按钮，将定义好的数据表按钮，将定义好的数据表保存为保存为student.db。 DelphiDelphi数据库编程数据库编程1.2.2.2 数据库表的属性数据库表的属性1 1有效性检验属性（有效性检验属性（Validity CheckValidity Check）2 2参照完整性属性（参照完整性属性（Table LookupTable Lookup）3 3第二索引属性（第二索引属性（Secondary IndexesSecondary Indexes）4 4引用完整性属性（引用完整性属性（Referential IntegrityReferential Int

14、egrity）5 5数据表的密码属性（数据表的密码属性（Password SecurityPassword Security） 6 6数据表语言驱动程序属性（数据表语言驱动程序属性（Table LanguageTable Language）DelphiDelphi数据库编程数据库编程1.2.3 在在Database Desktop中使用查询中使用查询Database Desktop提供了两种查询工具，即提供了两种查询工具，即SQL语句和语句和QBE。DelphiDelphi数据库编程数据库编程1.2.3.1 SQL查询查询依次单击依次单击“File”“New”“SQL File”选项，选项，打

15、开一个新的打开一个新的SQL语句窗口语句窗口DelphiDelphi数据库编程数据库编程单击单击SQL菜单下的菜单下的“Select Alias”选项，选项，将出现设置数据库别名对话框，选择执行将出现设置数据库别名对话框，选择执行SQL语语句的数据库名称。句的数据库名称。输入输入SQL语句后，按运行。语句后，按运行。DelphiDelphi数据库编程数据库编程依次单击依次单击“File”“New”“QBE Query”选项，单击工具栏中的选项，单击工具栏中的“显示显示SQL语句语句”（Show SQL）按钮，可以看到按钮，可以看到Database Desktop自动生成的自动生成的SQL语句语

16、句1.2.3.2 QBE查询查询DelphiDelphi数据库编程数据库编程1.2.4 在在SQL Explorer中使用查询中使用查询 SQL Explorer是是Delphi提供的一个执行提供的一个执行SQL语句的了语句的了两种查询工具，执行两种查询工具，执行SQL语句较语句较Desktop方便。方便。DelphiDelphi数据库编程数据库编程1.3 数据集控件数据集控件数据访问控件简介数据访问控件简介数据集控件及其应用数据集控件及其应用TTable控件及其使用控件及其使用TQuery控件及其使用控件及其使用TDataSource控件及其使用控件及其使用返回本章首页DelphiDelph

17、i数据库编程数据库编程1.3.1 数据访问控件简介数据访问控件简介部 件 名称主 要 用 途TDataSource作为数据集部件TTable、TQuery、StoredProc组件与数据浏览件TDBGrid、TDBEdit之间传送数据的通道。TTable通过BDE存取数据库表中的数据，TTable再与TDataSource进行“对话”，使得数据浏览部件能够有效地从TTable中访问数据并能显示和编辑其中的数据。TQuery它利用SQL语言访问磁盘上数据库表中的数据，并与TDataSource“对话”，实现数据浏览部件对数据库的访问。DelphiDelphi数据库编程数据库编程1.3.2 数据集

18、控件及其应用数据集控件及其应用1数据集控件的状态数据集控件的状态v非活动状态（非活动状态（Inactive）v浏览状态（浏览状态（Browse）v编辑状态（编辑状态（Edit）v插入状态（插入状态（Insert）v查找状态（查找状态（SetKey）v处理计算字段状态（处理计算字段状态（CalcFields）DelphiDelphi数据库编程数据库编程2数据集的打开和关闭数据集的打开和关闭（1）打开数据集）打开数据集方法方法1：通过设置数据集控件的：通过设置数据集控件的Active属性为属性为True来打开与数据集相连的数据库表。来打开与数据集相连的数据库表。方法方法2：调用数据集控件的：调用数

19、据集控件的Open方法，打开与方法，打开与数据集控件相连的数据库表，这种方法只能在程数据集控件相连的数据库表，这种方法只能在程序运行过程中通过程序进行。序运行过程中通过程序进行。DelphiDelphi数据库编程数据库编程（2）关闭数据集）关闭数据集方法方法1：设置数据集控件的：设置数据集控件的Active属性为属性为False，以关闭与数据集控件相连的数据库表。以关闭与数据集控件相连的数据库表。方法方法2：调用：调用Close方法以关闭与数据集控件相方法以关闭与数据集控件相连的数据集表。连的数据集表。DelphiDelphi数据库编程数据库编程3数据集的浏览数据集的浏览方法方法功能功能Fir

20、st移动记录指针到数据集中的第一条记录移动记录指针到数据集中的第一条记录Next移动记录指针到数据集中的下一条记录移动记录指针到数据集中的下一条记录Prior移动记录指针到数据集中的前一条记录移动记录指针到数据集中的前一条记录Last移动记录指针到数据集中的最后一条记录移动记录指针到数据集中的最后一条记录MoveBy（n）n是正，将记录指针下移是正，将记录指针下移n条记录；否则，上移条记录；否则，上移n条记录条记录DelphiDelphi数据库编程数据库编程属性属性功能功能BOF当记录指针位于数据集开头时，属性值为当记录指针位于数据集开头时，属性值为True，否则为否则为FalseEOF当记录

21、指针位于数据集结尾时，属性值为当记录指针位于数据集结尾时，属性值为True，否则为否则为False数据集的浏览属性DelphiDelphi数据库编程数据库编程4数据集中的数据维护数据集中的数据维护方法方法功能功能Edit将数据集置为编辑状态将数据集置为编辑状态Append保存所有被修改的记录，然后将记录指针移到表中的最保存所有被修改的记录，然后将记录指针移到表中的最后一条记录，且将数据集置为插入状态后一条记录，且将数据集置为插入状态Insert保存所有被修改的记录，将数据集置为插入状态保存所有被修改的记录，将数据集置为插入状态Post将插入或者被修改的记录写回到数据表，当保存成功时将插入或者被

22、修改的记录写回到数据表，当保存成功时数据集回到浏览状态，若保存不成功则数据集恢复原来数据集回到浏览状态，若保存不成功则数据集恢复原来状态状态DelphiDelphi数据库编程数据库编程方法方法功能功能Cancel取消当前的操作且将数据集置为浏览状态取消当前的操作且将数据集置为浏览状态Delete删除当前记录指针所在的记录且将数据集置为浏览状删除当前记录指针所在的记录且将数据集置为浏览状态态AppendRecord在数据表的最后插入一条新记录，记录的各个字段值在数据表的最后插入一条新记录，记录的各个字段值作为作为AppendRecord的参数传递给新记录的参数传递给新记录InsertRecord

23、在当前指针所在记录的后面插入一条新记录，在当前指针所在记录的后面插入一条新记录，记录的记录的各个字段值作为各个字段值作为InsertRecord的参数传递给新记录。的参数传递给新记录。SetFields修改当前记录，字段名和相应的字段值作为修改当前记录，字段名和相应的字段值作为SetFields的的参数参数DelphiDelphi数据库编程数据库编程5数据集的书签数据集的书签有关书签操作，有关书签操作，Delphi提供了三个方法：提供了三个方法： GetBookMark GotoBookMark FreeBookMarkDelphiDelphi数据库编程数据库编程6数据集控件与数据控制控件的连

24、接数据集控件与数据控制控件的连接数据集控件具有三个方法，用于控制数据集控件数据集控件具有三个方法，用于控制数据集控件和与其相连的数据控制控件之间的连接，以及控和与其相连的数据控制控件之间的连接，以及控制 数 据 控 制 控 件 的 显 示 。 它 们 是制 数 据 控 制 控 件 的 显 示 。 它 们 是DisableControls方法、方法、EnableControls方法、方法、Refresh方法。方法。DelphiDelphi数据库编程数据库编程数据集控件的事件数据集控件的事件BeforeOpen/Afteropen：在数据集控件打在数据集控件打开之前开之前/之后被触发。之后被触发。

25、BeforeClose/Afterclose：在数据集控件关在数据集控件关闭之前闭之前/之后被触发。之后被触发。BeforeInsert/AfterInsert：在数据集控件在数据集控件进入插入状态之前进入插入状态之前/之后被触发。之后被触发。BeforeEdit/AfterEdit：在数据集控件被编在数据集控件被编辑之前辑之前/之后被触发。之后被触发。DelphiDelphi数据库编程数据库编程BeforePost/AfterPost：在数据集控件保在数据集控件保存被修改的记录之前存被修改的记录之前/之后被触发。之后被触发。BeforeCancel/AfterCancel：在数据集控在数据集

26、控件取消进一步操作之前件取消进一步操作之前/之后被触发。之后被触发。BeforeDelete/AfterDelete：在数据集控在数据集控件删除当前记录之前件删除当前记录之前/之后被触发。之后被触发。OnNewRecord：当建立一条新记录时被触当建立一条新记录时被触发。发。 OnCalcFields：当为表中的计算字段计算字当为表中的计算字段计算字段值时被触发。段值时被触发。返回本节返回本节DelphiDelphi数据库编程数据库编程1.3.3 TTable控件及其使用控件及其使用1TTabel控件的主要属性控件的主要属性（1）DatabaseName属性和属性和TableName属性属性（

27、2）KeyExclusive属性属性（3）IndexFields属性和属性和IndexFieldsCount属性属性（4）IndexName属性和属性和IndexFieldNames属性属性（5）Exclusive属性属性（6）ReadOnly属性和属性和CanModify属性属性DelphiDelphi数据库编程数据库编程2TTable控件的方法及应用控件的方法及应用（1）设定数据库表的使用范围）设定数据库表的使用范围（2）查询数据库表）查询数据库表（3）生成数据库表）生成数据库表DelphiDelphi数据库编程数据库编程控件名控件名属性属性属性值属性值Table1DatabaseName

28、DBDEMOSTablenameEmployee.dbActiveTrueDataSource1DataSetQuery1Label1Caption雇员号：雇员号：Label2Caption姓名：姓名：Label3Caption提示信息提示信息Button1Caption查询查询Button2Caption退出退出返回本节返回本节DelphiDelphi数据库编程数据库编程1.3.4 TQuery控件及其使用控件及其使用1TQuery控件的主要属性和方法控件的主要属性和方法（ 7） E xecS Q L方 法（ 4） R equestLive属 性（ 1） D atabaseN am e属 性

29、（ 8） C lose方 法（ 5） U niD irectional属 性（ 2） S Q L属 性（ 9） P repare方 法（ 6） O pen方 法（ 3） P aram s和 P aram C ount属 性DelphiDelphi数据库编程数据库编程2TQuery控件的静态控件的静态SQL查询查询使用使用TQuery控件建立静态控件建立静态SQL查询的步骤如下：查询的步骤如下：（1）为）为TQuery控件设置控件设置DatabaseName属性属性（2）为）为TQuery控件设置控件设置SQL属性属性（3）设置）设置TDataSource控件的控件的DataSet属性属性（4）

30、连接数据控制控件和）连接数据控制控件和TQuery控件控件（5）执行）执行SQL语句语句 DelphiDelphi数据库编程数据库编程3TQuery控件的动态控件的动态SQL语句语句在程序中为在程序中为SQL语句中的参数赋值通常有三种方法语句中的参数赋值通常有三种方法: （1）使用）使用TQuery控件的控件的Params属性属性（2）使用）使用TQuery控件的控件的ParamByName方法方法（3）使用）使用TParams对象的对象的ParamValues属性属性DelphiDelphi数据库编程数据库编程控件名属性属性值Query1DatabaseNameDBDEMOSDataSour

31、ce1DataSetQuery1DBGrid1DatasourceDataSource1Button1Caption执行(&E)Button2Caption清空(&C)BitButton1Caption退出(&X)KindbkCloseMemo1Lines清除其中内容表6-5 各个控件的属性设置返回本节返回本节DelphiDelphi数据库编程数据库编程1.3.5 TDataSource控件及其使用控件及其使用1TDataSource控件的属性控件的属性（1）DataSet属性、（属性、（2）Enable属性属性、（3）AutoEdit属性属性2TDataSource控

32、件的事件控件的事件（ 1 ） O n D a t a C h a n g e 事 件事 件 、 （ 2 ）OnUpdataData事件事件、（3）OnStateChange事件事件返回本节返回本节DelphiDelphi数据库编程数据库编程1.4 数据控制控件数据控制控件1.4.1 数据控制控件简介数据控制控件简介1.4.2 TDBGrid控件控件1.4.3 TDBNavigator控件控件1.4.4 TDBText控件控件1.4.5 TDBEdit控件控件1.4.6 TDBMemo控件控件1.4.7 TDBImage控件控件下一页下一页DelphiDelphi数据库编程数据库编程1.4.8

33、TDBListBox控件控件1.4.9 TDBComboBox控件控件1.4.10 TDBLookupListBox控件控件1.4.11 TDBLookupComboBox控件控件1.4.12 TDBCheckBox控件控件1.4.13 TDBRadioGroup控件控件1.4.14 其他控件其他控件返回本章首页DelphiDelphi数据库编程数据库编程DataControls控件页上的控件DelphiDelphi数据库编程数据库编程1.4.1 数据控制控件简介数据控制控件简介数据控制控件是通过数据控制控件是通过TDatasource控件连接到控件连接到TTable控件中具体的字段控件的，因

34、而数据控控件中具体的字段控件的，因而数据控制 控 件 具 有 一 些 共 同 的 属 性 ， 用 于 连 接制 控 件 具 有 一 些 共 同 的 属 性 ， 用 于 连 接TDatasource控件和控件和TField控件。控件。（1）Datasource属性属性（2）DataField属性属性（3）Enabled属性属性（4）ReadOnly属性属性DelphiDelphi数据库编程数据库编程各数据控制控件概述各数据控制控件概述控件名称控件名称功能说明功能说明TDBGrid用网格形式显示来自数据源的数据，可以在设计时用网格形式显示来自数据源的数据，可以在设计时使用字段编辑器，或者在运行时动

35、态生成使用字段编辑器，或者在运行时动态生成TDBNavigator提供一组用于数据库导航的按钮，可以修改、插入、提供一组用于数据库导航的按钮，可以修改、插入、删除记录以及刷新数据的显示，包含的按钮在设计删除记录以及刷新数据的显示，包含的按钮在设计阶段可以进行选择阶段可以进行选择TDBText用于显示数据库表中当前记录的字段值用于显示数据库表中当前记录的字段值TDBEdit用于显示和编辑数据库表中当前记录指定的字段值用于显示和编辑数据库表中当前记录指定的字段值DelphiDelphi数据库编程数据库编程TDBMemo用于显示数据库表中的备注型字段，备注型字段用于显示数据库表中的备注型字段，备注型

36、字段中可以包含多行字符甚至可以是中可以包含多行字符甚至可以是BLOB（大二进大二进制对象）数据制对象）数据TDBImage用于显示数据库表中的图形字段和用于显示数据库表中的图形字段和BLOB数据数据TDBListBox当用户编辑修改表中当前记录的某个字段时，该当用户编辑修改表中当前记录的某个字段时，该控件是一个包含多个选择项的列表框，用户可以控件是一个包含多个选择项的列表框，用户可以从中选择一个项做为字段的值从中选择一个项做为字段的值TDBComboBox显示一个下拉列表框，可以直接在其编辑框中输显示一个下拉列表框，可以直接在其编辑框中输入字段值，或者从下拉列表框中选择一个字段值入字段值，或者

37、从下拉列表框中选择一个字段值DelphiDelphi数据库编程数据库编程TDBCheckBox显示一个复选框，当指定字段值与该复选框的显示一个复选框，当指定字段值与该复选框的ValueChecked属性值相匹配时，该复选框被选中属性值相匹配时，该复选框被选中TDBRadioGroup为用户提供一组单选按钮，用户只能从中选择一个可为用户提供一组单选按钮，用户只能从中选择一个可选项选项TDBLookupListBox显示一个列表框，用户可通过它编辑修改数据表中的显示一个列表框，用户可通过它编辑修改数据表中的字段，列表框中的值可从其他数据表中查阅字段，列表框中的值可从其他数据表中查阅TDBLooku

38、pComboBox该控件结合该控件结合TDBEdit控件和控件和TDBComboBox控件的功控件的功能，下拉列表框中的可选项可从其他数据库表中读取能，下拉列表框中的可选项可从其他数据库表中读取TDBRichEdit提供一个多行编辑框，显示编辑提供一个多行编辑框，显示编辑RichTextMemo字段字段TDBCtrlGrid可以根据用户指定的格式用二维网格显示所有数据表可以根据用户指定的格式用二维网格显示所有数据表中的字段中的字段TDBChart用于显示数据库中有关数据汇总的图形和表用于显示数据库中有关数据汇总的图形和表返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.2 T

39、DBGrid控件控件1TDBGrid控件的主要属性：控件的主要属性：（1）Options属性属性（2）DragMode属性属性（3）DefalultDrawing属性属性（4）Columns属性属性DelphiDelphi数据库编程数据库编程字段编辑对话框 DelphiDelphi数据库编程数据库编程2TDBGrid控件的主要事件及应用控件的主要事件及应用表6-7 TDBGrid控件中的主要事件 事件名事件名目的用途目的用途OnColEnter当用户进入网格各列时，触发该事件当用户进入网格各列时，触发该事件OnColExit当用户离开网格各列时，触发该事件当用户离开网格各列时，触发该事件OnD

40、blClick当用户在网格中双击鼠标左键时，触发该事件当用户在网格中双击鼠标左键时，触发该事件OnDragDrop当用户在网格中用鼠标进行拖放操作时，触发该事件当用户在网格中用鼠标进行拖放操作时，触发该事件DelphiDelphi数据库编程数据库编程OnDragOver当用户在网格中用鼠标拖动网格时，触发该事件当用户在网格中用鼠标拖动网格时，触发该事件OnDrawDataCell用于定制绘制网格中各网格单元，当向网格中填充数用于定制绘制网格中各网格单元，当向网格中填充数据时触发该事件据时触发该事件OnEndDrag当用户停止拖动网格时，触发该事件当用户停止拖动网格时，触发该事件OnEnter当

41、网格获得焦点时，触发该事件当网格获得焦点时，触发该事件OnExit当网格失去焦点时，触发该事件当网格失去焦点时，触发该事件OnKeyDown当用户在网格中按下任何键或组合键时，触发该事件当用户在网格中按下任何键或组合键时，触发该事件OnKeyPress当用户在网格中按了任何一个数字键或字母键时，触当用户在网格中按了任何一个数字键或字母键时，触发该事件发该事件OnKeyUp当用户在网格中释放任何被按下的键时，触发该事件当用户在网格中释放任何被按下的键时，触发该事件DelphiDelphi数据库编程数据库编程程序的设计界面DelphiDelphi数据库编程数据库编程各控件的主要属性设置控件名控件名

42、属性属性属性值属性值Table1DatabaseNameDBDEMOSTableNameCustomer.DBActiveTrueDataSource1DataSetTable1DBGrid1DatasourceDataSource1Dbnavigator1DatasourceDataSource1Listbox1VisibleFalse返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.3 TDBNavigator控件控件1TDBNavigator控件的主要属性控件的主要属性（1）VisibleButtons属性属性（2）ShowHint属性属性（3）Hints属性属性Del

43、phiDelphi数据库编程数据库编程TDBNavigator控件 DelphiDelphi数据库编程数据库编程TDBNavigator控件中的控制按钮按钮名称功能First将当前记录指针移到数据库表中第一条记录处Prior将记录指针移到当前记录的前一条记录处Next将记录指针移到当前记录的后一条记录处Last将当前记录指针移到数据库表中最后一条记录处Insert调用数据集控件的Insert方法，在当前记录的前面插入一条新记录，并将数据集控件设置为插入状态DelphiDelphi数据库编程数据库编程按钮名称功能Delete删除当前记录，如果TDBNavigator控件的ConfirmDelet

44、e属性设置为true，则会弹出删除确认对话框Edit将数据集控件设置为编辑状态，以便用户修改当前的记录Post提交（保存）对当前记录的修改Cancel取消对当前记录的修改，并将数据集控件置为浏览状态Refresh清除数据浏览控件的显示缓冲区，并用与其相连的数据集控件(TTable或TQuery)中的记录刷新显示缓冲区DelphiDelphi数据库编程数据库编程2TDBNavigator控件的主要事件控件的主要事件TDBNavigator控件一个重要的事件是控件一个重要的事件是OnClick事件，它在事件，它在TDBNavigator控件的某个按钮被单控件的某个按钮被单击并执行相应的操作之后触发

45、。基本格式如下：击并执行相应的操作之后触发。基本格式如下：procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.4 TDBText控件控件1TDBText控件的主要属性控件的主要属性在应用程序中一般要使用在应用程序中一般要使用TDBText控件的控件的DataSource属性和属性和DataField属性。属性。 2TDBText控件的应用举例控件的应用举例用用TDBText控件显示控件显示Customer.DB表中的表中的Compa

46、ny字段信息，可以用如下图所示的窗体字段信息，可以用如下图所示的窗体来实现。来实现。DelphiDelphi数据库编程数据库编程图6-50 程序设计界面DelphiDelphi数据库编程数据库编程上图中各控件的属性设置控件名控件名属性属性属性值属性值Table1DatabaseNameDBDEMOSTableNameCustomer.DBActiveTrueDataSource1DataSetTable1DBText1DatasourceDataSource1DataFieldCompany返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.5 TDBEdit控件控件1TDBE

47、dit控件的主要属性控件的主要属性TDBEdit控件专门用于显示编辑数据库表中当前控件专门用于显示编辑数据库表中当前记录的字段值。记录的字段值。 2TDBEdit控件的应用举例控件的应用举例DelphiDelphi数据库编程数据库编程TDBEdit控件用于显示和编辑控件用于显示和编辑Customer.DB表中当前记录的三个指定的字段表中当前记录的三个指定的字段DelphiDelphi数据库编程数据库编程控件名属性属性值Table1DatabaseNameDBDEMOSTableNameCustomer.DBActiveTrueDataSource1DataSetTable1DBNavigato

48、rDatasourceDataSource1DBEdit1DatasourceDataSource1DataFieldCustNoReadOnlyFalse上图中各控件的属性设置DelphiDelphi数据库编程数据库编程DBEdit2DatasourceDataSource1DataFieldCompanyReadOnlyFalseDBEdit3DatasourceDataSource1DataFieldAddr1ReadOnlyFalseLabel1CaptionCustNoLabel2CaptionCompanyLabel3CaptionAddr1BitBtn1KindBkCloseDe

49、lphiDelphi数据库编程数据库编程用TDBEdit控件显示和修改表中的数据返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.6 TDBMemo控件控件TDBMemo控件的主要属性：控件的主要属性：（1）ReadOnly属性属性（2）MaxLength属性属性（3）ScrollBar属性属性（4）WordWrap属性属性（5）Alignment属性属性（6）AutoDisplay属性属性返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.7 TDBImage控件控件1TDBImage控件的主要属性：控件的主要属性：（1）AutoDisplay属性属性（2）

50、ReadOnly属性属性（3）Stretch属性属性DelphiDelphi数据库编程数据库编程2TDBImage控件的应用举例控件的应用举例DelphiDelphi数据库编程数据库编程控件名控件名属性属性属性值属性值Table1DatabaseNameDBDEMOSTableNameBiolife.dbActiveTrueDataSource1DataSetTable1DBNavigatorDatasourceDataSource1DBMemo1DatasourceDataSource1DataFieldNotesAutodisplayTrueScrollBarsssVerticalWord

51、WrapTrueDBImage1DatasourceDataSource1DataFieldGraphicAutoDisplayFalseStretchTrue窗体中各控件的属性设置返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.8 TDBListBox控件控件1TDBListBox控件的主要属性控件的主要属性（1）IntegralHeight属性属性（2）Items属性属性（3）Style属性属性（4）ItemHeight属性属性DelphiDelphi数据库编程数据库编程2TDBListBox控件的应用举例控件的应用举例举一个使用举一个使用TDBListBox控件的例子

52、。列表框的控件的例子。列表框的选项在设计时用选项在设计时用String List Editor来进行编辑。来进行编辑。DelphiDelphi数据库编程数据库编程属性设置控件名属性属性值Table1DatabaseNameDBDEMOSTableNamecountry.dbActiveTrueDataSource1DataSetTable1DBNavigatorDatasourceDataSource1DelphiDelphi数据库编程数据库编程控件名属性属性值DBListbox1DatasourceDataSource1DataFieldAreaItemHeight10Items.Strin

53、gs(100050000960000013489284)DBGrid1DatasourceDataSource1BitBtnKindBkCloseDelphiDelphi数据库编程数据库编程程序运行界面返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.9 TDBComboBox控件控件1TDBComboBox控件的主要属性控件的主要属性（1）Items属性属性（2）Style属性属性（3）DropDownCount属性属性（4）ItemHeight属性属性（5）Sorted属性属性DelphiDelphi数据库编程数据库编程TDBComboBox控件DelphiDelphi数

54、据库编程数据库编程2TDBComboBox控件的应用举例控件的应用举例使用TDBComboBox控件的程序运行界面返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.10 TDBLookupListBox控件控件控件名属性属性值Table1DatabaseNameDBDEMOSTableNamecustomer.dbActiveTrueTable2DatabaseNameDBDEMOSTableNameorders.dbIndexFieldNamesCustnoMasterFieldCustno各控件属性设置DelphiDelphi数据库编程数据库编程 MasterSource

55、DataSource1ActiveTrueDataSource1DataSetTable1DataSource2DataSetTable2DBNavigatorDatasourceDataSource1DBLookupListBox1ListSourceDataSource2KeyFieldOrdernoListFieldOrdernoDBGrid1DataSourceDataSource1BitBtnKindBkCloseLabel1Captionorder no：DelphiDelphi数据库编程数据库编程使用TDBLookuplistbox控件的程序运行界面返回本节返回本节DelphiD

56、elphi数据库编程数据库编程1.4.11 TDBLookupComboBox控件控件 TDBLookupComboBox控件外观与控件外观与TDBComboBox控件相同，但显示在组合框中控件相同，但显示在组合框中的数据也来自于查询数据表。的数据也来自于查询数据表。TDBLookupComboBox控件有关查询条件的设控件有关查询条件的设置与置与TDBLookup-ListBox控件相同。控件相同。返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.12 TDBCheckBox控件控件TDBCheckBox控件是把字段的值与预设的两个控件是把字段的值与预设的两个字符串比较，分

57、别由字符串比较，分别由ValueChecked属性和属性和ValueUnChecked属性指定。如果字段的值与属性指定。如果字段的值与ValueChecked属性指定的字符串相匹配，则选属性指定的字符串相匹配，则选中复选框。如果字段的值与中复选框。如果字段的值与ValueUnChecked属性指定的字符串相匹配，则不选中复选框。但属性指定的字符串相匹配，则不选中复选框。但这两个属性中的内容对逻辑字段本身是不起任何这两个属性中的内容对逻辑字段本身是不起任何作用的。作用的。 返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.13 TDBRadioGroup控件控件各控件属性设置控

58、件名属性属性值Table1DatabaseNameDBDEMOSTableNameCountry.dbActiveTrueDataSource1DataSetTable1DBNavigatorDatasourceDataSource1DelphiDelphi数据库编程数据库编程DBRadioGroup1DatasourceDataSource1DataFieldContinentCaption所在洲Items.Strings(AsiaSouth AmericaNorth America)DBGrid1DatasourceDataSource1BitBtnKindBkCloseDelphiDel

59、phi数据库编程数据库编程使用TDBRadioGroup控件的程序运行界面返回本节返回本节DelphiDelphi数据库编程数据库编程1.4.14 其他控件其他控件1TDBCtrlGrid控件控件2TDBRichEdit控件控件3TDBChart控件控件DelphiDelphi数据库编程数据库编程控件名属性属性值Table1DatabaseNameDBDEMOSTableNameanimal.dbActiveTrueDataSource1DataSetTable1DBNavigatorDatasourceDataSource1DBCtrlGrid1DatasourceDataSource1Ro

60、wCount2Label1CaptionName表6-16 各控件属性设置DelphiDelphi数据库编程数据库编程Label2CaptionSizeLabel3CaptionWeightDBImage1DataFieldBMPDatasourceDataSource1DBEdit1DataFieldNameDatasourceDataSource1DBEdit2DataFieldSizeDatasourceDataSource1DBEdit3DataFieldWeightDatasourceDataSource1BitBtnKindBkCloseDelphiDelphi数据库编程数据库编程图6-62 使用TDB