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

《数据库原理课程设计学分管理系统.doc》由会员分享，可在线阅读，更多相关《数据库原理课程设计学分管理系统.doc（25页珍藏版）》请在三一文库上搜索。

1、 目录1题目要求32程序截图43程序代码104课程设计心得26题目要求：设计一个学分管理系统。假设每位学生必须完成基础课50学分，专业课50学分，选修课24学分，人文类课程8学分和实验性课程20学分才能毕业。实现下列功能：1 录入某位学生的学分信息2 给定学号，显示某位学生的学分完成情况；3 给定班号，显示该班所有学生的学分完成情况；4 给定学号，修改该学生的学分信息；5 按照某类课程的学分高低进行排序；给定学号，对该学生能否毕业进行确定。登陆界面如下：主界面如下：进行插入操作：按班号显示操作：查询结果界面如下：进行按学号进行查询的界面：查询结果如下：排序界面：查询学生是否能够毕业：删除操作：

2、代码如下：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 DataGri

3、d1.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

4、= 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).Enabled = Trueinsert_str = insert into credit values( & T

5、ext1(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) Thencn.Execute (insert_str) MsgBox 插入成功ElseMsgBox 重复输入数据End IfdisprenewEnd SubPrivate Sub Command12_Click()renewEn

6、d SubPrivate 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) Thencn.Execute (update_str)ElseMsgBox

7、 无此内容End IfrenewEnd SubPrivate Sub Command14_Click()sno1 = InputBox(请输入要删除学生的学号：, 查询, 200, 100)delete_str = delete from credit where sno= & sno1If sno1 ThenIf rs.RecordCount = 0 ThenMsgBox 输入学号不正确Elsecn.Execute (delete_str)disprenewEnd IfElseMsgBox errorEnd IfEnd SubPrivate Sub Command15_Click()frmL

8、ogin.ShowEnd SubPrivate Sub Command2_Click()Form2.ShowEnd SubPrivate Sub Command3_Click()Form3.ShowEnd SubPrivate Sub Command4_Click()Text1(0).SetFocusFor i = 0 To 7 Text1(i).Text = NextText1(1).Enabled = FalseText1(2).Enabled = FalsedispEnd SubPrivate Sub Command5_Click()Form4.ShowEnd SubPrivate Su

9、b Command6_Click()Dim a(4) As Integersno1 = InputBox(请输入学生的学号：, 查询, 200, 100)Set rs = New ADODB.Recordsetrs.Open select * from credit where sno= & sno1 & , cn, adOpenStatic, adLockOptimisticIf rs.RecordCount = 0 ThenMsgBox 输入学号不正确Elsei = 0For j = 3 To rs.Fields.Count - 1 a(i) = Val(rs.Fields(j).Valu

10、e) i = i + 1NextIf a(0) = 50 And a(1) = 50 And a(2) = 24 And a(3) = 8 And a(4) = 20 Then MsgBox 该学生已修满学分，可以毕业Else MsgBox 该学生由于未修满学分，不能毕业End IfEnd IfEnd SubPrivate Sub Command7_Click()rs.MoveFirstdispEnd SubPrivate Sub Command8_Click()rs.MoveLastdispEnd SubPrivate Sub Command9_Click()rs.MoveNextIf rs

11、.EOF Then msg = MsgBox(已达到最后一条, 48 + 0, 提示) rs.MoveLastEnd IfdispEnd SubPrivate Sub Form_Load()Set rs = New ADODB.RecordsetSet cn = New ADODB.Connectioncn.Open dsn=123;uid=sa;pwd=rs.Open select * from credit, cn, adOpenStatic, adLockOptimisticdispCommand11.Enabled = FalseForm1.Visible = FalseEnd Sub

12、Form2：Private Sub Command1_Click()Form1.ShowForm2.HideEnd SubPrivate Sub Form_Load()classno = InputBox(请输入学生的班号, 查询, 200, 100) rs.Close cn.CloseSet rs1 = New ADODB.RecordsetSet cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.Open dsn=123;uid=sa;pwd=rs.Open select * from credit where sclass=

