数据库课程设计学分管理系统.docx
《数据库课程设计学分管理系统.docx》由会员分享，可在线阅读，更多相关《数据库课程设计学分管理系统.docx（17页珍藏版）》请在冰豆网上搜索。
数据库课程设计学分管理系统
数据库课程设计-学分管理系统（总26页）
数据库原理课程设计报告
课程设计题目：
学分管理系统
学生姓名:
张宗良
专业:
软件工程
班级:
081106
学 号：
08110631
指导教师:
谢小林
2009年12月25日
·······目录········
1题目要求··································3
2程序截图··································4
3程序代码·································10
4课程设计心得·····························26
题目要求：
设计一个学分管理系统。
假设每位学生必须完成基础课50学分，专业课50学分，选修课24学分，人文类课程8学分和实验性课程20学分才能毕业。
实现下列功能：
1．录入某位学生的学分信息
2．给定学号，显示某位学生的学分完成情况；
3．给定班号，显示该班所有学生的学分完成情况；
4．给定学号，修改该学生的学分信息；
5．按照某类课程的学分高低进行排序；
给定学号，对该学生能否毕业进行确定。
登陆界面如下：
主界面如下：
进行插入操作：
按班号显示操作：
查询结果界面如下：
进行按学号进行查询的界面：
查询结果如下：
排序界面：
查询学生是否能够毕业：
删除操作：
代码如下：
Module1：
PubliccnAsNew
PublicrsAsNew
Form1：
PublicrsAs
Subdisp（）
Set=rs
Fori=0To-1
Text1（i）.Text=（i）.Value
Next
EndSub
Subrenew（）
Setrs=New
Set=rs
"dsn=123;uid=sa;pwd="
"select*fromcredit",cn,adOpenStatic,adLockOptimistic
disp
EndSub
PrivateSubFrame1_DragDrop（SourceAsControl,XAsSingle,YAsSingle）
EndSub
PrivateSubCommand1_Click（）
Fori=0To7
Text1（i）.Text=""
Next
Text1（0）.SetFocus
Text1
（1）.Enabled=True
Text1
（2）.Enabled=True
=True
EndSub
PrivateSubCommand10_Click（）
IfThen
msg=MsgBox（"已达到第一条",48+0,"提示"）
EndIf
disp
EndSub
PrivateSubCommand11_Click（）
Text1
（1）.Enabled=True
Text1
（2）.Enabled=True
insert_str="insertintocreditvalues（'"&Text1（0）.Text&"','"&Text1
（1）.Text&"','"&Text1
（2）.Text&"','"&Text1（3）.Text&"','"&Text1（4）.Text&"','"&Text1（5）.Text&"','"&Text1（6）.Text&"','"&Text1（7）.Text&"'）"
IfText1（0）.Text<>（0）Then
（insert_str）
MsgBox"插入成功"
Else
MsgBox"重复输入数据"
EndIf
disp
renew
EndSub
PrivateSubCommand12_Click（）
renew
EndSub
PrivateSubCommand13_Click（）
update_str="updatecreditsetbasic='"&Text1（3）.Text&"',major='"&Text1（4）.Text&"',soption='"&Text1（5）.Text&"',speople='"&Text1（6）.Text&"',sexperiment='"&Text1（7）.Text&"'wheresno='"&Text1（0）.Text&"'"
IfText1（0）.Text<>（0）Then
（update_str）
Else
MsgBox"无此内容"
EndIf
renew
EndSub
PrivateSubCommand14_Click（）
sno1=InputBox（"请输入要删除学生的学号：
","查询",200,100）
delete_str="deletefromcreditwheresno="&sno1
Ifsno1<>""Then
'If=0Then
'MsgBox"输入学号不正确"
'Else
（delete_str）
disp
renew
'EndIf
Else
MsgBox"error"
EndIf
EndSub
PrivateSubCommand15_Click（）
EndSub
PrivateSubCommand2_Click（）
EndSub
PrivateSubCommand3_Click（）
EndSub
PrivateSubCommand4_Click（）
Text1（0）.SetFocus
Fori=0To7
Text1（i）.Text=""
Next
Text1
（1）.Enabled=False
Text1
（2）.Enabled=False
'disp
EndSub
PrivateSubCommand5_Click（）
EndSub
PrivateSubCommand6_Click（）
Dima（4）AsInteger
sno1=InputBox（"请输入学生的学号：
","查询",200,100）
Setrs=New
"select*fromcreditwheresno='"&sno1&"'",cn,adOpenStatic,adLockOptimistic
If=0Then
MsgBox"输入学号不正确"
Else
i=0
Forj=3To-1
a（i）=Val（j）.Value）
i=i+1
Next
Ifa（0）>=50Anda
（1）>=50Anda
（2）>=24Anda（3）>=8Anda（4）>=20Then
MsgBox"该学生已修满学分，可以毕业"
Else
MsgBox"该学生由于未修满学分，不能毕业"
EndIf
EndIf
EndSub
PrivateSubCommand7_Click（）
disp
EndSub
PrivateSubCommand8_Click（）
disp
EndSub
PrivateSubCommand9_Click（）
IfThen
msg=MsgBox（"已达到最后一条",48+0,"提示"）
EndIf
disp
EndSub
PrivateSubForm_Load（）
Setrs=New
'Setcn=New
"dsn=123;uid=sa;pwd="
"select*fromcredit",cn,adOpenStatic,adLockOptimistic
disp
=False
=False
EndSub
Form2：
PrivateSubCommand1_Click（）
EndSub
PrivateSubForm_Load（）
classno=InputBox（"请输入学生的班号","查询",200,100）
'
'
'Setrs1=New
Setcn=New
Setrs=New
"dsn=123;uid=sa;pwd="
"select*fromcreditwheresclass='"&classno&"'",cn,adOpenStatic,adLockOptimistic
If>0Then
Set=rs
Else
MsgBox"无此记录！
"
EndIf
EndSub
Form3：
PrivateSubCommand1_Click（）
EndSub
PrivateSubForm_Load（）
sno=InputBox（"请输入学生的学号","查询",200,100）
Setcn=New
Setrs=New
"dsn=123;uid=sa;pwd="
"select*fromcreditwheresno='"&sno&"'",cn,adOpenStatic,adLockOptimistic
If>0Then
Set=rs
Else
MsgBox"无此记录！
"
EndIf
EndSub
Form4：
PrivateSubCommand1_Click（）
EndSub
PrivateSubOption1_Click（）
subject=InputBox（"请输入课程名：
","查询",200,100）
Setcn=New
Setrs=New
"dsn=123;uid=sa;pwd="
Ifsubject="basic"Orsubject="major"Orsubject="soption"Orsubject="speople"Orsubject="sexperiment"Then
"select*fromcreditorderby"&subject,cn,adOpenStatic,adLockOptimistic
Set=rs
Else
msg=MsgBox（"error",48+0,"提示"）
EndIf
EndSub
PrivateSubOption2_Click（）
subject=InputBox（"请输入课程名：
","查询",200,100）
Setcn=New
Setrs=New
"dsn=123;uid=sa;pwd="
Ifsubject="basic"Orsubject="major"Orsubject="soption"Orsubject="speople"Orsubject="sexperiment"Th
升级会员 