合工大数据库上机实验

《数据库及应用》课程实验报告

实验名称：VisualFoxPro6.0的基本操作

实验类型：_________验证设计___________

实验学时：_________8学时______________

学号：_______________

姓名：________________

班级：_______________

指导教师：_____________燮贺_____________

实验地点：管理学院一号楼四楼机房

实验时间：2012年11月19日、26FI

二。一二年十二月十日

添加30条数据

文件u)显示⑺格式(0)工具⑴程序(?)窗口on帮助on

□I谢W色同：1「1'1国小1AlzlI□后且J篁憧］刿里］?1

23

--

«-22

里--

24

黑

25

10U.1

-o

09

12.--

O9:23

:信管家6画

19820322,信管系0344,

Bh\数据库实乱作业二'实轴二\studen，记录:38/40Zxclusiv*OVRNVH

(3)求每门课的平均成绩，并把结果存入average表；

解：USEh:\数据库实验作业二、实验二\score表.dbfEXCLUSIVE

selescore表・Cno,avg(score表,score)as平均分;

fromscore表;

intotableaverage;

groupbyscore表.Cno

Browse

截图：

斌Micros。仕VisualFoxPro[d

3t4*(F)fiS(V)«KC(O)IM(D«D(W)W«J(H)

-W❷I；l：IITlfll-l-l!Ml|□[□«]叫丁利因tl

2010)09列恒

nsco...：'^1rsir^O

(4)将学生“马丽鹃”的出生日期改为“1982.8.20"；

解：USEh八数据库实验作业二'实验二\student表.dbfEXCLUSIVE

editforsname='马丽娟'

截图：

（5）将所有学生的zipcode属性列值填补上;

解：replZipcodewith230006

replallZipcodewith230006

USEh:\student.dbfEXCLUSIVE

modifystructure

replallZipcodewith230006

截图：

(6)将average表中的所有课程的平均成绩置零；

解：USEh:\数据库实验作业二'实验二'average,dbfEXCLUSIVE

replall平均分with0

截图：

(7)删除average表中的课程号为‘cOO7'的平均成绩记录；

解：USEh:\数据库实验作业二'实验二\average.dbfEXCLUSIVE

deleteforCno=,C007,

browse

pack

Browse

截图：

(8)删除所有average表中平均成绩记录;

解：deleteall

pack

browse

截图：

(9)建立一个临时学生信息表(tstudent),删除该表中的学号前六位为'001011'的所

有学生记录。

解：Select*;

fromstudent;

intocursortstudent;

wheresubstr(Sno,1,6)!=,00101T

browse

截图：

(10)查询全体学生的学号与姓名;

解：SelectSno,Sname;

Fromstudent

截图：

文例FJ««(E)曼KV)际(O)UI(T)®»(P)•□(W)

口同W・l；冰I；IZtslc|“Jj—11-T]向目阙阐钊

20105409*MS

OtllHJO3

bijnisM

ouiuno

011113104

0lll>322>

01)114111

011115209

001011101

001611212

01)111001

011111002

01)111003

lUlHIM

niTHns

11)111456

(ID查询全体学生的学号、姓名、所属班级;

解：SelectSno,Sname,Sclass;

Fromstudent

截图：

文件(F)“(E)显示(V)悟5t(。)IM(T)程序＜P)«D(W)»BC(H)

口商向剧小I不i闻e：「I工Mi~~2]向回-阈制*1*/[

20105409刘悦

信胃系301

电商系0101

电两系0102

IRSoioitSM,Snan*,Scl«ss;

K<ud«nt

会计系

0101?'20105409刘倒一

会寻系018

0UIHH1

,书H系83

_05011101一

H伊s

二：001011212利U系802

传

王

[01)1)100)一信管系331

增

二"oiHnote郭工蒲系0121

音y

--011111003fS«*0021

因

-"iuniiu一电就系0011

&

-"111nil15会计系0321

二

扬

7"二旅耕弓4第7

、

Stu6\数1R版刻&作业二\夯粉二\，tu，记录1/40Excluxiv«

(12)查询全体学生的详细记录;

解：Select*;

Fromstudent

截图：

gMicrosoftVisualFoxProId回j-j

文件㈤«S(E)M(V)潜式4。)I*(T)MP)BD(W)

口运同谷西、ii国二两%讪L向回-i*I*I工J「

20105409期蜕

3。，・

Sno|Sa«a・|Sb>r«hd>y|Sel“*|Z>pcod«]一

