首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下已有表单文件formone.SCX,如图2-26所示,其中包含一个列表框、一个表格和一个命令按钮。 请按下面要求完成相应的操作: ①在表单的数据环境中添加orders表。 ②将列表框List1设置成多选,另外将
(1)在考生文件夹下已有表单文件formone.SCX,如图2-26所示,其中包含一个列表框、一个表格和一个命令按钮。 请按下面要求完成相应的操作: ①在表单的数据环境中添加orders表。 ②将列表框List1设置成多选,另外将
admin
2015-08-20
46
问题
(1)在考生文件夹下已有表单文件formone.SCX,如图2-26所示,其中包含一个列表框、一个表格和一个命令按钮。
请按下面要求完成相应的操作:
①在表单的数据环境中添加orders表。
②将列表框List1设置成多选,另外将其的RowSourceType属性值设置为“8-结构”、RowSource设置为orders。
③将表格Grid1的RecordSourceTyl~的属性值设置为“4-SQL说明”。
④修改“显示”按钮的Click事件代码。当单击该按钮时,表格Gridl内将显示在列表框中所选orders表中指定字段的内容。
(2)利用查询设计器创建查询,从orders、employee和customer表中查询2001年5月1日以后(含)所签所有订单的信息。查询结果依次包含“订单号”、“签订日期”、“金额”、“签订者”和“客户名”5项内容,其中“签订者”为签订订单的职员姓名。各记录按“签订日期”降序排序,签订日期相同按“金额”降序排序;查询去向为表tableone。最后将查询保存在queryone.qpr文件中,并运行该查询。
选项
答案
(1) 步骤1:命令窗口执行:
MODIFY FORM formone
,打开表单设计器修改表单。 步骤2:右击表单选择【数据环境】,在表单数据环境中击右键选择【添加】,在“添加表或视图”对话框中双击orders表添加到数据环境中。 步骤3:选中表单中的列表框控件,将RowSourceType属性值设置为:8.结构,将RowSource属性值设置为:orders,将MultiSelect属性值设置为:.T.;选中表格(Grid1)控件,将RowSourceType属性值设置为:4-SQL说明。 步骤4:“显示”按钮(Command1)的Click事件代码如下: *****“显示”按钮的Click事件代码***** *下面代码的功能是根据用户对列表框的选择结果构建字段列表,然后进一步构建select语句并据此为表格的相关属性设值。 *修改所有***FOUND***下面的一条语句。 *不能修改其他语句。不能增加语句,也不能删除语句。 s="" f=.T. ***FOUND*** FOR i=1 TO this form.List1.ColumnCount IF thisform.List1.Selected(i) IF f ***FOUND*** s=thisform.List1.valme f=.F. ELSE ***FOUND *** s=s+thisform.List1.value ENDIF ENDIF ENDFOR st="select &s from orders into CurSor tmD" thisform.Grid1.RecordSource=st 命令按钮修改后的事件代码如下: s="" f=.T. *** FOUND*** FOR i=1 TO thisform.Listl.ListCount IF thisform.List1.Selected(i) IF f ***FOUND*** s=thisform.List1.List(i) f=.F. ELSE *** FOUND*** s=s+","+thisform.List1. List(i) ENDIF ENDIF ENDFOR st="select &s from orders into cursor tmp" thisform.Grid1.RecordSource=st 步骤5:单击“常用”工具栏中的“运行”按钮查看结果,并单击“输出数据”按钮产生temp.dbf表文件,保存。 (2) 步骤1:命令窗口执行:OPEN DATABASE订单管理,打开数据库环境。 步骤2:命令窗口执行:CREATE QUERY queryone,打开查询设计器,在“添加表或视图”对话框中,分别双击employee、orders和customer表(注意:一定要按顺序添加表),将表添加到查询设计器中,此时,添加的表会按照数据库中已存在的表间联系自动为3个表在查询设计器中建立联系。 步骤3:依次双击orders表中的“订单号”、“签订日期”、“金额”字段,添加到“字段”选项卡的“选定字段”列表中;“字段”选项卡的“函数和表达式”下的文本框中输入:Employee.姓名AS签订者,单击“添加”按钮添加到“选定字段”中;双击customer表中的“客户名”字段添加到“选定字段”列表中。 步骤4:“筛选”选项卡的“字段名”中选择“Orders.签订日期”字段,“条件”下拉框中选择“>=”,在“实例”框中输入:{^2001-05-01}。 步骤5: “排序依据”选项卡中双击“选定字段”列表框中的“Orders.签订日期”字段添加到“排序条件”中,“排序选项”中选择“降序”;双击“选定字段”中的“Orders.金额”字段添加到“排序条件”中,“排序选项”中选择“降序”单选项。 步骤6:执行【查询】→【查询去向】菜单命令,在弹出的“查询去向”对话框中单击“表”图标按钮,接着在“表名”中输入文件名tableone,单击“确定”按钮。 步骤7:最后单击“常用”工具栏中的“运行”按钮查看结果,将查询文件保存到考生文件夹下。
解析
(1)本题主要考查了FOR循环语句;表单控件常用属性;宏替换函数。
本题需要了解列表框的两个重要属性:选中条目SELECTED(I)和条目总数(LISTCOUNT)属性。程序要求实现的功能大致如下:
首先定义一个变量并赋值为空字符串,再定义一个变量,赋值为逻辑真。
接着使用FOR循环开始统计列表框中被选定的条目,循环初值为1,终值为列表框中的条目数(该数值通过LISTCOUNT函数计算得出);进入循环体后,通过IF条件语句首先判断列表框中条目是否被选中,如果选中,则执行第二个IF条件语句,否则返回FOR语句处,继续判断列表框的下一个条目。
第二个IF语句中,首先判断则逻辑变量的值是否为真,如果为真,则空字符串变量的值等于当前列表框的条目值,接着将逻辑变量的值指定为逻辑假,当执行一次该IF语句后,逻辑变量的值就始终为逻辑假了;在后面执行的条件判断语句中,当逻辑变量值为假时,字符串变量的值等于S值加上当前列表框中的条目值,此时,不会再执行逻辑变量为真的语句了。
最后,利用宏替换函数(&)将字符串中的数据替换出来,作为简单查询的输出字段;将查询结果保存到临时表中,并通过表格控件显示查询结果。
(2)本题考查了查询设计器的使用。由于涉及3个表的连接查询,因此,要注意向查询设计器中添加表的顺序,保证各表之间在添加到查询设计器后能彼此建立联系。
转载请注明原文地址:https://kaotiyun.com/show/oPEp777K
本试题收录于:
二级VF题库NCRE全国计算机二级分类
0
二级VF
NCRE全国计算机二级
相关试题推荐
设有图书管理数据库:图书(总编号C(6),分类号C(8),书名C(16),作者C(6),出版单位C(20),单价N(6,2))读者(借书证号C(4),单位C(8),姓名C(6),性别C(2),职称C(6),地址C(20))借阅(借书证号C(4),总编
SQL语句中进行空值运算时,需要使用到的短语是()。
下面关于运行应用程序的说法正确的是______。
测试的目的是暴露错误,评价程序的可靠性;而【】的目的是发现错误的位置并改正错误。
下列关于报表带区及其作用的叙述,错误的是
已知数据表A中每个元素距其最终位置不远,为节省时间,应采用的算法是
结构化程序设计方法的主要原则可以概括为自顶向下、逐步求精、【】和限制使用goto语句。
两表之间“临时性”联系称为关联,在两个表之间的关联已经建立的情况下,有关“关联”的正确叙述是
(1)在考生文件夹下新建一个名为“供应”的项目文件。(2)将数据库“供应零件”加入到新建的“供应”项目中。(3)通过“零件号”字段为“零件”表和“供应”表建立永久性联系,其中,“零件”表是父表,“供应”表是子表。(4)为“供应”表的“数量
随机试题
在斜拉桥钢筋混凝土索塔施工中,索塔的倾斜度要求()。
关于摔伤及骨折,下列叙述不正确的是()。
放弃投资战略决策的目的是().
WallStreetis______.HettyGreenwasnicknamedtheWizardofWallStreetbecauseshe______.
长期应用肾上腺皮质激素停药后可引起:长期应用可乐定停药可引起:
产业政策的()是政府以实现特定的产业发展目标对经济活动的一种自觉干预。
程控交换软件的基本特点有()。
下列表单的哪个属性设置为真时,表单运行时将自动居中( )。
TheentrancerateofmedicalschoolsoftheUSin2001was______.
1Millionsofteensareonweight-reducingdiets.Althoughmaintainingahealthybodyweightisimportant,obsessivedietingcan
最新回复
(
0
)