基本操作题模块和VBA.docx

基本操作题模块和VBA.docx

《基本操作题模块和VBA.docx》由会员分享，可在线阅读，更多相关《基本操作题模块和VBA.docx（17页珍藏版）》请在冰豆网上搜索。

基本操作题模块和VBA

一、模块和VBA小结：

一、添加标签控件：

1.名称；

2.标题（字体、字号、字型、颜色，高度、宽度等）；

3.位置：

绝对位置（上边界，左边界），相对位置；

二、模块和VBA

实训一：

（1）窗体加载时设置窗体标题属性为系统当前日期。

窗体“加载”事件代码

已提供，请补充完整（文件夹03（5））。

（2）单击“刷新”按钮（名为“bt1”），在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体（文件夹01（4））。

（3）在窗体中有一个“显示全部记录”命令按钮（名称为bList），单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。

现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整（文件夹02（5））。

实训二：

（1）将“fEmp”窗体上名为“btnP”的命令按钮由灰色无效状态改为有效状态。

设置窗体标题为“职工信息输出”（文件夹06（3））。

（2）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色（代码255）。

要求用VBA代码实现（文件夹010（5））。

（3）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。

在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），弹出一输入对话框，其提示文本为“请输入大于0的整数值”。

输入1时，相关代码关闭窗体（或程序）。

输入2时，相关代码实现预览输出报表对象“rEmp”。

输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。

注意：

不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉及的字段和属性（文件夹06（4））。

实训三：

（5）按照以下窗体功能，补充事件代码设计。

在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“cmdQuit”。

在“tUser”和“tPass”两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确，如果输入的用户名称为“cueb”，用户密码为“1234”，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，欢迎进入系统！

”，提示框中只有一个“确定”按钮，当单击“确定”按钮后，关闭该窗体；如果输入不正确，则提示框显示内容为“密码错误！

”，同时清除“tUser”和“tPass”两个文本框中的内容，并将光标置于“tUser”文本框中。

当单击窗体上的“退出”按钮后，关闭当前窗体。

注意：

不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码。

只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条语句，不允许增删和修改其它位置已存在的语句（文件夹014（5））。

三、综合练习

实训一（三、综合应用题）：

（4）窗体加载时将考生文件夹下的图片文件“test.jpg”设置为窗体“fEmp”的背景。

窗体“加载”事件代码已提供，请补充完整。

要求背景图像文件当前路径必须用CurrentProject.Path获得。

注意：

不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句（文件夹016（4））。

实训二（三、综合应用题）：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”和窗体对象“fEmp”。

同时，给出窗体对象“fEmp”上“计算”按钮（名为bt）的单击事件代码，试按以下要求完成设计。

（4）按照以下窗体功能，补充事件代码设计。

窗体功能：

打开窗体、单击“计算”按钮（名为bt），事件过程使用ADO数据库技术计算出表对象“tEmp”中党员职工的平均年龄，然后将结果显示在窗体的文本框“tAge”内。

注意：

不允许修改数据库中表对象“tEmp”未涉及的字段和数据；不允许修改窗体对象“fEmp”中未涉及的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句（文件夹018）。

实训三（三、综合应用题）：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。

同时，给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码，试按以下功能要求补充设计。

（3）在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色（代码为255）文本显示；单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”），事件过程传递参数调用同一个用户自定义代码（mdPnt）过程，实现报表预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏“mEmp”来关闭窗体。

（文件夹015）。

三、文件夹内试题具体操作：

01文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、查询对象“qEmp”、窗体对象“fEmp”和宏对象“mEmp”。

同时，给出窗体对象“fEmp”上一个按钮的单击事件代码，试按以下功能要求补充设计：

功能：

（1）将窗体“fEmp”上文本框“tSS”更改为组合框类型，保持控件名称不变。

设置其相关属性实现下拉列表形式输入性别“男”和“女”。

