在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补充“fStud”窗体的设计: (1)在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘

admin2018-09-20  17

问题 在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补充“fStud”窗体的设计:
    (1)在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线控件,控件宽度为10.5厘米,控件命名为“tLine”。
    (2)将窗体中名称为“1Talbel”的标签控件上的文字颜色改为“蓝色”(蓝色代码为#0072BC)、字体名称改为“华文行楷”、字体大小改为22。
    (3)将窗体边框改为“细边框”样式,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线,并且只保留窗体的关闭按钮。
    (4)假设“tStud”表中,“学号”字段的第5位和6位编码代表该生的专业信息,当这两位编码为“10”时表示“信息”专业,为其他值时表示“管理”专业。设置窗体中名称为“tSub”的文本框控件的相应属性,使其根据“学号”字段的第5位和第6位编码显示对应的专业名称。
    (5)在窗体相关事件中,代码重置窗体标题为“XXXX年度党员学生信息”,这里XXXX为系统日期四位当前年;代码设置窗体的记录源为表对象“tStud”中的党员信息。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
    (6)在窗体中有一个“退出”命令按钮,名称为“CmdQuit,其功能为关闭“fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。
    注意:不允许修改窗体对象“fStud”中未涉及的控件、属性和任何VBA代码;不允许修改表对象“tStud”;
    程序代码只允许在“***Add***”与“***Add***”之间的空行内补充一行语句完成设计,不允许增删和修改其它位置已存在的语句。

选项

答案【操作步骤】 (1)步骤1:双击“samp3.accdb”数据库,在对象导航窗格中右键单击“fStud”窗体,选择右键菜单“设计视图”,进入窗体的设计视图。 步骤2:在<窗体设计工具>选项卡的<控件>命令组中单击“直线”控件,按住键在窗体页眉区内绘制直线;鼠标右键单击直线,在右键菜单中选择“属性”,在弹出的<属性表>对话框内修改“名称”为“tLine”“上边距”为“1.2cm”“左”为“0.4cm”“宽度”为“10.5cm”。如图11-13所示。 [*] 步骤3:单击快速访问工具栏中的“保存”按钮,保存设置。 (2)步骤1:在“fStud”的设计视图中,在<属性表>对话框上方的对象选择器中选中“1Talbel”标签控件,在“格式”选项卡设置“前景颜色”为“#0072BC”(使用颜色代码更为准确)、“字体名称”为“华文行楷”“字号”为“22”。 步骤2:单击“保存”按钮,保存设置。 (3)步骤1:在“fStud”的设计视图中,在<属性表>对话框上方的对象选择器中选中“窗体”。 步骤2:在“格式”选项卡中,设置“边框样式”为“细边框”“滚动条”为“两者均无”“记录选择器”为“否”“导航按钮”为“否”“分隔线”为“否”“关闭按钮”为“是”“最大最小化按钮”为“无”。设计完毕的窗体<属性表>对话框如图11-14所示。 [*] 步骤3:单击快速访问工具栏中的“保存”按钮,保存设置。 步骤4:单击<窗体设计工具>选项卡中<视图>命令组的“窗体视图”命令运行窗体,如图11-15所示。 [*] (4)步骤1:在对象导航窗格中右键单击“fStud”窗体,选择菜单“设计视图”,进入窗体的设计视图。 步骤2:在<属性表>对话框上方的对象选择器中选中“tSub”文本框控件,设置“控件来源”属性为:=IIf(Mid([tNum],5,2):"10","信息","管理")。 步骤3:单击快速访问工具栏中的“保存”按钮,保存设置。 (5)步骤1:在“fStud”的设计视图中,在<属性表>对话框上方的对象选择器中选中“窗体”,单击“事件”选项卡,在“加载”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。 步骤2:在“****Add1****”之间输入: Me.Caption=Year(Date)&"年度党员学生信息" 步骤3:在“****Add2****”之间输入: Me.RecordSource="tStud" 步骤4:单击快速访问工具栏中的“保存”按钮,保存设置。 (6)步骤1:在“fStud”的设计视图中,单击“退出”命令按钮控件,单击<属性表>对话框的“事件”选项卡,在“加载”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。 步骤2:在“****Add3****”之间输入: DoCmd.Close acForm,"fStud" 步骤3:单击快速访问工具栏中的“保存8”按钮,关闭代码窗口。单击<窗体设计工具>选项卡中<视图>命令组的“窗体视图”命令运行窗体,如图11-16所示。 [*] 步骤4:关闭“gStud”窗体。并关闭“samp3.accdb”窗口。

解析
转载请注明原文地址:https://kaotiyun.com/show/CjMp777K
0

最新回复(0)