要展示從資料庫抓取資料顯示到 app 上,首先當然是要建立一個簡單的資料庫,就拿「臺北市旅服中心服務據點資訊」當成這次的展示標的好了
資料來源你可以從台北市政府資料開放平台中取得,網址如下
http://data.taipei.gov.tw/opendata/apply/NewDataContent?oid=8AC76ABB-A384-4968-AD3C-9E8E9D238168
細節就不多說了,取得資料後你可以想辦法匯入到 Database 中,以 SQL Server 為例,Table Name 取名為 NavigationCenter,只從開放平台
的資料中擷取四個欄位,分別是編號、名稱、地址、電話與服務時間,Table Schema 如下
資料內容如下
資料庫準備好了,那麼就開始處理 DataSnap Server 的部分,
(1)首先在開啟 delphi 之後,點選 File-> New -> Other
(2)在 New Items 的畫面點選 DataSnap Server 然後點 OK
(3)為求展示方便,選擇 VCL Forms Application,然後點 Next
(4)按照預設值不改變,點選 Next
(5)預設 DataSnap Server 使用的 Port 是 211,你也可以自行更改,順便按一下 Test Port 確認該 Port 沒有被其他程式佔用,然後點選 Next
(6)Server methods ancestor class 的部分請選擇 TDServerModule,然後點選 Finish
(7)把專案儲存一下,取名為 TaipeiNavigationServer
(8)開啟 Form1,擺放一個 TPanel 與 TButton 並調整如下圖
(9)開啟 ServerMethodsUnit1,準備置放連結 SQL Server 資料庫用的元件,由於 EMBT 目前主推跨平台的 FireDAC,所以就用 FireDAC 來連接 SQL Server
a.首先置放 TFDConnection,滑鼠左鍵點兩下 FDConnection1 後,會開啟如下對話框,這時需將 SQL Server 相關的資料鍵入,Driver ID 的部分選擇 MSSQL,然後輸入 Database、User_Name、Password、Server 等參數資料,
如果輸入都正確的話,點選上方「Test」,應該會得到連線成功的畫面,如下圖
b.接下來請將 FDConnection1.LoginPrompt 設定成 False
(10)繼續在 ServerMethodsUnit1 置放 TFDPhysMSSQLDriverLink 與 TFDGUIxWaitCursor 各一,如下圖
(11)然後置放一個 TFDQuery 元件,SQL 欄位則鍵入以下語法
(12)置放一個 TDataSetProvider 元件,其中 Dataset 屬性設定為 FDQuery1
(13)存檔...編譯...執行,可以得到如下的結果(如果出現Windows防火牆警訊,請選擇允許存取)....恭喜 Server 端大功告成
to be continued...
留言列表