（2）将窗体对象“fEmp”上文本框“tPa”改为复选框类型,保持控件名称不变，然后设置控件来源属性以输出“党员否”字段值。

（3）修正查询对象“qEmp”设计，增加退休人员（年龄>=55）的条件。

（4）单击“刷新”按钮（名为“bt1”），在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。

注意：

不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改查询对象“qEmp”中未涉及的属性和内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

02文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象

“tStudent”，同时还设计出窗体对象“fQuery”和“fStudent”。

请在此基础

上按照以下要求补充“fQuery”窗体的设计：

（1）在距主体节上边0.4厘米、左边0.4厘米位置添加一个矩形控件，其名称为“rRim”；矩形宽度为16.6厘米、高度为1.2厘米、特殊效果为“凿痕”。

（2）将窗体中“退出”命令按钮上显示的文字颜色改为“深红”（深棕代码为128），字体粗细改为“加粗”。

（3）将窗体标题改为“显示查询信息”。

（4）将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线。

（5）在窗体中有一个“显示全部记录”命令按钮（名称为bList），单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。

现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

要求：

修改后运行该窗体，并查看修改结果。

注意：

不允许修改窗体对象“fQuery”和“fStudent”中未涉及的控件、属性；不允许修改表对象“tStudent”。

程序代码只允许在“**********”与“**********”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

03文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象“tBorrow”、“tReader”和“tBook”，查询对象“qT”，窗体对象“fReader”、报表对象“rReader”和宏对象“rpt”。

请在此基础上按照以下要求补充设计：

（1）在报表“rReader”的报表页眉节区内添加一个标签控件，其名称为“bTitle”，标题显示为“读者借阅情况浏览”，字体名称为“黑体”，字体大小为22，同时将其安排在距上边0.5厘米、距左侧2厘米的位置。

（2）设计报表“rReader”的主体节区为“tSex”文本框控件设置数据来源显示性别信息，并要求按“借书日期”字段升序显示，“借书日期”的显示格式为“长日期”的形式。

（3）将宏对象“rpt”改名为“mReader”。

（4）在窗体对象“fReader”的窗体页脚节区内添加一个命令按钮，命名为“bList”，按钮标题为“显示借书信息”，其单击事件属性设置为宏对象“mReader”。

（5）窗体加载时设置窗体标题属性为系统当前日期。

窗体“加载”事件代码

已提供，请补充完整。

注意：

不允许修改窗体对象“fReader”中未涉及的控件和属性；不允许修改表对象“tBorrow”、“tReader”和“tBook”及查询对象“qT”；不允许修改报表对象“rReader”的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的

空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

04文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、查询对象“qEmp”和窗体对象“fEmp”。

同时，给出窗体对象“fEmp”上两个按钮的单击事件代码，试按以下要求补充设计。

（1）将窗体“fEmp”上名称为“tSS”的文本框控件改为组合框控件，控件名称不变，标签标题不变。

设置组合框控件的相关属性，以实现从下拉列表中选择输入性别值“男”和“女”。

（2）将查询对象“qEmp”改为参数查询，参数为窗体对象“fEmp”上组合框“tSS”的输入值。

（3）将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。

要求依据“党员否”字段值显示相应内容。

如果“党员否”字段值为True,显示“党员”两个字；如果“党员否”字段值为False,显示“非党员”三个字。

（4）在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。

单击“刷新”按钮，窗体记录源改为查询对象“qEmp”；单击“退出”按钮，关闭窗体。

现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

注意：

不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

05文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象“tEmployee”和宏对象“m1”，同时还设计出以“tEmployee”为数据源的窗体对象“fEmployee”。

试在此基础上按照以下要求补充窗体设计：

（1）在窗体的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，初始化标题显示为“雇员基本信息”，字体名称为“黑体”，字号大小为18。

（2）将命令按钮bList的标题设置为“显示雇员情况”。

（3）单击命令按钮bList，要求运行宏对象m1；单击事件代码已提供，请补充完整。

