uniGUI之FirDAC(13)

// uses FireDAC.Phys.SQLite 之后, 可不用添加 TFDPhysSQLiteDriverLink           //訪問SQLite  文件數據庫

procedure TMainForm.UniEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    FDQuery1.ExecSQL('INSERT INTO ToDoListTable VALUES( (select max(id)+1 from ToDoListTable),'''+uniEdit1.Text+''',0)');
    FDQuery1.Open('select isDone   ,aName ,id  from ToDoListTable');
    FDQuery1.Last;//定位 最后一行 新記錄
  end;
end;

 在uniGUI,每個TFDConnection組件必須放在 MainModule或者 由uniGUI Wizard創建的DataModule里。TFDConnection也可創建和銷毀公眾 datamodule ，作為 TUniForm（因為他們對Session同樣是私有的）的constructor 和destructor 。這將確保每個Session將有它自己私有的TFDConnection組件。

另外，要放一個TFDManager組件在ServerModule ，在ServerModule的OnCreate 事件里，設置它的Active 屬性為True,。

其他要放在ServerModule 里的組件有: TFDGUIxWaitCursor 和TFDPhysXXXDriverLink。TFDPhysXXXDriverLink是根據你的數據庫類型來的，例如，MySQL就應該為TFDPhysMySQLDriverLink。將TFDGUIxWaitCursor的Provider 設置為Console ，同時 ScreenCursor 設置為gcrNone.。

FDManager1的OnCreate 事件里， FDManager1.Active 應該設置為True.

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
.
.
  FDManager1.Active := True;
end;

類似地，FDManager1的OnDestroy 事件，FDManager1.Close 應被調用。

procedure TUniServerModule.UniGUIServerModuleDestroy(Sender: TObject);
begin
.
.
.
  FDManager1.Close;
end;

 連接池

FireDAC 的一個高級特色，就是它支持連接池。它允許在多個會話里，共用同一個數據庫連接.