13、& classno & , cn, adOpenStatic, adLockOptimisticIf rs.RecordCount 0 ThenSet DataGrid2.DataSource = rsElseMsgBox 无此记录！End IfEnd SubForm3：Private Sub Command1_Click()Form1.ShowForm3.HideEnd SubPrivate Sub Form_Load()sno = InputBox(请输入学生的学号, 查询, 200, 100)Set cn = New ADODB.ConnectionSet rs = New ADODB.

14、Recordsetcn.Open dsn=123;uid=sa;pwd=rs.Open select * from credit where sno= & sno & , cn, adOpenStatic, adLockOptimisticIf rs.RecordCount 0 ThenSet DataGrid3.DataSource = rsElseMsgBox 无此记录！End IfEnd SubForm4：Private Sub Command1_Click()Form1.ShowForm4.HideEnd SubPrivate Sub Option1_Click()subject =

15、InputBox(请输入课程名：, 查询, 200, 100)Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.Open dsn=123;uid=sa;pwd=If subject = basic Or subject = major Or subject = soption Or subject = speople Or subject = sexperiment Thenrs.Open select * from credit order by & subject, cn, adOpenStatic, adLockOpt

16、imisticSet DataGrid4.DataSource = rsElsemsg = MsgBox(error, 48 + 0, 提示)End IfEnd SubPrivate Sub Option2_Click()subject = InputBox(请输入课程名：, 查询, 200, 100)Set cn = New ADODB.ConnectionSet rs = New ADODB.Recordsetcn.Open dsn=123;uid=sa;pwd=If subject = basic Or subject = major Or subject = soption Or su

17、bject = speople Or subject = sexperiment Thenrs.Open select * from credit order by & subject & desc, cn, adOpenStatic, adLockOptimisticSet DataGrid4.DataSource = rsElsemsg = MsgBox(error, 48 + 0, 提示)End IfEnd SubFrmlogin：Dim rsuser As ADODB.RecordsetPublic cn1 As ADODB.ConnectionPublic LoginSucceede

18、d As BooleanPrivate Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False EndEnd SubPrivate Sub cmdOK_Click() Dim query_str As StringSet rsuser = New ADODB.Recordsetuser_str = select * from userinfo where userid= & txtUserName & and password= & txtPassword & rsuser.Open user_str, cn1,

19、adOpenStatic, adLockOptimistic If rsuser.RecordCount 0 Then If rsuser.Fields(power) = admin Then Form1.Enabled = True Else Form1.Enabled = False End If LoginSucceeded = True Unload frmLogin MDIForm1.Show Form1.Show Else MsgBox 无效的用户或密码，请重试!, , 登录 txtPassword.SetFocus SendKeys Home+End End If cn.Clos

20、e rsuser.Close End SubPrivate Sub Form_Load() rsuser.Open select * from userinfo, cn, adOpenStatic, adLockOptimistic Set cn1 = New ADODB.Connection cn1.Open dsn=123;uid=sa;pwd=End Sub课程设计总结：没接触数据库的时候总是觉得它比较深奥或是不可接近的电脑知识，尽管自己对电脑非常感兴趣，其实还是有些心理上的陌生感。学习电脑就和我们平时的其它科目学习一样感觉它有永无止境的知识，在这从初接触电脑时连个电脑的键盘都不敢动到现在连硬盘都也修理，其中的过程是多么长啊，数据库是我在高中时候听过，到了大学渐渐了解了些，但就其原理性的内容还不知道，也就是根本就不清楚什么是数据库，只是知道一个所谓的中国字典里的名词。经过此次的课程设计，我初步明白了数据库的基本原理。也已经掌握了数据库的基本知识。我想对我以后的更深度学习打下了基础。这次课程设计让我知道了让vb连接sql 的方法。其实就是前台和后台的连接。有了这个思想，我相信对以后是大有裨益的。