[Access小品] 遍历、视频、动画及其他

todaynew

前两天问了一个关于遍历表和查询的问题，因为过后没有来论坛及时查看。今天看到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

好东西,顶呀

yanwei82123300

谢谢，todaynew与大家分享

lanshai

hap

df

谢谢，分享

goto2008

谢谢...学习一下

asklove

学学，藏藏

zhufree

很好，非常感谢

huangxiuwen

学习

todaynew

谢谢同志们支持