沈阳师范大学：《数据库应用基础》课堂测试

倮莹测试

(1)阅读程序 USE STUD DBF REPLACE ALL SCHOSHIP WITH SCHOSHIP+20 for SCORE<600 GOTO 2 DISPLAY NEXT 3 SCHOSHIP USE (问题2:在repl命令中将for改为 while程序的运行结果是什么?) STUD DBF Sno name sex birthday score schoship (C,6)(C6)(C,2)(D,8)(N,3)(N,3) 990105王亚洲男19800524556120 990102赵辉男19811203600180 990107刘洋男19800520515100 990103王丹女19810326624180 990104李冬梅女19800415525100 990101白雪女19810618540120 990106陈小刚男19820816510100

(1)阅读程序 USE STUD.DBF REPLACE ALL SCHOSHIP WITH SCHOSHIP+20 for SCORE＜600 GOTO 2 DISPLAY NEXT 3 SCHOSHIP USE (问题2：在repl命令中将for改为while程序的运行结果是什么？) STUD.DBF Sno name sex birthday score schoship (C,6) (C,6) (C,2) (D,8) (N,3) (N,3) 990105 王亚洲 男 19800524 556 120 990102 赵辉 男 19811203 600 180 990107 刘洋 男 19800520 515 100 990103 王丹 女 19810326 624 180 990104 李冬梅 女 19800415 525 100 990101 白雪 女 19810618 540 120 990106 陈小刚 男 19820816 510 100

(2)阅读程序 USE STUD SKIP SNO SkIP 3 SEX SkIP 3 BOFO STUD. DBF SKIP-3 Sno name sex birthday score schoshi SCORE (C,6)(C,6)(C,2)(D,8)(N,3)(N,3) 990105王亚洲男19800524556120 USE 990102赵辉男1981203600180 990107刘洋男19800520515100 990103王丹女19810326624180 990104李冬梅女19800415525100 990101白雪女19810618540120 990106陈小刚男19820816510100

(2)阅读程序 USE STUD SKIP ? SNO SKIP 3 ? SEX SKIP 3 ? BOF() SKIP –3 ? SCORE USE STUD.DBF Sno name sex birthday score schoship (C,6) (C,6) (C,2) (D,8) (N,3) (N,3) 990105 王亚洲 男 19800524 556 120 990102 赵辉 男 19811203 600 180 990107 刘洋 男 19800520 515 100 990103 王丹 女 19810326 624 180 990104 李冬梅 女 19800415 525 100 990101 白雪 女 19810618 540 120 990106 陈小刚 男 19820816 510 100

(3)阅读程序 CLEA USE STUD GOTO 2 INSERT BLANK REPLACE SNO WITH990108 NAME WITH张彤' SEX WITH女 BIRTHDAY WITH (82-6-4, SCORE WITH 500, SCHOSHIP WITH 120 GOTO 2 XESCORE skip STUD DBF YESCORE Sno name sex birthday score schoship 9X-Y (C,6)(C,6)(C,2)(D,8)(N,3)(N,3) USE 990105王亚洲男19800524556120 990102赵辉男19811203600180 990107刘洋男19800520515100 990103王丹女1981032662418 990104李冬梅女19800415525100 990101白雪女19810618540120 990106陈小刚男19820816510100

(3)阅读程序 CLEA USE STUD GOTO 2 INSERT BLANK REPLACE SNO WITH '990108',NAME WITH '张彤',SEX WITH '女 ',BIRTHDAY WITH {82-6-4},SCORE WITH 500,SCHOSHIPWITH 120 GOTO 2 X=SCORE skip Y=SCORE ? X－Y USE STUD.DBF Sno name sex birthday score schoship (C,6) (C,6) (C,2) (D,8) (N,3) (N,3) 990105 王亚洲 男 19800524 556 120 990102 赵辉 男 19811203 600 180 990107 刘洋 男 19800520 515 100 990103 王丹 女 19810326 624 180 990104 李冬梅 女 19800415 525 100 990101 白雪 女 19810618 540 120 990106 陈小刚 男 19820816 510 100

(4)阅读程序 USE STUD GO BOTTOM RECNOO, EOFO SKIP ? RECNOO, EOFO GO TOP RECNOO, BOFO STUD DBF SKIP-1 Sno name sex birthday score schoship (C,6)(C,6)(C,2)(D,8)(N,3)(N,3) ? RECNOO, BOFO 990105王亚洲男19800524556120 990102赵辉男19811203600180 990107刘洋男19800520515100 990103王丹女1981032662418 990104李冬梅女19800415525100 990101白雪女19810618540120 990106陈小刚男19820816510100

(4)阅读程序 USE STUD GO BOTTOM ? RECNO(),EOF() SKIP ?? RECNO(),EOF() GO TOP ? RECNO(),BOF() SKIP –1 ?? RECNO(),BOF() STUD.DBF Sno name sex birthday score schoship (C,6) (C,6) (C,2) (D,8) (N,3) (N,3) 990105 王亚洲 男 19800524 556 120 990102 赵辉 男 19811203 600 180 990107 刘洋 男 19800520 515 100 990103 王丹 女 19810326 624 180 990104 李冬梅 女 19800415 525 100 990101 白雪 女 19810618 540 120 990106 陈小刚 男 19820816 510 100

