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

1、数据库课程设计学分管理系统数据库原理课程设计报告课程设计题目 ：学分管理系统学生姓名:张宗良 专 业:软件工程班 级:081106学号： 08110631指导教师:谢小林2009年12月25日 目录1题目要求32程序截图43程序代码104课程设计心得26题目要求：设计一个学分管理系统。假设每位学生必须完成基础课50学分，专业课50学分，选修课24学分，人文类课程8学分和实验性课程20学分才能毕业。实现下列功能：1 录入某位学生的学分信息2 给定学号，显示某位学生的学分完成情况；3 给定班号，显示该班所有学生的学分完成情况；4 给定学号，修改该学生的学分信息；5 按照某类课程的学分高低进行排序；

2、给定学号，对该学生能否毕业进行确定。登陆界面如下：主界面如下：进行插入操作：按班号显示操作：查询结果界面如下：进行按学号进行查询的界面：查询结果如下：排序界面：查询学生是否能够毕业：删除操作：代码如下：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 * fro

3、m 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_Cl

4、ick()If Then msg = MsgBox(已达到第一条, 48 + 0, 提示) End Ifdisp End SubPrivate Sub Command11_Click()Text1(1).Enabled = TrueText1(2).Enabled = Trueinsert_str = insert into credit values( & Text1(0).Text & , & Text1(1).Text & , & Text1(2).Text & , & Text1(3).Text & , & Text1(4).Text & , & Text1(5).Text & , &

5、 Text1(6).Text & , & Text1(7).Text & )If Text1(0).Text (0) Then (insert_str) MsgBox 插入成功ElseMsgBox 重复输入数据End IfdisprenewEnd SubPrivate Sub Command12_Click()renewEnd SubPrivate Sub Command13_Click()update_str = update credit set basic= & Text1(3).Text & ,major= & Text1(4).Text & ,soption= & Text1(5).

6、Text & ,speople= & Text1(6).Text & ,sexperiment= & Text1(7).Text & where sno= & Text1(0).Text & If Text1(0).Text (0) Then (update_str)ElseMsgBox 无此内容End IfrenewEnd SubPrivate Sub Command14_Click()sno1 = InputBox(请输入要删除学生的学号：, 查询, 200, 100)delete_str = delete from credit where sno= & sno1If sno1 Then

7、If = 0 ThenMsgBox 输入学号不正确Else (delete_str)disprenewEnd IfElseMsgBox errorEnd IfEnd SubPrivate Sub Command15_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command4_Click()Text1(0).SetFocusFor i = 0 To 7 Text1(i).Text = NextText1(1).Enabled = FalseText

8、1(2).Enabled = FalsedispEnd SubPrivate Sub Command5_Click()End SubPrivate Sub Command6_Click()Dim a(4) As Integersno1 = InputBox(请输入学生的学号：, 查询, 200, 100)Set rs = New select * from credit where sno= & sno1 & , cn, adOpenStatic, adLockOptimisticIf = 0 ThenMsgBox 输入学号不正确Elsei = 0For j = 3 To - 1 a(i) =

9、 Val(j).Value) 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()dispEnd SubPrivate Sub Command8_Click()dispEnd SubPrivate Sub Command9_Click()If Then msg = MsgBox(已达到最后一

10、条, 48 + 0, 提示) End IfdispEnd SubPrivate Sub Form_Load()Set rs = New Set cn = New dsn=123;uid=sa;pwd= select * from credit, cn, adOpenStatic, adLockOptimisticdisp = False = FalseEnd SubForm2：Private Sub Command1_Click()End SubPrivate Sub Form_Load()classno = InputBox(请输入学生的班号, 查询, 200, 100) Set rs1 =

11、 New Set cn = New Set rs = New dsn=123;uid=sa;pwd= select * from credit where sclass= & classno & , cn, adOpenStatic, adLockOptimisticIf 0 ThenSet = rsElseMsgBox 无此记录！End IfEnd SubForm3：Private Sub Command1_Click()End SubPrivate Sub Form_Load()sno = InputBox(请输入学生的学号, 查询, 200, 100)Set cn = New Set r

12、s = New dsn=123;uid=sa;pwd= select * from credit where sno= & sno & , cn, adOpenStatic, adLockOptimisticIf 0 ThenSet = rsElseMsgBox 无此记录！End IfEnd SubForm4：Private Sub Command1_Click()End SubPrivate Sub Option1_Click()subject = InputBox(请输入课程名：, 查询, 200, 100)Set cn = New Set rs = New dsn=123;uid=sa;

13、pwd=If subject = basic Or subject = major Or subject = soption Or subject = speople Or subject = sexperiment Then select * from credit order by & subject, cn, adOpenStatic, adLockOptimisticSet = rsElsemsg = MsgBox(error, 48 + 0, 提示)End IfEnd SubPrivate Sub Option2_Click()subject = InputBox(请输入课程名：,

14、查询, 200, 100)Set cn = New Set rs = New dsn=123;uid=sa;pwd=If subject = basic Or subject = major Or subject = soption Or subject = speople Or subject = sexperiment Then select * from credit order by & subject & desc, cn, adOpenStatic, adLockOptimisticSet = rsElsemsg = MsgBox(error, 48 + 0, 提示)End IfE

15、nd SubFrmlogin：Dim rsuser As Public cn1 As Public LoginSucceeded As BooleanPrivate Sub cmdCancel_Click() 设置全局变量为 false 不提示失败的登录 LoginSucceeded = False EndEnd SubPrivate Sub cmdOK_Click() Dim query_str As StringSet rsuser = New user_str = select * from userinfo where userid= & txtUserName & and passw

16、ord= & txtPassword & user_str, cn1, adOpenStatic, adLockOptimistic If 0 Then If (power) = admin Then = True Else = False End If LoginSucceeded = True Unload frmLogin Else MsgBox 无效的用户或密码，请重试!, , 登录 SendKeys Home+End End If End SubPrivate Sub Form_Load() select * from userinfo, cn, adOpenStatic, adLo

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