数据库课程设计-学分管理系统VIP免费

数据库原理课程设计报告课程设计题目：学分管理系统学生姓名:张宗良专业:软件工程班级:081106学号：08110631指导教师:谢小林2009年12月25日·······目录········1题目要求··································32程序截图··································43程序代码·································104课程设计心得·····························26题目要求：设计一个学分管理系统。假设每位学生必须完成基础课50学分，专业课50学分，选修课24学分，人文类课程8学分和实验性课程20学分才能毕业。实现下列功能：1．录入某位学生的学分信息2．给定学号，显示某位学生的学分完成情况；3．给定班号，显示该班所有学生的学分完成情况；4．给定学号，修改该学生的学分信息；5．按照某类课程的学分高低进行排序；给定学号，对该学生能否毕业进行确定。登陆界面如下：主界面如下：进行插入操作：按班号显示操作：查询结果界面如下：进行按学号进行查询的界面：查询结果如下：排序界面：查询学生是否能够毕业：删除操作：代码如下：Module1：PubliccnAsNewPublicrsAsNewForm1：PublicrsAsSubdisp()Set=rsFori=0To-1Text1(i).Text=(i).ValueNextEndSubSubrenew()Setrs=NewSet=rs"dsn=123;uid=sa;pwd=""select*fromcredit",cn,adOpenStatic,adLockOptimisticdispEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubCommand1_Click()Fori=0To7Text1(i).Text=""NextText1(0).SetFocusText1(1).Enabled=TrueText1(2).Enabled=True=TrueEndSubPrivateSubCommand10_Click()IfThenmsg=MsgBox("已达到第一条",48+0,"提示")EndIfdispEndSubPrivateSubCommand11_Click()Text1(1).Enabled=TrueText1(2).Enabled=Trueinsert_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"插入成功"ElseMsgBox"重复输入数据"EndIfdisprenewEndSubPrivateSubCommand12_Click()renewEndSubPrivateSubCommand13_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)ElseMsgBox"无此内容"EndIfrenewEndSubPrivateSubCommand14_Click()sno1=InputBox("请输入要删除学生的学号：","查询",200,100)delete_str="deletefromcreditwheresno="&sno1Ifsno1<>""Then'If=0Then'MsgBox"输入学号不正确"'Else(delete_str)disprenew'EndIfElseMsgBox"error"EndIfEndSubPrivateSubCommand15_Click()EndSubPrivateSubCommand2_Click()EndSubPrivateSubCommand3_Click()EndSubPrivateSubCommand4_Click()Text1(0).SetFocusFori=0To7Text1(i).Text=""NextText1(1).Enabled=FalseText1(2).Enabled=False'dispEndSubPrivateSubCommand5_Click()EndSubPrivateSubCommand6_Click()Dima(4)AsIntegersno1=InputBox("请输入学生的学号：","查询",200,100)Setrs=New"select*fromcreditwheresno='"&sno1&"'",cn,adOpenStatic,adLockOptimisticIf=0ThenMsgBox"输入学号不正确"Elsei=0Forj=3To-1a(i)=Val(j).Value)i=i+1NextIfa(0)>=50Anda(1)>=50Anda(2)>=24Anda(3)>=8Anda(4)>=20ThenMsgBox"该学生已修满学分，可以毕业"ElseMsgBox"该学生由于未修满学分，不能毕业"EndIfEndIfEndSubPrivateSubCommand7_Click()dispEndSubPrivateSubCommand8_Click()dispEndSubPrivateSubCommand9_Click()IfThenmsg=MsgBox("已达到最后一条",48+0,"提示")EndIfdispEndSubPrivateSubForm_Load()Setrs=New'Setcn=New"dsn=123;uid=sa;pwd=""select*fromcredit",cn,adOpenStat...