窗体报表操作题答案

第5章窗体窗体1-5：2、4、10、16、71窗体6-10：2、3、18、32、35窗体11-15：47、53、56、59、62窗体16-20：70、72、107、109、130Access窗体操作题代码中常用的属性：标题Caption；前景色foreColor；是否可用Enabled；记录源RecordSource4、（5）设置命令按钮bTest的单击事件属性为给定的宏对象m1；本题直接选择事件，运行宏m1如果要求写入运行宏的代码就为：docmd.runmacro“宏名称”即：docmd.runmacro“m1”35、（5）设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。要求用VBA代码实现。属性设置为：对象名.属性名=值窗体为：form.属性名=值如：form.caption=time()也可以：me.caption=time()本题是将CDID文本框所带标签改变颜色：CDID_标签.forecolor=vbred或CDID_标签.forecolor=rgb(255,0,0)53、（1）将窗体fEmp上文本框tSS更改为组合框类型，保持控件名称不变。设置其相关属性实现下拉列表形式输入性别男和女；选择文本框右键，选择更改为组合框，在属性窗口设置属性行来源：男;女（不要选择控件来源），行来源类型：值列表。（2）修改查询对象qEmp为参数查询，参数为引用窗体对象fEmp上文本框tSS的输入值；在查询qemp的设计视图下：添加性别字段，在条件行输入：[forms]![femp]![tss]。注意：性别不显示。（3）设置窗体对象fEmp上文本框tPa为计算控件。要求依据党员否字段值显示内容：党员否字段值为True，显示党员两字；党员否字段值为False，显示非党员三字；=iif([党员否]=true,”党员”,”非党员”)（4）单击刷新按钮（名为bt1），事件过程动态设置窗体记录源为查询对象qEmp，实现窗体数据按性别条件动态显示；单击退出按钮（名为bt2），关闭窗体。Form.recordsource=”qemp”Docmd.close56、（5）在窗体中有一个显示全部记录命令按钮（名称为bList），单击该按钮后，应实现将tStudent表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。Select*fromtstudent可以参考这条语句上面的语句。59、（5）在窗体中有一个退出命令按钮（名称为bQuit），单击该按钮后，应关闭fStudent窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。Docmd.close62、（5）在窗体中还有修改和保存两个命令按钮，名称分别为CmdEdit和CmdSave，其中保存命令按钮在初始状态为不可用，当单击修改按钮后，应使保存按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。cmdsave.enabled=true70、（1）将窗体fEmp上文本框tSS更改为组合框类型，并保持控件名称不变；同53题（2）修改查询对象qEmp为参数查询，参数为引用窗体对象fEmp上文本框tSS的输入值；同53题（3）设置窗体对象fEmp上文本框tAge为计算控件。要求根据年龄字段值依据以下计算公式计算并显示人员的出生年；计算公式：出生年=Year(Date())-年龄或出生年=Year(Now())-年龄=Year(Date())-[年龄]（4）单击退出按钮（名为bt2），关闭窗体。补充事件代码。Docmd.close71、（5）当单击退出命令按钮时，运行宏关闭窗口，关闭menu窗体，返回到数据库窗口下。本题以命令按钮向导做最为容易，学会是否出现控件向导的操作72、（5）在窗体中还有修改和保存两个命令按钮，名称分别为CmdEdit和CmdSave，其中保存命令按钮在初始状态为不可用，当单击修改按钮后，保存按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在口令文本框中输入的内容与在确认口令文本框中输入的内容不相符，当单击保存按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。Cmdsave.enabled=true另一个代码在学完编程再做107、（5）在窗体页眉中距左边0.5厘米，上边0.3厘米处添加一个标签控件，控件名称为Tda，标题为系统日期。窗体加载时，将添加标签标题设置为系统当前日期。窗体加载事件已提供，请补充完整。在窗体的加载事件写入代码：docmd.runmacro“m1”tda.caption=date()109、（4）窗体加载时设置窗体标题属性为****年职工信息输出，其中****为系统当前年。窗体加载事件代码已提供，请补充完整。窗体的加载事件写入代码Form.Caption=year(date())&“年职工信息输出”130、（4）假设tStud表中，学号字段的第5位和6位编码代表该生的专业信息，当这两位编码为10时表示信息专业，为其他值时表示管理专业。设置窗体中名称为tSub的文本框控件的相应属性，使其根据学号字段的第5位和第6位编码显示对应的专业名称。=iif(mid([学号],5,2)=”10”,”信息”,”管理”)（5）在窗体中有一个退出命令按钮，名称为CmdQuit，其功能为关闭fStud窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。Docmd.close第6章报表报表1-51、dlookup(“名称”,”tgroup”,”部门编号=’”&[所属部门]&”’”)2、[基本工资]+[津贴]+[补贴][基本工资]+[津贴]+[补贴]-[住房基金]-[失业保险]3、year(date())&”年”&month(date())&”月”4、count[团队ID]5、[page]&”/”&[pages]报表6-9设置窗体背景是图片属性iif([性别]=1,”男”,”女”)iif([性别]=“男”and[年龄]20,true,false)4、year(date())-[年龄]报表10-132、form.caption=date3、round(avg([单价]),2)4、iif(sum([数量]*[单价])30000,”达标”,”未达标”)