真题试卷70

题量:3题
题型:问答题
试卷简介: 真题试卷70, 此试卷为参加"Access数据库程序设计"的考生提供的"真题试卷70"的答案和解析。

试题预览

1 问答题 18分
在考生文件夹下,存在一个数据库文件"samp1.mdb" ,里边已经设计好了表对象"tDoctor"、"tOffice"、"tPatient"和"tSubscribe",同时还设计了窗体象"fSubscribe"。试按以下操作要求,完成各种操作:
   (1)分析"tSubscribe"预约数据表的字段构成,判断并设置其主键。设置" 科室ID"字段的字段大小,使其与"tOffice"表中相关字段的字段大小一致。删除医生"专长"字段。
   (2)设置"tSubscribe"表中"医生ID"字段的相关属性,使其输入的数据只能为第1个字符为"A",从第2个字符开始后三位只能是0~9之间的数字,并设置该字段为必填字段。设置"预约日期"字段的有效性规则为:只能输入系统时间以后的日期。
   要求:使用函数获取系统时间。
   (3)设置"tDoctor"表中"性别"字段的默认值为"男",并设置该字段值的输入方式为从下拉列表中选择"男"或"女"选项值。设置"年龄"字段的有效性规则和有效性文本,有效性规则为:输入年龄必须在18岁至60岁之间(含18岁和60岁),有效性文本内容为:"年龄应在18岁到60岁之间"。
   (4)设置"tDoctor"表的显示格式,使表的背景颜色为"褐色2",网格线为"黑色"。设置数据表中显示所有字段。
  (5)通过相关字段建立"tDoctor"、"tOffice"、"tPatient"和"tSubscribe"等四表之间的关系,并实施参照完整性。
   (6)将窗体"fSubscribe"主体节区内文本框"tDept"和"tDoct"的控件来源属性设置为计算控件。要求该控件可以根据窗体数据源里的"科室ID"和"医生ID"字段值,分别从非数据源表对象"tPatient"和"tDoctor"中检索出对应的科室名称和医生姓名并显示输出。
     提示:考虑使用DLookup函数。
3 问答题 18分
考生文件夹下存在一个数据库文件"samp3.mdb",里面已经设计好表对象"tStudent",同时还设计出窗体对象"fQuery"、"fStudent"和"fCount"。请在此基础上按照以下要求补充"fQuery"和"fCount"窗体的设计:
 (1)加载"fQuery"时重置窗体标题改为"显示查询信息",将窗体中"退出"命令按钮(名称为"命令7")上显示的文字颜色自动改为红色(红色值为255),字体粗细改为"加粗"(加粗值为700)。 请按照VBA代码中的指示将实现此功能的代码补充完整。
  (2)在"fQuery"窗体距主体节上边0.4厘米、左边0.4厘米位置添加一个矩形控件,其名称为"rRim";矩形宽度为16.6厘米、高度为1.2厘米、特殊效果为"凿痕"。将窗体边框改为"对话框边框"样式,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线。
(3)在"fQuery"窗体中有一个"显示全部记录"命令按钮(名称为bList),单击该按钮后,应实现将"tStudent"表中的全部记录显示出来的功能。现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
要求:修改后运行该窗体,并查看修改结果。
  (4)在"fCount"窗体中有两个列表框、一个文本框和一个命令按钮,名称分别为"List0"、"List1"、"tData"和"Cmd"。在"tData"文本框中输入一个数,单击"Cmd"按钮,程序将判断输入的值是奇数还是偶数,如果是奇数将填入"List0"列表中,否则填入"List1"列表中。根据以上描述,请按照VBA代码中的指示将代码补充完整。
注意:不允许修改窗体对象"fQuery"、"fStudent"和"fCount"中未涉及的控件、属性;不允许修改表对象"tStudent"。程序代码只允许在"***** Add *****"与"***** Add *****"之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句。