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

数据库原理课程设计报告课程设计题目 ：学分管理系统学生姓名: 张宗良专 业: 软件工程班 级: 081106学 号： 08110631指引老师: 谢小林12 月 25 日 ·······目录········1题目规定··································32程序截图··································43程序代码·································104课程设计心得·····························26题目规定：设计一种学分管理系统。假设每位学生必要完毕基本课 50 学分，专业课 50 学分，选修课 24 学分，人文类课程8 学分和实验性课程 20 学分才能毕业。实现下列功能：1． 录入某位学生学分信息2． 给定学号，显示某位学生学分完毕状况；3． 给定班号，显示该班所有学生学分完毕状况；4． 给定学号，修改该学生学分信息；5． 根据某类课程学分高低进行排序；给定学号，对该学生能否毕业进行拟定。登陆界面如下：主界面如下：进行插入操作：按班号显示操作：查询成果界面如下：进行按学号进行查询界面：查询成果如下：排序界面：查询学生与否可以毕业：删除操作：代码如下：Module1：Public cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetForm1：Public rs As ADODB.RecordsetSub disp() Set DataGrid1.DataSource = rsFor i = 0 To rs.Fields.Count - 1 Text1(i).Text = rs.Fields(i).ValueNextEnd SubSub renew() rs.Close cn.Close Set rs = New ADODB.Recordset Set DataGrid1.DataSource = rs cn.Open "dsn=123;uid=sa;pwd=" rs.Open "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 = TrueCommand11.Enabled = TrueEnd SubPrivate Sub Command10_Click()rs.MovePreviousIf rs.BOF Then msg = MsgBox("已达到第一条"，48 + 0，"提示")rs.MoveFirst End Ifdisp End SubPrivate Sub Command11_Click()Text1(1).Enabled = TrueText1(2).Enabl...