[请求帮助]自动化创建各种类型窗体

liu8812026

121212说的有道理。此事应分两步：
1、功能提纯，做成组件标准化。
2、调用组件装配成窗体。
Access的最大特点是快速满足需求。如果大量的时间用于编程其实不合算。
因此制作各种标准的功能级的组件最关键。
非程序员只要了解有哪些组件？如何调用？工作流程的事他们比程序员更清楚，编写的程序会更实用。

ccfpc

自订 Microsoft Access 精灵


1 / 4 页???▼下一页
　
如何制作加载宏（精灵）
加载宏本身也是Access格式之数据库，其扩展名为MDA。但加载宏不一定是「工具」→「加载宏」内之选项，其它如数据表精灵、查询精灵、窗体或报表精灵等皆是加载宏。您可更改或自订数据库、数据表精灵之内容，使之符合您的环境，以下分别说明建立及安装自订加载宏。
▼ 建立加载宏
请使用一般数据库之制作方式，建立加载宏档案，但有两个重点，一是储存为MDA档（在「档案总管」中，更改扩展名即可）；另是以函数或宏，在开启加载宏后，立即执行指定功能。一个MDA文件可含有多个加载宏功能，而每一功能皆须有加以启动的函数或宏。
加载宏之功能可由读者定义，如在「新增数据表」之对话框内增加自订之数据表精灵，此精灵之对话框在MDA文件内即为窗体，所以读者须控制各窗体之执行顺序，并「记住」使用者在每一窗体选取之内容（使用公用变量），以便处理。通常在MDA文件定义之加载宏功能，皆须使用VBA，因宏不甚方便。
加载宏之MDA档案建立完成后，尚有一个重要动作，就是将MDA档登录至Windows，读者可启动Windows 95或98数据夹下的「Regedit.exe」档，此档内含所有登录至Windows系统的内容，如图1为Access 2000中，「工具」→「加载宏」内各选项之登录位置及内容：图1表示在「工具」→「加载宏」中现有两个选项，一是预设的「加载宏管理员」，另是自订之「报表邮寄精灵」。除此之外，图1中的「Wizards」机码为Access 2000各精灵之登录位置。

图1 已安装至Access之加载宏
【注意】 若您对于Windows系统之登录设定不是相当熟悉，最好不要更改登录编辑程序的内容，因为Windows及各应用软件的运作，皆依赖此处登录之内容，不当更改可能造成无法运作，登录编辑程序等于是Windows之控制中心。
?How To 如何自订加载宏功能？
请您开启Test.mda档案，使用「工具」→「选项」，在「检视」中选取「系统对象」及按下「确定」按钮。此时会显示「USysRegInfo」数据表，开启后如图2画面所示。USysRegInfo是MDA文件内不可缺少的数据表，功能为登录至Windows，也就是将MDA文件之功能登录至图1内。

图2 UsysRegInfo资料表
USysRegInfo数据表的第一笔记录定义增益功能要登录至那一个位置，如您自订一个数据表精灵，且将放置于「工具」→「加载宏」内，则Subkey字段之值可为「HKEY_LOCAL_MACHINE \SOFTWARE\Microsoft\Office\9.0\Access\Menu Add-Ins\测试加载宏」，其中「测试加载宏」，是将显示于「工具」→「加载宏」内之选项名称。
第一笔记录之Type字段请输入0，ValName及Value则保留空白。第二笔记录的Subkey字段与第一笔相同，如前述之「HKEY_LOCAL_MACHINE \SOFTWARE\Microsoft\Office\9.0\Access\Menu Add-Ins\测试加载宏」。
若一个MDA文件含有多项自订功能，且每一功能均须登录时，请在图2新增多笔记录，各记录之「Subkey」字段值若相同，表示这数笔记录是为同一加载宏。使用USysRegInfo数据表有两个重点，一是将登录至那一位置，位置决定您自订之增益功能启动方式，如笔者在图2之设定，表示自订增益功能将显示在「工具」→「加载宏」内；另一重点是各功能在第二笔以后记录之登录内容，以下说明可用之登录内容（如表1）。

Type
ValName
Value?
?适用自订功能?
4
Can Edit
?0或1，表示自订之精灵或建立帮手可(1)否(0)更改 现有对象之属性
控件精灵或帮手?
1
Description?
自订功能之说明?
各自订功能均可使用
1
Function?
启动自订增益功能之函数
?同上
1
Library
含有自订增益功能之数据库(MDA)路径及文件名
同上
1
Bitmap?
对应至自订增益功能之位图路径及文件名?
新增物件?
4
Datasource Required
0或1，功能为定义使用者是(1)否(0)须选取资料来源?
画面及报表精灵
4
Index
由0开始的数字，定义自订增益功能在新增对象对话框之显示位置，由上而下由0开始
新增对象之对话框
1
Expression?
启动自订增益功能之函数
位于菜单之增益功能
表1 自订增益功能可用之登录项目

表1共有八项登录项目，「适用自订功能」之意是各项可使用之自订增益功能为何，因Access允许自订多种型态的增益功能，如精灵、建立帮手、在菜单内之增益功能等。
差异较大的是Function及Expression，二者皆是定义启动自订增益功能之函数，但后者只可使用在将放置于「工具」→「加载宏」内之加载宏，前者则使用在其它型态之自订增益功能。另外表1之各登录项目只有Library﹑Function﹑Expression为必要，余皆为选用。
另在图2最后一笔记录之「Value」字段中，其值是「|ACCDIR\test.mda」，其中「|ACCDIR」表示Access安装加载宏之预设路径，因为在安装时，Access会将MDA档案由原始位置复制至另一路径，「|ACCDIR」即代表此一新路径。
若在Aceess 97，此路径是Office97\Office；若为Access 2000，此路径在Windows\Application Data\Microsoft\AddIns内。所以不论您自订之MDA档案储存在何处，若依图2的设定，加载宏档案均会被复制，且执行时，是执行被复制的那一份。
　

▼ 安装加载宏
您可使

自由弧

李版主
我有中文版的，但我安不上，老是提示插入1号盘您有兴趣试试吗？

自由弧

我希望用ACCESS实现这样的窗体

自由弧

李版主我已装好开发版，但不会用，您要吗？
feng30771@sohu.com

Kiss-win

自由弧：您好，不知道您的Access开发版本能否给我一个？我在找呢：）

自由弧

没问题。还有谁要？feng30771@sohu.com

binuochao

我也想要！binuochao@sina.com.cn
QQ:10077241

linda0418

可以给我发一个吗？
E-MAIL：MOORE7408@263.NET

hp750329

我也想要
E-MAIL：hp750329@SINA.COM