数据库实验报告.docx
《数据库实验报告.docx》由会员分享，可在线阅读，更多相关《数据库实验报告.docx（28页珍藏版）》请在冰豆网上搜索。
数据库实验报告
实验报告1
4．
selectStudent.sclass,Student.sno,sname,ssex,sage,sdept,cname,grade
fromStudentLEFTJOINSCON（Student.sno=SC.snoANDStudent.sclass=SC.sclass）LEFTJOINCourseON（SC.cno=Co）
5．
6．select2014-sagebirth
fromStudent
wheresname='刘晨';
7
selectStudent.sclass,Student.sno,sname,ssex,sage,sdept,cname,grade
fromStudentLEFTJOINSCON（Student.sno=SC.snoANDStudent.sclass=SC.sclass）LEFTJOINCourseON（SC.cno=Co）
whereStudent.snamelike'刘%'
8
selectsname,ssex,grade
fromStudentLEFTJOINSCON（Student.sno=SC.snoANDStudent.sclass=SC.sclass）LEFTJOINCourseON（SC.cno=Co）
whereSC.cno=1
9。
selectcno,cname
fromCourse
wherecponisNULL
10、
selectStudent.sclass,Student.sno,sname,ssex,sage,sdept,cname,grade
fromStudentLEFTJOINSCON（Student.sno=SC.snoANDStudent.sclass=SC.sclass）LEFTJOINCourseON（SC.cno=Co）
whereStudent.ssex='女'andStudent.sclass=2
11．
selectcno,cname
fromCourse
whereccredit<=3andccredit>=2
12
selectStudent.sclass,Student.sno,sname,cname,grade
fromStudentLEFTJOINSCON（Student.sno=SC.snoANDStudent.sclass=SC.sclass）LEFTJOINCourseON（SC.cno=Co）
whereSC.cno=1orSC.cno=2
13
selectStudent.sclass,Student.sno,sname,ssex,sdept,SC.cno,grade
fromStudentLEFTJOINSCON（Student.sno=SC.snoANDStudent.sclass=SC.sclass）LEFTJOINCourseON（SC.cno=Co）
whereCourse.cpon=1andSC.sclass=2
14．selectSC.sclass,SC.sno
fromSCLEFTJOINCourseON（SC.cno=Co）
whereSC.cno=2andgrade=（selectmax（grade）fromSCWherecno=2）
15.
selectSC.sclass,SC.sno
fromSCLEFTJOINCourseON（SC.cno=Co）
whereSC.cno=2andSC.sclass=1andgrade=（selectmax（grade）fromSCWherecno=2andsclass=1）
16
selectSC.sclass,SC.sno
fromSCLEFTJOINCourseON（SC.cno=Co）
whereSC.cno=2andgrade>（selectmin（grade）fromSCWherecno=2）
实验报告2
一、
1,
selectsclass,sno
fromsc
wherecno=1andsnoin（selectsnofromscwherecno=2）
2,
selectsclass,sno
fromsc
wherecno=1andsnonotin（selectsnofromscwherecno=2）
3,
Selectstudent.sclass,student.sno,sname,ssex,sage,sdept,cname,grade
Fromstudent,sc,course
Wherestudent.sno=sc.snoandstudent.scalss=sc.sclassando=oandstudent.sclass=1andsc.snoin
（selectsnofromscwheresclass=1groupbysnohavingavg（grade）>85）
4,
Selectsclasss,sno,snamefromstudent
Wherenotexists（select*fromsc,s1wheres1.sclass=1ands1.sno=2andnotexusts（select*fromsc,s2wheres2.sno=student.snoands2.sclass=student.sclassando=o））
5,
Selectdistinctstudent.scalss,student.sno
Fromstudent
Wherenotexists（select*fromscwheresno=student.snoandcno=1）
6
Select sname,grade
From student,sc
Where student.sclass=sc.sclass and student.sno=sc.sno and cno=2
Order by grade desc
7,
Selectstudent.sclass,student.sno,sum（ccredit）
fromStudentLEFTJOINSCON（Student.sno=SC.snoANDStudent.sclass=SC.sclass）LEFTJOINCourseON（SC.cno=Co）
Groupbystudent.sclass,student.sno
8，
select1sclass,avg（grade）grade
fromSC
whereCno=3andsclass=1
9
insertintoStudentvalues（3,1,'张三丰','男',21,'WC'）
insertintoSCvalues（3,1,'8',100）
insertintoCoursevalues（8,'无机化学',NULL,6）
10
DeleteFromscWherecno=3
Select*Fromsc
DeleteFromscWherecno=3
Select*Fromsc
11
Updatestudent
Setsage=sage+1
Wheressex=’男’andsnoin（selectsnofromscwherecno=1andstudent.sno=sc.snoandstudent.sclass=sc.sclass）
Select*Fromstudent
二、
2.1
Createviews_c_grade
Asselectstudent.sno,student.sclass,sname,cname,grade
FromstudntLEFTJOINscON（student.sno=sc.snoandsyident.sclass=sc.sclass）LEFTJOINcourseON（o=o）
2.2
Createviewv_is_score
As
Selectstudent.sno,student.sclass,cname,grade
FromstudntLEFTJOINscON（student.sno=sc.snoandsyident.sclass=sc.sclass）LEFTJOINcourseON（o=o）wheresdept=’I’andgrade>90
3
Select*froms_c_grade
Select*fromv_is_score
4
Selectsclass,sno,ame,grade
Froms_c_grade
Wherecnamein（selectcnamefromcoursewherecno=1）
实验报告3
1，计算器设计
求解方程组：
2、连接数据库
3、研究生管理系统
实验报告4
信息录入界面：
相关代码：
longll_id,ll_i
dateld_birthday
stringls_name,ls_nation,ls_sex,ls_home,ls_tel,ls_party
//数据格式检查
ifsle_id.text=""orisNull（sle_name.text）then
MessageBox（"缺少数据","请输入学号"）
sle_name.setfocus（）
return
elseifsle_name.text=""ORisNull（sle_name.text）then
messagebox（"缺少数据","请输入学生姓名"）
sle_name.setfocus（）
return
endif
ifsle_birthday.text<>""andnotisNull（sle_birthday）then
ifisDate（sle_birthday.text）then
ld_birthday=date（sle_birthday.text）
else
messagebox（"输入数据有误","请使用“年-月-日”的日期格式"）
sle_birthday.setfocus（）
return
endif
endif
ll_id=long（sle_id.text）
//取出党员选择
ifrb_cy.checkedthen
ls_party=rb_cy.text
elseifrb_cp.checkedthen
ls_party=rb_cp.text
else
ls_party=rb_none.text
ENDIF//取出性别选择
IFrb_man.checkedTHEN
ls_sex=rb_man.text
ElseIFrb_woman.checkedTHEN
ls_sex=rb_woman.text
ENDIF//由民族ddlb，取出民族选择
IFddlb_nation.text="none"THEN
ls_nation=""
ELSE
ls_nation=trim（ddlb_nation.text）
endif
//检查学号有无重号
selectstudent.stud_id
into:
ll_i
fromstudent
wherestudent.stud_id=:
ll_id;
IFll_i<>0then
messagebox（"错误信息","学号第"+string（ll_i）+"号重号！
请改正。
"）
sle_id.setfocus（）
return
endif
LS_name=trim（sle_name.text）
LS_home=trim（sle_home.text）
LS_tel=trim（sle_tel.text）
//向数据库写入数据
INSERTINTOstudent
（stud_id,
name,
birthday,
nation,
home,
tel,
resume,
sex,
party）
VALUES（
:
ll_id,
:
ls_name,
:
ld_birthday,
:
ls_nation,
:
ls_home,
:
ls_tel,
:
mle_resume.text,
:
ls_sex,
:
ls_party）;
sle_id.text=""
sle_name.text=""
sle_birthday.text=""
mle_resume.text=""
sle_home.text=""
sle_tel.text=""
sle_id.setfocus（）
查询界面：
略。
实验报告5
图书管理系统：
主界面
登陆代码：
退出代码：
主界面：
书籍借阅：
代码:
新书入库：
代码;
保存代码：
longSQLCODE
intls_sto=1
//数据格式检验
stringls_isbn,ls_bname,ls_public,ls_writer,ls_class,ls_cno,ls_intro,ls_cato,ll_isbn
realls_price
longll_i=0
ifsle_isbn.text=""orisNull（sle_isbn.text）then
MessageBox（"缺少数据","请输入ISBN号"）
sle_isbn.setfocus（）
return
elseifsle_bname.text=""orisNull（sle_bname.text）then
MessageBox（"缺少数据","请输入书名"）
sle_bname.setfocus（）
return
endif
ifddlb_class.text="none"then
ls_class=""
else
ls_class=Trim（ddlb_class.text）
endif
ls_isbn=Trim（sle_isbn.text）
selectisbn
into:
ll_isbn:
ll_i
fromBook
whereBook.isbn=:
ls_isbn;
ll_isbn=trim（ll_isbn）
ifls_isbn=ll_isbnthen
updateBook
setBsto=Bsto+1
whereBook.isbn=:
ls_isbn;
ifsqlca.sqlcode=0then
MessageBox（"成功","保存成功"）
sle_isbn.text=""
sle_bname.text=""
sle_public.text=""
sle_price.text=""
sle_writer.text=""
ddlb_class.text=""
mle_into.text=""
mle_cato.text=""
else
MessageBox（"错误","保存错误"）
endif
sle_isbn.setfocus（）
return
endif
ls_bname=Trim（sle_bname.text）
ls_public=Trim（sle_public.text）
ls_price=real（Trim（sle_price.text））
ls_writer=Trim（sle_writer.text）
ls_intro=trim（mle_into.text）
ls_cato=trim（mle_cato.text）
ifls_writer<>""then
Insertintowriter
（Isbn,Wname）
values（:
ls_isbn,:
ls_writer）;
endif
ls_class=trim（ddlb_class.text）
//检查分类有没有存在
selectCNuminto:
ls_cno
fromClass
whereCName=:
ls_class;
ifls_cno=""then
open（w_addclass）
return
endif
INSERTINTObook（
Isbn,
Bname,
Bpublic,
Bprice,
Cnum,
Bintro,
Bcato,
Bsto
）
values（
:
ls_isbn,
:
ls_bname,
:
ls_public,
:
ls_price,
:
ls_cno,
:
ls_intro,
:
ls_cato,
:
ls_sto
）;
ifsqlca.sqlcode=0then
MessageBox（"成功","保存成功"）
sle_isbn.text=""
sle_bname.text=""
sle_public.text=""
sle_price.text=""
sle_writer.text=""
ddlb_class.text=""
mle_into.text=""
mle_cato.text=""
else
MessageBox（"错误","保存错误"）
endif
图书搜索：
读者信息查询：
查询代码：
升级会员 