北大“數(shù)據(jù)庫原理”上機(jī)實(shí)踐題目總結(jié)（3）

二、3.編寫一個(gè)課程信息的錄入程序。要求在錄入一門課程后屏幕詢問：“繼續(xù)錄入嗎？”，根據(jù)用戶回答決定程序流程。

要求不退出本程序能繼續(xù)進(jìn)行錄入操作。 （20分）

4.用FoxPro語言或SQL語言編寫程序完成以下查詢。（以下四題依次為10分、10分、15分、20分）

（1）列出學(xué)生名單，要包含所有學(xué)生的所有屬性，且在最后一行顯示：

年齡小于18歲的男生有 xx 人。

（2）列出成績不及格的學(xué)生的信息，要包含選修表的所有屬性，且在最后一行顯示：

他們的平均成績?yōu)?xx 分 .

（3）統(tǒng)計(jì)數(shù)學(xué)系每個(gè)學(xué)生姓名，性別，年齡，以及該學(xué)生所學(xué)課程的總成績并列表顯示。

（4）檢索選課在2門及2門以上的學(xué)生的學(xué)號(hào)、姓名、總學(xué)分和平均成績并列表顯示。不及格的課程不統(tǒng)計(jì)在內(nèi)。

答案：3

答案：4_1

close all

clear

select 1

use s

select 2

use c3

select 3

use sc

select s.sno ，s.sname ，s.sex ，s.birth ，c3.cno ， c3.cname ，c3.scarce ， sc.grade ；

from s， c3 ， sc to screen；

where （s.sno = sc.sno） and （c3.cno = sc.cno）

select 1

count for （ year（date（）） - year（birth） 18 ） and （sex = “m”） to a

？“年齡 18歲的男生有”

？？ a

？？“人”

答案：4_2

clear

set talk off

use sc

list for grade 60 off

？

use sc

average grade to a

？“他們的平均成績?yōu)椋骸?/p>

？？a

？？“分”