《数据库原理课程设计-学分管理系统》.docVIP

·······目录········ 1题目要求··································32程序截图··································43程序代码·································104课程设计心得·····························26题目要求：设计一个学分管理系统。 假设每位学生必须完成基础课50学分，专业课50学分，选修课24学分，人文类课程8学分和实验性课程20学分才能毕业。 实现下列功能： 录入某位学生的学分信息 给定学号，显示某位学生的学分完成情况； 给定班号，显示该班所有学生的学分完成情况； 给定学号，修改该学生的学分信息； 按照某类课程的学分高低进行排序； 给定学号，对该学生能否毕业进行确定。登陆界面如下： 主界面如下：进行插入操作： 按班号显示操作： 查询结果界面如下： 进行按学号进行查询的界面： 查询结果如下： 排序界面： 查询学生是否能够毕业： 删除操作：代码如下： Module1： Public cn As New ADODB.Connection Public rs As New ADODB.Recordset Form1： Public rs As ADODB.Recordset Sub disp() Set DataGrid1.DataSource = rs For i = 0 To rs.Fields.Count - 1 Text1(i).Text = rs.Fields(i).Value Next End Sub Sub renew()rs.Closecn.CloseSet rs = New ADODB.RecordsetSet DataGrid1.DataSource = rs cn.Open dsn=123;uid=sa;pwd=rs.Open select * from credit, cn, adOpenStatic, adLockOptimisticdisp End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Command1_Click() For i = 0 To 7 Text1(i).Text = Next Text1(0).SetFocus Text1(1).Enabled = True Text1(2).Enabled = True Command11.Enabled = True End Sub Private Sub Command10_Click() rs.MovePrevious If rs.BOF Then msg = MsgBox(已达到第一条, 48 + 0, 提示) rs.MoveFirst End If disp End Sub Private Sub Command11_Click() Text1(1).Enabled = True Text1(2).Enabled = True insert_str = insert into credit values( Text1(0).Text , Text1(1).Text , Text1(2).Text , Text1(3).Text , Text1(4).Text , Text1(5).Text , Text1(6).Text , Text1(7).Text ) If Text1(0).Text rs.Fields(0) Then cn.Execute (insert_str) MsgBox 插入成功 Else MsgBox 重复输入数据 End If disp renew End Sub Private Sub Command12_Click() renew End Sub Private Sub Command13_Click() update_str = update credit set basic= Text1(3).Text ,major= Text1(4).Text ,soption= Text1(5).Text ,speople= Text1(6).Text ,sexperiment= Text1(7).Text where sno= Text1(0).Text If Text1(0).Text rs.Fields(0) Then cn.Execu