本文將引導您從零開始,使用 Delphi FireDAC 快速建立一個可連接 SQLite 資料庫並顯示資料的 VCL 應用程式。FireDAC 的簡潔設計讓資料庫開發變得前所未有的輕鬆。
為了方便測試,建議先將 Embarcadero 官方範例資料庫複製到固定路徑:
來源: C:\Users\Public\Documents\Embarcadero\Studio\14.0\Samples\data\FDDemo.sdb 目標: C:\Temp\FDDemo.sdb
建立新的 VCL Forms Application,在表單上放置以下元件(建議使用 Ctrl+. 快速搜尋加入):
提示:若在 uses 子句中引入 FireDAC.Phys.SQLite 和 FireDAC.VCLUI.Wait,則可分別省略 TFDPhysSQLiteDriverLink 和 TFDGUIxWaitCursor 元件。
{簡單幾行程式碼,即可呈現 FDDemo.sdb 中 Orders 資料表的資料}
procedure TForm1.FormCreate(Sender: TObject);
begin
// 設定連接參數
FDConnection1.DriverName := 'SQLite';
FDConnection1.Params.Add('Database=C:\Temp\FDDemo.sdb');
// 建立元件關聯鏈:Connection → Query → DataSource → DBGrid
FDQuery1.Connection := FDConnection1;
DataSource1.DataSet := FDQuery1;
DBGrid1.DataSource := DataSource1;
// 設定 SQL 查詢並開啟連接
FDQuery1.SQL.Text := 'SELECT * FROM Orders';
// SQLite 完整支援 SQL-92 標準,僅忽略少數特性: https://www.sqlite.org/omitted.html
FDConnection1.Open();
FDQuery1.Open();
// 讓網格填滿客戶區
DBGrid1.Align := alClient;
end;
這個範例展示了 FireDAC「開箱即用」的設計哲學:無需複雜配置,幾行核心程式碼即可完成資料庫連接、查詢與 UI 綁定的完整流程。