PB中查询式输入的实现

袁广林  薛模根  姚翎 
2001年 49期

　　在系统软件的帮助和应用软件中经常用到查询式输入，所谓查询式输入是指当在文本框中输入查询内容后，列表框中将显示所有与之匹配的内容，以供用户选择。比如在PowerBuilder（以下简称PB）帮助主题的“索引”文本框中输入“Get”后，将显示GetColumn、GetData等所有以“Get”开头的帮助内容。那么在PB 7.0中怎样实现查询式输入呢？下面以查询姓名为例介绍查询式输入在程序中的两种实现方法。
　　#1　　方法一：
　　　　新建一窗口，分别为其添加一静态文本、单行编辑框和列表框，并设置它们对应的属性，如表（^49020502a^）所示：
　　　　1.窗口w_jbxx1的open过程：
　　　　sqlca.dbms = “ODBC”
　　　　sqlca.dbparm = “ConnectString=＇DSN=cx;UID=dba;PWD=sql＇”
　　　　CONNECT USING SQLCA;
　　　　w_jbxx1.lb_1.visible=false
　　　　w_jbxx1.lb_1.y=w_jbxx1.sle_1.y + w_jbxx1.sle_1.height
　　　　w_jbxx1.lb_1.x=w_jbxx1.sle_1.x
　　　　2.单行编辑框sle_1的modified过程：
　　　　long ll_end，ll_find，num
　　　　string tempxm，tj
　　　　w_jbxx1.lb_1.visible=true
　　　　w_jbxx1.lb_1.Reset　
　　　　tempxm = trim（w_jbxx1.sle_1.text）　
　　　　//*******定义数据存储对象*******//
　　　　datastore  mhcx_datastore
　　　　mhcx_datastore = CREATE datastore
　　　　mhcx_datastore.DataObject = “d_mhcx”
　　　　mhcx_datastore.SetTransObject（SQLCA）
　　　　mhcx_datastore.Retrieve（）
　　　　ll_end = mhcx_datastore.RowCount（） + 1
　　　　ll_find = 1
　　　　num=1
　　　　tj = “trim（name） like ” +  “＇” +tempxm + “%” + “＇”
　　　　ll_find = mhcx_datastore.Find（tj， ll_find，ll_end）
　　　　DO WHILE ll_find > 0
　　　　ll_find = mhcx_datastore.Find（tj， ll_find， ll_end）　
　　　　if （ll_find = 0） then
　　　　if num=1 then
　　　　messagebox（“该库中无此类姓名，请再输入”，“人事管理系统”）
　　　　end if
　　　　DESTROY mhcx_datastore
　　　　exit
　　　　else
　　　　num=num+1
　　　　ll_find = ll_find + 1
　　　　w_jbxx1.lb_1.AddItem（mhcx_datastore.GetItemString（ll_find - 1， “name”））
　　　　end if
　　　　LOOP
　　　　3.列表框lb_1的doubleclicked过程：
　　　　w_jbxx1.sle_1.text=w_jbxx1.lb_1.SelectedItem（）
　　　　至此，实现过程即告结束。
　　#1　　方法二：
　　　　新建一窗口，分别为其添加一静态文本、单行编辑框和数据窗口控件，并设置它们对应的属性，如表（^49020502b^）所示：
　　　　1.窗口w_jbxx的open过程：
　　　　sqlca.dbms = “ODBC”
　　　　sqlca.dbparm = “ConnectString=＇DSN=cx;UID=dba;PWD=sql＇”
　　　　CONNECT USING SQLCA;
　　　　w_jbxx.dw_1.SetTransObject（SQLCA）
　　　　w_jbxx.dw_1.Retrieve（）
　　　　w_jbxx.dw_1.visible=false
　　　　w_jbxx.dw_1.y=w_jbxx.sle_1.y + w_jbxx.sle_1.height
　　　　w_jbxx.dw_1.x=w_jbxx.sle_1.x
　　　　2.单行编辑框sle_1的modified过程：
　　　　string tempxm，DWfilter2
　　　　tempxm = trim（w_jbxx.sle_1.text）
　　　　w_jbxx.dw_1.visible=true
　　　　DWfilter2 = “name”+“ like ” + “＇” + tempxm + “%” + “＇”
　　　　w_jbxx.dw_1.SetFilter（DWfilter2）
　　　　w_jbxx.dw_1.Filter（）
　　　　3.列表框dw_1的doubleclicked过程：
　　　　w_jbxx.sle_1.text=w_jbxx.dw_1.GetItemString（w_jbxx.dw_1.GetRow（），“name”）
　　　　至此，实现过程即告结束。
　　　　以上程序在PB 7.0/Sybase SQL Anywhere5.0/Windows 98环境下调试运行通过。
　　
　　 
 