(5)阅读程序 set heading off USE GZ REPL all应领工资WITH标准工资+津贴+补贴 GO TOP SKIP 2 DISP NEXT2编号,应领工资OFF USE GZ. DBF 编号标准工资津贴补贴应领工资扣款实发工资 (C,4)(N,7)(N,6)(N6)(N,7)(N6)(N,7 30011650095.0080.000.0010.00 0.00 1002165.0095.0080.000.0010.0 0.00 200130500140.00120.000.0040.000.00 1001520.0021000140.000.00 50.00 0.00 3002305.00140.00120.000.0040.000.00 2002285.00110.00100.000.00 30.00 0.00

(5)阅读程序 set heading off USE GZ REPL all 应领工资WITH 标准工资+津贴+补贴 GO TOP SKIP 2 DISP NEXT 2 编号,应领工资OFF USE GZ.DBF 编号 标准工资 津贴 补贴 应领工资 扣款 实发工资 (C,4 ) (N,7) (N,6) (N,6) (N,7) (N,6) (N,7) 3001 165.00 95.00 80.00 0.00 10.00 0.00 1002 165.00 95.00 80.00 0.00 10.00 0.00 2001 305.00 140.00 120.00 0.00 40.00 0.00 1001 520.00 210.00 140.00 0.00 50.00 0.00 3002 305.00 140.00 120.00 0.00 40.00 0.00 2002 285.00 110.00 100.00 0.00 30.00 0.00

(6)阅读程序 set heading off USE RS GoTO 3 DELETE FOR性别="男"and"教授"$职称 pack goto 2 disp off fields编号,姓名,职称 RS DBF 编号姓名性别出生日期职称工龄婚否 (c,4)(c6)(c,2)(d,8)(c,6)(n2)(l,1) 1001李力男19600915教授19T 3001王玫女19751220助教 4F 2001赵大山男19650512副教授14T 3002丁一林男1960924副教授13T 1002孙夏女19730822助教6F 2002黄刚男19701020讲师 9 T

(6)阅读程序 set heading off USE RS GOTO 3 DELETE FOR 性别="男" and "教授" $ 职称 pack goto 2 disp off fields 编号,姓名,职称 RS.DBF 编号 姓名 性别 出生日期 职称 工龄 婚否 (c,4) (c,6) (c,2) (d,8) (c,6) (n,2) (l,1) 1001 李力 男 19600915 教授 19 T 3001 王玫 女 19751220 助教 4 F 2001 赵大山 男 19650512 副教授 14 T 3002 丁一林 男 19660924 副教授 13 T 1002 孙夏 女 19730822 助教 6 F 2002 黄刚 男 19701020 讲师 9 T

(7)阅读程序 USE STUD COPY TO STUDSTRU STRUCTURE EXTENDED USE STUDSTRU 问题1:新库 STUDSTRU中有几条记录? 问题2: studstru数据库中有几个字段? STUD DBF Sno name sex birthday score schoship (C,6)(C,6)(C2)(D,8)(N,3)(N,3) 990105王亚洲男19800524556120 990102赵辉男19811203600180 990107刘洋男19800520515100 990103王丹女19810326624180 990104李冬梅女19800415525100 990101白雪女19810618540120 990106陈小刚男19820816510100

(7)阅读程序 USE STUD COPY TO STUDSTRU STRUCTURE EXTENDED USE STUDSTRU 问题1：新库STUDSTRU中有几条记录? 问题2：studstru数据库中有几个字段？ STUD.DBF Sno name sex birthday score schoship (C,6) (C,6) (C,2) (D,8) (N,3) (N,3) 990105 王亚洲 男 19800524 556 120 990102 赵辉 男 19811203 600 180 990107 刘洋 男 19800520 515 100 990103 王丹 女 19810326 624 180 990104 李冬梅 女 19800415 525 100 990101 白雪 女 19810618 540 120 990106 陈小刚 男 19820816 510 100

(8)阅读程序 use stud copy stru to stu use stud 1 append from stud for score>550 go bottom cnol ?? name score STUD DBF use Sno name sex birthday score schoship C26)(C,6)(C,2)(D8)(N,3)(N,3) 990105王亚洲男19800524556120 990102赵辉男19811203600180 990107刘洋男19800520515100 990103王丹女19810326624180 990104李冬梅女19800415525100 990101白雪女19810618540120 990106陈小刚男19820816510100

(8) 阅读程序 use stud copy stru to stud1 use stud1 append from stud for score>550 go bottom ? recno() ?? name,score use STUD.DBF Sno name sex birthday score schoship (C,6) (C,6) (C,2) (D,8) (N,3) (N,3) 990105 王亚洲 男 19800524 556 120 990102 赵辉 男 19811203 600 180 990107 刘洋 男 19800520 515 100 990103 王丹 女 19810326 624 180 990104 李冬梅 女 19800415 525 100 990101 白雪 女 19810618 540 120 990106 陈小刚 男 19820816 510 100

(9)阅读程序 set dele off Ise Is DELETE FOR"教授"$职称 recall for工龄>15 SET DELE ON count to ss(注:把数据库中的记录数给变量ss SS RS. DBF 编号姓名性别出生日期职称工龄婚否 (c,4)(c6)(c,2) d8)(c6)(n,2)(1,1) 1001李力男19600915教授19T 3001王玫女19751220助教4F 2001赵大山男19650512副教授14T 3002丁一林男19660924副教授13T 1002孙夏女19730822助教6F 2002黄刚男19701020讲师9T

(9)阅读程序 set dele off use rs DELETE FOR "教授"$职称 recall for 工龄>15 SET DELE ON count to ss (注：把数据库中的记录数给变量ss) ? "ss=",ss RS.DBF 编号 姓名 性别 出生日期 职称 工龄 婚否 (c,4) (c,6) (c,2) (d,8) (c,6) (n,2) (l,1) 1001 李力 男 19600915 教授 19 T 3001 王玫 女 19751220 助教 4 F 2001 赵大山 男 19650512 副教授 14 T 3002 丁一林 男 19660924 副教授 13 T 1002 孙夏 女 19730822 助教 6 F 2002 黄刚 男 19701020 讲师 9 T