【vfp精品源码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。
网学会员整理了vfp精品源码-全国计算机vfp上机考试程序部分专项背诵 - 计算机等级的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
一般规定用SQL做,会让你将SQL语句保存下来,如保存为txt文件,如果没要求保存应该可以不用SQL。
如果你不会SQL,教你一个方法,你可以新建一个查询(文件-新建-查询),然后在建立的查询文件中,1、选择相应的一个或多个表。
2、在字段中选择相应的字段。
3、设置相应的联接、筛选条件。
4、设置排序字段。
5、如果题上有这样如“将查询到的记录保存到一个新表中”的要求,还要点菜单栏上的“查询”-“查询去向”-“选择表”,再输入题上的表名。
最后要点“查询”-”运行查询“。
所有的都设置好后就在查询中点右键-“查看SQL”,这样就能看到相应的SQL语句了 1 OPEN DATABASE stsc 打开数据库 USE student (打开表) BROWSE (浏览表) CLOSE DATABASE (关闭数据库) 2,编写程序,实现:先为“学生成绩”表加一个“平均成绩” 字段,类型为(62) ,根据“学生选课”表统计每个学生的平均成绩,并写入“学生成绩”表新的字段中。
ALTER TABLE 学生成绩 ADD 平均成绩 N62 SELECT 学号AVG成绩 AS 平均成绩 FROM 学生选课 GROUP BY 学号 INTO CURSOR atemp DO WHILE NOT EOF UPDATE 学生成绩 SET 平均成绩atemp.平均成绩 WHERE 学生成绩.学号atemp.学号 SKIP ENDDO3,用SQL语言查询课程成绩在60分以上的学生姓名,并将结果按姓名降序存入表文件res.dbf中。
SELECT DISTINCT姓名 AS 姓名 FROM 课程学生选课学生成绩 WHERE 学生成绩.学号学生选课.学号 AND 学生选课.课程号课程.课程号 AND 成绩gt60 ORDER BY 姓名 DESC INTO TABLE res4,检索出工资小于或等于本仓库职工的平均工资的职工信息,并将这些职工信息按照仓库号升序,在仓库号相同的情况下再按职工号升序存放到 emp1 文件中,该数据表文件和 zg 数据表文件具有相同的结构。
SET TALK OFF SET SAFETY OFF OPEN DATABASE wage3 SELECT 仓库号AVG工资 AS avggz FROM zg GROUP BY 仓库号 INTO CURSOR curtable SELECT zg.仓库号zg.职工号zg.工资 FROM zgcurtable WHERE zg.工资ltcurtable.avggz AND zg.仓库号curtable.仓库号 ORDER BY zg.仓库号职工号 INTO TABLE emp1 CLOSE ALL SET SAFETY ON SET TALK ON 数据库gz3有两个表文件(zgdgd).检索出于供应商S7,S4和S6都有业务联系的职工的职工号和工资,并按工资降序存放到所建立的gj文件中。
SELECT DISTINCT zg.职工号zg.工资 FROM zgdgd WHERE zg.职工号dgd.职工号 AND zg.职工号 IN SELECT 职工号 FROM dgd WHERE 供应商号quotS4quot AND zg.职工号 IN SELECT 职工号 FROM dgd WHERE 供应商号quotS6quot AND zg.职工号 IN SELECT 职工号 FROM dgd WHERE 供应商号quotS7quot ORDER BY zg.工资 DESC INTO ARRAY arr INSERT INTO gj FROM ARRAY arr5为“部门信息“表增加一个新字段”人数“,编写满足如下要求的程序:根据”雇员信息“表中的”部门号“字段的值确定”部门信息“表的”人数字段值,即对“雇员信息”表中的记录按“部门号”归类。
将“部门信息”表中的记录存储到 ate 表中。
ALTER TABLE 部门信息 ADD 人数 I SELECT 部门号COUNT AS 人数 FROM 雇员信息 GROUP BY 部门号 INTO CURSOR atemp SELECT 部门信息.部门号部门信息.部门名atemp.人数 FROM 部门信息 LEFT JOIN atemp ON 部门信息.部门号atemp.部门号 GROUP BY 部门信息.部门号 INTO TABLE ate6字段有效性规则中信息是常量,需加双影号。
7,将学生李勇的出生日期修改为 1984 年 3 月 5 日 UPDATE 学生 SET 出生日期1984/03/05 WHERE 姓名quot李勇quot8,改错:①为每本书的“价格”加上 1 元②统计 books 表中每个作者所著的书的价格总和③查询“出版单位”为“经济科学出版社”的书的所有信息update books set 价格 with(改为) 价格1select sum价格 from books order(group) by 作者编号select from books