【access小品】遍历、视频、动画及其他

来源:原创 点击数:8164 　 | 收藏 | 复制

时　间:2009-11-16 08:43:29
作　者:todaynew ID：10802 城市：武汉
摘　要:遍历、视频、动画及其他
正　文:

这是一个面向初学者的实例，在这个实例中，集中展示了以下问题的处理方法：
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比较好，录制的视频和音频效果都很不错。可以在网上方便找到破解版，如果你的银子比较多的话，还是买正版以此支持知识产权。