Office中国论坛/Access中国论坛

标题: 一般外接程序（MDA）实例讲解 [打印本页]

作者: tanhong 时间: 2010-6-3 19:48
标题: 一般外接程序（MDA）实例讲解
外接程序也称“增益集”或“加载项”。是指在ACCESS中外挂的具有扩展功能并且含有VBA代码的数据库，后缀通常为mda 。制作好的外接程序（mda）可以直接当成一个内置功能来使用。
一、创建一个附加功能的外接程序数据库(mda)。
因为只是为了做mda讲解演示，所以我并没有在实例中添加实质的附加功能，只是做了一个弹出消息的功能模拟演示。你可以在今后自建的外接程序中附加更为实用的功能。
1、新建一个数据库，我定义的名字：测试实例.mdb，新建窗体（frmAddins），在窗体中添加一个按钮（CmdMsg），Caption属性值：“打开消息”。（见下图）
[attach]42337[/attach]
按钮CmgMsg单击事件中添加如下代码：

'程序功能：单击事件弹出消息框
Private Sub CmdMsg_Click()

MsgBox "这是外接程序MDA测试程序！", vbInformation, "江羽提示："
End Sub

2、在数据库中新建一个标准模块（模块1），在模块中创建一个自定义公用函数（OpenFrmAddins），用以调用打开外接程序窗口。

'函数功能：用以调用打开窗体frmAddins
Public Function OpenFrmAddins()

DoCmd.OpenForm "frmAddins"
End Function

3、在外接程序数据库中建立名为（UsysRegInfo）的系统表，用以完成外接程序的注册表中的注册 (见下图)。

[attach]42338[/attach]

（1）建立（UsysRegInfo）的系统表
[attach]42339[/attach]

提示：1、为确保UsysRegInfo系统表的安全，你可在表属性中设定其隐藏；

2、系统表名不能随意定义，必须为：UsysRegInfo ，否则将无法完成注册。

（2）UsysRegInfo系统表各字段名及数据类型（见下图）：
[attach]42340[/attach]

作者: tanhong 时间: 2010-6-3 19:53
本帖最后由 tanhong 于 2010-6-3 19:56 编辑

（3）UsysRegInfo系统表中数据内容（见下图）解析
[attach]42341[/attach]

Subkey：
HKEY_CURRENT_ACCESS_PROFILE\Menu add-Ins ：表示登陆或注册表位置为HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\Access\Menu Add-Ins\
Menu add-Ins：表示将外接程序当成一个命令添加 [加载项] 菜单中，如果将外接程序设置控制项或向导，则设置为：Wizards\Control Wizards\江羽自定义向导
江羽实例演示(&C) ：表示在登陆位置新增的子键，并在 [加载项]，添加 [江羽实例演示] 子菜单
说明：当在其它数据库加载后会在 [工具] — [加载项] 菜单中添加一个子菜单 [江羽实例演示]（见下图）
[attach]42342[/attach]

Type:
0：表示没有定义或无需添加键值
1：表示字符串(String)键值
4：表示双字节(Dword)键值

ValName和Value

Expression: 表示外接程序在菜单中打开的函数，值为：=OpenFrmAddins（）
Library:
表示外接程序加载后默认的位置，值为：|ACCDIR\测试实例.mda
，在2003中外接程序加载后默认位置为：C:\Documents and Settings\江羽\Application Data\Microsoft\AddIns ，会在此默认位置之中复制一个mda副本
Description: 为外接程序的说明文字，对于外接程序没有实质作用，可省略

（4）点 [文件]—[数据库属性]菜单项，打开数据库属性对话框，输入相关说明，以便在“加载管理器”对话框中显示。
[attach]42343[/attach]

（5）点保存后退出外接程序数据库，到此外接程序其本完成，将其文件名后缀由mdb改为mda ，为保护你的外接程序的成果，你也可以将其转为mde后再修改后缀名。
二、在任意一个数据库中调用或安装外接程序方法与步骤。1、点菜单 [工具]—[加载项]—[加载项管理器]，打开加载管理器对话框
[attach]42344[/attach]

[attach]42345[/attach]
[attach]42346[/attach]

三、使用已加载的外接程序

[attach]42347[/attach]

（全文结束）

江羽 2010-05-11晚

实例样本下载:[attach]42348[/attach]

作者: xuwenning 时间: 2010-6-4 08:31
谢谢分享
收藏了

作者: xie62 时间: 2010-6-4 10:07

作者: xie62 时间: 2010-6-6 13:38
收藏了

作者: dhf327ex 时间: 2011-9-30 08:59
这个是好东西，下了学习学习

作者: yanghua1900363 时间: 2011-10-23 09:30
大师就是大师佩服！

作者: cjnt007 时间: 2013-7-10 17:06
支持一下

作者: 李力军2 时间: 2016-9-1 18:01
谢谢，学习了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)