过程中,常常碰到要使用列表框来选择数据,但是普通下拉列表框并没有提供和数据相连接思路方法,而使用数据窗口子下拉列表框来代替又显得有些别扭.下面介绍
种好看又好用思路方法.可能大家已经想到了吧,使用指针把要连接
数据条条地从select 语句查询结果中fetch 出来,然后再把数据additem到下拉列表框中去.虽然这也是
种可行思路方法,但是他速度很不能令人满意,太受数据量影响.我们可以利用powerbuilder 最推崇
数据窗口技术作为数据库和下拉列表框连接桥梁,这种思路方法即方便快速又安全可靠.好了,下面制作
下拉列表框,在完成的后会带给你许多意想不到方便!. 打开powerbuilder"select user object"画笔,选择<
>, 在" user object"中选择"Visual"类"Standard"项并按下<ok>, 在弹出来"Select Standard Visual Type"对话框中选择列表中 "dropdownlistbox"项并按下<ok>. 接着加入些例子变量,选择"Declare"菜单项"Instance Variables.."加入变量
声明: datastore ids_user 
il_row 并按下<ok>. 我们要对新
对象进行些限制,在对象"constructor"事件中加入 
: sorted = false //这句非常必要
re
2. 好了,现在到了最关键
时候了,我们要把数据检索出来放到ids_user变量里.
选择菜单"Declare"项
"User Object Function",在弹出来对话框中按下<
>新建个对象
命名为: init
参数有
个:sqlstr
返回值为整型:
eger现在我们需要动态地创建datastore
在init
中写下://
eger init(sqlstr ) 开始long ll_rowcount
long ll_row
ls_sql errors ls_
ids_user = create datastore
//根据sql语句产生数据窗口
ls_
= sqlca.SyntaxFromSQL(sqlstr, 'style(type=grid)',errors)//sql语句有
len(errors) > 0 thenmessagebox('
', errors) -1end
//根据语法动态创建数据窗口
ids_user.create(ls_
)ids_user.
transobject(sqlca)ll_rowcount = ids_user.retrieve
//无数据返回
ll_rowcount=0 then -1end
//把数据插入Control控件
for ll_row = 1 to ll_rowcount
this.additem(
(ids_user.Object.Data[ll_row,1])) next
//成功返回0
0//
eger init(sqlstr ) 结束现在下拉列表框已经能显示数据了,但是我们在选择数据
同时往往需要
不是它显示出来值,比如显示是人员姓名,而我们需要是工号,难道再使用select语句把需要
数据检索出来吗?有了下面,我们就不必头痛了.重复上面建立
步骤,新建个名为getdatauser object,返回值为"any"并在
中写下://any getdata
开始any la_
long ll_row
text = '' then ''end
//没有选择或没有检索到数据
ids_user.rowcount = 0 or il_row = 0 then ''end
//在缺省情况下返回第 2列
数据la_
= ids_user.Object.data[il_row, 2] la_//andy getdata
结束现在还不能返回正确
数据,还需要个idx(idx )如下://
idx(idx ) 开始il_row = idx
//
idx(idx ) 结束现在这个user object已经完成了,我们来做
下试验试试.新建
个应用app_test,个窗口w_
,按照刚才思路方法创建
个user object:uo_dbdropdownlistbox,放入w_中在app_test
open事件中写下连接数据库语句并加上open(w_)在w_
open事件中写下: li_resultli_result = uo_1.init('select name, id from sysobjects')
在uo_1
selectionchanged事件中写下:idx(index)messagebox('提示', "看" +
(this.getdata))这时我们
用户对象已经能根据选择name返回相应id了.至于更多
功能,还有待powerbuilder爱好者们不断地研究创造了.如果还想深入讨论请和我联系:[email protected]
最新评论