QF中間件

QF中間件使用說明

 

       QF中間件是在2020年春節期間出現新型冠狀病毒感染的肺炎疫情不敢外出，閒來無事編寫的，本人是老菜鳥，編程是業餘愛好，水平有限，平時編程只會拖控件，中間件可能存在未知Bug，這個版本也只實現了簡單的增刪改查功能，與已有的中間件功能差距巨大，請口下留情，勿噴！

       QF中間件使用FDmemTable、mORMot和參考詠南開源mORMot中間件的基礎上開發而成，QFDataSet包含QFRest、QFTable和QFQuery這3個控件）方便使用，MSSQL2000和postgresql 10數據庫三層應用測試正常，其餘數據庫暫時沒測試，QF中間件支持ORACLE,MYSQL,MSSQL和POSTGESQL數據庫，其中ORACLE,MSSQL不依賴第三方引擎，MYSQL、POSTGESQL使用免費開源控件zeosdbo-7.2.4）。

       QF中間件同時解決了盒子論壇提出使用MSSQL數據庫時的若干問題，利用本中間件能夠簡單快捷編寫三層應用。

:http://bbs.2ccc.com/topic.asp?topicid=559565

1、QF中間件服務端設置

       QF中間件服務端採用windows的services方式，安裝後以services運行。

將QFMg.exe和QFSvr.exe這2個文件拷貝到服務器指定的文件夾，運行QFMg,exe配置相關參數。

1.配置數據庫設置：選擇數據庫類型、數據庫IP、數據庫名稱、用戶和密碼

   POSTGESQL：須要將libeay32.dll、libiconv-2.dll、libintl-8.dll、libpq.dll、msvcr120.dll和ssleay32.dll放到QFSvr.exe目錄中。

   MSSQL：不須要單獨數據庫驅動。

   ORACLE,MYSQL未測試。

2.設置服務器參數

3.服務設置：安裝QF中間件服務，安裝成功後啓動QF中間件服務。

  

2、QFDataSet控件的使用說明

1、QFRest控件

1).QFRest.IP:服務器IP

2).QFRest.Port：服務器端口（默認2006）

3).QFRest.User：認證名稱

4).QFRest.Passwords：認證密碼

5).QFRest.Connect：鏈接服務器

6).QFRest.DisConnect：斷開服務器鏈接

 

2、QFTable控件

1).QFTable.Rest：遠程鏈接控件

2).QFTable.IndexFieldNames：更新時的主鍵字段

3).QFTable.NoField：更新時不更新的字段列表，多個字段時用逗號分割

4).QFTable.TableName：表名稱

5).QFTable.ApplyUpdates：當須要保存到遠端時用。

6).QFTable.PageSize：每頁的記錄數，默認爲100

7).QFTable.PageNo：當前頁

8).QFTable.PageIndexMax：當前表最大頁數

9).QFTable.Open：打開表時，根據PageNum和PangeIndex調用指定記錄

  QFTable1.PageSize := 100;

  QFTable1.PageNo := 1;//改變這個值讀取指定頁的記錄

  QFTable1.Open;

10).QFTable.Locate(const AKeyFields: String; const AKeyValues: Variant; AOptions: TLocateOption):Boolean;

例子：

   QFTable1.Locate('BGBH,ID',VarArrayOf(['HYA2018-25318',17]), loPartialKey);

11).打開前一頁例子：

  QFTable1.PageSize := PageNum;

  QFTable1.PageIndex := pn-1;//改變這個值讀取指定頁的記錄

  QFTable1.Open;

12).打開下一頁例子：

  QFTable1.PageSize := PageNum;

  QFTable1.PageNo := pn+1;//改變這個值讀取指定頁的記錄

  QFTable1.Open;

3、QFQuery控件

1).QFQuery.Rest：遠程鏈接控件

2).QFQuery.SQL：設置SQL語句

3).QFQuery.Open：執行QFQuery.SQL的Sql語句

4).QFQuery.Open(SQL:string)：執行SQL

5).QFQuery.ExecSQL

 QFQuery例子：

  QFQuery1.SQL := Edit2.Text;

  QFQuery1.Open;

  DataSource1.DataSet := QFQuery1;

 

3、Delphi開發環境

Library paths加入mORMot、Components、zeosdbo-7.2.4\src、zeosdbo-7.2.4\src\core、zeosdbo-7.2.4\src\core\dbc、zeosdbo-7.2.4\src\core\parsesql、zeosdbo-7.2.4\src\plain,其中mORMot和zeosdbo-7.2.4的文件夾是精簡後所需的所有文件

  

Demo的界面：

 

備註：Demo服務端放在5M帶寬的天翼雲主機。

 

注  意：

MSSQL分頁時須要數據庫的表加ID字段及索引，若是沒索引分頁時越日後分頁速度會越慢，加上索引後分頁速度獲得極大提高。

 

2020-01-30