（4）取消窗体的水平滚动条和垂直滚动条；取消窗体的最大化和最小化按钮。

（5）在“窗体页眉”中距左边0.5厘米，上边0.3厘米处添加一个标签控件，控件名称为“Tda”，标题为“系统日期”。

窗体加载时，将添加标签标题设置为系统当前日期。

窗体“加载”事件已提供，请补充完整。

注意：

不允许修改窗体对象“fEmployee”中未涉及的控件和属性；不允许修改表对象“tEmployee”和宏对象“m1”。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

06文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。

试在此基础上按照以下要求补充设计：

（1）设置表对象“tEmp”中“年龄”字段的有效性规则为：

年龄值在20到50之间（不含20和50），相应有效性文本设置为“请输入有效年龄”。

（2）设置报表“rEmp”按照“性别”字段降序（先女后男）排列输出；将报表页面页脚区域内名为“tPage”的文本框控件设置为“页码/总页数”形式页码显示。

（3）将“fEmp”窗体上名为“btnP”的命令按钮由灰色无效状态改为有效状态。

设置窗体标题为“职工信息输出”。

（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。

在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），弹出一输入对话框，其提示文本为“请输入大于0的整数值”。

输入1时，相关代码关闭窗体（或程序）。

输入2时，相关代码实现预览输出报表对象“rEmp”。

输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。

注意：

不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉及的字段和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

07文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象“tUser”，同时还设计出窗体对象“fEdit”和“fUser”。

请在此基础上按照以下要求补充“fEdit”窗体的设计：

（1）将窗体中名称为“lRemark”的标签控件上的文字颜色改为“棕色”（棕色代码为128）、字体粗细改为“加粗”。

（2）将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线；将窗体标题设置为“修改用户口令”。

（3）将窗体中名称为“tPass”和“tEnter”文本框中的内容以密码方式显示。

（4）按如下控件顺序设置Tab键次序：

“CmdEdit”→“tUser_1”→“tRemark_1”→“tPass”→“tEnter”→“CmdSave”→“cmdquit”→窗体右侧列表（标题是修改系统用户）。

（5）按照以下窗体功能，补充事件代码设计。

窗体运行后，在窗体右侧显示可以修改的用户名、密码等内容的列表，同时在窗体左侧显示列表中所指用户的信息。

另外，在窗体中还有“修改”、“保存”和“退出”三个命令按钮，名称分别为“CmdEdit”、“CmdSave”和“cmdquit”。

当单击“修改”按钮后，在窗体左侧显示出该窗体右侧光标所指用户的口令信息，同时“保存”按钮变为可用；在“口令”和“确认口令”文本框中输入口令信息后，单击“保存”按钮，若在两个文本框中输入的信息相同，则保存修改后的信息，并先将“保存”命令按钮变为不可用，再将除用户名外的其他文本框控件和标签控件全部隐藏，最后将用户名以只读方式显示；若在两个文本框中输入的信息不同，则显示提示框，显示内容为“请重新输入口令！

”，提示框中只有一个“确定”按钮。

单击窗体上的“退出”按钮，关闭当前窗体。

注意：

不允许修改窗体对象“fEdit”和“fUser”中未涉及的控件、属性和任何VBA代码；不允许修改表对象“tUser”。

只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一条语句，不允许增删和修改其它位置已存在的语句。

08文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、查询对象“qEmp”和窗体对象“fEmp”。

同时，给出窗体对象“fEmp”上“退出”按钮的单击事件代码，试按以下功能要求补充设计。

（1）将窗体“fEmp”上文本框“tSS”更改为组合框类型，并保持控件名称不变。

（2）修改查询对象“qEmp”为参数查询，参数为引用窗体对象“fEmp”上文本框“tSS”的输入值。

（3）设置窗体对象“fEmp”上文本框“tAge”为计算控件。

要求根据“年龄”字段值依据以下计算公式计算并显示人员的出生年。

计算公式：

