中国海洋大学vfp上机练习题参考答案

1、1 在项目管理器中新建商品数据表sb.dbf，字段有：商品号（c,5），商品名（c,8），单价（n,5,2），出厂单价(n,5,2)，产地(c,6)。并添加如下记录：单价要求在300900之间。商品号（c,5），商品名（c,8），单价（n,6,2），出厂单价(n,6,2)，产地(c,6)。10001 电视机 800.0 500.0 青岛20001 电子字典 360.0 200.0 深圳10002 手机8210 980.0 600.0 北京30001 mp3 800.0 560.0 广州10003 商务通 890.0 460.0 深圳设计一个名称为my_form的表单，上面有“浏览”、“调整”、

2、“备份”和“退出”四个命令按钮，“商品名称”标签和文本框text1。1） 在text1中输入文本，单击“浏览”按钮时，显示商品名含有该文本的所有商品记录。a=allt(thisform.text1.value)aa="sele * from sb where 商品名 like '%&a%' into cursor x"thisform.grid1.recordsource=aathisform.grid1.refresh2） 单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的110%。update sb set 单价

3、=出厂单价*1.1 where left(商品号,2)="10"bb="sele * from sb into cursor y"thisform.grid1.recordsource=bb3） 单击“备份”按钮时，将“商品表”进行备份(使用命令copy to )，备份文件名为“商品表备份.dbf”，copy to 商品表备份4） 单击“退出”按钮时，关闭表单。2 在建立“d:学号姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”click代码：把文本框内输入的字符串，去掉左、

4、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。a=thisform.text1.valuen=len(a) i=1 s=""for i=1 to nif substr(a,i,1)<>space(1)s=s+substr(a,i,1)endifendformessagebox(s,0)3 建立“学生管理” 数据库，在其中新建“成绩”数据表并任意输入3条记录，结构如下：学号c(8),姓名c(8),计算机n(5.1),英语n(5.1),数学n(5.1)，总成绩n(5.1)。建立表单（bd1.scx），用表格显示该数据表，添加标签“计算机平均成绩”及显

5、示该数据的文本框。添加“计算”、“退出”命令按钮，并编写代码。“计算”click代码：计算“总成绩”字段的值(总成绩计算机+英语+数学)，计算“计算机平均成绩”的值并在文本框显示。“退出”：结束表单运行。update 成绩 set 总成绩=计算机+英语+数学aa="sele * from 成绩 into cursor y"thisform.grid1.recordsource=aasele avg(计算机) as a from 成绩 into cursor"x"thisform.text1.value=a4 建“订货管理”数据库。在其中新建数据表cust

6、omer，表结构如下：客户号(c/8)、客户名(c/10)、地址(c/20)、 (c/12)。以客户号建立主索引。新建数据表order_list，表结构如下：客户号(c/8)、订单号(c/10)、日期(d)、总金额(n/12,2)。以客户号建立普通索引，并与customer建立表间永久关系。1）两个数据表各添加3条记录（保证两个表的客户号存在一对一关系）。2）新建项目“订单”并将数据库添加到该项目中。3）在项目中新建表单如下：完成“上一条”和“下一条”命令按钮的代码。skip-1thisform.refreshif bof()thisform mand1.enabled=.f.thisform

7、 mand2.enabled=.t.endif skipthisform.refreshif eof()thisform mand2.enabled=.f.thisform mand1.enabled=.t.endif5 在项目管理器中创建一个student.dbf数据表 其结构为学号(c,3)，姓名(c,6)，性别(c,2)，出生日期(d,8)。记录内容自定（出生日期应在1995年以前出生）。要求，根据输入限制条件的上限和下限来查找数据表中的记录，表单会显示查找到的结果。程序的演示效果如图所示。a=thisform.text1.valueb=thisform.text2.valueaa=&q

8、uot;sele * from student where 学号 between a and b into cursor y"thisform.grid1.recordsource=aa6 建立一表单文件bf.scx. 如图 要求：（1）在“建表”按钮中编写代码,使用sql语句建立一xsda.dbf表,字段结构：学号 c(6); 姓名 c(10) ; 成绩n(5,1) 再用sql命令方式添加三条记录，如下： 学号 姓名 成绩100101 德华 89 100202 学友 40100103 曼玉 78（2）在”排序按钮”中编写sql代码,完成按成绩降序查询，结果显示在表格控件中。（3）在

