|
其中包含一个数据窗口控件dw_1，四个图形按钮pb_1、pb_2、pb_3、pb_4，一个下拉列表ddlb_1，三个命令按钮cb_1、cb_2、cb_3，三个单行编辑框sle_1、sle_2、sle_3。
下拉列表框ddlb_1的作用是选择不同的表。在它的item属性中设置两项："农户信息"和"生产信息"，作为表名提示信息。当选择某一项时，通过代码设置与该表对应数据窗口对象。通过修改和添加item项以及相应代码，即可以在数据窗口控件动态挂接任意数据窗口对象，从而实行对任意表的查询。这里设置的"农户信息"、"生产信息"两项，只是例子。
当下拉列表框ddlb_1的选项改变时，产生selectionchanged事件，通过下面程序代码，确定与表对应的数据窗口对象，动态挂接到数据窗口控件dw_1上，显示其内容，以便下一步查询。
string t_n_s,t_n_d //表名提示信息，数据窗口对象名
t_n_s=ddlb_1.text //取出表名提示信息
CHOOSE CASE t_n_s //确定相应的数据窗口对象名
CASE "农户信息"
t_n_d="d_nhxx"
CASE "生产信息"
t_n_d="d_scxx"
END CHOOSE
parent.title="通用全字段查询窗口→"+t_n_s //重新设置窗口标题
parent.dw_1.dataobject=t_n_d //动态指定数据窗口对象
parent.dw_1.SetTransObject(SQLCA)
parent.dw_1.Retrieve()
sle_1.text=string(dw_1.RowCount()) //显示记录总数
sle_2.text=string(dw_1.GetRow()) //显示当前记录号
Parent.cb_1.TriggerEvent("clicked") //激活"擦除条件"的"clicked"事件
按钮cb_1（擦除条件）的作用是清除单行编辑框sle_3中的查询条件表达式，并使复合查询标志cmx置成"假"。复合查询标志cmx为"真"表示条件表达式中带有逻辑运算符（只使用AND），否则为简单的关系表达式。cb_1的clicked事件只有两行代码：
cmx=False //清复合查询标志
sle_3.text="" //清查询条件表达式
"开始查询"按钮cb_2的作用是从单行编辑框sle_3中取出查询条件表达式，并以此作为过滤条件，对数据窗口控件的内容进行过滤，实现查询。cb_2的clicked事件代码为：
dw_1.SetFilter(sle_3.text) //设置过滤条件
dw_1.Filter( ) //激活过滤
sle_1.text=string(dw_1.RowCount()) //显示记录总数
sle_2.text=string(dw_1.GetRow()) //显示当前记录号
为了在数据窗口控件中输入查询内容，同时又不破坏表中原来的数据，我们给数据窗口控件dw_1的itemchanged事件编写一行代码：
return 1 //拒绝数据
再给itemerror事件编写一行代码：
return 3 //拒绝数据并改变焦点
为显示当前记录号，在数据窗口控件dw_1的rowfocuschanged事件编写一行代码：
sle_2.text=string(dw_1.GetRow()) //显示当前记录号
接下来，最重要的一件事是对数据窗口控件dw_1的rbuttondown事件编码。当单击鼠标右键时，需要弹出一个关系描述符菜单，根据选择的菜单项，确定对应的关系运算符，并保存到全局变量op_r中。比如，选择"小于等于"，得到关系运算符"<=",且赋给全局变量op_r。然后，取得当前列名、类型和当前控件的内容，组合成一个关系表达式。如果复合查询标志cmx的值为真，则用逻辑运算符"AND"组成逻辑表达式。关系表达式或逻辑表达式作为过滤条件字符串保存到sle_3.text中，显示在屏幕上并供"开始查询"按钮的clicked引用。
数据窗口控件dw_1的rbuttondown事件代码如下：
string FieldName,FieldType,FT,cts //列名，列类型，列类型的左四个字符，列信息
m_popup m_new //菜单变量声明
m_new=create m_popup //建立弹出菜单
m_new.m_r.PopMenu(parent.pointerX(),parent.pointerY()) //弹出关系符描述菜单
FieldName=GetColumnName() //取得当前列名
FieldType=Describe(FieldName+".ColType") //取得当前列类型
FT=left(FieldType,4) //列名左边四个字符
cts=GetText() //取得当前控件内容
If cmx Then sle_3.text=sle_3.text+" AND " //复合条件
If FT="numb" or FT="deci" or FT="long" or FT="real" THEN //形成过滤条件(数值型)
sle_3.text=sle_3.text+FieldName+op_r+cts
Else //形成过滤条件(C,d,t型)
If op_r="in" Then
sle_3.text=sle_3.text+"Pos("+FieldName+",'"+cts+"')>0"
Else
sle_3.text=sle_3.text+FieldName+op_r+"'"+cts+"'"
End If
End If
cmx=True //置复合条件标志
Return //返回
用来控制当前记录的四个图形按钮pb_1、pb_2、pb_3、pb_4的clicked事件代码分别为：
dw_1.ScrollToRow(1) //第一条记录
dw_1.ScrollPriorRow() //前一记录
dw_1.ScrollNextRow() //下一记录
dw_1.ScrollToRow(dw_1.RowCount()) //最后一条记录
每改变当前记录后，都用一行代码
sle_2.text=string(dw_1.GetRow())显示当前记录号。
"退出"按钮cb_3的clicked事件代码为close(parent)。
至此，一个可对任意数据窗口对象、任意字段设置条件的通用查询窗口设计完成。
三、使用
前面设计的查询窗口可作为一个通用模块挂接到任意一个PB应用软件当中，挂接时只要修改窗口中下拉列表框ddlb_1的item属性和selectionchanged代码，然后打开该窗口即可。
窗口打开后，通常要做的第一件事，是单击窗口中"表名"右边的下拉列表，选择需要的表所对应的数据窗口对象。某一数据窗口对象被选中后，便显示在数据窗口控件中，同时改变窗口标题并显示出记录总数和当前记录号。接下来便可指定条件进行查询。
1、设置查询条件 单击某一字段的编辑区，输入要查询的部分或全部信息，单击鼠标右键，弹出一个菜单，从菜单中选择需要的某一项（关系运算符），即可在下面"查询条件"右边的单行编辑框中显示出关系表达式。继续操作，单行编辑框中便形成由逻辑运算符"AND"连接多个关系表达式的逻辑表达式。
2、开始查询 按Alt+Q或单击"开始查询"按钮，查询结果、满足条件的记录数、当前记录号显示在窗口。
3、擦除和修改条件 用前面方法设置的查询条件表达式在单行编辑框中可以左右滚动查看。如果操作有误或想重新设置查询条件，可按Alt+C或单击"擦除条件"按钮，也可在单行编辑框中直接修改查询条件。 条件表达式被擦除后，再进行查询，得到的便是当前数据窗口对象的所有记录。
4、记录翻阅 单击窗口上的四个图形按钮 或用Ctrl+Home、Ctrl+End、PgUp、↑、PgDn、↓键，或托动滚动条，均可实现对记录的翻阅。
四、结束语
上面介绍的通用查询窗口精巧、灵活、实用性强，已用于多个管理信息系统，大大提高了软件的开发效率和质量。
|
