数据库原理课程设计报告课程设计题目：学分管理系统学生姓名 : 张宗良专业: 软件工程班级: 081106学号： 08110631指导教师 : 谢小林2009 年 12 月 25 日· · · · · · · 目录· · · · · · · ·1 题目要求· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 32 程序截图· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 43 程序代码· · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · · 104 课程设计心得· · · · · · · · · · · · · · · · · · · · · · · · · · · · · 26题目要求： 设计一个学分管理系统。假设每位学生必须完成基础课50 学分，专业课 50 学分，选修课24 学分，人文类课程8 学分和实验性课程20 学分才能毕业。实现下列功能：1． 录入某位学生的学分信息2． 给定学号，显示某位学生的学分完成情况；3． 给定班号，显示该班所有学生的学分完成情况；4． 给定学号，修改该学生的学分信息；5． 按照某类课程的学分高低进行排序；给定学号，对该学生能否毕业进行确定。登陆界面如下：主界面如下：进行插入操作：按班号显示操作：查询结果界面如下：进行按学号进行查询的界面：查询结果如下：排序界面：查询学生是否能够毕业：删除操作：代码如下：Module1：Public cn As New Public rs As New Form1：Public rs As Sub disp() Set = rsFor i = 0 To - 1 Text1(i).Text = (i).ValueNextEnd SubSub renew() Set rs = New Set = rs "dsn=123;uid=sa;pwd=" "select * from credit", cn, adOpenStatic, adLockOptimistic dispEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Command1_Click()For i = 0 To 7 Text1(i).Text = "" Next Text1(0).SetFocusText1(1).Enabled = TrueText1(2).Enabled = True = TrueEnd SubPrivate Sub Command10_Click()If Then msg = MsgBox(" 已达到第一条 ", 48 + 0, "提...
