对考生目录下的数据库“学籍”建立文件名为myf的表单，标题为“学籍浏览”。表单含有1个表格控件，用于显示用户查询的信息；表单上有1个按钮选项组，含有“学生信息”，“课程信息”和“选课信息”3个选项按钮。表单上有1个命令按钮，标题为“关闭”。当选择“学生”选项按钮时，在表格中显示“学生信息”表的全部字段；选择“课程”选项按钮时，表格中显示“课程信息”表的字段课程名称；选择“选课”选项按钮时，表格中显示成绩在60分以上(含60分)的“课程号”、“课程名称”和“成绩”。单击“关闭”按钮退出表单。

正确答案：在命令窗口中输入命令：CREATE FORM myf打开表单设计器通过“表单控件”工具栏向表单添加1个表格、1个选项按钮组和2个命令按钮。 选中表单在属性面板顶端的下拉框中选择Command1修改该命令按钮控件的Caption属性值为“浏览”以同样的方法将第二个命令按钮设置Caption属性值改为“关闭”在属性面板顶端的下拉框中选择 (Optiongroup1)将其ButtonCount属性值改为3右击选项按钮组选择“编辑”快捷菜单命令在此状态下(编辑状态下控件四周出现蓝色框线)分别修改三个单选项的Caption属性值为“外币浏览”、“个人持有量”和“个人资产”。 双击命令按钮“浏览”编写该控件的Click事件程序代码如下： ******命令按钮Command1(浏览)的Click事件代码***** DO CASE CASE This form.Optiongroup1.Value=1 SELECT*； FROM汇率； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.Optiongroup1.Value=2 SELECT数量.姓名外币名称持有数量； FROM数量汇率； WHERE汇率.外币代码=数量.外币代码； INT OCURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.Optiongroup1.Value=3 SELECT姓名SUM(持有数量*基准价)AS总资产； FROM汇率数量； WHERE汇率外币代码：数量.外币代码； GROUP BY姓名； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ENDCASE ******************************************************** 以同样的方法为“关闭”命令按钮编写Click事件代码：Thisform.Release。保存表单完成设计运行结果如图3-34所示。
在命令窗口中输入命令：CREATE FORM. myf，打开表单设计器，通过“表单控件”工具栏向表单添加1个表格、1个选项按钮组和2个命令按钮。 选中表单，在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption属性值为“浏览”，以同样的方法将第二个命令按钮设置Caption属性值改为“关闭”，在属性面板顶端的下拉框中选择 (Optiongroup1)，将其ButtonCount属性值改为3，右击选项按钮组，选择“编辑”快捷菜单命令，在此状态下(编辑状态下，控件四周出现蓝色框线)，分别修改三个单选项的Caption属性值为“外币浏览”、“个人持有量”和“个人资产”。 双击命令按钮“浏览”，编写该控件的Click事件，程序代码如下： ******命令按钮Command1(浏览)的Click事件代码***** DO CASE CASE This form.Optiongroup1.Value=1 SELECT*； FROM汇率； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.Optiongroup1.Value=2 SELECT数量.姓名，外币名称，持有数量； FROM数量，汇率； WHERE汇率.外币代码=数量.外币代码； INT OCURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.Optiongroup1.Value=3 SELECT姓名,SUM(持有数量*基准价)AS总资产； FROM汇率，数量； WHERE汇率，外币代码：数量.外币代码； GROUP BY姓名； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ENDCASE ******************************************************** 以同样的方法为“关闭”命令按钮编写Click事件代码：Thisform.Release。保存表单完成设计，运行结果如图3-34所示。 解析：本大题考查的是表单设计，在本题中需要注意的地方是选项按钮组控件中改变单选按钮的属性是ButtonCount，修改选项组中每个单选按钮的属性，可以通过属性面板中顶端的下拉框的控件名来选定，也可以右击该控件，选择“编辑”快捷菜单命令，在编辑状态下单个选定控件；程序设计中，查询语句为基本SQL查询，在程序控制上可以通过分支语句DOCASE-END CASE语句来进行判断选项组中选定的单选按钮，并执行相应的命令，选项组中当前选定的单选按钮，可通过Case Thisform.Optiongroup1.Value=1，2，3……语句来判断。

