综合应用题

　　11对“school”数据库中的表“course”、“student”和“score”，建立文件名为“bd1”的表单，标题为“成绩浏览”，表单上有三个命令按钮即“学院成绩”、“个人平均成绩”和“关闭”。

　　单击“学院成绩”按钮，查询“计算机学院”所有学生的“考试成绩”，结果中含“学号”、“课程编号”和“成绩”等字段，查询结果保存在表“result1”中。

　　单击“个人平均成绩”按钮，查询“成绩”表中各人的“平均成绩”，结果中包括字段“学号”、“姓名”和“平均成绩”，查询结果保存在表“result2”中。

　　单击“关闭”按钮，关闭表单。

　　参考解析：

　　【考点指引】本大题主要考查表单的建立，重点是命令按钮事件代码的编写，在多表查询中注意字段的关联，这里还要用到AVG函数和GROUP BY分组命令。

　　【解题步骤】

　　①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为“成绩浏览”，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加3个命令按钮Command1、Command2和Command3。

　　②分别选择3个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“学院成绩”，将命令按钮Command2的Caption属性值修改为“个人平均成绩”，将命令按钮Command3的Caption属性值修改为“关闭”，如图53-1中输入代码：ThisForm.Release，用来关闭表单。

　　③双击“学院成绩”命令按钮，在Click事件中输入以下代码：

　　SELECTstudent.学号，课程编号，成绩INTO TABLE result1 FROM student，score WHERE student.学号=score.学号AND院系=”计算机学院”

　　④双击“个人平均成绩”命令按钮，在Click事件中输入以下代码：SELECTstudent.学号，姓名，AVG(成绩)AS平均成绩INTO TABLE result2 FROM student，score WHERE student.学号=score.学号GROUP BY student.学号

　　⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。

　　12设计名为“bd2”的表单，表单的标题为：“股票持有情况”。表单中有一个文本框、一个表格和两个命令钮“查询”和“关闭”。

　　运行表单时，在文本框中输入某个股票的汉语拼音，然后单击“查询”，则表格中会显示出所有账户相应股票的持有数量。

　　单击“关闭”按钮关闭表单。

　　参考解析：

　　【考点指引】本大题主要考查表单的设计，重点是文本框和表格控件的使用及命令按钮事件代码的编写。

　　【解题步骤】

　　①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为“股票持有情况”，单击表单控件工具栏上的“文本框”控件图标，为表单添加1个文本框Textl，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Commandl和Command2，单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件。

　　②分别选择两个命令按钮，在按钮属性窗口中将命令按钮Commandl的Caption属性值修改为“关闭”，如图45-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm.Release，用来关闭表单。

　　③选择表格控件“Gridl”，在表格控件属性窗口中将“RecordSouree”属性值修改为“〝〞”，将“RecordSourceType”属性值修改为“1”。

　　④双击“查询”命令按钮，在Click事件中输入代码：

　　SELECT股票账户，持有数量INTOCURSORtmp　FROM股票账户，股票信息WHERE股票账户.股票代码一股票信息.股票代码AND汉语拼音=ThisForm.Textl.Value

　　ThisForm.Gridl.RecordSourceType=l

　　ThisForm.Gridl.RecordSource=〝trap〞

　　ThisForm.Gridl.Refresh

　　⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

　　13在考生文件夹下完成如下综合应用：

　　设计一个表单“bdl”，表单标题名为“部门年度数据查询”，要求如下：

　　(1)为表单建立数据环境，向数据环境添加部门销售表。

　　(2)当在“年度”标签微调控件中选择年度并单击“查询”按钮，则会在下面的表格控件内显示该年度各部门的“销售额”和“利润”。指定微调控件上箭头按钮(Spinner—HighValue属性)与下箭头按钮(SpinnerLowValue属性)值分别为“2008”和“2003”，缺省值(Value属性)为“2007”，增量(Increment属性)为“1”。

　　(3)单击“关闭”按钮，关闭表单。

　　参考解析：

　　【考点指引】本大题主要考查表单的设计，重点是微调控件和表格控件的使用。

　　【操作步骤】

　　①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将Caption属性值修改为“部门年度数据查询”，单击表单控件工具栏上的“标签”控件图标，为表单添加一个标签Label1，单击表单控件工具栏上的“微调控件”控件图标，为表单添加一个微调控件Spinner1，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Com–mand2，单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件Grid1。

　　②选择标签Label1，在标签属性窗口中将标签Label1的Caption属性值修改为“年度”。

　　③选择微调控件Spinner1，在微调控件属性窗口中将SpinnerHighValue属性值修改为“2008”，将Spinner–LowValue属性值修改为“2003”，将Value属性值修改为“2007”。

　　④分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，Command2的Caption属性值修改为“关闭”，如图29–1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm.Release，用来关闭表单。

　　⑤在表单设计器中，用鼠标右键单击表单空白处，在弹出的快捷菜单中选择【数据环境】命令，打开表单的数据环境，选择数据表文件“部门销售”添加到数据环境中。

　　⑥选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝″”，将“RecordSourceType”属性值修改为“1”。

　　⑦双击“查询”命令按钮，在Click事件中输入代码：

　　SELECT*INTO CURSOR tmp FROM部门销售WHERE年度=ALLTRIM(STR(INT(ThisForm.Spin–ner1.Value)))

　　ThisForm.Grid1.RecordSourceType=1

