资源预览内容
第1页 / 共12页
第2页 / 共12页
第3页 / 共12页
第4页 / 共12页
第5页 / 共12页
第6页 / 共12页
第7页 / 共12页
第8页 / 共12页
第9页 / 共12页
第10页 / 共12页
亲,该文档总共12页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述
- 1 -270105:设置规格字段的输入掩码为 9 位字母、数字和字符的组合。其中,前 3 位只能是数字,第 4 位为大写字母V,第 5 位为字符,最后一位为大写字母W,其他位为数字。000V-999W 010304:按编号字段的前 4 位分组统计每组记录的平均年龄,并将统计结果显示在组页脚节区。【视图菜单-排序/分组-选择编号字段-组页脚选是。在设计视图中,将“编号”文本框移动到组页脚节,设置控件来源属性:=Left(编号,4) 在编号页脚添加一个文本框,对应的标签标题改为“平均年龄” ,设置文本框的控件来源为“=avg(年龄)” ,并设置文本框的“名称”属性为“tAvg” 】020201:计算并输出教师最大年龄与最小年龄的差值,显示标题为m_age【添加一个计算字段 m_age:Max(年龄)-Min(年龄) 】020303:设置报表主体节区内文本框tDept的控件来源为计算控件。要求该控件可以根据报表数据源里的所属部门字段值,从非数据源表对象tGroup中检索出对应的部门名称并显示输出。(提示:考虑 DLookup 函数的使用。)【设置控件来源: DLookUp(名称,tGroup,所属部门部门编号) 】030103:设置工作时间字段的有效性规则为:只能输入上一年度五月一日以前(含)的日期【工作时间字段的有效性规则为: 5】030204:将编号与姓名合二为一输出,标题为“管理人员”【添加计算字段: 管理人员:编号+姓名 】030303:设置复选框选项按钮 opt1 和 opt2 的默认值属性为假值。【选中按钮属性默认值设置为:False 】040203:显示学号和平均成绩两列内容。其中平均成绩一列数据由统计计算得到,将查询命名为qT3。【查询新建设计视图添加成绩表选择学号和成绩字段总计成绩字段的总计行选择平均值在“成绩”的前面添加: 平均成绩: 保存命名为 qT3 】050203:显示tLine表的所有字段内容,然后添加一个计算字段优惠后价格,计算公式为:优惠后价格费用*(110%)。【选择指定的字段之后,添加计算字段: 优惠后价格:费用*0.9 】050302:在导游姓名字段标题对应的报表主体区添加一个控件,显示出导游姓名字段值。【添加文本框控件,属性控件来源设置为“导游姓名”名称属性设置为: tName 】050303:报表页脚区添加一个计算控件,要求依据团队 ID来计算并显示团队的个数。计算控件放置在团队数:标签的右侧,计算控件命名为bCount。【在报表页脚区添加文本框控件属性控件来源设置为:=Count(团队 ID) - 3 -】060103:设置工作时间字段的默认值属性为本年度的 4 月 1 日(规定:本年度年号必须由函数获取)。【设计视图工作时间默认值属性设置为: DateSerial(Year(Date(),4,1) 】060106:设置编号字段的输入掩码为只能输入 5 位数字或字母形式。【设计视图编号输入掩码属性设置为: AAAAA 】070101:将学生入校时间字段的默认值设置为下一年度的一月一日(规定:本年度的年号必须用函数获取)。【设计视图入校时间默认值属性设置为:DateSerial(Year(Date()+1,1,1) 】070105:将宏mTest重命名保存为自动执行。【选中宏 mTest单击右键重命名为: AutoExec 确定 】070302:设置报表rEmp按照性别字段降序(先女后男)排列输出;将报表页面页脚区内名为tPage的文本框控件设置为按第 N 页/共 M 页形式的页码显示。【选择 tPage属性控件来源设置为: =第&Page&页/共&Pages&页】080203:查找年龄小于平均年龄的学生,并显示其姓名。【选择姓名和年龄年龄字段不显示年龄条件行输入: =0 -有效性文本属性设置为:成绩应为非负数,请重新输入!】450204:创建一个查询,删除临时表对象tTemp中年龄为奇数的记录,将查询命名为qT4。【创建删除查询-年龄字段的条件行输入:年龄 mod 2=1 -运行-保存命名 】450303:将报表纪录数据按照姓氏分组升序排列,同时要求在相关组页眉区域添加一个文本框控件(命名为tm),设置属性显示出姓氏信息来,如陈、刘、.等。注意,这里不用考虑复姓等特殊情况。所有姓名的第一个字符视为其姓氏信息。【设计视图-空白处点右键-排序与分组-姓名升序,组页眉选择是-关闭-选中姓名文本框拖到姓名页眉-控件来源设置为:=left(姓名,1) -关闭-保存 】460304:假设tStud表中,学号字段的第 5 位和 6 位编码代表该生的专业信息,当这两位编码为10时表示信息专业,为其他值时表示管理专业。设置窗体中名称为tSub的文本框控件的相应属性,使其根据学号字段的第 5位的第 6 位编码显示对应的专业名称;【报表设计视图-选中文本框-点右键-控件来源属性设置为:=IIf(mid(tnum,5,2)=10,信息,管理) -保存-关闭属性界面 】- 11 -第二部分 编程题目040303:单击命令按钮运行宏 m1: DoCmd.RunMacro m1040305:标签 Tda 标题设置为系统当前日期: Tda.Caption=Date080305:使“保存”按钮 CmdSave 变为可用: CmdSave.Enabled=True090203:将文本框 tText 的内容作为窗体中标签 bTitle 的标题显示:bTitle.Caption=Me!tText090305:窗体加载时窗体标题属性为系统当前日期: Form.Caption=Date100304:打开窗体、单击计算按钮(名为 bt),事件过程使用 ADO 数据库技术计算出表对象tEmp中党员职工的平均年龄,然后将结果显示在窗体的文本框tAge内并写入外部文件中。If rs.RecordCount=0 Then ; tAge=sage120305:将 tStudent 表中的全部记录显示出来: Select * From tStudent130305:窗体加载时窗体标题属性为系统当前日期: Form.Caption=Date140305:消息框: MsgBox 请重新输入口令!,vbOkquit150304:输入框: k=InputBox (请输入大于 0 的整数值)预览输出报表对象rEmp: DoCmd.OpenReport rEmp,acViewPreview160304: Case Is=3预览输出报表对象rEmp: DoCmd.OpenReport rEmp,acViewPreview170304: Dim f(19) As Integer f(i)=f(i-1)+f(i-2)tData=f(19)- 12 -180304:单击刷新按钮,窗体记录源改为查询对象qEm: Form.RecordSource=qEmp单击退出按钮,关闭窗体: DoCmd.Close190303:窗体fEmp的加载事件中设置标签bTitle以红色文本显示:bTitle.Caption=vbRed实现报表预览输出: mdPnt acViewPreview200304:消息框: MsgBox 报表预览,vbQuestion+vbYesNo,确认210304:动态设置窗体记录源为查询对象qEmp: Form.RecordSource=qEmp280304:将考生文件夹下的图片文件test.bmp设置为窗体fEmp的背景:Form.Picture=CurrentProject & test.bmp320305:CDID 文本框内内容显示颜色改为红色: CDID.ForeColor=vbRed330304:动态设置窗体记录源为查询对象qEmp: Form.RecordSource=qEmp关闭窗体: DoCmd.Close380304: 关闭窗体: DoCmd.Close400305: 关闭窗体: DoCmd.Close410305:使“保存”按钮 CmdSave 变为可用: CmdSave.Enabled=True420203:将文本框中输入的内容与文本串等级考试测试连接,并消除连接串的前导和尾随空白字符,用标签bTitle显示连接结果: bTitle.Caption=Trim(tText) & 等级考试测试420303:关闭窗体: DoCmd.Close440304:动态设置窗体记录源为查询对象qEmp: - 13 -Form.RecordSource=qEmp450304,:预览输出报表对象rEmp: DoCmd.OpenReport rEmp,acViewPreview460305:关闭窗体: DoCmd.Close470305:用户名和密码正确: If name = eucb And pass = 1234 Then光标置于用户名文本框中: Me!tUser.SetFocus点退出按钮关闭窗体: DoCmd.Close480305:单击“退出”按钮,关闭当前窗体 DoCmd.Close单击“保存”按钮, “修改”按钮不可用 CmdEdit.Enable=FalseMe!用户名_1.Enabled = FalseMsgBox 请重新输入口令!, vbOKquit
网站客服QQ:2055934822
金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号