►oiinojoj

--(01)111)03

I01HH2(M

biiiijnbUSEh'黔据陈女皴作业二、空&二表

0>H)3ICKFro»«tud*nt

««lae<tno.

0IH!2?2)fr<nstodtnt

dililimPro*tlvdeat

011115209s«l«ctsno,»>««««.scl*».

--obioitibiOT/22/82“hen(tud*nt.

Fro*

00101121201/12/82

:frv»

01)1)100)OT/2i7«-

01111100205/27/82S«l«ctSno,Sn«n«,SclMt.

onmoo?02/03/87Fr«niludtnd

为

MHmt403/02/82"2010548jfiT

Fre»<tu4*nl

HIIHHS

：：

2-i11110/22/82Froo4gl

山±r

查词6\JWR摩宾藏作业二'买被二\"小记录1/40Zxclusiv«

(13)查询全体学生的姓名及其年龄；

解：SelectSname,year(date())-year(Sbirthday)asage;

Fromstudent

截图：

(14)查询全体学生的姓名、出生年份;

解：SelectSname,Sbirthday;

Fromstudent

截图：

(15)查询所有修过课的学生的学号；

解：Selectstudent.Sno;

Fromscore,student;

Wherescore.Sno=student.Sno

截图：

(16)查询“信管系0101”班全体学生名单;

解：SelectSname;

Fromstudent;

WhereSclass=,信管系0101'

截图：

(17)查询查询所有年龄在27岁以下的学生姓名及其年龄；

解：SelectSname,year(date())-year(Sbirthday)asage;

Fromstudent;

Whereyear(date())-year(Sbirthday)<=27

截图：

（18）查询考试成绩有不及格的学生的学号;

解：SelectSno;

Fromscore;

WhereScore<60

截图：

(19)查询年龄在15至28岁之间的学生姓名、班级和年龄；

解：SelectSname,Sclass,year(date())-year(Sbirthday)asage;

Fromstudent;

Whereyear(date())-year(Sbirthday)>15

andyear(date())-year(Sbirthday)<28

截图：

¥MicrosoftVi&ualFoxPro

文件⑺««（E）息示（V）*K（O）mm程序（P）en（w）W®）（H）

口国⑶剧;小I，glial-I!Ml|3foal匐*|租|曰|U

|S«i«ctSnm*.Selves,ytax(d*t«(Sbi|

Fronstudent.

1fh*r«y«*r(d*t«O)~y«*r(Sbirthd*y)>15*ndy

1T.

(20)查询年龄不在15至28岁之间的学生姓名、班级和年龄；

解：SelectSname,Sclass,year(date())-year(Sbirthday)asage;

Fromstudent;

Whereyear(date())-year(Sbirthday)<=15

oryear(date())-year(Sbirthday)>=28

截图：

(21)查询“信管系0101”和“电商系0102”班的学生的姓名和班级信息;

解：SelectSname,Sclass;

Fromstudent;

WhereSclass=,信管系0101'orSclass=＞电商系0102,

截图：

(22)查询既不是“信管系0101”也不是“电商系0102”班的学生的姓名和班级信息;

解：SelectSname,Sclass;

Fromstudent;

WhereSclass!='信管系0101'andSclass!=,电商系0102'

截图：

(23)查询学号为"011113104"的学生的详细情况;

解:Select*;

Fromstudent;

WhereSno='011113104'

截图：

(24)查询学号以“0111”打头的学生信息;

解：Select*;

Fromstudent;

Wheresubstr(Sno,1,4)='0111'

截图：

*MicrosoftVisualFoxPro

文件(F)«M(E)息示(V)HBC(O)m(D程序(p)•□(W)MKJ04)

口同口I•1川，|、丘|iaic|'I「而=~2J[nffil闻喇

2O1OS4O9加版

DftQ

Sn«n«ISb>rthd*yIScl»«v

记录

(25)查询所有姓“张”学生的学号、姓名、性别、年龄；

解：SelectSno,Sname,year(date())-year(Sbirthday)asage;

Fromstudent;

WhereSnamelike'张%'

截图：

(26)查询名字中第二个字有“海”字的学生的学号、姓名、性别、年龄;

解：SelectSno,Sname,year(date())-year(Sbirthday)asage;

Fromstudent;

Wheresubstr(Sname,3,2)='海'

截图：

(27)查询所有不姓“刘”学生的姓名；

解：SelectSname;

Fromstudent;

Wheresubstr(Sname,1,2)!=,刘'

截图：

(28)查询课程号以“C”开头的最后两个字母为“05”的课程号和课程名;

解：SelectCno,Cname;

Fromcourse;

WhereCnolike'C%'andsubstr(Cno,3,2)=,05J

截图：

文件（F）«S（E）翌示（V）*sc（o）iam程序（P）«n（w）WKJ（H）

口闻3IItai“!MF-nc务必?

20105409劫货

l/l

（29）某些学生选修某门课程后没有参加考试，所以有选修课记录，但没有考试成绩，试查

找缺少考试成绩的学生和相应的课程号；

解：SelectSno,Cno;

Fromscore;

WhereScore=0

截图：

(30)查找全部有成绩记录的学生学号、课程号;

解：SelectSno,Cno;

Fromscore;

WhereScore!=0

截图：

(31)查找“电商系0101”班年龄在27岁以下的学生学号、姓名；

解：SelectSno,Sname;

Fromstudent;

WhereSclass=>电商系0101'andyear(date())-year(Sbirthday)<27

截图：

MicrosoftViwalFoxProI。I-LT'

文件(F)WI(E)显示(V)WSKO)工*(T)程存(P)■口(W)«Mb(H)

□I•⑶"l土I"T闻-I，l?r~-2］向1*1・1*1团工||

20105409刘蜕

记录无Exclusiv*

(32)查找选修了“C001”号课程的学生学号及其成绩，查询结果按分数降序排序;

解:SelectSno,Score;

Fromscore;

WhereCno=,C001';

OrderbyScoredesc

截图：

(33)查询全体学生情况，查询结果按所在班级升序排列，对同一班级中的学生按年龄降序

排列；

解：Select*,year(date())-year(Sbirthday)asage;

Fromstudent;

OrderbySclassasc,agedesc

截图:

文件(F)«M(E)且示(V)«K(O)I*(T)程序(P)■□(W)»W)(H)

