资源描述：
《VFP上机真题代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、这是本人所记的上机题库代码，看得懂就懂，不懂的尽量背.真题代码（由于时间问题，不做修改注明了、只有代码，相信考过的应该认出这是真题代码吧）SSELECT外汇代码.外币代码AS币种1代码,;外汇代码_a.外币代码AS币种2代码,外汇汇率.买入价,外汇汇率.卖出价;FROM外汇!外汇代码JOIN外汇!外汇汇率JOIN外汇!外汇代码外汇代码_a;ON外汇代码_a.外币代码=外汇汇率.币种2;ON外汇汇率.币种1=外汇代码.外币代码;INTOTABLERATEselect供应商号，工程号，数量FROM供应；WHERE零件号IN（SELECT零件号F
2、ROM零件WHERE颜色=”红“)SELECT零件名,颜色,重量FROM零件JOIN供应;ON零件.零件号=供应.零件号WHERE工程号=ALLTRIM(thisform.Text1.value);ORDERBY零件。零件号ASCINTOTABLEPP。DBFthisform.grid1.recordsource="pp"SELECT书名,作者,价格FROMBOOK;WHEREBOOK.图书登记号IN;(SELECT图书登记号FROMLOANS,BORROWS;WHERELOANS.借书证号=BORROWS.借书证号ANDBORROWS.姓
3、名="田亮")releasemenumenu_linextended释放SELECTCOUNT(*)FROMBOOKWHERE出版社=THISFORM.COMBO1.VALUE;INTOARRAYTEMPTHISFORM.TEXT1.VALUE=TEMP(1)CREATEVIEWNEW_VIEWASSELECTSTUDENT.学号,STUDENT.姓名,STUDENT.系部FROMSCORE!COURSEINNERJOINSCORE!SCORE1INNERJOINSCORE!STUDENTONSTUDENT.学号=SCORE1.学号ONCO
4、URSE.课程号=SCORE1.课程号WHERECOURSE.课程号ISNOTNULLANDSCORE1.成绩ISNULLsettalkoff&&在程序工作方式下关闭命令结果的显示OPENDATABASESCORE**********************************************************createviewview_cbas;selectEMPLOYEE.职工号,EMPLOYEE.姓名,SUM(ORDERS.金额)AS总金额;FROMEMPLOYEE,ORDERSWHEREEMPLOYEE.职工号=
5、ORDERS.职工号;GROUPBYORDERS.职工号HAVINGSUM(ORDERS.金额)>=15000;ORDERBY总金额SELECTCUORSE.课程名,AVG(SCORE1.成绩)平均成绩;FROMSCORE!COURSEJOINSCORE!SCORE1ONCORESE.课程号=SCORE1.课程号;ORDERBYCOURSE.课程名;GROUPBYCOURSE.课程名;INTOTABLENEWTABLECLOSEALLSETTALKONSELECTCURRENCY_SL.姓名,(RATE_EXCHANGE.基准价*CURRE
6、NCY_SL.持有数量)AS人民币价值;FROMCURRENCY_SLjoinRATE_EXCHANGE;ONCURRENCY_SL.外币代码=RATE_EXCHANGE.外币代码GROUPBYCURRENCY_SL.姓名;ORDERBY人民币价值DESCINTOTABLERESULTS.DBFselect歌手表.歌手姓名,MAX(评分表.分数)AS最高分,;MIN(评分表.分数)AS最低分,AVG(评分表.分数)AS平均分;FROM大奖赛!歌手表INNERJOIN大奖赛!评分表;ON歌手表.歌手编号=评分表.歌手编号;GROUPBY歌手表
7、.歌手编号;ORDERBY4DESC;INTOTABLEresult.dbfdocasecasethisform.Optiongroup1.value=1select*;fromresult;orderbyresult.最高分，Result.最低分，result.平均分；intotablesix_a.dbfcasethisform.Optiongroup.value=2select*;orderbyresult.最高分DESC，RESULT最低分DESC,RESULT.平均分DESC;intotablesix_d.dbfendcaseSEL
8、ECT职工号,姓名,工资FROM教师表JOIN学院表;ON教师表.系号=学院表.系号WHERE学院表.系名=(THISFORM.LIST1.LISTINDEX)INTOTABLE
