IDC资讯中心
近日在开发过程中遇到使用下拉数据窗口的情况：数据表data中有二列dept_id（主管部门编码）、unit_id（企业编码）的取值分别来自数据表dept（主管部门）及unit（企业基本情况），且要求选择某一主管部门后，能将该主管部门的所有企业显示出来以便选择。有关数据表的结构如下（已简化）：
表 名字段名类型长度关键字含义datadept_idchar5否主管部门编码unit_idchar9是企业编码numnumeric7(无小数) 否上交金额deptidchar5是主管部门编码namechar15否主管部门?/td>unitidchar7是企业编码namechar30否企业名称dept_idchar5否主管部门编码
为实现这些要求，可将data表的2个字段dept_id、unit_id设计为2个相关联的下拉数据窗口，关键是如何将dept_id的当前选定值传递给unit_id以使其仅显示相应的主管部门的企业清单。为此，本人查阅了许多有关书刊及有关网站的相关资料，找到两种解决方法：设置检索参数及使用动态sql语句。
这两种解决方法的共同关键是使用getchild()函数及datawindowchild型变量。许多资料称设置检索参数是最简单、最方便的有效解决方法，也提出了几种隐藏系统自动弹出的“specify retrieval”对话框的方法。但令人遗憾的是本人竭尽所能也未能如愿（主要是无法隐藏系统自动弹出的“specify retrieval”对话框）。
因此开始考虑使用动态sql语句。经过一番努力，终于比较满意地实现了设计要求。具体做法如下：
1、 首先创建应用dddw，有关操作按提示即可。(powerbuilder8.0中请先创建workspace dddw.pdw,
其他操作基本同powerbuilder7.0)
2、 创建数据窗口dddw_dept：grid、quick select、表dept的所有字段,最好不要定义where子句以免后面编程复杂化，能将header部分去掉最好（可使显示简洁）。
3、 创建数据窗口dddw_unit：grid、quick select、表unit的所有字段,其余同上。
4、 创建数据窗口d_1：freeform、quick select、表data的所有字段,适当排列、编辑一下，关键是dept_id及unit字段，必须做成下拉数据窗口。下面就以dept_id字段为例：右击dept_id字段(注意：不是列标题)，在弹出菜单中选“properties…”, 然后在弹出的“properties-dept_id”窗口中选择“edit”标签页，在“style type”下拉框中选择“dropdowndw”，选中复选框“always show arrow”、“v scrollbar”,再在“datawindow”编辑框中输入“dddw_dept”,或点击其右边的“…”进行选择，在“display column”下拉框中选择“name”（即下拉数据窗口中显示的是name列值），在“data column”下拉框中选择“id”（即实际存入数据库的是id列值）。字段unit_id如法炮制，只需将“datawindow”编辑框中的“dddw_dept”改成“dddw_unit”即可。
5、创建主窗口w_main,其上建数据窗口控件dw_1，其dataobject为d_1。
再在主窗口w_main的open事件中写入如下脚本：
long ll_newrow
sqlca.dbms = “odbc”
sqlca.autocommit = true
sqlca.dbparm = “connectstring=dsn=smpdb”//odbc数据源已配置好
connect;
dw_1.settransobject(sqlca)
dw_1.retrieve()
然后再在数据窗口dw_1的itemfocuschanged事件中写入如下脚本：
integer rtncode
string ls_nowfld,ls_deptid,ls_sql
datawindowchild fld_child
rtncode = dw_1.getchild(“unit_id”,fld_child) file://获得unit_id字段下拉数据窗口的句柄
if rtncode = -1 then messagebox(“错误!”, “不是下拉数据窗口!”)
fld_child.settransobject(sqlca) file://设置事务对象
ls_sql = lower(fld_child.getsqlselect())// 获得dddw的sql语句
// 去除sql 语句中的where条件子句， 如原sql 语句中须有where条件子句，此处则需进行较
file://复杂的处理，应视具体情况而定。
if pos(ls_sql, ” where “)>0 then ls_sql = left(ls_sql,pos(ls_sql, ” where “))
file://重新设置sql 语句中的where条件子句
ls_deptid=dw_1.object.dept_id[getrow()] file://取得当前dept_id选定值
ls_sql = ls_sql + ” where dept_id = ” +trim(ls_deptid)+””
file://重新设置sql 语句
fld_child.setsqlselect(ls_sql)
fld_child.retrieve()//取得满足条件的数据
6、在应用dddw的open事件中写入：open(w_main)
至此，应用建立完毕，已可运行。
注：在win98/windowsxp、powerbuilder8.0/powerbuilder7.0/powerbuilder6.5下通过。
补充说明：
(一)、odbc数据源设置
打开windows操作系统的“开始”菜单–à设置–à控制面板–àodbc数据源，出现“odbc数据源管理器”窗口，在“系统dsn”页签中点击“添加(d)…”按钮，出现“创建新数据源”窗口，双击列表框中“adaptive server anywhere 7.0”选项，即弹出“odbc configuration for adaptive server…”窗口，在odbc标签页的“data source name”文本框中输入smpdb, 在database标签页的database name文本框输入smpdb, database file文本框输入带路径的数据库文件名及后缀，如数据库smpdb.db在c:\program files ybase\adaptive server anywhere 7.0文件夹中，此处即输入c:\program files ybase\adaptive server anywhere 7.0 mpdb.db,或点击“browse…”按钮选择数据库文件,然后点击“确定”按钮,odbc数据源即设置完毕。其他数据源可参照设置。
(二)、powerbuilder8.0有关问题
powerbuilder8.0中创建应用先须创建（或打开）workspace(*.pbw)文件,其他操作基本同powerbuilder7.0。本示例在powerbuilder8.0中运行需如下三个文件：dddw.pbl, dddw.pbw，dddw.pbt(已压缩在dddw_db.zip中)。如图(-)为powerbuilder8.0中编辑本示例的主窗口w_main的样图。
示例在powerbuilder6.0/6.5、powerbuilder7.0、powerbuilder8.0中的运行结果图见下面附图。
图(-)powerbuilder8.0中编辑本示例的主窗口w_main
附1 示例在powerbuilder6.0/6.5中的运行结果图
附2 示例在powerbuilder7.0中的运行结果图
附3 示例在powerbuilder8.0中的运行结果图