正确答案：在命令窗口中输入命令；CREATE FORMmy打开表单设计器窗口。 从“表单控件”工具栏中单击表格控件添加2个表格到新建的表单中右击表单选择“数据环境”快捷菜单命令在数据环境中添加数据表dj和xs系统自动建立好两表的关联。返回表单设计器中右键单击表格Gridl在弹出的快捷菜单中选择“生成器”弹出表格生成器对话框在“1.表格项”中选择数据表dj将表中所有字段添加到选定字段中。 以同样的方法设置第二个表格的生成器然后再选择“4.关系”选项卡把“父表中的关键字段”设置为“dj.商品号”把“子表中的柑关索引”设置为“商品号”。 从“表单控件”工具栏中向表单添加1个命令按钮修改命令按钮的Caption属性值为“关闭”在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单结果如图3-127所示保存表单设计到考生文件夹下。
在命令窗口中输入命令；CREATE FORMmy，打开表单设计器窗口。 从“表单控件”工具栏中单击表格控件，添加2个表格到新建的表单中，右击表单，选择“数据环境”快捷菜单命令，在数据环境中添加数据表dj和xs，系统自动建立好两表的关联。返回表单设计器中，右键单击表格Gridl，在弹出的快捷菜单中选择“生成器”，弹出表格生成器对话框，在“1.表格项”中选择数据表dj，将表中所有字段添加到选定字段中。 以同样的方法设置第二个表格的生成器，然后再选择“4.关系”选项卡，把“父表中的关键字段”设置为“dj.商品号”，把“子表中的柑关索引”设置为“商品号”。 从“表单控件”工具栏中，向表单添加1个命令按钮，修改命令按钮的Caption属性值为“关闭”，在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单，结果如图3-127所示，保存表单设计到考生文件夹下。 解析：本大题考查的主要是通过表格控件，实现父子表记录的联动显示，首先需要添加用于显示的数据表到表单的数据环境中，然后在两个表格的“生成器”对话中，进行相应的设置，实现表格中记录联动的功能。

正确答案：

【考点指引】本大题主要考查表单的设计和使用，重点是表格控件、按缸选项组的使用，注意表格控件的数据源设置。

【操作步骤】
①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器；单击表单控件工具栏上的“选项按钮组”控件图标，为表单添加一个选项按钮组0ption–Group1；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2；单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件
Grid1。
②选择选项按钮组0ptionGroup1，单击右键，在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框，单击“按钮”选项卡，设置按钮的数目为3个，在“标题”列下修改3个按钮的标题分别为“课程信息”、“学生信息”和“成绩信息”，单击“确定”按钮关闭命令组生成器对话框。
③分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“浏览”、Command2的Caption属性值修改为“关闭”，如图33-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
④选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝″”，将“RecordSourceType”属性值修改为“1”。
⑤双击“浏览”命令按钮，在Click事件中输入代码：
DO CASE
CASE ThisForm．OptionGroup1．value=1
SELECT课程编号，课程名称INTO CURSOR tmp FROM course
CASE ThisForm．OptionGroup1．value=2
SELECT学号，姓名，性别，出生日期INTO CURSOR trap FROM student
CASE ThisForm．OptionGroup1．value=3
SELECT姓名，课程名称，成绩INTO CURSOR tmp FROM student，score，course WHERE student．学号=score．学号AND course．课程编号=score．课程编号
ENDCASE
ThisForm：Grid1．RecordSourceType=1
ThisForm．Grid1．RecordSource=〝tmp″
ThisForm．Grid1．Refresh
⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

正确答案：在命令窗口中输入命令：CREATE FORM myf打开表单设计器窗口。 在表单的属性窗口中修改表单的Caption属性值为“住宿管理”从“表单控件”工具栏中单击表格控件添加2个表格到新建的表单中右击表单选择“数据环境”快捷菜单命令在数据环境中添加数据表“宿舍信息”和“学生信息”系统自动建立好两表的关联。返回表单设计器中右键单击表格Grid1在弹出的快捷菜单中选择“生成器”弹出表格生成器对话框在“1.表格项”中选择数据表“宿舍信息”将表中所有字段添加到选定字段中如图3-68所示。 以同样的方法设置第二个表格的生成器在“1.表格项”中选择数据表“学生信息”的所有字段然后再选择“4.关系”选项卡把“父表中的关键字段”设置为“宿舍信息．宿舍”把“子表中的相关索引”设置为“宿舍”如图3-69所示。 从“表单控件”工具栏中向表单添加1个命令按钮修改命令按钮的Caption属性值为“关闭”在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单保存表单设计到考生文件夹下。
在命令窗口中输入命令：CREATE FORM. myf，打开表单设计器窗口。 在表单的属性窗口中修改表单的Caption属性值为“住宿管理”，从“表单控件”工具栏中单击表格控件，添加2个表格到新建的表单中，右击表单，选择“数据环境”快捷菜单命令，在数据环境中添加数据表“宿舍信息”和“学生信息”，系统自动建立好两表的关联。返回表单设计器中，右键单击表格Grid1，在弹出的快捷菜单中选择“生成器”，弹出表格生成器对话框，在“1.表格项”中选择数据表“宿舍信息”，将表中所有字段添加到选定字段中，如图3-68所示。 以同样的方法设置第二个表格的生成器，在“1.表格项”中选择数据表“学生信息”的所有字段，然后再选择“4.关系”选项卡，把“父表中的关键字段”设置为“宿舍信息．宿舍”，把“子表中的相关索引”设置为“宿舍”，如图3-69所示。 从“表单控件”工具栏中，向表单添加1个命令按钮，修改命令按钮的Caption属性值为“关闭”，在“关闭”命令按钮的Click事件中输入：Thisform.Release。 运行表单，保存表单设计到考生文件夹下。 解析：本大题考查的主要是通过表格控件，实现父子表记录的联动显示，首先需要添加用于显示的数据表到表单的数据环境中，然后在两个表格的“生成器”对话中，进行相应的设置，实现表格中记录联动的功能。

