北大数据库及其应用上机题(03年1月14日)
学生(学号,姓名,性别,出生日期,系号)
课程(课号,课程名,学分)
选修(学号,课号,成绩)
1.建库
2.输数
3.编写一个课程信息的录入程序,要求在录入一门课程后屏幕询问:“继续录入吗?”根据用户回答决定程序流程,要求不退出本程序能继续进行录入操作。
4.用Foxpro语言或sql语言编写程序完成以下查询:
(1)列出学生名单,要包含所有学生的所有信息,且在最后一行显示“年龄小于18岁的男生有XX人”
(2)列出成绩不及格的学生的信息,要包含选修表的所有属性,且在最后一行显示“他们的平均成绩为XX分”
(3)统计数学系每个学生姓名,性别,年龄以及该学生所学课程的总成绩并列表显示。
(4)检索选课在2门及2门以上的学生的学号,姓名,总学分和平均成绩,并列表显示。(不及格的课程不统计在内)
closeall
clear
select1
usekc
dimensiona(3)
action=.t.
answer=.t.
definewindoww1from1,2to30,60systemclosefloatgrow
definewindoww2inwindoww1from1,2to30,50systemclosefloatgrow
dowhileaction
dowhile.t.
scattertoablank
activatewindoww1
clear
@1,2say"课号:"geta(1)picture"xxxxxxxxxx"
@3,2say"课程名:"geta(2)picture"xxxxxxxxxx"
@5,2say"学分:"geta(3)picture"999999"
read
activatewindoww2
clear
@1,2say"输入正确么?[y/n]"getanswerpicture"l"
read
deactivatewindoww2
ifanswer
appendblank
gatherfroma
exit
endif
enddo
clear
@1,2say"要继续么?[y/n"getactionpicture"l"
read
deactivatewindoww1,w1
enddo
return
closeall
clear
select1
usexs
select2
usekc
select3
usexx
selecta.xh,a.xm,a.xb,a.csrq,b.kh,b.kcm,b.xf,c.cj;
fromxsa,kcb,xxctoscreen;
where(a.xh=c.xh)and(c.kh=b.kh)
select1
countfor((year(date()))-year(csrq)<18)and(xb="man")toa
a
closeall
clear
select1
usexs
select2
usekc
select3
usexx
selecta.xh,a.xm,a.xb,a.csrq,a.xh,b.kh,b.kcm,c.cj;
fromxsa,kcb,xxctoscreen;
where(a.xh=c.xh)and(c.kh=b.kh)and(c.cj<60)
settalkoff
averageforcj<60toab
c="他们的平均成绩"
d="分"
settalkon
c
ab
d
closeall
settalkoff
clear
sele1
usexs
sele2
usexx
sele3
use43
zap
sele1
dowhilenoteof()
sele2
sumcjforxh=a.xhtoa
sele3
appendblank
replacexmwitha.xm,xbwitha.xb,nlwithyear(date())-year(a.csrq),zcjwitha
sele1
skip
enddo
settalkon
sele3
list
【北大数据库及其应用上机题(03年1月14日)】相关文章:
热点推荐:
理学
- 2020-11-17【理学】“数据库原理”课程学习方法
- 2020-11-17【理学】2012年自考“人力资源管理(一)”串讲笔记(第2章)
- 2020-11-17【理学】2012年自考“组织行为学”分题复习资料(1)
- 2020-11-17【理学】2012年自考“组织行为学”分题复习资料(20)
- 2020-11-17【理学】2012年自考“组织行为学”分题复习资料(21)
- 2020-11-17【理学】2012年自考“组织行为学”分题复习资料(22)
- 2020-11-17【理学】2012年自考“组织行为学”分题复习资料(23)
- 2020-11-17【理学】2012年自考“人力资源管理(一)”串讲笔记(第8章)
其他最新资讯
- 2023-12-29【自考政策】广西自考网络助学平台新增61门课程
- 2020-12-04【免考问题】哪些证书可以免考自考相关课程?
- 2020-12-04【免考问题】自考免考有哪些条件?
- 2020-12-04【综合问题】自考本科文凭有用吗?
- 2020-12-04【综合问题】自考本科需要考多少门课?
- 2020-11-17【综合问题】江苏省高等教育自学考试网上报名常见问题及解答
- 2020-11-17【经济学】2012年自考“中国税制”笔记串讲(8)
- 2020-11-17【自考政策】全国自考办领导:未来自考将大力发展网络助学
网友关注
- 【自考报名】阜阳05年7月自考报名及近期工作安排
- 【自考报名】云南05年10月自考报名时间和地点
- 【考务考籍】北京自考各区县常设考点名录(燕山)
- 【自考报名】淮南市2005年7月自考报名工作通知
- 【自考报名】宿州2005年7月自学考试考生报名须知
- 【自考报名】黄山市05年7月自考报名工作通知
- 【考务考籍】北京自考各区县常设考点名录(昌平区)
- 【自考报名】六安05年7月自学考试报名工作通知
网友关注视频
- 【部编】人教版语文七年级下册《老山界》优质课教学视频+PPT课件+教案,安徽省
- 二年级下册数学第三课 搭一搭⚖⚖
- 七年级下册外研版英语M8U2reading
- 人教版历史八年级下册第一课《中华人民共和国成立》
- 《空中课堂》二年级下册 数学第一单元第1课时
- 外研版英语三起5年级下册(14版)Module3 Unit1
- 外研版八年级英语下学期 Module3
- 沪教版牛津小学英语(深圳用) 六年级下册 Unit 7