口同印册上I、I「Imlc|4「ITI—•T福*l也1f1tf

20105409站反

ra»9

Stirthday

001011101在映像，22/82:材料系801

，

__00J0H2I2H2/82MMJ,0002230006；

)1)20320fbi/8?"JHHS22092:3OOM

IIIIHIW,05/82'MMS?3Urjooob'

，0V於材H至2312"2366a'：

'02/92电环系8"：

nnjiiu夫2»XM»

sSelect♦,y44r(d*t«0)-y«4r(Sbirthd«y)«s“"三J

OlllIllO)8/82电荷节301'?X006-：

,IM丞Fro*\tud・a1;

oum20«

泽»OrderbyScl«ss«xe,«c«d«sc

2334521237/02/81电两茶6103’

?/di/8l

_0UU2H0

二"otiiiiooe

--111132211

011113104

二：piiul^r划抗8

二"??**?**.*?.矍里

I—d

(34)查询学生总人数；

解:Selectcount(Sno)as学生总人数;

Fromstudent

截图：

(35)查询选修了课程的学生人数；

解：Selectcount(Sno)as选修了课程的学生人数;

Fromscore

截图：

(36)在所有课程中查询最高分的学生学号和成绩;

解:SelectSno,max(Score)as最高分；

Fromscore

截图：

(37)查询学习“C001”课程的学生最高分数;

解：Selectmax(Score)as最高分数；

Fromscore;

WhereCno=，C001'

截图：

(38)计算各个课程号与相应的选课人数；

解:SelectCno,count(*)as选课人数;

Fromscore;

GroupbyCno

截图：

(39)查询“电商系0102”班选修了两门课程以上的学生学号、姓名；

解：Selectstudent.Sno,student.Sname,count(*)as选课门数;

Fromscore,student;

WhereSclass=,电商系0102'andscore.Sno=student.Sno

GroupbyCno;

havingcount(*)>=2

截图：

(40)自然连接student和score表；

解:Select*;

Fromstudentfulljoinscore;

Onstudent.Sno=score.Sno

截图：

(41)使用自身连接查询每一门课程的间接先行课(即先行课的先行课)

解：Selectx.Cno,y.Cpno;

Fromcourseasx,courseasy;

Wherex.Cpno=y.Cno

Groupbyx.Cno

截图：

(42)使用复合条件连接查询选修“cOOl”号课程且成绩在90分以上的所有同学;

解:Selectstudent.Sno,student.Sname,score.Score