'2003平台默认启用导出按钮
Function MouseOnClick(CmdNumber As Integer)
    Dim objButton As Object
    Call [Microsoft Access Help].MouseOnClick(CmdNumber)
    For Each objButton In Forms!usysfrmMain!steelToolBar.Buttons
        If objButton.Caption = "导出" Then
            objButton.Enabled = True
        End If
    Next
End Function