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

《数据库原理课程设计-学分管理系统》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、·······目录········1题目要求··································32程序截图··································43程序代码·································10254课程设计心得·····························26题目要求：设计一个学分管理系统。假设每位学生必须完成基础课50学分，专业课50学分，选修课24学分，人文类课程8学分和实验性课程20学分才能毕业。实现下列

2、功能：1．录入某位学生的学分信息2．给定学号，显示某位学生的学分完成情况；3．给定班号，显示该班所有学生的学分完成情况；4．给定学号，修改该学生的学分信息；5．按照某类课程的学分高低进行排序；给定学号，对该学生能否毕业进行确定。25登陆界面如下：主界面如下：25进行插入操作：25按班号显示操作：查询结果界面如下：25进行按学号进行查询的界面：查询结果如下：排序界面：2525查询学生是否能够毕业：25删除操作：25代码如下：Module1：PubliccnAsNewADODB.ConnectionPubl

3、icrsAsNewADODB.RecordsetForm1：PublicrsAsADODB.RecordsetSubdisp()SetDataGrid1.DataSource=rsFori=0Tors.Fields.Count-1Text1(i).Text=rs.Fields(i).ValueNextEndSubSubrenew()rs.Closecn.CloseSetrs=NewADODB.RecordsetSetDataGrid1.DataSource=rscn.Open"dsn=123;uid=s

4、a;pwd="25rs.Open"select*fromcredit",cn,adOpenStatic,adLockOptimisticdispEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubCommand1_Click()Fori=0To7Text1(i).Text=""NextText1(0).SetFocusText1(1).Enabled=TrueText1(2).Enable

5、d=TrueCommand11.Enabled=TrueEndSub25PrivateSubCommand10_Click()rs.MovePreviousIfrs.BOFThenmsg=MsgBox("已达到第一条",48+0,"提示")rs.MoveFirstEndIfdispEndSubPrivateSubCommand11_Click()Text1(1).Enabled=TrueText1(2).Enabled=Trueinsert_str="insertintocreditvalues('"&

6、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<>rs.Fields(0)Thencn.Execute(insert_str)MsgBox"插入成功"ElseMsgBox"重复输入数据"25EndIfdisp

7、renewEndSubPrivateSubCommand12_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='"&

8、Text1(0).Text&"'"IfText1(0).Text<>rs.Fields(0)Thencn.Execute(update_str)ElseMsgBox"无此内容"EndIfrenewEndSub25PrivateSubCommand14_Click()sno1=InputBox("请输入要删除学生的学号：","查询",200,100)delete_str="deletefromcreditwheresno="&sno1Ifsn