Office中国论坛/Access中国论坛

标题: [Access小品] 遍历、视频、动画及其他 [打印本页]

作者: todaynew 时间: 2009-8-10 13:53
标题: [Access小品] 遍历、视频、动画及其他
本帖最后由 todaynew 于 2009-8-10 13:58 编辑

前两天问了一个关于遍历表和查询的问题，因为过后没有来论坛及时查看。今天看到aslxt 同志给了一个用查询解决的方案，还没来得及测试，先在此对aslxt 同志表示感谢。除了aslxt 同志的解决方案外，这两天用闲暇的时间，也对这个问题进行了一番研究，找到了解决此问题的另外途径，并由此写了一个实例。在这个实例中，集中展示了以下问题的处理方法：

1、如何用查询得到一个收发存的平衡表？
答案：问题的核心是计算期末库存问题。在用查询来解决的时候，至少可以用子查询和Dsum函数两种方法。本例采用的是Dsum函数的方法，可在设计界面打开【收发存查询】查看。

2、如何用一个子窗体反映多个表和查询的数据？
答案：问题的核心是遍历当前数据库中的表和查询，以便得到表和查询的名称，在以此基础上更换子窗体数据源。本例是自定义了一个【MyTbNameList()】函数，这个函数可以获得表和查询的名称列表。在窗体的加载事件中调用该函数，将列表做为一个组合框的数据源。通过这个组合框的更新后事件来改变子窗体数据源。可在设计界面查看【公共模块】中的【MyTbNameList()】函数，重点关注Set Tb = CurrentProject.Connection.OpenSchema(adSchemaTables)语句，可用F1查询OpenSchema的相关资料。

3、如何进行多个组合框的联级查询？
答案：问题的核心是通过上级组合框的值对下级组合框数据源进行筛选，这个问题相对简单，不再赘述。

4、如何对字符串表示的公式进行计算？
答案：问题的核心是对Eval函数的使用。本例中展示了用一个公式和若干个变量对不同聚合函数的计算方法。可在设计界面中查看【计算】子程序。

5、如何在窗体中加入动画效果？
答案：问题的核心是对控件的定位、移动和大小变化。本例对子窗体的展开过程采用了动画效果，方法是用一个组合框的位置确定展开的起点，然后通过循环来控制子窗体的移动和展开大小。可在设计界面查看【公共模块】中的【展开】子程序。调用【展开】子程序时，需要“主窗体名称”、“子窗体名称”、“组合框或文本框名称”、“子窗体宽度”四个参数。

6、如何获得路径及文件名？
答案：问题的核心是使用windows或者office查找文件的功能。本例采用了论坛中其他网友所写的函数来解决这个问题。可在设计界面查看【公共模块】中的【GetFolder()】函数，需要注意的是这个函数使用前，需要在引用中勾选Microsoft Office 11.0 Object Library选项。

7、如何播放视频教程？
答案：问题的核心是使用windows的播放器。本例采用了论坛中其他网友所写的函数，说实在的这个函数很复杂，我是没有看懂，不过能使用就可以了。可在设计界面查看【mdlPlayAvi】模块，如果不想做深入研究直接导入你的系统就可以使用了。另外在调用的【frmPlayAvi】窗体中还有一些代码，也可以采用导入窗体的方法直接使用。
在播放视频时，需要将其他不用的程序以及本系统中的窗体关闭，否则Access会死掉。估计是这个函数占用的资源比较多。
录制视频不是这里讨论的问题，但是还是建议采用Camtasia比较好，录制的视频和音频效果都很不错。可以在网上方便找到破解版，如果你的银子比较多的话，还是买正版以此支持知识产权。

作者: leijiqiang 时间: 2009-8-10 14:14
好东西,顶呀

作者: yanwei82123300 时间: 2009-8-10 15:23
谢谢，todaynew与大家分享

作者: lanshai 时间: 2009-8-10 16:59
hap

作者: df 时间: 2009-8-10 23:30
谢谢，分享

作者: goto2008 时间: 2009-8-10 23:32

谢谢...学习一下

作者: asklove 时间: 2009-8-11 07:52
学学，藏藏

作者: zhufree 时间: 2009-8-11 08:14
很好，非常感谢

作者: huangxiuwen 时间: 2009-8-11 09:31
学习

作者: todaynew 时间: 2009-8-11 11:30
谢谢同志们支持

作者: wzh 时间: 2009-8-13 14:23
谢谢...学习一下

作者: sailing_han 时间: 2009-8-14 12:37
谢谢，分享

作者: apsfxc1 时间: 2009-8-22 12:29
学习..

作者: wufeng980114 时间: 2009-12-31 21:14
收藏了，谢谢

作者: ycxchen 时间: 2010-1-1 09:16
todaynew的精品真多，学习了！

作者: 胡说八道 时间: 2010-1-31 21:50
好东西

作者: zhidao 时间: 2015-1-17 11:23
分享万岁

作者: 小小一心 时间: 2015-2-26 18:04
可以点击按钮或鼠标停留，而播放对应的音频吗？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)