《数据库应用程序》PPT课件.ppt

数据库应用程序 9.1 Delphi的数据库访问机制 9.2 数据库程序向导 9.3 数据库资源管理器 9.4 常用的数据库控制组件 9.5 Database Desktop的使用 退出退出 9.1 Delphi的数据库访问机制 9.1.1 数据库的基本概念 所谓数据库（database）是指一些表格（table） 的集合，而表格是由一组相关联的记录（record）组 成的。一个记录有许多的属性（attribute）组成，其 中的一个属性可用来区分不同的记录，这个属性就是 关键值（key）属性。 在微机中，通常一个文件就是一个表格，如在 xBASE中的一个表格就是一个.DBF文件。因此，在 xBASE中,数据库是指一些小型的数据库系统，也就是 一个文件即为一个数据库（表格）的系统；而在SQL Server数据库系统中是指一个数据库中可以包含许多 表格及其它对象的系统，功能大于xBASE数据库系统， 如图9-1所示。 9.1.2 Borland数据库引擎(BDE) Borland数据库引擎(BDE)是32位的基于Windows的 核心数据库引擎，是一个存取数据的中间层（ middleware layer）。BDE对开发客户/服务器应用程 序提供了丰富的支持。 1. BDE的体系结构 BDE数据库驱动程序体系结构包括许多共享的服务 实用程序（数据库驱动程序和其它函数）。使用数据 库驱动程序可一致地存取标准的数据源：Paradox、 dBASE及文本数据库。也可将Microsoft ODBC驱动程序 作为内置的ODBC插槽。Borland的SQL Links产品提供 对SQL Server广泛的存取，包括InterBase、Oracle及 Sybase。因此，编程者可以直接、明了、共享地存取 多个数据源。 2. 面向对象 BDE在设计时是面向对象的，在运行时，应用程序 可以建立各种BDE对象。这些运行时的对象可用来维护 数据库实体：像数据表等。 3. Delphi数据库结构 Delphi数据库控制组件包括两类： 数据存取控制组件：负责连接数据库本身，不 包含数据的显示与输入 数据显示控制组件：提供建立用户界面的基本 组件，用于显示与输入数据 所有的数据控制组件都是通过存取数据的中间层 BDE，对数据进行存取的。所有的Borland数据库产品 ，除Paradox for DOS及dBASE for DOS外，都是以BDE 为中间层的。这样可以保证共享数据库中的数据、方 便数据的存取、允许对不同平台上的不同数据库进行 操作、便于移植程序。 Borland数据库引擎中引入了“数据来源”（Data source）的概念。其作用是在数据存取组件与数据显 示组件之间的一个中介，从而可以在程序执行时将数 据存取组件与数据显示组件独立分开操作、切换。如 图9-2所示。 在理解了BDE与数据来源的概念后 ，就可通过图9-3来理解Delphi的数据库 结构。 9.2 数据库程序向导 最容易产生数据库程序的工具就是使用数据库窗 体向导（Database Form Wizard）。数据库窗体向导 可以建立两类的数据库程序： 简单的数据库程序 主/明细数据库程序 数据库窗体向导可以将窗体与Table及Query组件 连接起来；编写Query组件的SQL语句；将交互的与非 交互的组件添加到窗体上；定义Tab键顺序；将 DataSource组件与交互组件及Table/Query组件连接起 来。 启动数据库窗体向导使用Database|Form Wizard 命令。启动后的画面如图9-4所示。 根据数据库程序向导，设定一些信息：建立简单 的表格窗口还是两种以上的主/明细表格窗口；做数据 输入的表格窗口还是查询的表格窗口；选择数据库及 显示的数据库字段，最后数据库窗体向导就会自动生 成数据库程序的窗体，并产生相应的应用程序。如图9 -5所示。 9.3 数据库资源管理器 数据库资源管理器可以显示数据库、数据表及字 段的层次图，以便浏览和修改数据对象的结构和内容 。 启动数据库资源管理器，使用的命令为Database| Explorer，数据库资源管理器启动后的画面如图9-8所 示。 数据库资源管理器的左边为一个对象浏览器，用 来显示数据库或数据路径对象的层次图；右边用来显 示左边中选定对象的相关内容，包括对象的定义、对 象概要、数据等，还可以使用SQL语句进行查询。 将数据库资源管理器中的对象Table或Field拖动 到集成开发环境的窗体中，就可自动创立相应窗体的 对象。如将一数据表拖动到窗体时，可以生成已相关 联好Table、DataSource、DBGrid等组件。 9.4 常用的数据库控制组件 9.4.1 Table组件 Table组件在BDE页标签上。 Table组件通过Borland数据库引擎（BDE）实现对 数据库表格的存取。它是数据库引擎与DataSource组 件的界面。 DatabaseName属性可以指定要存取的数据库； TableName属性指定要存取的数据表；设置ReadOnly属 性为True，则只能查看数据表的内容；设置Exclusive 属性为True，则以独占方式打开数据表；若要与索引 文件一同使用数据表，使用 IndexName属性；使用 MasterFields和MasterSource属性建立对主数据表的 连接。调用GotoCurrent方法将光标移动到与该数据表 相同数据库中的另一数据表table中相同位置。 设置属性Active为True或调用Open方法，以浏览 方式打开数据表；设置Active属性为False或调用 Close方法可关闭数据表；调用First、Next、Prior、 Last及MoveBy方法在数据表中移动；调用SetKey、 FindKey、FindNearest、GotoKey和、GotoNearest 方 法进行数据库查找。 BOF及EOF属性，用来确定光标是否到达数据表开 始及结束；调用Append、Insert、AppendRecord或 InsertRecord方法可增加记录；调用Delete方法可删 除当前的记录；调用Edit方法，允许应用程序修改数 据表中的记录、Post将变化送到数据库中、Cancel则 放弃修改。 使用EditRangeStart、EditRangeEnd、 SetRangeStart、SetRangeEnd、ApplyRange及 SetRange方法可以限制返回到应用程序的记录范围， 而调用CancelRange方法则取消这些限制。 1. Table组件的属性 Active属性 该属性为布尔型。设置为True，则以浏览方式打 开数据库；设置为False，则关闭数据库。改变Active 属性的值与调用Open或Close方法是等同的。 AutoCalcFields属性 该属性为布尔型，它确定何时调用OnCalcFields 事件来更新计算字段的值。若AutoCalcFields设置为 True，则自动更新计算字段的值，默认为False。 CachedUpdates属性 该属性为布尔型，表示是否可更新缓存。若可更 新缓存，则使用缓存替代写到数据集中。可以调用 ApplyUpdates方法应用于所有更新。在更新缓存期间 ，设置CachedUpdates为False将放弃更新。 DatabaseName属性 DatabaseName属性指定要存取的数据库。可指定 ： 定义的BDE别名 桌面数据库文件的路径名 本地InterBase服务器数据库的路径及文件 由Database组件定义的应用程序特殊别名 在改变DatabaseName属性前，使用Close方法关闭 数据集。 Exclusive属性 该属性为布尔型(对Paradox或dBASE数据库有效) ，设置为True时，可以防止其它用户存取该数据表（ 独占方式使用）。若在你打开数据表时，其他的用户 正在存取该数据表，则意外处理程序将等待这些用户 释放要打开的数据表。若应用程序中没有提供意外处 理程序时，则终止应用程序的运行。 在改变Exclusive属性前，设置Active属性为 False，以防止出现意外。 不要在对象编辑器中设置Active和Exclusive属性 为True。 Filter属性 该属性为字符串型，可用来指定要在数据集中查 看的记录。筛选与查询（queries）是类似的，但功能 低于后者。改变Filtered属性可以开关Filter属性。 筛选字符串的语法与SQL语句中WHERE子句的语法 是非常类似的。 Filtered属性 该属性为布尔型，用来关闭由Filter属性和 OnFilterRecord事件提供的筛选。若设置为True，则 符合筛选条件的记录出现；若设置为False，则数据集 中的所有记录是可见的（除去以独占方式使用的记录 ）。 FilterOptions属性 FilterOptions 可用来更好地调整由Filter属性 提供的筛选，如是否区分大小写等。 IndexFieldNames属性 该属性为字符串型，用于SQL服务器中指定该组件 的索引列。索引列之间用“;”分开，若列名太多或名 字太长（超过255个字符的限制），可使用列号代替列 名。 注意：IndexFieldNames属性与IndexName属性是 互斥的，设置一个将清除另一个。 IndexFiles属性 IndexFiles属性为包含dBASE数据表索引的文件名 。使用TStrings的Add、Insert、Delete, 和Clear方 法可以添加、插入、删除及清除索引文件名。 在索引打开时，更新可维护索引。设置IndexName属 性可以激活一个索引。调用Delete或Clear方法删除索 引文件名时，该组件将关闭这些索引文件，并不再保 持更新。 IndexName属性 该属性为字符串型，用来对该组件指定辅助索引 。若没有给IndexName属性赋值，则使用数据表的主索 引。 对dBASE数据库，索引必须在数据表的主索引文件 中。主索引文件是由TableName属性确定的，其后缀为 .MDX。 MasterFields属性 该属性为字符串型，用来指定由MasterSource属 性确定的主数据表与明细数据表连接的字段。该属性 中可包含一个或多个两个要连接的数据表字段名，字 段名之间用字段号分开。每次主数据表中的当前记录 发生变化，这些字段中的值相对于明细数据表中用于 显示的记录就被选定。在设计时，使用字段连接设计 器来设置该属性。 MasterSource属性 当将明细数据表与主数据表连接时，使用该属性 指定DataSource（该组件将从主数据表获取数据的数 据源）。 ReadOnly属性 该属性为布尔型，用于防止用户修改数据表中的 数据。 注意：在修改ReadOnly属性前，设置Active属性 为False。 SessionName属性 该属性为字符串型，用来唯一地识别该数据集要 使用的会话组件。支持的SessionName必须与一些建立 的Session组件的SessionName或空的字符串（默认的 会话）相匹配。在需要时，数据集打开会话，自动获 得所有设置会话的属性。 TableName属性 TableName属性为该组件连接的数据库表的名称。 注意：要改变该属性必须关闭该组件。 TableType属性 TableType属性指定数据库表的类型。对SQL表不 适用。 若TableType属性设置为Default，则文件名的后 缀确定数据表的类型： .DB或没有后缀：Paradox数据表 .DBF：dBASE数据表 .TXT：ASCII数据表 若TableType的值不是Default，则数据表总是具 有该属性指定的类型，与文件的后缀无关: ttASCII：文本文件 ttDBase：dBASE数据表 ttFoxPro：FoxPro数据表 ttParadox：Paradox数据表 UpdateMode属性 UpdateMode属性确定在SQL数据库更新记录时， Delphi如何查找记录。该属性对于多用户环境是相当 重要的（可避免冲突）。 当用户要更新时，Delphi使用记录中的原始值去 查找数据库中的记录。UpdateMode属性指定Delphi用 于查找记录的字段。在SQL术语中，UpdateMode属性指 定哪一字段包含在UPDATE语句的WHERE子句中。若 Delphi不能找到指定字段中的原始值（若其它用户做 了修改），则不做更新，产生意外处理。 2. Table组件的事件 Table组件有关数据表操作的事件有： AfterCancel、AfterPost、BeforeOpen、AfterClose 、BeforeCancel、BeforePost、AfterDelete、 BeforeClose、OnCalcFields、AfterEdit、 BeforeDelete、OnNewRecord、AfterInsert、 BeforeEdit、AfterOpen、BeforeInsert等。 9.4.2 Database组件 Database组件在BDE页标签上。 Database组件对数据库的存取是不需要的，但它 提供对客户/服务器应用程序是重要的附加控制因素。 当应用程序登录到一个远程服务器上的数据库时，可 用该组件来建立程序和数据库的永久连接。 DatabaseName是数据集组件连接的数据库名。换 句话来说，这是由该组件定义的本地别名，并显示在 数据集组件中的DatabaseName下拉列表中。 AliasName是用BDE配置程序定义的BDE别名。它是 数据库组件获取默认参数设置的地方。若设置 DriverName属性，则清除该属性。Params属性中包含 有别名的连接参数。 DriverName为BDE驱动程序的名字，如STANDARD（ 用于dBASE及Paradox）、ORACLE、SYBASE、INFORMIX 或INTERBASE。若设置AliasName属性（指定驱动程序 的类型），则清除该属性。 DataSets属性是引用该组件中激活数据集的数组 ；DatasetCount属性指定激活数据集的数量。 设置Connected属性打开或关闭数据库；设置 KeepConnection为True可以避免在每次打开数据库时 登录到服务器上；设置LoginPrompt为True，当登录到 数据库服务器上时，总是提示用户名和口令。 Database组件可以控制服务器的事务，调用 StartTransaction方法开始事务、RollBack放弃事务 、或Commit立即修改；TransIsolation属性指定服务 器上请求事务的隔离级。 1. Database组件的属性 AliasName属性 AliasName属性为在BDE配置程序中定义的BDE别名 。是Database组件获取默认参数设置的地方。当设置 DriverName属性时，就清除该属性。 Connected属性 该属性为布尔型，它表示该组件是否建立与数据 库的连接。当应用程序打开数据库中的数据表时（若 必要时，登录到服务器上），Connected将设置为True ；当关闭数据表时（除非KeepConnection为True）， 该属性设置为False。将Connected设置为True，可在 不打开数据表的情况下建立数据库的连接；设置为 False将关闭连接。 DatabaseName属性 设置DatabaseName属性可以定义应用程序指定的 别名，数据库组件可引用这一别名来替换BDE别名、路 径、或数据名。换句话说，这里定义的别名将显示在 Table、Query及StoredProc组件的数据库名的下拉列 表中。 若要设置Connected为True的数据库组件的 DatabaseName属性，则出现意外。 DriverName属性 DriverName属性为BDE驱动程序的名字，如 STANDARD（用于dBASE及Paradox）、ORACLE、SYBASE 、NFORMIX或INTERBASE。若设置AliasName属性（指定 驱动程序的类型），则清除该属性的值。相反，设置 该属性也将清除AliasName属性。 若要设置Connected为True的数据库组件的 DriverName属性，则出现意外。 KeepConnection属性 该属性为布尔型，它指定即使没有打开的数据表 时，应用程序是否保持对数据库服务器的连接。若应 用程序需要在单个的数据库中打开及关闭数个数据， 设置KeepConnection属性的值为True将是必要的。这 时，即使没有任何打开的数据表，应用将保持与数据 库的连接。若KeepConnection为False，则数据库每次 必须重复地登录到服务器上。 LoginPrompt属性 该属性为布尔型，用于处理SQL数据库的安全问题 。 若为True（默认值），当应用程序要建立数据库 连接时，则打开标准的Delphi登录对话框。若要连接 服务器上的数据库，必须输入适当的用户名及口令。 若为False，则应用程序将在数据库组件的Params 属性中查找登录参数。这些参数为USERNAME及 PASSWORD参数，例如： USERNAME = LXPZQH PASSWORD = detailkey 一般不这样使用这种方法，因为它妨碍服务器的 安全性。 Params属性 Params属性存放在SQL服务器上打开数据库需要的 参数。默认时，这些参数在BDE配置程序中指定。在数 据库参数编辑器中可以定制应用程序指定别名的这些 参数。 对数据库桌面，Params属性只指定数据库的路径 。对服务器数据库，Params将指定各种参数，包括服 务器名、数据库名、用户名及口令等。 SessionName属性 该属性为字符串型，用来唯一地识别要数据库使 用的会话组件。提供的SessionName属性必须与一些自 己建立的Session组件的SessionName属性相匹配或为 空的字符串（默认的会话）。当需要时，数据库组件 可自动地打开会话，自动地获取所有的会话属性设置 。 2. Database组件的事件 Database组件主要是OnLogin，用来设置登录参数 。 9.4.3 DBEdit组件 DBEdit组件在数据控制页标签上。 DBEdit组件为具有所有普通编辑框（Edit）能力 的数据控件编辑框。 与普通编辑框不同，可以使用数据库编辑框输入 数据到字段中或显示数据集中的数据字段。通过指定 数据源DataSource属性，连接数据编辑框与数据集。 使用DataField属性确定要存取的字段。 通过检查Modified属性的值，应用程序可以检查 显示的文本是否修改过。要限制用户输入到编辑框中 的字符数，使用MaxLength属性。 设置ReadOnly属性为True，可以防止用户修改字 段的内容。 使用AutoSelect属性可以使当激活该组件时，自 动选定编辑框中的文本。在运行时，可以调用 SelectAll方法选定编辑框中的所有文本。使用 SelText属性可以找出在编辑框中用户选定或替代的文 本。调用ClearSelection方法可清除选定的文本。使 用SelStart及SelLength属性可以只选定文本的部分或 找出选定的文本部分。 调用CutToClipboard、CopyToClipboard及 PasteFromClipboard方法可以复制、剪切及粘贴 编辑框中的文本。 应用程序可以使用编辑框显示指定的字符，而不 是输入的字符。这在输入口令时是很有用的。指定显 示的字符使用PasswordChar属性。 若要编辑框根据字形的大小自动调整大小，使用 AutoSize属性。 若应用程序不需要DBEdit数据控件的能力，使用 Edit组件以节省系统资源。 1. DBEdit组件的属性 DataField属性 该属性为字符串型，用来识别数据控件显示数据 的字段。数据集中的字段在指定的数据源组件中（ DataSource）。 若数据库编辑框（DBEdit）的DataField值为整型 的或浮点的，则只有有效的字符可以输入。 DataSource属性 DataSource属性确定该组件获取显示数据的位置 。 2. DBEdit组件的事件 DBEdit组件的事件有OnChange、OnEndDrag、 OnKeyUp、OnClick、OnEnter、OnMouseDown、 OnDblClick、OnExit、OnMouseMove、OnDragDrop、 OnKeyDown、OnMouseUp、OnDragOver、OnKeyPress、 OnStartDrag等。 9.5 Database Desktop的使用 Database Desktop是Delphi所提供的数据库管理 工具。使用它可以建立数据表格，查询、输入、修改 、删除数据表格中的数据。Database Desktop可以使 用各种不同类型的数据库。 9.5.1 Database Desktop窗口 1. Database Desktop的启动 启动Database Desktop可使用下列方法之一： 使用开始按钮 在Windows 95/98/2000/NT中使用开始|程序 |Borland Delphi 6|Database Desktop来启动 Database Desktop。 Database Desktop启动后的窗口如图9-9所示。 使用Delphi中的菜单命令 在Delphi中选择Tools|Database Desktop命令启动 Database Desktop。 Database Desktop启动后的窗口如图9-9所示。 在Database Desktop中可以对数据库进行各种形式 的操作。这些操作一般都可用于应用程序当中，只是 方法和过程不同而已。在本节中介绍一些一般的数据 操作。 2. 路径设定 路径设定包括用于工作组的公共路径和用于个人 的工作路径。 公共路径设定 在Database Desktop中选择File|Working Directory 命令，弹出的对话框如图9-10所示。 在该对话框中的Working Directory(工作目录)文本 框中输入或使用Browse(浏览)按钮选择工作目录。 使用浏览按钮弹出的对话框如图9-11所示。 个人工作路径设定 在Database Desktop中选择File|Private Directory 命令，弹出的对话框如图9-12所示。 在该对话框中的Private Directory(个人工作目录) 文本框中输入或使用Browse(浏览)按钮选择工作目录 。 使用浏览按钮弹出的对话框如图9-11所示。 3. Database Desktop窗口说明 Database Desktop窗口中包含有五个菜单项，他们 分别为： File菜单 File菜单完成三种类型的文件(QBE文件、SQL文 件和数据表文件)的管理及工作目录的设定。 Edit菜单 Edit菜单完成编辑处理、环境设定等工作。 Tools菜单 Tools菜单完成别名、数据表、密码的管理工作。 Windows菜单 Windows菜单完成窗口的管理工作。 Help菜单 Help菜单完成帮助工作。 在新建或打开了数据表后，系统自动增加三个菜 单：View、Table和Record。 View菜单 View菜单用来浏览数据表 Table菜单 Table菜单用来对数据表格进行处理，如修改结构 、建立索引等。 Record菜单 Record菜单只有当数据输入窗口出现时才会出现 ，用来对记录进行操作，如增加记录、修改记录、移 动记录指针等。 9.5.2 建立数据表 1. 建立数据表的一般过程 Delphi具有完整的数据库支持功能，它可以直接 或通过ODBC操作dBASE、FoxBASE、PARADOX、 ACCESS、FoxPro等本地数据库，也可通过SQLLinks 或ODBC支持ORACLE、Informix、Sybase、SQL Server、DB2等远程数据库。 建立数据表，采用下面的操作过程： 第1步：选择File|New|Table菜单命令，这时弹出的 对话框如图9-13所示。 第2步：在建立表格对话框中选择建立表格的类型 。 默认的表格类型为Paradox 7。可根据需要进行选择。 第3步：建立表格内容。 该步骤的操作与所选择的表格类型有关，参考后 面的详细说明。 第4步：选择另存为按钮，弹出如图9-14所示的保 存表对话框。 2. Delphi支持的数据库类型及数据类型 Delphi支持的数据库类型很多，不同类型的数据库 其数据类型也是不同的。 PARADOX 7 在PARADOX 7中允许的数据类型有： Alpha Number $(Money) Short Integer Long Integer #(DCD)Date Time (Time Stamp)Memo Formated Memo Graphic OLE Logic +(Auto Increment) Binary Bytes PARADOX 5.0 for Windows 在PARADOX 5.0 for Windows中允许的数据类型 与PARADOX 7相同。 PARADOX 4 在PARADOX 4中允许的数据类型有： Alpha Number $(Money) Short Integer Date Memo Formated Memo Graphic OLE Binary PARADOX 3.5 在PARADOX 3.5中允许的数据类型有： Alpha Number $(Money) Short Integer Date Visual dBASE 在Visual dBASE中允许的数据类型有： Character Float Number Date LogicalMemo OLE Binary dBASE for Windows 在dBASE for Windows中允许的数据类型与Visual dBASE相同。 dBASE 在dBASE 中允许的数据类型有： Character Float Number Date Logical Memo dBASE + 在dBASE +中允许的数据类型有： Character Number Date Logical Memo INTRBASE 在INTRBASE中允许的数据类型有： Short Long Float Double Char VarChar Date Blob Array Text Blob 通过ODBC联结的数据库所允许的数据类型有 ： VarChar Char Decimal Numberic SmallInt IntegerReal Float DoubleLong VarChar Bit TinyInt BigIntVarBinary LongVarBianary Date Time TimeStampMoney 3. 建立dBASE表 在建立表的一般过程中，选择建立dBASE +类 型的数据库后，就会弹出如图9-15所示的对话框。 在该对话框的左边是数据库字段的输入区，包括 字段名(File Name)、数据类型(Type)、长度(Size)和小 数点后的位数(Decimal)，输入的方法与dBASE基本相 同。当在数据类型字段上按空格键就会出现选择数据 类型的菜单，如图9-16所示。 在建立数据表对话框的右边是表的属性区，包括 Index和Tabel Language，分别用来设定数据库的索引 和数据库所支持的语言字符集。 建立索引 建立数据库的索引使用下面的操作过程： 第1步：在建立数据表对话框右边的Table properties列表框中选择Indexes选项。 第2步：选择建立数据表对话框右边的Define按钮 ，这时弹出定义索引对话框，如图9-17所示。 第3步：选择建立索引的字段。 在定义索引对话框左边的字段列表框中，可用于 建立索引的字段正常显示，不能用于建立索引的字段 是灰色的。 在字段列表框中选择一个字段，该字段名会出现 在Indexed Filed文本框中。 第4步：选择确定按钮。这时出现如图9-18所示的 对话框，要求输入索引文件名。 若要建立复合索引的话，单击索引对话框的 Expression Index按钮，在弹出的文本框中输入复合索 引表达式，然后在SubSetCondition (Filter) Expression 中添上索引条件即可。在保存复合索引文件时，可以 定义索引的标识名。 设定数据库语言字符集 在定义索引对话框的Table Properties列表框中选 择Table Language，然后选择Modify按钮，会弹出如 图9-19所示的对话框，从中可以选择所需要的语言驱 动程序类型。 在Delphi中支持Windows所支持的大部分语言。 4. 建立PARADOX表 PARADOX表的建立方法与dBASE表的建立过程 基本上是类似的。 建立PARADOX表的对话框如图9-20所示。 5. 建立INTRBASE表 INTRBASE表的建立方法与dBASE表的建立过程 基本上是类似的。 建立INTRBASE表的对话框如图9-21所示。 9.5.3 查看数据表 在Database Desktop中提供了3种数据查询方式： Database Desktop数据浏览、SQL