10.5“零售商店管理信息系统” 宏对象属性设计 ③10.51“ Auto Exed”宏对象 10.52“柜存信息”宏对象 返回
10.5 “零售商店管理信息系统” 宏对象属性设计 10.5.1 “AutoExec”宏对象 10.5.2 “柜存信息”宏对象 返回
1051“ AutoExec?宏对象 1.“ AutoExec宏对象的功用 “ AutoExec”宏对象设计参数
10.5.1 “AutoExec”宏对象 1.“AutoExec”宏对象的功用 2.“AutoExec”宏对象设计参数
1.“ AutoExec”宏对象的功用 命名为“ AutoExec”的宏对象是 Access 2003数据库中的一个特殊功能宏。首次 打开一个 Access2003数据库时, Access 2003将自动寻找这个宏对象,如果找到 了的话,Accs2003就会去执行这个宏 所指定的操作序列 基于 Access2003的这一特性,“零售商店 管理信息系统”数据库中创建了这个名 为“ AutoExec的特殊宏,以保证一旦打 开零售商店管理信息系统”数据库,即 刻执行这个宏所设定的操作
命名为 “ AutoExec” 的宏对象是 Access 2003数据库中的一个特殊功能宏。首次 打开一个Access 2003数据库时，Access 2003将自动寻找这个宏对象，如果找到 了的话，Access 2003就会去执行这个宏 所指定的操作序列。 基于Access 2003的这一特性，“零售商店 管理信息系统”数据库中创建了这个名 为“AutoExec”的特殊宏，以保证一旦打 开“零售商店管理信息系统”数据库，即 刻执行这个宏所设定的操作。 1.“AutoExec”宏对象的功用
实际上,“零售商店管理信息系统”数据 库中的“ AutoExec宏只包含一项打开窗 体的操作: Open Form零售商店管理信息系统” anOrmal. anOrmal 用于在打开零售商店管理信息系统”数 据库时,自动打开“零售商店管理信息系 统”的主控窗口“零售商店管理信息系 统”,使得发布的数据库应用系统得以 顺利启动
实际上， “零售商店管理信息系统”数据 库中的“AutoExec”宏只包含一项打开窗 体的操作： OpenForm “零售商店管理信息系统” , acNormal, "", "", , acNormal 用于在打开“零售商店管理信息系统”数 据库时，自动打开“零售商店管理信息系 统”的主控窗口“零售商店管理信息系 统” ，使得发布的数据库应用系统得以 顺利启动
Q2.“ AutoExec去宏对象设计参数 零售商店管理信息系统”数据库中的 “ Autoexec宏对象设计参数如图10-11所 小
“零售商店管理信息系统”数据库中的 “AutoExec”宏对象设计参数如图10-11所 示。 2.“AutoExec”宏对象设计参数
Q1011 Autoexec宏对象设计视图 r autoexec:宏 回区 宏名条件 操作 注释 0 perFormˇ打开“零售商店管理信息系统”窗体 操作参数 窗体名称 零售商店管理信息系统 视图 窗体 在“窗体”视图、“设 筛选名称 十”视图、“打印预览” hee条件 或“数据表”视图中打开 数据模式 窗体。按F1键可获取此 操作的帮助信息。 窗口模式 普通
图10-11 “AutoExec”宏对象设计视图
10.52“柜存信息”宏对象 1.“柜存信息”宏对象的功用 2.“柜存信息”宏对象设计参数
10.5.2 “柜存信息”宏对象 1.“柜存信息”宏对象的功用 2.“柜存信息”宏对象设计参数
1.“柜存信息宏对象的功用 为了方便营业员在销售商品的过程中随时 地査阅柜存商品信息,在“零售商店管理 信息系统”数据库中创建了一个名为 “柜存信息”的宏。在“销售数据录入” 窗体运行期间,单击窗口中的“柜存信 柜存信息“ ”,即可刻执 行这个宏所设定的操作
为了方便营业员在销售商品的过程中随时 地查阅柜存商品信息，在“零售商店管理 信息系统”数据库中创建了一个名为 “柜存信息”的宏。在“销售数据录入” 窗体运行期间，单击窗口中的“柜存信 息”命令按钮“ ”，即可刻执 行这个宏所设定的操作。 1.“柜存信息”宏对象的功用
实际上,零售商店管理信息系统”数据库中 的“柜存信息”宏只包含两项操作,第一项为 给出即将进入柜存数据查询的操作提示,第二 项为打开“商品柜存数据査询”窗体的操作 将其转换为等价的VBA程序,其内容为: 柜存信息 Function柜存信息( On Error goto柜存信息Err 给出进入柜存数据查询的提示
实际上， “零售商店管理信息系统”数据库中 的“柜存信息”宏只包含两项操作，第一项为 给出即将进入柜存数据查询的操作提示，第二 项为打开“商品柜存数据查询”窗体的操作。 将其转换为等价的VBA程序，其内容为： '------------------------------------------------------------ ' 柜存信息 '------------------------------------------------------------ Function 柜存信息() On Error GoTo 柜存信息_Err ' 给出进入柜存数据查询的提示
Beep MsgBox"进入柜存记录查询", vbOKOnly,"柜存 信息" 打开“商品柜存数据查询”窗体 DoCmd Open Forr"商品柜存数据查询" anOrmal, , acReadOnly, anOrmal 柜存信息Exit: ExIt function 柜存信息Er MsgBox errors Resume柜存信息Exit End Function
Beep MsgBox "进入柜存记录查询", vbOKOnly, "柜存 信息" ' 打开“商品柜存数据查询”窗体 DoCmd.OpenForm " 商品柜存数据查询 " , acNormal, "", "", acReadOnly, acNormal 柜存信息_Exit: Exit Function 柜存信息_Err: MsgBox Error$ Resume 柜存信息_Exit End Function