Paradox/dBase 等本地資料庫加密後,每次 Table.Open 皆彈出密碼對話框,嚴重影響自動化流程體驗。
Session.AddPassword('MySecretPwd'); // 傳送密碼至 BDE 會話
Table1.Open; // 直接開啟,不再提示
procedure TForm1.FormCreate(Sender: TObject);
begin
// 1. 從加密設定檔/登錄讀取密碼 (此處示範硬編碼)
const DB_PASSWORD = 'MySecretPwd';
// 2. 註冊至當前 BDE Session
Session.AddPassword(DB_PASSWORD);
// 3. 正常開啟資料集
Table1.DatabaseName := 'MyAlias';
Table1.TableName := 'Orders.db';
Table1.Open;
end;
Session.AddPassword 僅對 當前程序的 BDE Session 生效,不修改資料庫檔案本身AddPassword,BDE 會自動嘗試匹配Password=...Session.RemovePassword('MySecretPwd'); // 移除特定密碼
Session.RemoveAllPasswords; // 清空所有快取密碼