综合应用题

　　11在考生文件夹中有“订货”表和“商品”表。商品表中的“单价”表与“订货”表的“数量”之积应等于订货表中的“金额”。

　　现在有部分“订货”表记录的“金额”字段值不正确，请编写程序挑出这些记录，并将这些记录存放到一个名为“修正订货”的表中(与订货表结构相同，自己建立)，根据商品表中的“单价”字段和“订货”表的“数量”字段修改“修正订货”表的“金额”字段(注意：一个修正记录可能对应几条订货记录)。

　　编写的程序最后保存为“CX.prg”。

　　参考解析：

　　【考点指引】本大题考查的是数据表数据的修改，注意要用到INTOTABLE和INTOCURSOR保存中间查询结果。

　　【操作步骤】

　　①在命令窗口中输人命令：MODI COMM cx(回车执行)，打开程序文件编辑窗口，在程序文件编辑窗口中输入以下程序代码：

　　SELECT订货.*INTO TABLE修正订货FROM订货，商品WHERE订货.商品编码=商品.商品编码AND金额<>单价*数量

　　USE修正订货

　　GO TOP

　　DO WHILE.NOT.EOF()

　　a1=商品编码

　　bl=订单编号

　　SELECT*INTO CURSOR aa FROM商品WHERE商品编码=al

　　SELECT修正订货

　　REPLACE金额WITH aa.单价*数量

　　SKIP

　　ENDDO

　　USE

　　关闭程序文件编辑窗口并保存程序文件。

　　②在命令窗口中输入命令：DO cx(回车执行)，执行程序文件。

　　12设计一个名为“bd2”的表单，表单的标题为“零件装配情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时，单击“查询”命令按钮后，要求表格中显示产品编号“0003”所使用的零件的零件名称、规格和数量。单击“关闭”按钮关闭表单。

　　参考解析：

　　【考点指引】本大题主要考查表单的建立和表格控件的使用，重点是表格控件数据源的设置。

　　【操作步骤】

　　①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，将Caption属性值修改为”零件装配情况”;单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1、Command2;单击表单控件工具栏上的“表格控件图标，再添加一个表格控件。

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

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

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

　　SELECT零件名称，规格，数量INTO CURSOR tmp FROM产品，零件WHERE产品.零件编号=零件.零件编号AND产品.产品编号=〝0003″

　　ThisForm.Grid1.ReeordSourceType=1

　　ThisForm.Grid1.RecordSource=〝tmp″

　　ThisForm.Grid1.ReFresh

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

　　13在考生文件夹下有数据库“gz”，包括数据表文件：zgk(仓库编号C(4)，职工编号C4)，工资N(4))。设计一个名为tj的菜单，菜单中有两个菜单项“统计”和“退出”。

　　程序运行时，单击“统计”菜单项应完成下列操作：检索出工资大于或等于本仓库职工平均工资的职工信息，并将这些职工信息按照仓库编号升序排序，在仓库号相同的情况下再按职工编号升序存放到“result”文件中，该数据表文l 件和“zgk”数据表文件具有相同的结构。

　　单击“退出”菜单项，程序终止运行。

　　注意：相关数据表文件存在于考生文件夹下。

　　参考解析：

　　【考点指引】本大题主要考查利用SQL语句进行分组计算查询，在本题应了解SQL中求平均值函数AVG的使用;在菜单的设计过程中主要应注意两个菜单命令在“统计”下拉列表框中应选择的类型。

　　【操作步骤】

　　①选择【文件】→【新建】命令，选择“菜单”，单击“新建文件”按钮，再单击“菜单”按钮，打开菜单设计器，在“菜单名称”中输入“统计”，在“结果”下拉列表框中选择“过程”，单击“创建”按钮创建“统计”过程，在菜单过程代码编辑窗口中输入以下代码：

　　SET TALK OFF

　　SET SAFETY OFF

　　0PEN DATABASE gz

　　SELECT仓库编号，AVG(工资)AS pjgz FROM zgk GROUP BY仓库编号INTO CURS OR curl

　　SELECT zgk.*INTO TABLE result FROM zgk，curl WHERE zgk.仓库编号=curl.仓库编号and工资>= pjgz ORDER BY zgk.仓库编号，职工编号

　　CLOSEALL

　　SET SAFETY ON

　　SET TALK ON

　　关闭菜单过程代码编辑窗口回到菜单设计器。

　　②单击下一行，输入菜单名称“退出”，在“结果”下拉列表框中选择“命令”，在右边的“命令”文本框中编写程序代码：SET SYSMENU TO DEFAULT。

　　③选择【菜单】→【生成】命令，将菜单保存为“tj”，生成一个菜单文件“tj.mpr”。关闭菜单设计窗口，在命令窗口输入命令：DO tj.mpr，看到Visual FoxPr0的菜单栏被新建的菜单所代替，单击“退}b”菜单命令将恢复系统菜单。

