Access与Flash的结合应用（祥解）附源码 - Office中国论坛/Access中国论坛

以下是引用sanjian在2003-12-19 23:27:00的发言：
   应黄海大师的提议,Access与Flash的结合应用（祥解）附源码
这是一个access较为豪华的包装范例，他调用了flash的流媒体控件，利用flash的交互与通信功能，借以达到了我们装扮软件的目的。
flash具有动感强、色彩艳丽、体积小巧、支持动画和交互性好等等一些access并不具备的特点，尤其它的“流”技术更是无可比拟，它可以边加载边播放，即使是一些较大的影片文件，我们也无须等待。可以想象，一个完美的flash动画加上我们的access核心技术应该是何等的惬意呀！
  本例应该分为两个部分。一是flash制作：范例中的动感效果、声音效果、按钮事件等都是由flash中完成的。flash中有一个重要的通信函数“fscommand”它可以将一个字符串传递给承载它的windows程序，本例中它的承载程序是一个ActiveX 控件既flash.ocx,也就是说:当我们点击一个flash按钮时,如"进货管理",我们可以让fscommand函数为我们向flash.ocx控件传递一个具有特定标识意义的字符串,再由access加以识别处理就可以了.以"进货管理"为例:我在按钮的flash的单击动作中加入以下代码:
on (release) {
            fscomfscommand();
mand ("JHGL");
      }
"JHGL"就是这一按钮的特定标识,以后再在access中加以识别处理.
第二个部分是access程序.他主要的作用是对接收到的字符串加以识别,看看到底是哪个按钮被按下了,然后再做相应的处理.各位都是access的行家了,不在赘述.提供代码如下:
Private Sub Flash_FSCommand(ByVal command As String, ByVal args As String)
Select Case command
Case "JHGL"
      MsgBox "您将进入“进货管理”模块"
Case "CHGL"
      MsgBox "您将进入“出货管理”模块"
Case "KCGL"
      MsgBox "您将进入“库存管理”模块"
Case "CWGL"
      MsgBox "您将进入“财务管理”模块"
Case "help"
      MsgBox "您将进入“使用帮助”模块"
Case "help"
      MsgBox "您将进入“进货管理”模块"
Case "close"
      MsgBox "再见！sanjian.5944.net"
      DoCmd.Close

End Select

End Sub

flash媒介的应用客观上也减轻了access的负担，通常由access来完成的鼠标事件等等现在都由flash来完成了。它还自带了一些常用组件如：文本框、列表框等，可以读取外部数据等技术都为我们的应用带来新的课题，有待我们深入开发，可以想见这是一个有着美好前途的应用项目。
需要在此罗嗦几句的是，本范例的自动注册控件的技术，它是当今access最完美的自动注册技术，是本人的看家资本，一并奉献，以此感谢access中国对我的帮助。例中有较为详细的注解，各位可以仔细品味。另外，本人的flash技术实在是太洼，只得在国外的网站中下载了一个较好的作品，指在让各位充分体验flash的神奇魅力。

[attach]2846[/attach]
http://sanjian.accxp.com/images/name.gif[/IMG]