VFP上机模拟综合应用题参考讲义.doc

VFP上机模拟综合应用题参考讲义一、 两表合并已有两个数据表TEACHER.DBF和JSDA.DBF,现将两个数据表合并成一个新文件AHB.DBF, 新文件中有职工号、职称、院系、姓名、性别、基本工资这几个字段。方法一：SELE 1USE TEACHER SELE 2USE JSDAJOIN WITH A TO AHB FIELDS 职工号，职称，院系， A.姓名，；A.性别，A.基本工资 FOR A.职工号=B.职工号方法二：Select TEACHER.职工号，职称，院系， 姓名，性别，基本工；资from TEACHER, JSDA where TEACHER.职工号= JSDA.职工号into dbf AHB.dbf二、 SQL语句123SELE 课程名,AVG(成绩) AS 平均成绩 FROM CJ GROUP BY 课;程名ORDER BY 课程名 DESC INTO DBF NEWTABLE4.在考生文件夹下有1）CHENGJI表（姓名、课程、成绩）用于记录学生的考试成绩，其中一个学生可以有多项记录（登记一个学生的多门成绩）。2）KECHENG表（课程、姓名、最高成绩）。请在考生文件夹下编写并运行符合下列要求的程序prog1:1） 计算每门课程的最高分，并将相应的课程、姓名、最高成绩存入KECHENG表中。2）根据KECHENG表按最高成绩降序排序生成一个新的表jcc(课程 c(10 ),最高成绩 N (8,2) Sele 课程,姓名,max(成绩) as 最高成绩 from chengji；group by 课程 into dbf kecheng Sele 课程,最高成绩 from kecheng order by 最高成绩 desc； into dbf jcc5SET TALK OFFCLOSE ALLUSE TBOOKSCOPY TO TBOOKSBAK FOR “计算机“ $书名USE TBOOKSBAKREPL ALL 单价 WITH 单价*(1-0.05) SELE 出版社 ,AVG(单价) AS 均价 FROM TBOOKSBAK GROUP BY; 出版社 INTO DBF ABCSELE 出版社 AS 出版单位,均价 FROM ABC WHERE 均价=20; INTO DBF TBOOKPRICE6SELE 学号，AVG（成绩） AS 平均成绩，MIN（成绩） AS 最;低分，COUNT（成绩） AS 选课门数 FROM 选课 GROUP BY; 学号INTO DBF ABCSELE * FROM ABC WHERE 选课门数=2 ORDER BY 平均;成绩 DESC INTO DBF JIEGUO7.有数据库表STUD、SCORE,两个表的结构如下所示：STUD(学号,姓名,性别,院系,出生日期)SCORE(学号,课程编号,成绩)要求：首先编写程序prog1.prg，该程序的功能是检索每个学生的学号、姓名、平均成绩和院系,并按照平均成绩降序排列，同时将结果存放到新建立的表test1(学号，姓名，平均成绩，院系)中。Sele stud.学号,姓名,avg(成绩) as 平均成绩,院系; from stud,score where stud.学号=score.学号;group by stud.学号 order by 平均成绩 desc ;into dbf test1 8、在考生文件夹下有stock_s1、stock_fk表。stock_s1的表结构是股票代码、买入价、现价、持有数量。stock_fk的表结构是股票代码，浮亏金额。请在考生文件夹下编写满足如下要求的程序PROG1：1）将现价比买入价低的股票信息存入stock_fk表，其中：浮亏金额=(买入价-现价)*持有数量 (注意要先把表的stock_fk 内容清空)。2）根据stock_fk表计算总浮亏金额，存入一个新表stock_z中，其字段名为浮亏金额，类型为N（11，2），该表最终只有一条记录。Sele 股票代码,(买入价-现价)*持有数量 as 浮亏金额 from; stock_s1 where 现价A ORDER BY 工;资 INTO DBF JIEGUO三、 数值类编程123USE KSSJBCOPY TO JGSJBUSE JGSJBSCAN I=INT(SWS/100) J=INT(SWS/10)-10*I K= SWS %10 REPL MWCJ WITH I*J*K ENDSCAN45USE JBCOPY TO JCCUSE JCCFOR I=1 TO 100IF MOD(I,3)=0 OR MOD(I,5)=0APPEND BLANK REPL 数值 WITH IENDIFENDFOR6USE TABCOPY TO JBBUSE JBBSCAN S=0 FOR I= 1 TO 数值 S=S+I*I ENDFORREPL 结果 WITH SENDSCAN78.9四、 单表操作1234方法一：方法二：USE CHENGJICOPY TO JCCUSE JCC REPLACE ALL 总成绩; WITH 考试成绩;+IIF(少数民族; =.T.,5,0);+ IIF(三好学生=.T.,10,0);+ IIF(优秀干部=.T.,20,0)USE USE CHENGJICOPY TO JCCUSE JCC SCAN A=考试成绩 IF少数民族=.T. A=A+5 ENDIF IF三好学生=.T. A=A+10 ENDIF IF优秀干部=.T. A=A+20 ENDIFREPL 总成绩 WITH A ENDSCANUSE5USE SCORESCAN IF 物理!=-1 S=S+物理 ENDIF IF 高数!=-1 S=S+高数 ENDIF IF 英语!=-1 S=S+英语 ENDIFREPL 平均分 WITH S/3ENDSCANSORT TO PJF ON 平均分 /D,学号/A 五、 两表操作123SELE 1USE KCSELE 2USE TABLECOPY TO JDDUSE JDDSCAN SELE 1 SUM 学分 TO XF FOR 学号=B.学号 .AND. 成绩=60 SELE 2 REPL 学分 WITH XFENDSCAN4SELE 1USE 销售明细SELE 2