應黃海大師的提議,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的神奇魅力。
