数据库课程设计学分管理系统

数据库原理课程设计报告课程设计题目：学分管理系统学生姓名:张宗良专业:软件工程班级:081106学号：08110631指导教师:谢小林2009年12月25日·······目录········题目要求··································3程序截图··································4程序代码·································10课程设计心得·····························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=TrueTrueEndSubPrivateSubCommand10_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("Setrs=New"select*from

请输入学生的学号：","creditwheresno='"

查问",200,100)&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,adOpenStatic,adLockOptimisticdispFalseFalseEndSubForm2：PrivateSubCommand1_Click( )EndSubPrivateSubForm_Load( )classno=InputBox("请输入学生的班号","查问",200,100)'''Setrs1=NewSetcn=NewSetrs=New"dsn=123;uid=sa;pwd=""select*fromcreditwheresclass='"&classno&"'",cn,adOpenStatic,adLockOptimisticIf>0ThenSet=rsElseMsgBox"无此记录！"EndIfEndSubForm3：PrivateSubCommand1_Click( )EndSubPrivateSubForm_Load( )sno=InputBox("请输入学生的学号Setcn=NewSetrs=New"dsn=123;uid=sa;pwd=""select*fromcreditwhere

","查问",200,100)sno='"&sno&"'",

cn,adOpenStatic,adLockOptimisticIf>0ThenSet=rsElseMsgBox"无此记录！"EndIfEndSubForm4：PrivateSubCommand1_Click( )EndSubPrivateSubOption1_Click( )subject=InputBox("请输入课程名：","查问",200,100)Setcn=NewSetrs=New"dsn=123;uid=sa;pwd="Ifsubject="basic"Orsubject="major"Orsubject="soption"Orsubject="speople"Orsubject="sexperiment"Then"select*fromcreditorderby"&subject,cn,adOpenStatic,adLockOptimisticSet=rsElsemsg=MsgBox("error",48+0,"提示")EndIfEndSubPrivateSubOption2_Click( )subject=InputBox("请输入课程名：","查问",200,100)Setcn=NewSetrs=New"dsn=123;uid=sa;pwd="Ifsubject="basic"Orsubject="major"Orsubject="soption"Orsubject="speople"Orsubject="sexperiment"Then"select*fromcreditorderby"&subject&"desc",cn,adOpenStatic,adLockOptimisticSet=rsElsemsg=MsgBox("error",48+0,"提示")EndIfEndSubFrmlogin：DimrsuserAsPubliccn1As'PublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click( )设置全局变量为false不提示失败的登录LoginSucceeded=FalseEndEndSubPrivateSubcmdOK_Click( )Dimquery_strAsStringSetrsuser=Newuser_str="select*fromuserinfowhereuserid='"&txtUserName&"'andpassword='"&txtPassword&"'"user_str,cn1,adOpenStatic,adLockOptimisticIf>0ThenIf("power")="admin"Then=TrueElse=FalseEndIfLoginSucceeded=TrueUnloadfrmLoginElseMsgBox"无效的用户或密码，请重试!",,"登录"SendKeys"{Home}+{End}"EndIf''EndSubPrivateSubForm_Load( )'"select*fromuserinfo",cn,adOpenStatic,adLockOptimisticSetcn1=New"dsn=123;uid=sa;pwd="EndSub课程设计总结：没接触数据库的时候老是感觉它比较高深或是不行靠近的电脑知识，只管自己对电脑特别感兴趣，其实仍是有些心理上的陌生感。学习电脑就和我们平常的其余