1、Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)主 編 李俊平第十三章 數(shù)據(jù)庫(kù)編程 本章內(nèi)容 Delphi自帶數(shù)據(jù)庫(kù)的使用 利用Form Wizard進(jìn)行簡(jiǎn)單數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā) 基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā) 基于ADO的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā) 基于dbExpress的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.1 Delphi自帶數(shù)據(jù)庫(kù)Delphi包含一個(gè)桌面數(shù)據(jù)庫(kù)工具Database Desktop，利用它可以創(chuàng)建基于文件的數(shù)據(jù)庫(kù)系統(tǒng)（如dBase、Paradox、Foxpro等）?？梢赃x擇“Database Desktop”菜單項(xiàng)啟動(dòng)該工具。下一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十

2、三章 數(shù)據(jù)庫(kù)編程13.2 Form WizardDelphi中提供了一個(gè)簡(jiǎn)單的數(shù)據(jù)庫(kù)應(yīng)用程序向?qū)В?即Form Wizard。利用該向?qū)В梢詣?chuàng)建一個(gè)簡(jiǎn)單的數(shù)據(jù)庫(kù)應(yīng)用程序，實(shí)現(xiàn)數(shù)據(jù)的瀏覽和簡(jiǎn)單操作。在該向?qū)е锌梢赃x擇數(shù)據(jù)集為Table或者Query、建立單窗體或者主/從窗體，還可以選擇窗體的布局方式。下一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.3 基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)13.3.1 BDE（Borland Database Engine）是Borland公司開(kāi)發(fā)的數(shù)據(jù)庫(kù)引擎，用于操作不同的數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序。開(kāi)發(fā)人員只需要以統(tǒng)一的方式和數(shù)據(jù)庫(kù)引擎建立聯(lián)系，就能訪問(wèn)不同的

3、數(shù)據(jù)庫(kù)。可以大大簡(jiǎn)化數(shù)據(jù)庫(kù)應(yīng)用程序的開(kāi)發(fā)。在使用前，需要在BDE Administrator中配置BDE，建立數(shù)據(jù)庫(kù)別名。下一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.3基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)13.3.2 基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序結(jié)構(gòu)數(shù)據(jù)控制組件（DBGrid、DBEdit等）數(shù)據(jù)源組件（DataSource）BDE數(shù)據(jù)集組件（Table、Query等）DB下一頁(yè)上一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.3基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)13.3.3 利用Table組件開(kāi)發(fā)（1）1. 使用Table、DataSource、DBGridTable作

4、為數(shù)據(jù)集組件，其作用是連接數(shù)據(jù)庫(kù)中的一張表，因此，需要依次設(shè)置其DatabaseName 屬性（BDE中的別名）、TableName屬性；DataSource是數(shù)據(jù)源組件，通常需要設(shè)置其DataSet屬性；DBGrid為數(shù)據(jù)顯示組件，通常需要設(shè)置其DataSource屬性。例13-1和例13-2下一頁(yè)上一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.3基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)13.3.4 利用Table組件開(kāi)發(fā)（2）除了直接利用組件訪問(wèn)數(shù)據(jù)庫(kù)，實(shí)現(xiàn)數(shù)據(jù)的基本瀏覽和操縱功能，還可以利用Table組件提供的相關(guān)方法。例13-3、13-4、13-5、13-6、13-7下一頁(yè)上一頁(yè)

5、返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.3基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)13.3.5 利用Query組件開(kāi)發(fā)（1）Query組件的作用是使用SQL命令對(duì)數(shù)據(jù)庫(kù)進(jìn)行訪問(wèn)。它也屬于數(shù)據(jù)集組件，通常需要設(shè)置其DatabaseName屬性和SQL屬性。SQL屬性的設(shè)置可以在設(shè)計(jì)期間在對(duì)象觀察器中進(jìn)行設(shè)置，也可以在代碼中動(dòng)態(tài)設(shè)置。例13-9下一頁(yè)上一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.3基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)13.3.6 利用Query組件開(kāi)發(fā)（2）在代碼中對(duì)Query的SQL進(jìn)行動(dòng)態(tài)編程通常需要如下步驟：Query1.Close; Query1.SQL

6、.Clear;Query1.SQL.Add(此處為SQL語(yǔ)句); Query1.Open/ExecSQL;其中，SQL命令有返回結(jié)果集就使用Open方法打開(kāi)數(shù)據(jù)集，否則使用ExecSQL方法。例13-10、13-11下一頁(yè)上一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.3 基于BDE的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)13.3.7 利用Query組件開(kāi)發(fā)（3）如果Query執(zhí)行的SQL命令中包含參數(shù)， 則使用“：參數(shù)名”的形式。然后使用ParamByName或者Params方式為參數(shù)賦值。例13-12下一頁(yè)上一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.4 基于ADO的數(shù)據(jù)庫(kù)應(yīng)

7、用程序開(kāi)發(fā)基于ADO的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)的常用步驟如下：1. 利用ADOConnection組件建立與數(shù)據(jù)庫(kù)的連接；2. 設(shè)置ADO的數(shù)據(jù)集組件，如ADOTable、ADOQuery等，用于從數(shù)據(jù)庫(kù)中引入數(shù)據(jù)；3. 設(shè)置DataSource組件作為數(shù)據(jù)集組件和數(shù)據(jù)訪問(wèn)組件之間的橋梁；4. 利用數(shù)據(jù)訪問(wèn)組件或其他組件設(shè)計(jì)用戶界面。例13-13下一頁(yè)上一頁(yè)返回Delphi面向?qū)ο蟪绦蛟O(shè)計(jì)第十三章 數(shù)據(jù)庫(kù)編程13.5 基于dbExpress的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)基于dbExpress的數(shù)據(jù)庫(kù)應(yīng)用程序開(kāi)發(fā)的常用步驟如下：1. 利用SQLConnection組件建立與數(shù)據(jù)庫(kù)的連接；2. 設(shè)置SQLDataSet等數(shù)據(jù)集組件，用于從數(shù)據(jù)庫(kù)中引 入數(shù)據(jù)；3. 設(shè)置DataSetProvider組件的DataSet屬性為SQLDataSet；設(shè)置ClientDataSet的