下面展示如何在数据库启动时进行许可(TBarCode OCX V11 示例)。请在 Microsoft VBA 编辑器中创建一个包含以下函数的新模块:
Public Function LicenseTBarCode()
Dim TB As New TBarCode11
TB.LicenseMe "Mem:Licensee", eLicKindDeveloper, 1, "Key", TBarCode11Lib.eLicProd1D
Set TB = Nothing
End Function
创建一个名为 "Autoexec" 的新宏,并使用以下设置:
Action = RunCode
Function Name = LicenseTBarCode()