3.Lazarus 和 FireBird

Firebird 是一款開(kāi)源的免費(fèi)數(shù)據(jù)庫(kù)服務(wù)器，它是在 Borland 開(kāi)源的 Interbase 6 數(shù)據(jù)庫(kù)基礎(chǔ)上開(kāi)發(fā)的，已經(jīng)使用和開(kāi)發(fā)了幾十年。它包括對(duì)SQL語(yǔ)句（例如 INSERT…RETURNING ）、存儲(chǔ)過(guò)程、觸發(fā)器等的豐富支持。如果想擴(kuò)展 Firebird 已經(jīng)很廣泛的函數(shù)列表，可以在 FreePascal 中為服務(wù)器編寫已編譯的UDF（用戶定義函數(shù)）庫(kù)。

Firebird 數(shù)據(jù)庫(kù)一旦建立，只需要很少的DBA手工工作，非常適合小型企業(yè)使用或嵌入式使用。如果進(jìn)行適當(dāng)?shù)恼{(diào)整，它可以擴(kuò)展到TB級(jí)，雖然 PostgreSQL 可能是這種大型環(huán)境的更好選擇。

Firebird 提供嵌入式（基于文件）和客戶端服務(wù)器數(shù)據(jù)庫(kù)，無(wú)需更改 FPC/Lazarus 中的一行代碼即可使用。如果用作嵌入式數(shù)據(jù)庫(kù)，它提供了比 SQLite 更豐富的 SQL 支持，以及到客戶機(jī)服務(wù)器數(shù)據(jù)庫(kù)的無(wú)縫遷移，盡管 SQLite 本身是一個(gè)非常強(qiáng)大的嵌入式數(shù)據(jù)庫(kù)。

FPC 的 SQLDB 中對(duì) Firebird 的支持相當(dāng)好，與 PostgreSQL 的支持水平相當(dāng)。

3.1Lazarus 連接 FireBird 數(shù)據(jù)庫(kù)

在 Lazarus 中，連接 FireBird 數(shù)據(jù)庫(kù)所用到的組件為 TIBConnection， 是 Interbase/Firebird 專用連接組件。

同時(shí)也會(huì)使用到 TSQLTransaction 和 TSQLQuery 組件，這兩個(gè)組件是 SQLdb 連接所支持的所有數(shù)據(jù)庫(kù)都會(huì)使用到的兩個(gè)組件。

TIBConnection 組件的主要屬性：

• HostName – FireBird 數(shù)據(jù)庫(kù)服務(wù)器主機(jī)名或 IP 地址
• Port – 端口號(hào)
• DatabaseName – 數(shù)據(jù)庫(kù)名，數(shù)據(jù)庫(kù)服務(wù)器上數(shù)據(jù)庫(kù)文件的路徑
• UserName – 用戶名
• Password – 密碼
• Connected – 與數(shù)據(jù)庫(kù)服務(wù)器建立連接

3.2 基本示例

示例：在窗體上展現(xiàn)一張數(shù)據(jù)表中的數(shù)據(jù)。數(shù)據(jù)如下：

create table d_students1 ( student_id varchar(64) primary key, name varchar(16), sex boolean, birthday date, department_id integer, total_score decimal(9,1));INSERT INTO d_students1(student_id, name, sex, birthday, department_id, total_score)VALUES(‘x-20210001’, ‘張三’, true, ‘2000-05-06’, 1, 520);INSERT INTO d_students1(student_id, name, sex, birthday, department_id, total_score)VALUES(‘x-20210002’, ‘李四’, true, ‘2000-03-09’, 1, 539);INSERT INTO d_students1(student_id, name, sex, birthday, department_id, total_score)VALUES(‘x-20210003’, ‘周五’, false, ‘2001-09-10’, 2, 528);INSERT INTO d_students1(student_id, name, sex, birthday, department_id, total_score)VALUES(‘x-20210004’, ‘趙六’, true, ‘2000-08-28’, 1, 517);INSERT INTO d_students1(student_id, name, sex, birthday, department_id, total_score)VALUES(‘x-20210005’, ‘姜七’, false, ‘2000-07-06’, 2, 547);INSERT INTO d_students1(student_id, name, sex, birthday, department_id, total_score)VALUES(‘x-20210006’, ‘賀八’, true, ‘2000-11-01’, 2, 533);

3.2.1 項(xiàng)目與所需組件

首先，創(chuàng)建一個(gè)新Lazarus項(xiàng)目。

在組件面板的SQLdb控件頁(yè)拖拉一個(gè)TIBConnection, 一個(gè) TSQLTransaction 和一個(gè) TSQLQuery 組件到窗體。

TIBConnection： 是 Interbase/Firebird 專用連接組件。

TSQLTransaction 和 TSQLQuery： SQLdb 連接所支持的所有數(shù)據(jù)庫(kù)都會(huì)利用到這兩個(gè)組件。

顯示數(shù)據(jù)： 利用 Data Controls 頁(yè)的 TDBGrid 組件。先添加 Data Access 頁(yè)內(nèi)一個(gè) TDatasource 控件后才能將 TDBGrid 連接到數(shù)據(jù)庫(kù)。

界面設(shè)計(jì)如下圖所示：

3.2.2組件連接關(guān)系

連接組件：如果使用對(duì)象檢查器是非常簡(jiǎn)單的，也可以使用代碼來(lái)實(shí)現(xiàn)。

1、設(shè)置 IBConnection1 的 Transaction 屬性指向 SQLTransaction1，這會(huì)使得 SQLTransaction1 的 Database 屬性自動(dòng)變更為 IBConnection1；

2、設(shè)置 SQLQuery1 的 Database 屬性指向 IBConnection1，Lazarus 會(huì)自動(dòng)添加 Transaction 屬性值；

3、設(shè)置 Datasource1 的 Dataset 屬性指向 SQLQuery1；

4、設(shè)置 DBGrid1 的 Datasource屬性指向 Datasource1。

組件及屬性設(shè)置：

3.2.3連接到數(shù)據(jù)庫(kù)

設(shè)置 IBConnection1 的數(shù)據(jù)庫(kù)連接屬性，如下表：

運(yùn)行程序，如下圖所示：

3.3 FireBird 嵌入數(shù)據(jù)庫(kù)

• Win平臺(tái)下的Firebird

只要將嵌入式 Firebird 的 fbembed.dll 改名為 C/S 結(jié)構(gòu) Firebird 所用的 fbclient.dll，Lazarus程序就可以連接 C/S 結(jié)構(gòu) Firebird（一般是安裝在另一臺(tái)機(jī)器上或者是你的開(kāi)發(fā)機(jī)上）。

此外，您也可以復(fù)制數(shù)據(jù)庫(kù)文件到你的應(yīng)用程序目錄，再運(yùn)行應(yīng)用程序，既不需安裝數(shù)據(jù)庫(kù)服務(wù)器，也不需要設(shè)置，就能使用嵌入式Firebird來(lái)直接連接到數(shù)據(jù)庫(kù)文件。

這為一類用戶帶來(lái)了極大的方便：想給終端用戶部署數(shù)據(jù)庫(kù)應(yīng)用程序，但又不想自找麻煩地去安裝服務(wù)器，免除了煩瑣的部署步驟：如檢查是否已經(jīng)安裝了服務(wù)器，數(shù)據(jù)庫(kù)版本是否是正確，防火墻是否開(kāi)啟等。

• Linux/OSX/Unix平臺(tái)下的Firebird

Linux/OSX 平臺(tái)下應(yīng)該也能夠找到方法來(lái)進(jìn)行嵌入式部署。

具體的 FireBird 嵌入式數(shù)據(jù)庫(kù)，我會(huì)專門安排一個(gè)章節(jié)來(lái)講解。