代碼及設計

  1. 新建一個窗口，命名為w_query。在窗口中放入一個數據窗口控件，命名為dw_master。在dw_master中放入一個數據窗口；放置一個按鈕，命名為cb_query。見下

  2. 新建一個結構(structure)命名為str_result_column，其參數

  3. 在dw_master增加兩個用戶事件，命名為ue_action_query、ue_action_refresh。

  4. 在cb_query中增加如下代碼

  5. 在窗口的Open事件中增加如下代碼

  dw_master.setTransObject(sqlca)

  6. 在dw_master的ue_action_query中增加如下代碼

  str_result_column lstr_1
  //結構str_result_column的成員adw_result指查詢結果所產生作用的dw
  // 成員adw_column指在本窗口查詢條件所要顯示的dw
  lstr_1.adw_result = this
  lstr_1.adw_column = this
  OpenWithParm(wroot_dw_query, lstr_1)

  7. 在dw_master的ue_action_refresh事件中增加如下代碼

  dw_master.retrieve()

  8. 新建一個窗口，命名為wroot_dw_query，該窗口用以進行模糊查詢。其設計完成后界面如下所示

  其中"執行"按鈕名為"cb_exec"、"返回"按鈕名為"cb_exit"、"返回"按鈕下的數據窗口名為dw_column，其dataObject為d_column_set、中間的數據窗口名為dw_where，其dataObject為d_where。

  9. d_column_set的設計完成界面如下所示

  10. 其sql為

  11. dw_where的設計完成界面

  12. 其sql為