PB中查询式输入的实现
在系统软件的帮助和应用软件中经常用到查询式输入，所谓查询式输入是指当在文本框中输入查询内容后，列表框中将显示所有与之匹配的内容，以供用户选择。比如在PowerBuilder（以下简称PB）帮助主题的“索引”文本框中输入“Get”后，将显示GetColumn、GetData等所有以“Get”开头的帮助内容。那么在PB 7.0中怎样实现查询式输入呢？下面以查询姓名为例介绍查询式输入在程序中的两种实现方法。
#1 方法一：
新建一窗口，分别为其添加一静态文本、单行编辑框和列表框，并设置它们对应的属性，如表（（图1））所示：
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 方法二：
新建一窗口，分别为其添加一静态文本、单行编辑框和数据窗口控件，并设置它们对应的属性，如表（（图2））所示：
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环境下调试运行通过。