在考生文件夹下完成下列操作: (1)建立一个文件名和表单名均为formtest的表单,表单中包括一个标签( Labell)、一个列表框( Listl)、一个表格(Gridl),如图3-3所示。 (2)在表单的数据环境中添加“学院表”和“教师表”。 (3)

admin2017-03-28  28

问题 在考生文件夹下完成下列操作:
(1)建立一个文件名和表单名均为formtest的表单,表单中包括一个标签( Labell)、一个列表框( Listl)、一个表格(Gridl),如图3-3所示。

(2)在表单的数据环境中添加“学院表”和“教师表”。
(3)通过属性窗口将标签的标题设为“系名”。
(4)列表框用于显示系名,通过属性窗口将列表框( Listl)的RowSource和RowSourceType屙}生指定为“学院表.系名”和6。
(5)表格用于显示所有教师的相关信息,通过属性窗口将表格( Gridl)的RecordSource和RecordSourceType属性指定为“select职工号,姓名,课时from教师表intocursortmp”和4。
(6)为列表框(Listl)的DblClick事件编写程序。程序的功能是:表单运行时,用户双击列表框中的选项时,将所选系教师的“职工号”“姓名”和“课时”三个字段的信息存入自由表two.dbf中,表中的记录按“职工号”降序排列。
(7)运行表单,在列表框中双击“信息管理”。

选项

答案步骤1:菜单栏上的“新建”按钮,弹出“新建”对话框,选中“表单”单选按钮。 步骤2:单击“新建文件”图标按钮,打开表单设计器。 步骤3:通过属性窗口,选择表单控件,将其“Name”属性设置为“formtest”。 步骤4:在表单中添加一个标签( Labell)、一个列表框( Listl)、一个表格(Gridl)。 步骤5:单击菜单工具栏的“保存”按钮保存表单,弹出“另存为”对话框,输入表单名为“formtest”,单击“保存”按钮完成表单保存。 步骤6:在表单上单击右键,弹出快捷菜单选择“数据环境”子菜单,弹出“添加表或视图”对话框,把“学院表”和“教师表”添加进来,如图4—38所示。 [*] 步骤7:通过属性窗口,选择标签控件,将标签的"Caption"属性设置为“系名”,如图4—39所示。 [*] 步骤8:通过属性窗口,选择标列表框,将列表框(Listl)的RowSource和RowSourceType属性指定为“学院表.系名”和“6—字段”,如图4—40所示。 [*] 步骤9:通过属性窗口,选择表格控件,将表格(Gridl)的RecordSource和RecordSourceType属性指定为“select职工号,姓名,课时from教师表into cursor tmp”和“4— SQL说明”,如图4—41所示。 [*] 步骤10:双击列表框进入事件代码编辑界面,在过程里面选择列表框的DblClick事件,加入代码: Thisform.Gridl.RecordSource="SELECT职工号,姓名,课时FROM学院表,教师表; WHERE学院表.系号=教师表,系号; AND 系名=ALLTRIM( This fo rm.Listl.Value) INTO tabletwo.dbf; order by职工号DESC" 步骤11:保存表单,运行表单,测试双击列表框。 表单的设计和使用、控件属性设置和事件代码编写。

解析 本大题考查了表单的设计、控件属性设置和事件方法编写。
题目要求在双击列表框的时候将所选系教师的“职工号”、“姓名”和“课时”三个字段的信息存入自由表two.dbf中,表中的记录按”职工号”降序排列,因此需要在列表框的DblClick事件代码中加入SQL查询,把查询结果放到表格的RecordSource中。
查询的筛选条件是:“学院表.系号=教师表,系号”且“系名=ALLTRIM (This form.Listl.Value)”,因此事件代码是:Thisform.Gridl.RecordSource=“SELECT职工号,姓名,课时FROM学院表,教师表WHERE学院表,系号=教师表,系号AND系名=ALLTRIM( Thisform.Listl.Value)INTO table two.dbforder by职工号DESC”
转载请注明原文地址:https://kaotiyun.com/show/1qIp777K
0

最新回复(0)