一、创建一个附加功能的外接程序数据库(mda)。
因为只是为了做mda讲解演示,所以我并没有在实例中添加实质的附加功能,只是做了一个弹出消息的功能模拟演示。你可以在今后自建的外接程序中附加更为实用的功能。
1、新建一个数据库,我定义的名字:测试实例.mdb,新建窗体(frmAddins),在窗体中添加一个按钮(CmdMsg),Caption属性值:“打开消息”。(见下图)
按钮CmgMsg单击事件中添加如下代码:
'程序功能:单击事件弹出消息框
Private Sub CmdMsg_Click()
MsgBox "这是外接程序MDA测试程序!", vbInformation, "江羽提示:"
End Sub
2、在数据库中新建一个标准模块(模块1),在模块中创建一个自定义公用函数(OpenFrmAddins),用以调用打开外接程序窗口。
'函数功能:用以调用打开窗体frmAddins
Public Function OpenFrmAddins()
DoCmd.OpenForm "frmAddins"
End Function
3、在外接程序数据库中建立名为(UsysRegInfo)的系统表,用以完成外接程序的注册表中的注册 (见下图)。
(1)建立(UsysRegInfo)的系统表
提示:1、为确保UsysRegInfo系统表的安全,你可在表属性中设定其隐藏;
2、系统表名不能随意定义,必须为:UsysRegInfo ,否则将无法完成注册。
(2)UsysRegInfo系统表各字段名及数据类型(见下图):
(3)UsysRegInfo系统表中数据内容(见下图)解析