《数据库技术与应用》 讲义

1、 董密信息科学与工程系 数据库技术与应用 讲义2010 .09 Delphi 程序设计第六章 Delphi数据库应用开发精要Delphi数据库应用程序基础6.2Delphi数据库应用程序基础Query和Database组件使用ADO组件连接数据库6.36.46.5操纵表中字段6.6Delphi工程创建与管理6.1 Delphi 程序设计6.1 Delphi工程创建与管理6.1.16.1.26.1.3Delphi 工程项目的创建Delphi 工程项目属性的设置Delphi 工程项目的文件管理 Delphi 程序设计6.1.1 Delphi 工程项目的创建 Delphi 程序设计保存单元文件保存工

2、程文件 Delphi 程序设计6.1.2 Delphi 工程项目属性的设置 Delphi 程序设计工程图标窗体属性 Delphi 程序设计6.1.3 Delphi 工程项目的文件管理一个Delphi应用程序必须有一个工程文件和至少一个单元文件， Delphi应用程序的主要文件类型如下表： Delphi 程序设计文件类型扩展名说明工程文件.dpr记录工程项目中包含的单元文件、窗体文件以及应用程序初始化程序代码。文件由IDE自动维护。单元文件.pas给出了窗体和组件对象的事件处理方法，可由用户进行编辑操作窗体文件.dfm描述窗体和组件的属性，系统自动编辑该文件单元目标文件.dcu单元文件经过编译后

3、生成该文件资源文件.res保存着工程需要的位图、图标等资源，由IDE自动维护执行文件.exe由工程项目生成的可执行文件，经过编译、连接后自动创建该文件单元备份文件.pas单元文件的备份，由IDE自动维护工程备份文件.dpr工程文件的备份，由IDE自动维护窗体备份文件.dfm窗体文件的备份，由IDE自动维护 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计1.工程文件 project1example.dpr 打开工程文件 Delphi 程序设计打开后的工程文件 Delphi 程序设计2.单元文件 unitexample.pas Delphi 程序设计6.2.16.2.26.

4、2.3数据库的连接与访问数据库操作组件概述数据集组件Table6.2 Delphi数据库应用程序基础6.2.4数据源组件DataSource6.2.5数据控制组件DBGrid和DBNavigator Delphi 程序设计SQL LinkODBC驱动程序Report Smith驱动程序Report SmithBDE 配置程序Borland DataBase Engine BDE本地数据源dBase Paradox符合ODBC规范的DBMS如Access Btrieve 等等远程数据库远程数据源Sybase 等Oracle,SQL ServerDelphi IDE 创建一个Delphi 数据库应

5、用程序Delphi 数据库结构 Delphi 程序设计6.2.1 数据库的连接与访问数据库的连接数据库访问机制数据库连接控件Borland Database Engine(BDE)Tdatabase/通过BDE管理器ActivX Data Object (ADO)TADOConnectionDbExpressTSQLConnection Delphi 程序设计1）直接利用BDE连接SQL Server 数据库6.2.1 数据库的连接当前数据库别名别名参数 Delphi 程序设计 Delphi 程序设计参数设置新建立数据库别名 Delphi 程序设计参数保存选择新数据库别名 弹击鼠标右键 Del

6、phi 程序设计2 ）使用Database组件连接数据库Database组件的主要属性AliasName 指定所连接的数据库名DatabaseName指定数据库别名Connected连接数据库。Database组件的主要方法Close方法 Database组件的主要事件OnLogin事件 Delphi 程序设计Database1 Delphi 程序设计2）使用 TADOConnection Delphi 程序设计 Delphi 程序设计3）使用TSQLConnection连接数据库双击单击测试 Delphi 程序设计6.2.2 数据库的访问BDE（Borland Database Engine