9、”分组按钮”中编写sql代码,完成按班级(学号前四位表示班级)分组,并显示班级总成绩。结果显示在相应的控件中。（4）在“欠分按钮”中检索将成绩加5%后，仍然小于60分的同学。（5）在”输出按钮”中编写sql代码,完成将成绩在8089之间的同学信息输出到表xsda1.dbf中。n=this.valuedo case case n=1creat table xsda(学号 c(6),姓名 c(10),成绩 n(5,1)insert into xsda values ("100101","德华",89)insert into xsda values (&quo

10、t;100202","学友",40)insert into xsda values ("100103","曼玉",78)case n=2aa="sele * from xsda order by 成绩 desc into cursor y"thisform.grid1.recordsource=aacase n=3bb="sele left(学号,4) as 班级,sum(成绩) as 班级总成绩 from xsda group by 班级 into cursor x"thisform

11、.grid1.recordsource=bbcase n=4update xsda set 成绩=成绩*1.05cc="sele * from xsda where 成绩<60"thisform.grid1.recordsource=cccase n=5sele * from xsda where 成绩 between 80 and 89 into dbf xsda1endcase7 有学生管理数据库book，数据库中有score表(含有学号、物理、高数、英语和学分)等5个字段，其中前4项已有数据。 请编写符合下列要求的程序并运行程序。 设计一个名myform4的表单

12、，表单中有两个命令按钮，按钮的名称分别是cmdyes和cmdno，标题分别为“计算”和“关闭”。程序运行时，单击“计算按钮应该完成下列操作： 1）计算每一个学生的总学分并存入对应的“学分”字段。学分的计算方法是：物理60以上(包括60分)为2学分，否则为0分；高数60分以上(包括60分)为3学分，否则为0分；英语60以上(包括60分)为4学分，否则为0分。 2)根据上面的计算结果，生成一个新的表xf，(要求表结构的字段类型与score表对应字段的类型一致)，并且按学分升序排列，如果学分相等，则按学号降序排序。单击“关闭”按钮，程序终止运行。 update scorep set 学分=iif(物

13、理>=60,2,0)+iif(高数>=60,3,0)+iif(英语>=60,4,0) aa="sele * from scorep into cursor x" thisform.grid1.recordsource=aa select * from scorep order by 学分,学号 desc into table xf8 有一学生管理数据库stu，该数据库中有chengji表和xuesheng表，各表结构如下：xuesheng表(学号c(9)、姓名c(10)、出生日期d，性别c(2),平均分n(7，2)，个学生只有一个记录，“学号”字段是表的主

14、关键字。chengji表(学号c(9)、课程号c(3)、课程名c(8)，成绩n(7，2)，该表用于记录学生的考试成绩， 一个学生可以有多项记录，（登记一个学生的多门成绩），其中，字段“学号”与“课程名”的组合构成表chengji的主关键字。设计一个名为form_stu的表单、表单中有两个命令按钮，按钮的名称分别是cmdyes和cmdno,标题分别为“统计”和“关闭”及其他相关控件。程序运行时，单击“统计”按钮应完成下列操作：1)根据chengji表计算每个学生的平均分，并将结果存入xuesheng表的平均分字段。2)根据上面的计算结果，生成一个新的表pingjun，该表的字段按顺序取自xues

15、heng表的学号、姓名和平均分3项，并按平均分升序排序，如果平均分相等，则按学号升序排序。3）按照出生日期统计每月份各有多少名学生，男女生各有多少名。4）查询每门课的选课人数、优秀人数和不及格人数。 单击“关闭”按扭，程序终止运行。sele avg(成绩) from chengji group by 学号 into array a(任青(运行不出来)update xuesheng set 平均分=aselect * from xueshengselect 学号,姓名,平均分 from xuesheng into dbf pingjun order by 平均分,学号 sele month(出生

16、日期) as 月份,性别,count(*) from xuesheng group by 月份,性别select 课程名,count(*)as 每门人数 from chengji group by 课程号select 课程名,count(*)as 每门优秀人数 from chengji group by 课程号 where 成绩>80select 课程名,count(*)as 每门不及格人数 from chengji group by 课程号 where 成绩<609 设计一个能进行查询的表单，界面如图所示。当输入学生姓名并单击“查询统计”按钮时，会在右边的表格内显示该同学所选各科

17、的成绩，并在左边相应的文本框内显示其中的最高分、最低分以及平均成绩。单击“退出”按钮将关闭表单。(运行不出来)thisform.grid1.recordsource="sele 课程号,成绩 from dijiti where 姓名=thisform.text1.value into cursor x"a=allt(thisform.text1.value)sele max(成绩) as a from dijiti where 姓名=a into cursor xthisform.text2.value=asele min(成绩) as b from dijiti wher

18、e 姓名=a into cursor ythisform.text3.value=bsele avg(成绩) as c from dijiti where 姓名=a into cursor zthisform.text4.value=c10 有“学生管理”数据库。在其中新建数据表student，表结构如下：学号(c/8)、姓名(c/10)、专业号(c/4)、成绩(n/4)。以学号建立主索引，以专业号建立普通索引。建数据表class，表结构如下：专业号(c/4)、专业名称(c/10)，以专业号建立主索引，并与student建立表间永久关系。1） 两个数据表各添加3条记录(要有”英语”专业的记录)

19、。2） 新建项目“管理”并将数据库添加到该项目中。3） 在项目中新建表单form1。选择选项按钮后“运行”可以完成相应的操作。结果显示在相应的控件中。n=this.valuedo case case n=1aa="sele 姓名,专业 from 学生class join 学生student on 学生student.专业号=学生class.专业号"thisform.grid1.recordsource=aacase n=2y="select 专业名称 ,count(学号) as 人数 from 学生student join 学生class on 学生student

20、.专业号=学生class.专业号 group by 学生student.专业号 into cursor z"thisform.grid1.recordsource=ycase n=3update 学生student set 成绩=成绩*1.05 where 专业号 in (sele 专业号 from 学生class where 专业名称 ="英语")cc="sele 学号,姓名,专业号,成绩 from 学生student into cursor w"thisform.grid1.recordsource=cccase n=4thisform.r

21、eleaseendcasedo case(任青)case thisform.optiongroup1.value=1select 姓名,专业名称 from student join class1 on student.专业号=class1.专业号 into cursor athisform.grid1.recordsource=acase thisform.optiongroup1.value=2select 专业名称,count(*) as 学生数 from student join class on student.专业号=class.专业号 group by 专业名称case thisf

22、orm.optiongroup1.value=3update student set 成绩=成绩*1.05 where 专业号 in (select 专业号 from class where 专业名称="英语")select * from studentcase thisform.optiongroup1.value=4thisform.releaseendcase12 设计如上图表单，要求对于学生管理数据库std.dbc用sql语句完成如下功能：（1） 点击学生名单显示学号,姓名（若选中复选框显示详细信息，则显示学号, 姓名,性别,出生日期,入学日期,专业）。(运行不出来)n=thisform.check1.valuedo casecase n=0aa="select 姓名,学号 from std_