Delphi 動態 SQL 程式設計實戰：資料庫查詢器完整原始碼解析

17.5.2 動態 SQL 查詢器架構解析

範例程式 main.pas + RSLTFORM.pas 示範：使用者選擇資料庫別名 → 資料表 → 欄位 → 運算子（=、>、Like、In 等）→ 輸入值 → 動態組裝 WHERE 子句 → 執行查詢 → 結果視窗呈現。

核心流程（BitBtn2Click）

1. 驗證使用者已選別名、資料表、（必要時）欄位與值
2. 判斷欄位型別（ftString/ftMemo）決定是否加單引號
3. 依 ComboBox1.ItemIndex 對應 etSQLOps 列舉，case 產生 strWhere：

4. 組裝完整 SQL：SELECT * FROM "Table" t WHERE t.Field = 'Value'
5. 建立結果視窗 TResultForm，設定 Query1.DatabaseName、Query1.SQL.Text、Active := True
6. 檢查 RecordCount，為 0 則拋例外；否則 ShowModal 呈現

結果視窗 (RSLTFORM)

• DBGrid1 + DBNavigator 綁定 Query1
• 狀態列顯示查詢條件摘要
• SpeedButton2 點擊顯示完整 SQL 文字

關鍵技術點

• Query1.Close → SQL.Clear → SQL.Add → Active := True 標準動態查詢流程
• 字串欄位自動加引號，數值欄位不加
• 使用 try...finally 保護結果視窗實例釋放
• Screen.Cursor := crHourGlass/crDefault 長時間操作視覺回饋

此範例展示 Delphi 動態 SQL 組裝、參數化防注入（簡易版）、多視窗協作的完整企業級查詢器骨架。