Smart之圖表展示

• 文件號：S-EQ-DEM-2023

1. 說明

  圖表展示功能可用於顯示統計圖表，可根據需求自行選定圖表的顯示格式。該功能需配置Smart中的帳套設定使之能訪問TARS。該範例使用的是構造的模擬數據，無須使用特定的資料庫，任意資料庫均可使用。

  通過範例學習，可以掌握TDBChart的使用方式，製作圖表。

2. 設計明細

  開啟Smart智慧控制平臺，分別加入下插圖之控制元件。或者通過點選功能表欄[檔案]-[打開專案]選擇範例專案檔案來打開該範例。該範例中我們先使用RFConnection建立一個臨時連線用於進行圖表數據測試，測試完成，在指令碼編輯中將連線方式修改成帳套設定中的連線方式。

  ①：TRFConnection元件，控制元件名稱為RFConnection1。

  ②：TRFDataSet元件，控制元件名稱為RFDataSet1。

  ③：TDBChart元件，控制元件名稱為DBChart2。

  ④：TDBChart元件，控制元件名稱為DBChart1。

• Main窗體屬性設定

  • Caption：設定窗體標題=圖表展示。
  • ClientHeight：設定窗體客戶區高度=714。
  • ClientWidth：設定窗體客戶區寬度=492。

• ①RFConnection1屬性設定

  • ConnectionDefName:連線設定的名稱，與TARS中的連線設定名稱相同。
  • ForceEncryption:啟用加密功能，與TARS中的加密數據功能對應。
  • LoginOption:設定登錄選項，username和password需使用TARS中的使用者名稱及密碼。
  • SecureKey:設定安全碼，與TARS中的安全碼對應。
  • ServerAddr:TARS伺服器的IP地址。
  • ServerPort:TARS伺服器的埠號。
  • Active:是否啟用連線，設定為True。

• ②RFDataSet1屬性設定

  • Active:是否啟用數據集，設定為True。
  • Connection:設定連線型別，此處臨時設定為RFConnection1用來對接測試資料庫。
  • SQL屬性中填寫如下內容：

  SELECT 5 AS Num,'襯衫' AS Name
  UNION
  SELECT 25 AS Num,'羊毛衫' AS Name
  UNION
  SELECT 36 AS Num,'雪紡衫' AS Name
  UNION
  SELECT 15 AS Num,'褲子' AS Name
  UNION
  SELECT 10 AS Num,'高跟鞋' AS Name
  UNION
  SELECT 20 AS Num,'襪子' AS Name
  

• ③DBChart2設定

  雙擊DBChart2，彈出編輯對話方塊。

  在編輯頁面的序列選項卡中，按[新增(A)...]按鈕。 將向您展示可用的圖表型別。 此處選擇棒形圖。

  通過滑鼠或方向鍵選擇系列型別，然後按[確定]。 雙擊系列型別亦可。

  在DBChart的Series編輯選項中，選擇資料來源選項卡，設定序列中的資料來源為資料組(DataSet)，在下方資料組中選擇RFDataSet1。卷標、X、Y處選擇要展示的欄位，點選[套用]即可。

  標題處設定標題銷量統計柱狀圖。

  在面板-圖案處上傳圖片。點選[瀏覽(R)...]打開檔案上傳圖片。

• ④DBChart1設定

  雙擊DBChart1，彈出編輯對話方塊。

  在編輯頁面的序列選項卡中，按[新增(A)...]按鈕。 將向您展示可用的圖表型別。 此處去掉左下角的3D選項，選擇圖形圖。

  通過滑鼠或方向鍵選擇系列型別，然後按[確定]。 雙擊系列型別亦可。

  在DBChart的Series編輯選項中，選擇資料來源選項卡，設定序列中的資料來源為資料組(DataSet)，在下方資料組中選擇RFDataSet1。卷標、X、Y處選擇要展示的欄位，點選[套用]即可。

  標題處設定標題銷量統計餅圖。

  在面板-圖案處上傳圖片。點選[瀏覽(R)...]打開檔案上傳圖片。

3. 程式設計

3.1. 程式初始設定

  在程式啟動時，將連線指定為帳套設定。並開啟數據連線。

constructor TMyHandler.Create(AOwner: TComponent);
begin
  FThis :=TBaseForm(AOwner);
  //設定連線選項為Smart中的帳套設定，打開數據集
  FThis.RFDataSet1.Connection := dm.DBConnection;
  FThis.RFDataSet1.Open;
end;

3.2. 事件設定

  該程式無事件設定。

4. 運行結果

  通過工具欄儲存，將程式儲存為 sdb 專案檔案。

  使用滑鼠點選工具欄運行（Run），測試運行結果。運行時需保證網路連線順暢。