日期:2012-11-13 浏览次数:20164次

应黄海大师的提议,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的神奇魅力。