vfp上机练习题(最终答案).doc

1 新建商品数据表SB.DBF，字段有：商品号（C,5），商品名（C,8），单价（N,5,2），出厂单价(N,5,2)，产地(C,6)。并添加如下记录：商品号（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的表单，上面有“浏览”、“调整”、“备份”和“退出”四个命令按钮，“商品名称”标签和文本框text1。1） 在text1中输入文本，单击“浏览”按钮时，显示商品名含有该文本的所有商品记录。a=allt(thisform.text1.value)Sele * from sb where 商品名=”&a%”2） 单击“调整”按钮时，将“商品号”前两位编号为“10”的商品的“单价”修改为出厂单价的110%。Update sb set 单价=出厂单价*1.1 where left(商品号,2)=”10” Use sb in 0Sele sbbrow3） 单击“备份”按钮时，将“商品表”进行备份(使用命令COPY TO )，备份文件名为“商品表备份.DBF”，Copy to 商品表备份 Use 商品表备份 in 0 alia spSele spbrow4） 单击“退出”按钮时，关闭表单。Thisform.release2 设计一个菜单。主菜单子菜单任务文件（F）建查询 (C) Ctrl+C新建立查询，表自备，查询内容、文件名自定保存（S）_mfi_save关闭 (G)编辑（E）输入 (I)append blank修改 (E)修改该查询modify structure运行（R） Ctrl+R运行该查询显示结果do form1.scx退出（X）过程提示“退出菜单？”，退出恢复系统隐含菜单msg=messagebox(“退出菜单？”,1)if msg=1set sysmenu to defa endif3 在建立“E:专业姓名”文件夹下，建立表单（bd2.scx），添加标签“输入字符串”、文本框，添加“输出”、“退出”命令按钮，并编写代码。“输出”Click代码：把文本框内输入的字符串，去掉左、右、中间所有空格字符后，在信息框显示。“退出”：结束表单运行。n=thisform.text1.valuei=0H=len(thisform.text1.value)thisform.text1.value=space(0)do while i=60,2,0)+iif(高数=60,3,0)+iif(英语=60,4,0)select * from score order by 学分,学号 desc into table XF10 有一学生管理数据库stu，该数据库中有CHENGJI表和XUESHENG表，各表结构如下： 1) XUESHENG表(学号C(9)、姓名C(10)、平均分N(7，2)， 该表是学生信息，个学生只有一个记录，“学号”字段是表的主关键字。 2） CHENGJI表(学号c(9)、课程号c(3)、成绩N(7，2)，该表用于记录学生的考试成绩， 一个学生可以有多项记录，（登记一个学生的多门成绩）。请编写符合下列要求的程序并运行程序。 设计一个名为FORM_STU的表单、表单中有两个命令按钮，按钮的名称分别是CMDYES和CMDNO,标题分别为“统计”和“关闭”。程序运行时，单击“统计”按钮应完成下列操作： 1)根据CHENGJI表计算每个学生的平均分，并将结果存入XUESHENG表的平均分字段。 2)根据上面的计算结果，生成一个新的表PINGJUN，该表的字段按顺序取自XUESHENG表的学号、姓名和平均分3项，并按平均分升序排序，如果平均分相等，则按学号升序排序。 单击“关闭”按扭，程序终止运行。SELE 学号,AVG(成绩) AS 平均分 FROM CHENGJI GROUP BY 学号 INTO TABLE BG3sele bg3inde on 学号 tag xhsele 1use XUESHENGset rela to 学号 into bg3update XUESHENG set 平均分=bg3.平均分 where 学号 = bg3.学号SELE 学号,姓名,平均分 FROM XUESHENG ORDER BY 平均分,学号 INTO TABLE PINGJUNsele pingjunuse pingjunbrow11 *设计一个能进行查询的表单，界面如图所示。当输入学生姓名并单击“查询统计”按钮时，会在右边的表格内显示该同学所选各科的成绩，并在左边相应的文本框内显示其中的最高分、最低分以及平均成绩。单击“退出”按钮将关闭表单。thisform.grid1.recordsource=select 课程号,成绩 from chengji where 姓名=thisform.text1.value into cursor aa select max(成绩) from aa into array x1thisform.text2.value=x1select min(成绩) from aa into array x2thisform.text3.value=x2select avg(成绩) from aa into array x3thisform.text4.value=x3thisform.refresh12 有“学生管理”数据库。在其中新建数据表student，表结构如下：学号(C/8)、姓名(C/10)、专业号(C/4)、成绩(N/4)。以学号建立主索引，以专业号建立普通索引。建数据表class，表结构如下：专业号(C/4)、专业名称(C/10)，以专业号建立主索引，并与student(专业号为外部关键字段)建立表间永久关系。1） 两个数据表各添加3条记录(要有”英语”专业的记录)。2） 新建项目“管理”并将数据库添加到该项目中。3） 在项目中新建表单FORM1。选择选项按钮后“运行”可以完成相应的操作。a=thisform.optiongroup1.valuedo casecase a=1select dist 姓名,专业名称 from student ,class where student.专业号=class.专业号case a=2select 专业名称 ,count(学号) as 人数 from student ,class group by student.专业号 where student.专业号=class.专业号case a=3update student set 成绩=成绩+5 where 专业号 in (sele 专业号 from class where 专业名称 =英语) sele * from student endcase13 设计如上图表单，要求对于学生管理数据库std.dbc用SQL语句完成如下功能：（1） 点击学生名单显示学号,姓名（若选中复选框显示详细信息，则显示学号, 姓名,性别,出生日期,入学日期,专业）。n=thisform.check1.valuedo casecase n=0select 姓名,学号 from std_da case n=1select * from std_daendcase（2） 点击计算成绩，重新计算总成绩。update std_cj set 总成绩=期中+期末+平时sele std_cjbrow（3） 点击显示成绩，按照总成绩升序或降序显示std_cj表所有字段。a=thisform.optiongroup1.valuedo casecase a=1select * from std_cj order by 总成绩 asccase a=2sele * from std_cj order by 总成绩 descendcase（4） 点击选课统计，所有学生的学号，姓名及选课的门数。sele std_da.学号,std_da.姓名,count(课程代号) as 选课的门数 from std_xk , std_da where std_da.学号=std_xk.学号 group by std_xk.学号14 设计如上图表单，要求用SQL语句完成如下功能：1） 击学生成绩显示学号,总成绩（若选中复选框显示详细信息，则显示学号, 姓名,性别,专业,总成绩）。n=thisform.check1.valuedo casecase n=0sele std_da.学号,总成绩 from std_cjcase n=1sele std_da.学号,std_da.姓名,性别,专业,总成绩 from std_cj,std_da where std_da.学号=std_cj.学号endcase2） 点击班级成绩表，按照班级（学号字段的前4位为班级号）统计各班级平均成绩。select dist left(学号,4) as 班级号, avg(总成绩) as 班级平均成绩 from std_cj group by 班级号3） 点击课程列表，显示所有选课的代码，名称及学生数。sele std_xk.课程代号,tch_pk.课程名,count(学号) as 人数 from std_xk,tch_pk where std_xk.课程代号=tch_pk.课程代号 group by tch_pk.课程代号 brow 15. 设计一个数