access开发教程第5章第7节

来源:www.accessoft.com 点击数:16327 　 | 收藏 | 复制

时　间:2008-11-25 09:26:30
作　者:Access软件网编著 ID：11 城市：上海 QQ：3002789054
摘　要:5.7 查询功能的设计与应用
正　文:

5.7 查询功能的设计与应用
     前面基础数据界面的数据源取查询，就是为了这里实现查询，主要因为如果通过查询的界面的字段直接采用英文字段名称的话，并非十分友好的设计。这会让一般的操作人员比较痛苦，与此同时，也没有必要让普通用户知道实际的字段名称。
     查询的功能的添加很简单，直接进入 frmBxmx_child 窗体的代码编辑的页面，如下图所示：

     新起一行，输入下列代码：
     Public Sub btnFind()
     DoCmd.OpenForm "usysfrmFind"

     Forms!usysfrmFind!cobfldName.RowSourceType = "值列表"
     '文本型对应 3 ，日期型对应 1 ，数值型对于 2
     Forms!usysfrmFind!cobfldName.RowSource = "报销日期;1;类别名称;3;员工姓名;3;报销金额;2;报销摘要;3;"
     '指定查询数据来源
     Forms!usysfrmFind!labDataSource.Caption = "qryBxmx"
     End Sub
     Public Sub FindEnd()
     Forms!usysfrmMain!frmChild.Form.RecordSource = Acchelp_ChildFormRecordSource("qryBxmx", "报销编号", True)
     End Sub
     确认无误，保存修改。之后同时添加查询和导出导航按钮并赋予权限，之后进入报销管理界面，如下图所示：

如上图所示，单击查找按钮（注意到现在导出按钮不可用），则如下图所示：

     假使在这里，我们要查询张三报销的手机费明细，则依次如此选择或者填写：
     字段名：员工姓名；表达式：等于；关键字：李三。
     以上选项，连起来的意思就是：员工姓名等于李三。选择完成之后，单击添加条件按钮，则如下图所示：

     再依此如下继续选择：
     字段名：类别名称；表达式：等于；关键字：手机费；条件：并且（表示这一个条件与上一个条件是并的关系）。选择完成之后，如下图所示：

单击添加条件按钮，则如下图所示：

确认符合你的查询要求之后，即可直接单击查询按钮执行查询，如果发现输入有错，则可以单击清除按钮清除代码区的显示，重新设置查询条件，当前执行查询之后如下图所示：

请注意到这个时候已经显示出了查询结果，并且工具栏上的导出按钮亦已经被激活，单击数据查询的关闭按钮关闭数据查询对话框，就可以仔细查看结果数据集了，如果你需要将该结果导出，亦是可以的。现在单击关闭按钮关闭数据查询对话框，之后再单击导出按钮，则如下图所示：

     如图所示，本开发平台默认提供四种导出格式，即： Excel 表格格式、记事本格式、 HTML 网页格式以及 MDB 的 Access 数据库文件格式，这是本开发平台系统内置的功能，当设置了查询功能之后，该导出功能自动具备。
     定义查询结果集导出的目的文件目录（单击导出文件目录之后的省略号按钮即可通过鼠标单击的方式确定导出目录的文件路径），和导出文件名称，并选择导出文件格式，在本例子中选择如下：

确认之后，单击导出按钮，其结果如下图所示：

     我们可以看到，字段名称被自动做为结果集的标题栏，现在就可以对这个 Excel 表格进行随心所欲的编辑了，很好用的查询和导出的功能。
     或许有人会问，如果我想导出所有的数据怎么办，那也很简单，你设置一个所有数据都满足的查询的条件即可，比如日期类（介于两个日期之间）、数据类（介于两个数字之间）、文本型（任何数据都不包含的一个特殊的字符串）都可以很方便地实现这一点。
     如果要在查询之后，重新显示全部数据，就当前的例子来说，单击工具栏上的关闭按钮退出报销管理，重新进入即可。
相关索引：上一节下一节

Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店

【打印此文】【关闭窗口】