PB中相关联下拉数据窗口的实现_常用软件_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

PB中相关联下拉数据窗口的实现

作者：闵涛文章来源：闵涛的学习笔记点击数：750 更新时间：2009/4/24 21:44:50

　　近日在开发过程中遇到使用下拉数据窗口的情况：数据表Data中有二列Dept_id（主管部门编码）、Unit_id（企业编码）的取值分别来自数据表Dept（主管部门）及Unit（企业基本情况），且要求选择某一主管部门后，能将该主管部门的所有企业显示出来以便选择。有关数据表的结构如下（已简化）：

表名字段名类型长度关键字含义 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()//取得满足条件的数据

　　6、在应用dddw的Open事件中写入：Open(w_main)

　　至此，应用建立完毕，已可运行。

　　注：在Win98/WindowsXP、PowerBuilder8.0/PowerBuilder7.0/PowerBuilder6.5下通过。

[办公软件]在sybase中插入图片、PDF、文本文件  [办公软件]安装Sybase ASE
[办公软件]linux指令大全(完整篇)  [办公软件]Linux新手入门常用命令大全
[办公软件]在RedHat Linux 9里安装gaim0.80  [办公软件]浅谈Linux 下Java 1.5 汉字方块问题解决方法
[办公软件]Linux程序员必读：中文化与GB18030标准  [办公软件]linux指令大全
[办公软件]制作Linux启动盘的四种方法  [办公软件]Linux文件系统的反删除方法

教程录入：mintao 责任编辑：mintao

上一篇教程： Visual FoxPro 6.0与大型数据库的无数据源连接

下一篇教程： PB动态报表格式自由定义的实现

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· 办公软件 · 系统软件
· 常用软件 · 聊天工具

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……