7、）ADOdbExpress ODBC在建立好数据库连接的基础上，使用BDE数据集控件获得数据库中数据，然后以该数据为缓冲区对其中的数据进行操作。数据访问有四种： Delphi 程序设计1.使用BDE访问数据库用户界面元素BDE数据源数据源数据库数据集数据集数据库会话表单数据模型1) BDE的体系结构 Delphi 程序设计2)使用BDE管理器在BDE下安装的数据库驱动大体为三类： Delphi 标准Standard 驱动程序 SQL数据库驱动程序 ODBC驱动程序 Delphi 程序设计BDE管理器配置SQL Server 数据库参数设置 Delphi 程序设计 Delphi 程序设计3） B

8、DE数据库操作组件概述数据集组件基于BDE的数据集组件基于ADO的数据集组件数据源组件数据控制组件【例】 使用Delphi数据库向导，创建网格显示的数据库应用程序。 Delphi 程序设计4） BDE数据库程序开发技术组件关系与功能图 Delphi 程序设计数据集组件Table1）Table组件的主要属性 DatabaseName: 指明要访问的数据库名或本地数据库的路径 TableName:指定和组件相连的数据库中表名 Active:打开或关闭数据集 Filtered :确定对结果集是否进行过滤 Filter:该属性用来确定过滤条件Table1 Delphi 程序设计Table组件的主要方法

9、打开/关闭数据集procedure Open();procedure Close();改变数据集的当前记录procedure First(); procedure Prior();procedure Next();procedure Last();function MoveBy(Distance: integer): integer;定位一条指定记录function Locate(const KeyFields:string;const KeyValues:Variant; Option:TLocateOption):boolean;搜索多条特定记录function Lookup(const

10、KeyFields:string;const KeyValues:Variant; const ResultFields:string):Variant; Delphi 程序设计3） Table组件的主要事件Table组件可以响应的事件大致分为三类： Before+操作名，After+操作名和On+操作名BeforeOpen,AfterOpen发生在数据集打开前后BeforeClose,AfterClose发生在数据集关闭前后BeforeInsert,AfterInsert发生在插入一条新的记录前后BeforeEdit,AfterEdit发生在进入dsEdit状态前后BeforePost,Af

11、terPost发生在写数据集的前后BeforeCancel,AfterCancel发生在取消修改的前后BeforeDelete,AfterDelete发生在删除记录的前后OnNewRecord发生在创建新记录时，用于设置缺省值OnCalcFields发生在计算字段进行计算时 Delphi 程序设计数据源组件DataSourceDataSource组件的主要属性DataSet指定为其提供数据的数据集组件，如Table、QueryDataSource组件的主要方法DataSource组件的主要事件OnDataChange当修改字段内容或记录指针移动时触发。OnUpdateData当关系表中当前的记

12、录被更新时触发 Delphi 程序设计数据控制组件DBGrid和DBNavigator数据控制组件的共同属性DataSource指定连接的数据源组件Enabled组件是否有效。ReadOnly指定是否可编辑。DBGrid组件Columns设置需要显示的字段及其属性DBNavigator组件DBGride1 DBNavigator1 Delphi 程序设计DBGridDatasourceTable数据控制组件 Delphi 程序设计Table1 Delphi 程序设计确定组件连接的数据库表名指定数据库名打开与数据集的连接 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 D

13、elphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计2.使用ODBC访问数据库 ODBC(Open Database Connectivity) 由微软公司提出的一个用于访问数据库的统一界面标准，ODBC是基于结构化查询语言（SQL），如果在 ODBC中建立了一个DSN(数据源名)连接，那么Delphi程序还是需要使用BDE来连接它，BDE将ODBC中所有的别名自动在BDE中建立相同名称的别名，并且它是删不掉的，除非你删掉ODBC的DSN。这种方式实际上是通过BDE，再通过ODBC，才连接到数据库。 大型关系数据库都提供ODBC驱动。在建立ODBC源时，

