二级 Visual FoxPro_第8套上机题
- 格式:doc
- 大小:22.00 KB
- 文档页数:5
计算机二级《VFP》上机操作试题及答案计算机二级《VFP》上机操作试题及答案一、基本操作题(共18分)在考生文件夹下完成下列操作:(1)新建“点歌”数据库,将考生文件夹下的所有自由表添加到该数据库中。
(2)新建一个项目“点歌系统”,将“点歌”数据库添加进该项目。
(3)为“歌曲”表创建一个主索引,索引名为PK,索引表达式为“歌曲id”;再创建一个普通索引,索引名和索引表达式均为“演唱者”,以上索引都为升序。
(4)为“歌手,,表创建一个主索引,索引名和索引表达式都为“歌手id”,升序。
为“歌曲”和“歌手”表创建永久联系,并设置参照完整性约束:更新规则为“级联”,其他默认。
二、简单应用题(共24分)在考生文件夹下完成下列操作:(1)在考生文件夹下利用查询设计器创建一个查询,从表中查询演唱“粤语”歌曲的歌手。
查询结果包含歌手的姓名、语言和点歌码三个字段;各记录按“点歌码”降序排序,点歌码相同的再按“演唱者”升序排序;查询去向为表ta。
最后将查询保存在qa.qpr文件中,并运行该查询。
(2)使用一对多报表向导建立报表,要求父表为“歌手”,子表为“歌曲”。
从父表中选择字段“姓名”和“地区”,从子表中选择字段“歌曲名称”和“点歌码”,两个表通过“歌手id”和“演唱者”建立联系,按“姓名”升序排序,其他默认,生成的报表名为“歌手报表”。
三、综合应用题(共18分)在考生文件夹下完成下列操作:为了查询不同歌手演唱的歌曲,请设计一个表单mform.scx,其界面如下图所示:表单控件名为formone表单的标题为“歌曲查询”。
表单左侧有一个标签控件Labelone,显示内容为“输入歌手姓名”,一个文本框控件Textone用于输入歌手姓名, 个命令按钮Commanda和Commandb分别显示“查询”和“退出”,以及一个表格控件Gridone。
表单运行时,用户首先在文本框中输入歌手“刘德华”,然后单击“查询”按钮,如果输入正确,在表单右侧以表格形式显示此歌手的演唱的歌曲信息,包括歌曲名称、语言和歌,按点歌码升序排序,并将此信息存入tb.dbf文件中。
计算机二级(VF)8(总分1780,考试时间90分钟)选择题(每小题2分,共70分) 下列各题四个选项中,有一个是正确的,请选择正确答案。
1. 在菜单中选择任何一个选项时都执行一定的动作,这个动作可以是()。
A. 一条命令B. 一个过程C. 激活另一个菜单D. 以上3种均可以2. 在创建数据库表结构时,给该表指定了主索引,这属于数据完整性中的______。
A. 参照完整性B. 实体完整性C. 域完整性D. 用户定义完整性3. 下列对于软件测试的描述中正确的是______。
A. 软件测试的目的是证明程序是否正确B. 软件测试的目的是使程序运行结果正确C. 软件测试的目的是尽可能多地发现程序中的错误D. 软件测试的目的是使程序符合结构化原则4. 数据的存储结构是指______。
A. 存储在外存中的数据B. 数据所占的存储空间量C. 数据在计算机中的顺序存储方式D. 数据的逻辑结构在计算机中的表示5. 下列说法错误的是()。
A. cout<<'\n';B. cout<<'\12';C. cout<<'\xA';D. cout<<'\0';6. 下列关于命令DO FORM XX NAME YY的叙述中,正确的是()。
A. 产生表单对象引用变量XX,在释放变量XX时自动关闭表单B. 产生表单对象引用变量XX,在释放变量XX时并不关闭表单C. 产生表单对象引用变量YY,在释放变量YY时自动关闭表单D. 产生表单对象引用变量YY,在释放变量YY时并不关闭表单7. 设X="11",Y="1122",下列表达式结果为假的是______。
A. NOT(X==Y)AND(X$Y)B. NOT(X$Y)OR(X<>Y)C. NOT(X>=Y)D. NOT(X$Y)8. 在Visual FoxPro某数据表中有一个数值型字段,要求有4位整数,2为小数,其值可能为负值,它的宽度应为()。
计算机二级VISUAL FOXPRO上机考试8 2015年(总分30, 做题时间90分钟)1.基本操作题(1)在名称为Form1、标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图8-1所示。
请按要求添加控件并设置相应属性。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sj1.vbp,窗体文件名保存为sj1.frm。
(2)在名称为Form1的窗体上添加一个名称为HSl的水平滚动条,其刻度值范围为1~100;添加一个命令按钮,名称为C1、标题为“移动滚动框”。
请编写适当的事件过程,使得在程序运行时,每单击命令按钮一次(假定单击次数不多于10次),滚动框向右移动10个刻度。
程序运行时的窗体如图8-2所示。
要求程序中不得使用变量,事件过程中只能写一条语句。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sj2.vbp,窗体文件名保存为sj2.frm。
SSS_TEXT_QUSTI2.简单应用题(1)在名称为Form1的窗体上添加一个名称为Text1的文本框,再建立一个名称为Format的弹出式菜单,含三个菜单项,标题分别为“加粗”、“斜体”、“下划线”,名称分别为M1、M2、M3。
请编写适当的事件过程,在程序运行时,当用鼠标右键单击文本框时,弹出菜单,选中一个菜单项后,则按所选菜单标题设置文本框中文本的格式,如图8-3所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sj3.vbp,窗体文件名保存为sj3.frm。
(2)在考生文件夹下有一个工程文件sjt4.vbp,含有Form1和Form2两个窗体,将Form1的标题改为“注册”,将Form2的标题改为“确认”;设置适当的属性,使Form2标题栏右上角的所有按钮消失(如图8-5所示);其中Form1为启动窗体,窗体上的控件如图8-4所示。
Visual Foxpro 上机考试题(参考答案)第一套一、(40分)评分标准如下:(1)正确建立2个表的数据结构(表结构设计正确)10分(2)数据正确10分(3)数据库正确5分,索引正确10分,永久关联正确5分二、(注意:只有界面正确不给分)(1)(10分)参考答案:将stu.dbf的姓名字段与组合框combo1绑定;组合框combo1的Interactivechange的事件代码:xm=alltrim(bo1.value)thisform.grid1.RECORDSOURCEtype=4thisform.grid1.RECORDSOURCE="select 学号,课程名,成绩 from score where 学号 in ; (select 学号 from stu where 姓名=xm) into cursor temp"(2)(10分)参考答案:将stu.dbf的电话字段与组合框combo1绑定;组合框combo1的Interactivechange的事件代码:dh=bo1.valuethisform.text1.value=left(dh,3)thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select 学号,姓名,寝室,电话 from stu where left(电话,3)=thisform.text1.value into cursor temp"(3)(10分)参考答案:将stu.dbf的学号和姓名字段与列表框List1绑定;列表框List1的Interactivechange的事件代码:xh=thisform.list1.valueselect sum(成绩),count(*) from score where 学号=xh into array cjthisform.text1.value=cj(1)thisform.text2.value=cj(2)三、(30分)参考答案:界面设计(5分)“输出”按钮的click事件:x=thisform.text1.valueif x=-1thisform.releaseendifif x%8<>0 (或 mod(x,8)#0 )bel2.caption=alltrim(str(x))+" 不是8的倍数!"elsebel2.caption= alltrim(str(x))+"是8的倍数!"endif第二套一、(40分)评分标准如下:(1)正确建立2个表的数据结构(表结构设计正确)10分(2)数据正确10分(3)数据库正确5分,索引正确10分,永久关联正确5分二、(注意:只有界面正确不给分)(1)(10分)参考答案:在组合框中通过手工输入的方式绑定数据;组合框combo1的Interactivechange 的事件代码:use salescan for 销售季度=bo1.valuethisform.edit1.value=thisform.edit1.value+客户代表+chr(13)endscanthisform.refreshuse(2)(10分)参考答案:将products.dbf 添加到表单的数据环境中,并将products.dbf 的商品编号与组合框combo1绑定;组合框combo1的Interactivechange 的事件代码:locate for 商品编号=bo1.valuebel1.caption="热销商品名称:"+ 热销商品名称thisform.text1.value=规格thisform.text2.value=单价thisform.refresh(3)(10分)参考答案:“显示”按钮的click 事件代码:thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select 热销商品名称 as 商品名称,sum(销售数量*单价) as 总销售金额 from products,sale where products.商品编号=sale.商品编号 group by products.商品编号 into cursor temp"三、(30分)参考答案:界面设计(5分)文本框text3的gotfocus 事件代码:x=val(thisform.text1.text)y=val(thisform.text2.text)do casecase thisform.optiongroup1.value=1z=x+ycase thisform.optiongroup1.value=2z=x/ycase thisform.optiongroup1.value=3z=x**ycase thisform.optiongroup1.value=4z=x%yendcasethis.value=round(z,1) (5分)第三套 一、(40分)评分标准如下:(1)正确建立2个表的数据结构(表结构设计正确)10分(2)数据正确10分(3)数据库正确5分,索引正确10分,永久关联正确5分二、(注意:只有界面正确不给分)(1)(10分)参考答案:“计算并显示”按钮的click事件:update zggz set 实发工资=基本工资+奖金-扣款thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select 职工号,基本工资,实发工资from zggz intocursor temp"(2)(10分)参考答案:“显示”按钮的click事件:thisform.grid1.recordsourcetype=4thisform.grid1.recordsource="select top 3 姓名,实发工资,部门 from zgxx,zggz wherezgxx.职工号=zggz.职工号 order by 实发工资 desc into cursor temp"(3)(10分)参考答案:在组合框中通过手工输入的方式绑定数据;组合框combo1的Interactivechange的事件代码:thisform.edit1.value=""use zgxxscan for 职称=bo1.valuethisform.edit1.value=thisform.edit1.value+职工号+" "+ 姓名endscanthisform.refreshuse三、(30分)参考答案:界面设计(5分)自定义方法程序newpara na=1for i=1 to n Array a=a*iendforreturn a“计算”命令按钮的click事件:s1=thisform.new(thisform.text1.value)s2=thisform.new(thisform.text2.value)s3=thisform.new(thisform.text2.value-thisform.text1.value)p=(s1+s2)/(s2*s3)thisform.text3.value=round(p,2)。
计算机等级考试二级VisualFoxPro上机试题及解题思路汇总1-20一、基本操作题(共4小题,第1和2题是7分、第3和4题是8分)注意:基本操作题为4道SQL题,请将每道题的SQL命令粘贴到SQL1.txt文件,每条命令占一行,第1道题的命令是第1行,第2道题的命令是第2行,以此类推;如果某道题没有做相应行为空。
在考生文件夹下完成下列操作:1. 利用SQL SELECT命令将表stock_sl.dbf复制到stock_bk.dbf;2.利用SQL INSERT命令插入记录("",4.36, 4.60, 5500)到stock_bk.dbf表。
3.利用SQL UPDA TE命令将stock_bk.dbf表中"股票代码"为的股票"现价"改为8.88。
4.利用SQL DELETE命令删除stock_bk.dbf表中"股票代码"为的股票。
本题的主要考核点:SQL语句的使用。
1、SELE * FROM stock_sl INTO DBF stock_bk2、INSE INTO stock_bk (股票代码,买入价,现价,持有数量)V ALU("", 4.36, 4.60, 5500)3、UPDA stock_bk SET 现价=8.88 WHER 股票代码=""4、DELE FROM stock_bk WHER 股票代码=""二、简单应用(2小题,每题20分,计40分)1、在考生文件夹下建立数据库sc2,将考生文件夹下的自由表score2添加进sc2中。
根据score2表建立一个视图score_view,视图中包含的字段与score2表相同,但视图中只能查询到积分小于等于1500的信息。
然后利用新建立的视图查询视图中的全部信息,并将结果按积分升序存入表v2。
2、建立一个菜单filemenu,包括两个菜单项"文件"和"帮助","文件"将激活子菜单,该子菜单包括"打开"、"存为"和"关闭"三个菜单项;"关闭"子菜单项用SET SYSMENU TO DEFAULT命令返回到系统菜单,其他菜单项的功能不做要求。
全国计算机等级考试:二级VFP机试第8套第八套一、基本操作题(共四小题,第1和2题是7分、第3和4题是8分)1、在考生文件夹下建立项目SALES_M。
2、在新建立的项目中建立数据库CUST_M。
3、把自由表CUST和ORDER1加入到新建立的数据库中。
4、为确保ORDER1表元组,请为ORDER1表建立候选索引,索引名为订单编号,索引表达式为订单编号。
本题的主要考核点:项目的建立、将数据库添加到项目中、将自由表添加到数据库中、候选索引的建立。
解题思路:1.建立项目创建项目可用"文件"菜单中的"新建"命令。
2.将数据库加入到项目中:在项目管理器的"数据"选项卡选择数据库,单击"添加",在"打开"对话框中选择要添加的数据库3.将自由表添加到数据库中,可以在项目管理器或数据库设计器中完成。
在数据库设计器中可以从"数据库"菜单或在数据库设计器上单击右键弹出的菜单中选择"添加表",然后在"打开"对话框中选择要添加到当前数据库的自由表。
还可用ADD TABLE命令添加一个自由表到当前数据库中。
4.在ORDER1表设计器中的索引页面,建立索引名索引表达式都为订单编号的候选索引。
二、简单应用(2小题,每题20分,计40分)1、根据order1表和cust表建立一个查询query1,查询出公司所在地是"北京"的所有公司的名称、订单日期、送货方式,要求查询去向是表,表名是query1.dbf,并执行该查询。
2、建立表单my_form,表单中有两个命令按钮,按钮的名称分别为cmdYes和cmdNo,标题分别为"登录"和"退出"。
第1题,本题的主要考核点是建立查询。
建立查询的可以使用"文件"菜单完成,选择文件--新建--查询--新建文件,将order1和cust 添加入查询中,从字段中选择名称、订单日期、送货方式,在"筛选"栏中选择字段名为"所在地"条件为"="实例中输入"北京",单击查询菜单下的查询去向,选择表,输入表名query1.DBF。
浙江二级VISUAL FOXPRO-8(总分:100.00,做题时间:90分钟)一、{{B}}试题1{{/B}}(总题数:1,分数:12.00)阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。
【程序说明】 STD表中含有字段:姓名(C,8),课程名(C,16),成绩(N,3,0),下面一段程序用于显示所有成绩及格的学生信息。
【程序】SET TALK OFFCLEARUSE STDDO WHIIE {{U}}(1) {{/U}}IF{{U}} (2) {{/U}}?“姓名:”+姓名,“课程:”+课程名,“成绩:”+STR(成绩,3,0) ENDIF{{U}}(3) {{/U}}{{U}}(4) {{/U}}USESET TALK ONRETURN(分数:12.00)A.EOF()B.NOEOF() √C.BOF()D.NOBOF()解析:[解析] 表头测试函数的格式:BOF([<工作区号>/<别名>]) 功能:当记录指针指向表文件的首记录之前(表头)时,该函数值为.T.,否则返回.F.。
输出值类型为逻辑型。
[<工作区号>/<别名>]用于指定工作区,缺省为当前工作区。
本循环条件是设有到达尾部时,执行循环,否则退出循环。
A.成绩<60B.成绩<>60C.成绩<=60D.成绩>=60 √解析:[解析] 由题意程序功能“用于显示所有成绩及格的学生信息”可知,IF循环判断条件应是成绩大于等于60。
A.EXITB.SKIP-1C.SKIP √D.SKIP 2解析:[解析] 执行完一条记录要向下执行另一条记录,所以STEP的步长为1或缺省。
A.ENDDO √B.ENDWHILEC.ENDIFD.ENDCASE解析:[解析] 正确的循环结构为DO WHILE… ENDDO。
二、{{B}}试题2{{/B}}(总题数:1,分数:15.00)阅读下列程序说明和程序,在每小题提供的若干可选答案中,挑选一个正确答案。
一、基本操作在考生文件夹下完成下列操作:1.打开表单one(如图1所示),通过设置控件的相关属性,使得表单运行时的开始焦点在"打开"命令按钮,并且接下来的焦点的移动顺序是"关闭"和"退出"。
2.打开表单two(如图2所示),使用"布局"工具栏的"顶边对齐"按钮将表单中的三个命令按钮控件的顶边对齐(如图3所示)。
3.使用SQL语句创建一个名为"分组情况表"的自由表,"分组情况表"有两个字段:组号和组名,组号占两个字符,组名占十个字符。
请将该SQL语句存储在three.prg中,否则不得分。
4.使用SQL语句插入一个记录到"分组情况表"中,插入的内容是,组号:"01",组名:"通俗唱法"。
请将该SQL语句存储在four.prg中,否则不给分。
二、简单应用在考生文件夹下完成下列操作:1.歌手比赛分为四组,"歌手表"中的"歌手编号"字段的左边两位表示为了该歌手所在的组号。
考生目录下的程序文件five.prg的功能是:根据"歌手表"计算每个组的歌手人数,将结果填入表one.dbf,表one.dbf中有两个字段:"组号"和"歌手人数"。
程序中有三处错误,请修改并执行程序。
注意:只能修改标有错误的语句行,不能修改其他语句,数组名A不允许修改。
2.建立一个数据库文件"歌手大奖赛。
dbc",并将"歌手表","评委表"和"评分表"三个自由表添加得到该数据库中。
使用视图设计器建立视图songer_view,该视图根据"歌手表","评委表"和"评分表"建立,视图中字段项包括:评委姓名,歌手姓名,分数,视图中的记录按"歌手姓名"升序,"分数"降序排列。
计算机二级VisualFoxPro上机考试题库及答案解析12一、根本操作在考生文件夹下完成如下操作:1.创立一个表单,并将表单保存在myform文件中。
2.将myform表单设置为模式表单,并将其标题设置为"表单操作"。
3.将考生目录中的xuesheng表和chengji表依次添加到myform表单的数据环境中,确保两个表对应的对象名称分别为cursor1和cursor2。
4.将考生目录中的xuesheng表和chengji表建立关联关系:当xuesheng 表中的记录指针移动时,chengji表中的记录指针会自动移到学号相同的对应记录上。
二、简单应用在考生文件夹下完成如下简单应用:1.利用查询设计器创立杳询,从xuesheng和chengji表中查询数学、英语和信息技术三门课都在85分以上〔含〕,或者数学、英语都在90分以上〔含〕而信息技术在75分以上〔含〕的学生记录。
查询结果包含学号、姓名、数学、英语和信息技术5个字段;保记录按学号降序排序;查询去向为表table1。
最后将查询保存在query1.qpr文件中,并运行该查询。
2.首先创立数据库cj_m,并向其中添加xuesheng表和chengji表。
然后在数据库中创立视图view1:利用该视图只能查询20221001班〔学号的前8位数字串为班号〕的学生记录;查询结果包含学号、姓名、数学、英语和信息技术5个字段;各记录按学号降序排序。
最后利用刚创立的视图view1查询视图中的全部信息,并将查询结果存放在表table2中。
三、综合应用在考生文件夹下创立一个下拉式菜单mymenu.mnx,并生成菜单程序mymenu.mpr。
运行该菜单程序时会在当前vfp系统菜单的末尾追加一个"考试"子菜单,如以下图所示。
菜单命令"计算"和"返回"的功能都通过执行过程完成。
菜单命令"计算"的功能如下:1〕先用SQL-SELECT语句完成查询:按学号降序列出全部学生在学号、姓名、灵敏学、英语和信息技术5个字段上的数据,查询结果存放在表table3中。
2022年全国计算机二级考试ACCESS上机试题及答案(第八套)一、基本操作题(计30分)(1)在"订货.mdb"数据库中有"订单"表,请将姓"黄"的雇员改成姓"王"。
(2)将"订单"表的行高设置为13,单元格效果改为"凸起"。
"订单"表如图8-1所示。
图8-1(3)按照表8-1要求建立"雇员"表,并输入表8-2数据,设置"雇员"表和"订单"表之间的关系设置为一对多,实施参照完整性。
"雇员"表如图8-2所示。
表8-1字段名称数据类型字段大小是否主键雇员文本10是表8-2赵军刘朋王科孙伟图8-2一、基本操作题(1)【操作步骤】在"订货"数据库窗口中,单击"表"对象。
双击"订单"表或者右键单击后选择"打开",选中"雇员"列,右键单击选择"查找",在"查找和替换"对话框选择"替换"选项卡,"查找内容"中输入"黄",在"替换值"中输入"王","查找范围"选择"雇员","匹配"选择"字段开头",单击"全部替换"按钮。
单击工具栏中"保存"按钮,保存修改后的表。
(2)【操作步骤】在主菜单中选择"格式"→"行高",在弹出的对话框中输入行高"13",单击"确定"按钮。
二级Visual FoxPro_第8套上机题
一、基本操作题
基本操作题为4道SQL题,请将每道题的SQL命令粘贴到sql.txt文件,每条命令占一行,第1道题的命令是第1行,第2道题的命令是第2行,以此类推;如果某道题没有做相应行为空。
注意:必须使用SQL语句操作且SQL语句必须按次序保存sql.txt文件中,其他方法不得分。
在考生文件夹下完成下列操作:
1.利用SQL SELECT语句将表stock_sl.dbf复制到表stock_bk.dbf中。
2.利用SQL INSERT语句插入记录("600028",4.36,4.60,5500)到stock_bk表中。
3.利用SQL UPDATE语句将stock_bk.dbf表中"股票代码"为"600007"的股票"现价"改为8.88。
4.利用SQL DELETE语句删除stock_bk.dbf表中"股票代码"为"600000"的股票。
【操作步骤】
本题应分为两个步骤完成:
(1)在命令窗口中分别输入相应命令,并按回车以执行。
①SELECT * FROM stock_sl INTO DBF stock_bk
或SELECT * FROM stock_sl INTO TABLE stock_bk
②INSERT INTO stock_bk V ALUES("600028",4.36,4.60,5500)
③UPDATE stock_bk SET 现价=8.88 WHERE 股票代码="600007"
④DELETE FROM stock_bk WHERE 股票代码="600000"
(2)将命令按题目要求复制到sql.txt文件中。
二、简单应用题
在考生文件夹下完成如下简单应用:
1.根据表stock_name和stock_sl建立一个查询,该查询包含字段:股票代码、股票简称、买入价、现价和持有数量,要求按股票代码升序排序,并将查询保存为query_stock.qpr。
注:股票代码来源于表stock_name中的股票代码。
2.modi.prg中的SQL语句用于计算“银行”的股票(股票简称中有“银行”两字)的总盈余,现在该语句中的3处错误分别出现在第1行、第4行和第6行,请改正。
(注意:不要改变语句的结构、分行,直接在相应处修改。
)
(1)【操作步骤】
步骤1:通过"新建"对话框新建一个查询,打开查询设计器。
步骤2:在"添加表或视图"对话框中选择stock_Name和stock_sl表,这样两个表就被添加到查询设计器中,同时为它们设定联接条件为:stock_Name.股票代码=stock_sl.股票代码。
步骤3:在"字段"选项卡中,将字段stock_Name.股票代码、stock_Name.股票简称、stock_sl.买入价、stock_sl.现价和stock_sl.持有数量添加到选定字段中。
步骤4:在"排序依据"选项卡中,选择stock_Name.股票代码字段,单击"升序"单选按钮。
步骤5:保存并运行查询,查询文件名为query_stock。
(2)【操作步骤】
步骤1:通过常用工具栏中的"打开"对话框打开考生文件夹下的"modi.prg"文件。
步骤2:修改程序中的错误如下。
错误1:SELECT COUNT((现价-买入价)*持有数量) ;
修改为:SELECT SUM((现价-买入价)*持有数量) ;
错误2:= ;
修改为:IN ;
错误3:WHERE "银行" LIKE 股票简称)
修改为:WHERE 股票简称LIKE "%银行%")
步骤3:保存并运行修改后的程序文件,查看程序运行结果。
三、综合应用题
(1)在考生文件夹下建立一个名为stock_form的表单,其中包含两个表格控件,第一个表格控件名称是grdStock_name,用于显示表stock_name中的记录;第二个表格控件名称是grdStock_sl,用于显示与表stock_name中当前记录对应的stock_sl表中的记录。
(2)在表单中添加一个"关闭"命令按钮(名称为Command1),要求单击按钮时关闭表单。
注意:完成表单设计后要运行表单的所有功能。
【操作步骤】
步骤1:通过"新建"对话框新建一个表单,文件名为"stock_form",打
开表单设计器。
步骤2:为表单添加一个命令按钮控件,修改其Caption属性为“关闭”,在表单设计器的空白处单击鼠标右键并选择“数据环境”,将Stock_Name表和Stock_sl表添加到数据环境中,然后分别将两个表拖动至表单的适当位置。
步骤3:在表单的Init事件中输入以下代码。
**********************************
SET SAFETY OFF
CLOSE DATABASE ALL
SELECT 1
USE stock_Name
INDEX ON 股票代码TAG dm
SELECT 2
USE stock_sl
INDEX ON 股票代码TAG dm
SELECT 1
SET RELATION TO 股票代码INTO stock_sl
ThisForm.grdStock_Name.RECORDSOURCE="stock_Name" ThisForm.grdStock_Name.REFRESH
ThisForm.grdStock_sl.RECORDSOURCE="stock_sl"
ThisForm.grdStock_sl.REFRESH
SET SAFETY ON
**********************************
步骤4:在"关闭"命令按钮的Click事件代码中输入代码"THISFORM.RELEASE"。
步骤5:保存表单并运行,单击表格1中每一行记录,在表格2中查看记录的对应情况,最后单击"关闭"按钮关闭表单。