　　④执行“统计”菜单命令后，系统自动生成新数据表文件“result.dbf”用来保存查询结果。

　　14对考生文件夹下的“学生住宿”管理数据库设计一个表攀“bd2”，表单标题为“宿舍查询”，表单中有一个标签、3个文本框和两个命令按钮：“查询”和“关闭”。

　　运行表单时，在第一个文本框里输入某学生的学号，单击查询按钮，则在第二个文本框内会显示该学生的“姓名”，在第3个文本框里会显示该学生的“宿舍名称”。

　　如果输入的某个学号对应的学生不存在，则在第二个文本框内显示“该生不存在”，第三个文本框不显示内容;如果输入的某个学号对应的学生存在，但没有该学号的宿舍编号，则在第二个文本框内显示该生的“姓名”，第三个文本框显示“该生不住校”。

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

　　参考解析：

　　【考点指引】本大题主要考查表单的设计及文本框和命令按钮等控件的使用，在查询的时候注意将查询结果保存到CURSOR中。

　　【操作步骤】

　　①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将“Caption”属性值修改为“宿舍查询”;单击表单控件工具栏上的“标签”控件图标，为表单添加一个标签Label1;单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2;单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2。

　　②选择标签，在标签属性窗口中将标签Label1的Cap-tion属性值修改为“请输入学号”;分别选择命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“查询”，将命令按钮Command2的Caption属性值修改为“关闭”，如图94-1所示。双击命令按钮，在Click事件中输入代码：ThisForm.Release，用来关闭表单。

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

　　SELECT*INTO CURSOR aa FROM学生WHERE学号=ALLTRIM(ThisForm.Textl.Value)

　　IF ISNULL(aa.学号)THEN

　　ThisForm.Text2.Value="该生不存在"

　　ThisForm.Text3.Value=""

　　ELSE

　　ThisForm.Text2.Value=ALLTRIM(aa.姓名)

　　IF EMPTY(aa.宿舍编号)THEN

　　ThisForm.Text3.Value="该生不住校"

　　ELSE

　　SELECT宿舍名称INTO CURSOR bb FROM宿舍WHERE宿舍编号=ALLTRIM(aa.宿舍编号)

　　ThisForm.Text3.Value=ALLTRIM(bb.宿舍名称)

　　ENDIF

　　ENDIF

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

　　15“销售”数据库中含有两个数据库表“商品信息”和“销售汇总”。对“销售”数据库设计一个表单“bd3”，表单的标题为“商品销售汇总”，表单中有标题为“请选择商品”标签和用于选择“商品编号”的组合框及“查询”和“关闭”两个命令按钮，表单中还有一个表格控件。

　　表单运行时，用户在组合框中选择“商品编号”，单击“查询”按钮，在表单上的表格控件显示查询该商品的“商品编号”、“商品名称”、“年度”、“数量”和“金额”。

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

　　参考解析：

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

　　【操作步骤】

　　①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器，在表单属性窗口中将“Caption”属性值修改为“商品销售汇总”。单击表单控件工具栏上的“标签”控件图标，为表单添加～个标签Label1，单击表单控件工具栏上的“组合框”控件图标，为表单添加一个组合框Com-bol，单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2，单击表单控件工具栏上的“表格”控件图标，添加一个表格控件Grid1。

　　②选择标签Label1，在标签属性窗口中将Caption属性值修改为“请选择商品”，分别选择命令按钮，将Command1的Caption属性值修改为“查询”，将Command2的Caption属性值修改为“关闭”，如图90-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm.Release，用来关闭表单。

　　③选择表格控件“Grid1”，在表格控件属性窗口中将“ReeordSource”属性值修改为“""”，将“RecordSourceType”属性值修改为“1”。

　　④选择组合框，在组合框属性窗口中双击“Init Event”，打开Init事件代码编辑窗口，输入以下过程代码：

　　SELECT*INTO ARRAY aa FROM商品信息

　　FOR i=1 TO ALEN(aa)/2

　　ThisForm.Comb01.Addltem(aa(i，1))

　　NEXT

　　⑤双击“查询”命令按钮，打开Click事件代码编辑窗口，输入以下过程代码：

　　SELECT商品信息.商品编号，商品名称，年度，数量，

　　金额INTO CURSOR tmp FROM商品信息，销售汇总

　　WHERE商品信息.商品编号=销售汇总.商品编号

　　AND商品信息.商品编号=ThisForm.Comb01.dis-

　　playvalue

　　ThisForm.Grid1.RecordSourceType=1

　　ThisForm.Grid1.RecordSource="trap"

　　ThisForm.Grid1.Refresh

　　⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名 “bd3”，保存在考生文件夹下，然后运行表单。第15题 笔记记录我的笔记(0) | 精选笔记(0)选择笔记标签：试题内容(0)答案解析(0)

　　相关推荐：

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

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

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