14、都会调用本身的配置，不同的数据库也是不同的。 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计连接SQLServer 数据库设置ODBC数据源 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计设置数据库引擎 Delphi 程序设计修改参数 Delphi 程序设计保存参数 Delphi 程序设计建立连接(Tdatabase)设置Database Delphi 程序设计设置DBGrid Delphi 程序设计设置DataSource Delphi 程序设计设置Query Delphi 程序设计处于打开状态 Delphi 程序设计 Delphi 程序设计使

15、用ADO访问数据库无需BDE Delphi 程序设计 ADO（ActiveX Data Objects）是Microsoft公司提供的访问数据库的一套组件，其底层为OLE DB。ADO是Microsoft公司近年来所提出的数据访问策略之一。 Delphi 程序设计微软的几种数据访问策略如下。（1）UDA（2）ODBC（3） RDO（4）Jet Delphi 程序设计（5）DAO（6）ODBCDirect（7） OLE DB（8）ADO（9）RDS（10）MDAC Delphi 程序设计ADO (ActiveX Data Objects)对象使用ADOConnection 组件建立数据库的连接

16、Delphi 程序设计有以下几点需要注意。（1）如果将所有的组件放入DataMoudle中，而在其他单元中，如果要使用所定义的ADOConnection，必须使用USE语句引入DataMoudle单元，否则无法实现关联引用。（2）把数据规则定义在同一模块中是一种好的编程习惯，不但方便使用和维护，而且便于以后程序的扩充，很容易迁移到三层或多层应用。所以建议将使用到的组件 。 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计（1）建立ADO连接的参数保存在程

17、序的配置文件gxgl.ini中 。（2）在应用程序中，创建Database前使用下面的代码将gxgl.ini中数据库选项的内容读取到Database的参数列表中，实现应用程序与实际数据库的代码隔离。动态建立ADO连接（自学） Delphi 程序设计注意事项 （1）以上代码假设ADOConnection在DataMoudle中创建，并且DataMoudle的名字为DMData（2）由于使用了TiniFile对象，需要在声明中引入inifiles，即使用uses语句声明inifiles。 Delphi 程序设计（3）由于使用了Application对象，需要在声明中引入Forms。（4）对于the

18、Ini，在本例中作为全局变量，要求系统启动时首先创建theIni，例如，可在DMData的initialization初始化模块中建立；在系统退出时要释放，例如，在DMData的finalization模块中执行FreeanNil(theIni)。 Delphi 程序设计dbExpress 1 dbExpress组件 在组件面板dbExpress页上集成了访问和管理dbExpress数据集的VCL组件。 Delphi 程序设计2 使用dbExpress创建数据库应用程序 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 De

19、lphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计 Delphi 程序设计采用dbExpress也能够实现数据的双向浏览和修改保存，1. 通过组件TSimpleDataSet来实现2. 使用TSQLDataSet搭配TDataSetProvider和TClientDataSet组件来实现 Delphi 程序设计6.3 操纵表中字段6.3.16.3.2字段对象操纵字段的数据控制组件 Delp

20、hi 程序设计6.3.1 字段对象双击永久字段对象1.创建永久的字段对象 Delphi 程序设计 Delphi 程序设计2.引用字段对象通过字段对象名引用永久的字段对象Table1Capital.DisplayLabel:= 首都;通过Fields属性的数组元素引用字段对象Table1.Fields0.DisplayLabel:= 国家;通过表中的字段名引用字段对象Table1.FieldByName(Capital).DisplayLabel:= 首都;3.自定义字段对象创建字段对象为DBGrid添加字段对象 Delphi 程序设计6.3.2 操纵字段的数据控制组件DBText 字段标签DBEdit 字段编辑框DBMemo 字段多行文本编辑框DBImage 字段图像组件DBListBox 字段列表框DBComboBox 字段组合框DBCheckBox 字段复选框DBRadioGroup 字段单选按钮组DBLookUpListBox 字段查询列表框DBLookUpComboBox 字段查询组