简单查询功能有关窗体的制作

4.9.3　简单查询功能有关窗体的制作

【例4-15】“简单查询”窗体的制作。

简单查询窗体可以实现几个参数查询的功能，包括按性别、联系人类型、姓名、年龄和婚否查询。窗体最终运行效果如图4-75所示。刚开始，参数选择控件为不可用状态（灰色显示），单击某个查询类型切换按钮，对应的参数输入控件变成可用状态。

1.制作步骤

（1）在设计视图中打开一空白窗体，名称为“简单查询”。

（2）单击选项组控件，按住鼠标左键不放在窗体上拖动至合适大小后释放，即可添加一个选项组控件，并自动添加一个标签，将标签的标题设为“请选择查询类型”。在选项组控件中依次添加5个切换按钮，标题依次为“按性别查询”、“按类型查询”、“按姓名查询”、“按年龄查询”和“按婚姻查询”。可以利用向导完成，详细操作请参考4.5.2节。

图4-75　简单查询窗体运行效果

（3）单击矩形控件，按住鼠标左键不放在窗体上拖动至合适大小后释放，即可添加一个矩形控件，在其上方添加一个标签控件，并将标签的标题设为“参数选择”。在矩形中依次添加3个组合框控件，系统会自动添加3个标签，将标签的标题依次设置为“请选择性别”、“请选择类型”、“请选择姓名”。3个组合框名称依次为cbosex、cbotype和cboname，设置cbosex组合框的“行来源类型”属性为“值列表”，“行来源”属性为“"男";"女"”；cbotype组合框的“行来源类型”属性为“表/查询”，“行来源”属性为“SELECT联系人类型查询.联系人类型 FROM 联系人类型查询;”；cboname组合框的“行来源类型”属性为“表/查询”，“行来源”属性为“SELECT 联系人姓名查询.姓名 FROM 联系人姓名查询;”

（4）添加2个文本框用来输入年龄上限值和下限值。将对应的标签标题设为“请输入年龄”和“<=年龄<=”，文本框的名称分别为txtyoung和txtold。在右方添加一个命令按钮，标题为“确定”。

（5）在矩形控件的最下方添加一个选项组，利用向导完成2个单选按钮的添加。详细操作请参考4.5.2节。同样在右方也添加一个命令按钮，标题为“确定”。

（6）将窗体的“加载事件”、3个组合框的“更改事件”、2个文本框的“更新前事件”以及2个命令按钮的“单击事件”均设置为事件过程，单击每个事件过程右方的省略号可打开VBA编程窗口进行代码编写。

说明：以上是“简单查询”窗体的界面设计，关于窗体的功能实现请参考第7章的VBA编程。

2.查询结果显示相关窗体制作说明

当用户单击“按性别查询”切换按钮后，性别参数输入有效，选择性别后即自动执行“更改事件”代码，弹出“按性别查询窗体”，显示查询结果，如图4-76所示。该窗体的制作以及后面的其他几个查询结果显示窗体均与“按记录浏览联系人”窗体类似，这里不再赘述。

图4-76　“按性别查询窗体”显示效果

“按性别查询窗体”中增加了一个“预览报表”命令按钮，用来预览报表，该功能可以利用向导完成。在向导中选择“报表操作”的“预览报表”命令即可，其他操作与前面类似。

这几个查询显示结果窗体的“记录源”属性均为第3章介绍的几个参数查询。其中，“按性别查询窗体”的“记录源”为“按性别查询”；“按类型查询窗体”的“记录源”为“按类型查询”；“按姓名查询窗体”的“记录源”为“按姓名查询”；“按年龄查询窗体”的“记录源”为“按年龄查询”；“按婚姻查询窗体”的“记录源”为“按婚否查询”。这几个查询的设计请参考第3章，这里只对“按性别查询”作简单解释。该查询的设计视图如图4-77所示。

图4-77　“按性别查询”设计视图

在“条件”一行输入表达式：[Forms]![简单查询]![cbosex]，该查询的作用是仅返回“性别”字段值等于“简单查询”窗体中的cbosex控件值的记录。cbosex为“简单查询”窗体中用来选择性别的组合框控件的名称。

其他几个查询的条件依次为：[Forms]![简单查询]![cbotype]、[Forms]![简单查询]![cboname]、>=[Forms]![简单查询]![txtyoung] And <=[Forms]![简单查询]![txtold]、[Forms]![简单查询]![Frame2]。其中，Frame2为按婚姻查询选项组控件的名称。