正确答案：在命令窗口中输入命令：CREATE FORM myf打开表单设计器通过“表单控件”工具栏向表单添加1个表格、1个选项按钮组和2个命令按钮。 选中表单在属性面板顶端的下拉框中选择Command1修改该命令按钮控件的Caption属性值为“浏览”以同样的方法将第二个命令按钮设置Caption属性值改为“关闭”在属性面板顶端的下拉框中选择 (Optiongroup1)将其ButtonCount属性值改为3右击选项按钮组选择“编辑”快捷菜单命令在此状态下(编辑状态下控件四周出现蓝色框线)分别修改三个单选项的Caption属性值为“药查询”、“处方查询”和“综合查询” 双击命令按钮“浏览”编写该控件的Click事件程序代码如下： ******命令按钮Command1(浏览)的Click事件代码****** DO CASE CASE Thisform.Optiongroup1.Value=1 SELECT*； FROM药信息； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.optiongroup1.Value=2 SELECT处方号药编号； FROM处方信息； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.optiongroup1.Value=3 SELECT处方号药名医生.姓名； FROM医生处方信息药信息； WHERE医生.职工号=处方信息.职工号； AND处方信息.药编号=药信息.药编号； AND药信息.药编号=5； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ENDCASE ********************************************************* 以同样的方法为“关闭”命令按钮编写Click事件代码：Thisform．Release。 保存表单完成设计。运行结果如图3-75所示。
在命令窗口中输入命令：CREATE FORM. myf，打开表单设计器，通过“表单控件”工具栏向表单添加1个表格、1个选项按钮组和2个命令按钮。 选中表单，在属性面板顶端的下拉框中选择Command1，修改该命令按钮控件的Caption属性值为“浏览”，以同样的方法将第二个命令按钮设置Caption属性值改为“关闭”，在属性面板顶端的下拉框中选择 (Optiongroup1)，将其ButtonCount属性值改为3，右击选项按钮组，选择“编辑”快捷菜单命令，在此状态下(编辑状态下，控件四周出现蓝色框线)，分别修改三个单选项的Caption属性值为“药查询”、“处方查询”和“综合查询”， 双击命令按钮“浏览”，编写该控件的Click事件，程序代码如下： ******命令按钮Command1(浏览)的Click事件代码****** DO CASE CASE Thisform.Optiongroup1.Value=1 SELECT*； FROM药信息； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.optiongroup1.Value=2 SELECT处方号，药编号； FROM处方信息； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" CASE Thisform.optiongroup1.Value=3 SELECT处方号，药名，医生.姓名； FROM医生，处方信息，药信息； WHERE医生.职工号=处方信息.职工号； AND处方信息.药编号=药信息.药编号； AND药信息.药编号=5； INTO CURSOR temp Thisform.Grid1.RecordSourceType=1 Thisform.Grid1.RecordSource="temp" ENDCASE ********************************************************* 以同样的方法为“关闭”命令按钮编写Click事件代码：Thisform．Release。 保存表单完成设计。运行结果如图3-75所示。 解析：本大题考查的是表单设计，在本题中需要注意的地方是选项按钮组控件中改变单选按钮的属性是ButtonCount，修改选项组中每个单选按钮的属性，可以通过属性面板中顶端的下拉框的控件名来选定，也可以右击该控件，选择“编辑”快捷菜单命令，在编辑状态下单个选定控件；程序设计中，查询语句为基本SQL查询，在程序控制上可以通过分支语句DO CASE--ENDCASE语句来进行判断选项组中选定的单选按钮，并执行相应的命令，选项组中当前选定的单选按钮，可通过：Case Thisform.Optiongroup1.Value=1，2，3……语句来判断。