在考生文件夹下有一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。 (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为

admin2013-11-19  41

问题 在考生文件夹下有一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。请在此基础上按照以下要求补充设计。
    (1)设置表对象“tEmp”中“聘用时间”字段的有效性规则为:1991年1月1日(含)以后的时间。相应有效性文本设置为“输入一九九一年以后的日期”。
    (2)设置报表“rEmp”按照“性别”字段升序(先男后女)排列输出;将报表页面页脚区域内名为“tPage”的文本框控件设置为“-页码/总页数-”形式的页码显示(如-1/15-、-2/15-、……)。
    (3)将“fEmp”窗体上名为“bTitle”的标签上移到距“btnP”命令按钮l厘米的位置(即标签的下边界距命令按钮的上边界1厘米),并设置其标题为“职工信息输出”。
    (4)根据以下窗体功能要求,对已给的命令按钮事件过程进行补充和完善。在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),弹出一输入对话框,其提示文本为“请输入大于0的整数值”。
  输入1时,相关代码关闭窗体(或程序)。
  输入2时,相关代码实现预览输出报表对象“rEmp”。
  输入>=3时,相关代码调用宏对象“mEmp”以打开数据表“tEmp”。
  注意:不要修改数据库中的宏对象“mEmp”;不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不要修改表对象“tEmp”中未涉及的字段和属性。
    程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句,从而完成设计,不允许增、删和修改其他位置已存在的语句。
  Option Compare Database
  Private Sub btnP_Click()
    Dim k As String
    k=InputBox(”请输入大于0的整数值”)
    If k=””Then Exit Sub
    Select Case Val(k)
   *****Addl*****
   *****Add*****
    DoCmd.RunMacro“mEmp”
    Case 2   
    *****Add2*****
    *****Add2*****
    Case 1
    DoCmd.Close
    End Select  
End Sub

选项

答案(1)[操作步骤] 步骤l:选择“表”对象,右键单击“tEmp”,从弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“聘用时间”字段行任一点,在“有效性规则”和“有效性文本”行分别输入“>=#11991-1-1#”和“输入一九九一年以后的日期”。 步骤3:单击“保存”按钮,关闭设计视图。 (2)[操作步骤] 步骤1:选择“报表”对象,右键单击“rEmp”,从弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击菜单栏“视图”|“排序与分组”命令,在“排序与分组”对话框的“字段/表达式”下拉列表中选中“性别”字段,在“排序与分组”下拉列表中选中“升序”,关闭“排序与分组”对话框。 步骤3:右键单击“tPage”,从弹出的快捷菜单中选择“属性”命令,在“全部”选项卡“控件来源”行输入:“=”-“&[Page]&”/“&[Pages]&”-“”,关闭属性界面。 步骤4:单击工具栏中“保存”按钮[*],关闭设计视图。 (3)[操作步骤] 步骤1:选择“窗体”对象,右键单击“fEmp”,从弹出的快捷菜单中选择“设计视图”命令。 步骤2:右键单击“btnp”按钮,从弹出的快捷菜单中选择“属性”命令,查看“上边距”,并记录下来,关闭属性窗口。 步骤3:bTitle要放在btnp上面1cm处,所以bTitle的上边距应该是btnp的上边距减1cm再减bTitle的高度。右键单击“bTitle”标签,从弹出的快捷菜单中选择“属性”命令,在“标题”行输入“职工信息输出”,在“上边距”行输入“1cm”,关闭属性窗口。 (4)[操作步骤] 步骤1:右键单击命令按钮“输出”按钮,从弹出的快捷菜单中选择“事件生成器”命令,空行内输入如下代码。 *****Add1***** Case Is>=3 *****Add1***** *****Add2***** DoCmd.OpenRepor“rEmp” *****Add2***** 关闭界面。 步骤2:单击工具栏中“保存”按钮[*],关闭设计视图。

解析 第1题在设计视图中设置字段属性;第2、3小题分别在窗体和报表设计视图单击该控件选择“属性”命令,设置属性;第4小题直接右键单击命令按钮,在弹出的对话框中选择“事件生成器”,进入编程环境,输入代码。
转载请注明原文地址:https://kaotiyun.com/show/Yyrp777K
0

最新回复(0)