水晶易表其中一个数据连接方式:FS命令,这个FS命令其实就是Flash本身的FS命令功能,通过此功能,开发者可以把每个动作设置一个参数返回,然后ShockWave控件的FS_Command事件就能接收到这个参数,继而进行相应的事件代码操作,实现SWF文件和其他软件进行交互。
窗体示例1的代码:
Private Sub ShockwaveFlash0_FSCommand(ByVal command As String, ByVal args As String)
Dim a
‘args水晶易表设置的参数返回的一个指定值
a = Split(args, "|")
If command = "A" Then’command,水晶易表设置的参数名称
If args <> "全部" Then
Me.表1_子窗体.Form.RecordSource = "select * from 表1 where 地区='" & args & "'"
Else
Me.表1_子窗体.Form.RecordSource = "select * from 表1"
End If
ElseIf command = "B" Then
Me.表1_子窗体.Form.RecordSource = "select * from 表1 where 地区='" & a(0) & "' and 月份 ='" & a(1) & "'"
ElseIf command = "edit" Then
CurrentDb.Execute "Update 表1 set 销售额=" & a(2) & " where 地区='" & a(0) & "' and 月份='" & a(1) & "'"
Me.表1_子窗体.Requery
End If
End Sub