| 表 名 | 字段名 | 类型 | 长度 | 关键字 | 含义 |
| Data | Dept_id | Char | 5 | 否 | 主管部门编码 |
| Unit_id | Char | 9 | 是 | 企业编码 | |
| Num | Numeric | 7(无小数) | 否 | 上交金额 | |
| Dept | Id | Char | 5 | 是 | 主管部门编码 |
| Name | Char | 15 | 否 | 主管部门名称 | |
| Unit | Id | Char | 7 | 是 | 企业编码 |
| Name | Char | 30 | 否 | 企业名称 | |
| Dept_id | Char | 5 | 否 | 主管部门编码 |
为实现这些要求，可将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()//取得满足条件的数据 |
上一页 下一页
