超级实用(在PB中如何实现数据模糊查询6.5实例).docxVIP

在PB中如何实现数据模糊查询本文主要介绍如何在pb中根据数据窗口中的字段对数据窗口进行模糊查询。本系统的代码示例采用Power Builder6.5进行演示。　代码及设计：　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指在本窗口查询条件所要显示的dwlstr_1.adw_result = thislstr_1.adw_column = thisOpenWithParm(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为：　13. 属性和代码如下：　1. wroot_dw_query属性：　X = 9 Y = 1132 Width = 2912 Height = 712Visible = true Enabled = true TitleBar = true Title = 定位查询ControlMenu = true Border = true WindowType = response! WindowState = normal!BackColor =2. 窗口实例变量：　Boolean ib_changedLong MaxEditRow = 1String sWhere, oldsql, orisql, is_title, is_section = WhereClauseDataWindow dw_result,dw_detailpfc_n_cst_string inv_stringstring sSyntax　注释：a.pfc_n_cst_string 为PFC用户对象。　3. 窗口事件代码：　3.1 close 事件：　功能：将用户本次所输入的查询条件记录到文件sIniFile的WhereClause1...n小节中去以备下次启动时置初始查询条件。　3.2 open 事件：　功能：设置初始值，具体请看代码中的注释。　integer i, row, li_where_row = 10string tmpstr_result_column lstr_1//结构str_result_column的成员adw_result指查询结果所产生作用的dw// 成员adw_column指在本窗口查询条件所要显示的dwlstr_1 = Message.PowerObjectParmdw_result = lstr_1.adw_resultdw_detail = lstr_1.adw_columnif isnull(dw_result) or not isvalid(dw_result) then returnif isnull(lstr_1.adw_column) or not isvalid(lstr_1.adw_column) then returnwindow act_wact_w=MainWindow.getactivesheet()x = act_w.x + 8y = act_w.y + act_w.height - height+258width = act_w.widthcb_exec.x=width - cb_exec.width -80cb_exit.x=width