出生年=Year（Date（））-年龄（4）单击“退出”按钮（名为“bt2”），关闭窗体。

补充事件代码。

注意：

不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

09文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。

试在此基础上按照以下要求补充设计：

（1）设置表对象“tEmp”中“聘用时间”字段的有效性规则为：

1991年1月1日（含）以后的时间、相应有效性文本设置为“输入一九九一年以后的日期”。

（2）设置报表“rEmp”按照“性别”字段升序（先男后女）排列输出；将报表页面页脚区域内名为“tPage”的文本框控件设置为“-页码/总页数-”形式的页码显示（如-1/15-、-2/15-、...）。

（3）将“fEmp”窗体上名为“bTitle”的标签上移到距“btnP”命令按钮1厘米的位置（即标签的下边界距命令按钮的上边界1厘米），并设置其标题为“职工信息输出”。

（4）试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。

在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），弹出一输入对话框，其提示文本为“请输入大于0的整数值”。

输入1时，相关代码关闭窗体（或程序）。

输入2时，相关代码实现预览输出报表对象“rEmp”。

输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。

注意：

不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉及的字段和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

010文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象“tCollect”，查询对象“qT”，同时还设计出以“tCollect”为数据源的窗体对象“fCollect”。

试在此基础上按照以下要求补充窗体设计：

（1）将窗体“fCollect”的记录源改为查询对象“qT”。

（2）在窗体“fCollect”的窗体页眉节区位置添加一个标签控件，其名称为“bTitle”，标题显示为“CD明细”，字体名称为“黑体”，字号大小为20，字体粗细为“加粗”。

（3）将窗体标题栏上的显示文字设为“CD明细显示”。

（4）在窗体页脚节区位置添加一个命令按钮，命名为“bC”，按钮标题为“改变颜色”。

（5）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色（代码255）。

要求用VBA代码实现。

注意：

不允许修改窗体对象“fCollect”中未涉及的控件和属性；不允许修改表对象“tCollect”和查询对象“qT”。

011文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象“tAddr”和“tUser”，同时还设计出窗体对象“fEdit”和“fEuser”。

请在此基础上按照以下要求补充“fEdit”窗体的设计：

（1）将窗体中名称为“Lremark”的标签控件上的文字颜色改为红色（红色代码为255）、字体粗细改为“加粗”。

（2）将窗体标题设置为“修改用户信息”。

（3）将窗体边框改为“对话框边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线。

（4）将窗体中“退出”命令按钮（名称为“cmdquit”）上的文字颜色改为深棕（深棕代码为128）、字体粗细改为“加粗”，并在文字下方加上下划线。

（5）在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修改“按钮后，应使“保存”按钮变为可用。

现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

012文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、查询对象“qEmp”和窗体对象“fEmp”。

同时，给出窗体对象“fEmp”上两个按钮的单击事件代码，试按以下要求补充设计。

（1）将窗体“fEmp”上名称为“tSS”的文本框控件改为组合框控件，控件名称不变，标签标题不变。

设置组合框控件的相关属性，以实现从下拉列表中选择输入性别值“男”和“女”。

（2）将查询对象“qEmp”改为参数查询，参数为窗体对象“fEmp”上组合框“tSS”的输入值。

（3）将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。

要求依据“党员否”字段值显示相应内容。

如果“党员否”字段值为True,显示“党员”两个字；如果“党员否”字段值为False,显示“非党员”三个字。

（4）在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。

单击“刷新”按钮，窗体记录源改为查询对象“qEmp”；单击“退出”按钮，关闭窗体。

现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。

注意：

不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。

程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

013文件夹：

考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”。

请在此基础上按照以下要求补充“fStud”窗体的设计：

（1）在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线控件，控件宽度为10.5厘米，控件命名为“tLine”；

（2）将窗体中名称为“lTalbel”的标签控件上的文字颜色改为“蓝色"（蓝色代码为16711680）、字体名称改为“华文行楷”、字体大小改为22；

（3）将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条