　　ThisForm.Grid1.RecordSource=〝trap″

　　ThisForm.Grid1.Refresh

　　⑧选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。

　　14考生文件夹下存在数据库“产品”，其中包含表“零件”和表“产品”，这两个表存在一对多的联系。对数据库建立文件名为“bd3”的表单。

　　其中包含两个表格控件。第一个表格控件用于显示表“零件”的记录，第二个表格控件用于显示与表“零件”当前记录对应的“产品”表中的记录。

　　表单中还包含一个标题为“关闭”的命令按钮，要求单击此按钮退出表单。

　　参考解析：

　　【考点指引】本大题考查的是表单的设计及表格控件的使用，注意表格控件数据源的设置。

　　【操作步骤】

　　①选择【文件】→【打开】命令打开数据库“产品”。

　　②选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加一个命令按钮Command1;单击表单控件工具栏上的“表格”控件图标，再添加两个表格控件“Grid1”和“Grid2”。

　　③选择命令按钮，在按钮属性窗口中将命令按钮Command1的Name属性值修改为“emdClose”，将Caption属性值修改为“关闭”。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm.Release，用来关闭表单。

　　④在表单设计器中，用鼠标右键单击表单空白处，在弹出的快捷菜单中选择“数据环境”命令，打开表单的数据环境，选择数据库“产品”，将数据表文件“产品”和“零件”添加到数据环境中，如图110-1所示。

　　⑤选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“零件”，将“RecordSource-Type”属性值修改为“0”，将“ReadOnly”属性值修改为“.T.”;选择表格控件“Grid2”，在表格控件属性窗口中将“ReeordSource”属性值修改为“""”，将“RecordSourceType”属性值修改为“1”。

　　⑥在表单设计器中，选择“Grid1”，在属性窗口中双击“AfterRowColChange Event”，弹出事件过程代码编辑窗口，输入以下代码：

　　SELECT产品.*INTO CURSOR tmp FROM产品

　　WHERE产品{零件编号=ThisForm.Grid1.columns(1).

　　textl.value

　　ThisForm.Grid2.RecordSourceType=1

　　ThisForm.Grid2.RecordSource="tmp"

　　ThisForm.Grid2.Refresh

　　⑦选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd3”，保存在考生文件夹下，然后运行表单。

　　15对“仓库管理”数据库中的表“仓库”、“库存”和“工作单”，建立文件名为“bd]”的表单，标题为“仓库库存浏览”，表单上有3个命令按钮“商品进出仓浏览”、“库存浏览”和“关闭”。

　　单击“商品进出仓浏览”按钮，查询“001”号仓库所有商品的进出仓情况(数据取自工作单)，结果中含“商品编号”、“日期”、“类型”和“数量”等字段，查询结果保存在表“tablel”中。

　　单击“库存浏览”按钮，查询所有仓库的库存情况，结果中包括字段“仓库编号”、“仓库名称”、“商品编号”、“期初数量”和“库存数”，查询结果保存在表“table2”中。

　　单击“关闭”按钮，关闭表单。

　　参考解析：

　　【考点指引】本大题主要考查表单的建立，重点是命令按钮事件代码的编写，在多表查询中注意字段的关联，这里还要用到AVG函数和GR()UP BY分组命令。

　　【操作步骤】

　　①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为“仓库库存浏览”，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加3个命令按钮Command1、Command2和Command3。

　　②分别选择3个命令按钮，在按钮属性窗口中将Command1的Caption属性值修改为“商品进出仓浏览”，Command2的Caption属性值修改为“库存浏览”，Command3的Caption属性值修改为“关闭”，如图78-1所示。双击“关闭”命令按钮，在其Click事件中输入代码：ThisForm.Release，用来关闭表单。

　　③双击“商品进出仓浏览”命令按钮，在其Click事件中输入以下代码：

　　SELECT商品编号，日期，类型，数量INTO TABLE table1 FROM工作单WHERE仓库编号=〝001〞

　　④双击“库存浏览”命令按钮，在Click事件中输入以下代码：

　　SELECT仓库编号，商品编号，SUM(数量)INTO ARRAY al FROM工作单WHERE类型=〝进仓〞GROUP BY商品编号

　　SELECT仓库编号，商品编号，SUM(数量)INTO ARRAY a2 FROM工作单WHERE类型=〝出仓〞GROUP BY商品编号

　　FOR i=1 TO ALEN(a1)/3

　　UPDATE库存SET入仓数量=al(i，3)WHERE仓库编号=al(i，1)AND商品编号=al(i，2)

　　NEXT

　　FOR i=1 TO ALEN(a2)/3

　　UPDATE库存SET出仓数量=a2(i，3)WHERE仓库编号=a2(i，1)AND商品编号=a2(i，2)

　　NEXT

　　SELECT仓库.仓库编号，仓库名称，商品编号，期初数量，期初数量+人仓数量一出仓数量AS库存数INTO

　　TABLE table2 FROM仓库，库存WHERE仓库.仓库

　　编号=库存.仓库编号

　　⑤选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd1”，保存在考生文件夹下，然后运行表单。

　　相关推荐：

　　各地2016年全国计算机等级考试报名时间汇总

　　2016计算机等级考试复习:如何更好地执行学习计划

　　分享：全国计算机等级考试二级复习及应试方法

　　2016年计算机二级《VB》基础练习题及答案汇总