VB课程设计学生成绩管理系统.doc

《VB课程设计学生成绩管理系统.doc》由会员分享，可在线阅读，更多相关《VB课程设计学生成绩管理系统.doc（19页珍藏版）》请在三一办公上搜索。

1、一.课程设计题目学生成绩管理系统二功能描述 系统主要由四部分组成：系统用户的管理、学生成绩的管理、学生信息的管理、，学生成绩信息的统计，其中还包括登录界面等模块。各模块的主要功能如下：（1）.系统用户的管理：实现用户的添加、删除和密码的修改(3).学生成绩的管理：实现学生成绩的录入，查询，删除和修改。 (4).学生成绩信息的统计：实现学生男女生人数以及不及格人数的统计。(2).学生信息的管理：实现学生学籍信息的添加，查询、删除和修改。三概要设计对上述各项功能进行集中、分块，按照结构化层序设计的要求，得到如图1所示的系统功能模块图。学生成绩管理系统成绩查询成绩修改成绩录入成绩管理信息查询信息修改

2、信息添加学生信息项目统计退出系统修改密码添加用户统计信息系统管理 图1系统功能模块图四数据库设计数据库在本成绩管理系统中占有非常重要的地位，数据库结构的好坏将直接对应用系统的效率以及实现的效率产生影响。合理的数据库及结构设计可以提高数据存储的效率，保证数据的完整和一致。同时合理的数据库结构也将有利于程序的实现。设计本系统的数据库应该充分满足用户的需求。针对一般学生管理系统的需求，通过对学生学习过程的内容的分析，设计如下面所示的数据项和数据结构。（1）基本信息表：包括的字段有：学号，姓名，性别，年龄，联系电话，家庭住址。 表1 基本信息表字段名称数据类型字段大小学号文本10姓名文本10性别文本2

3、年龄数字2联系电话数字50班级文本50家庭住址文本50（2）成绩表： 包括的字段有： 学号，姓名，性别，班级，高数成绩，英语成绩，计算机成绩。 表2 成绩表字段名称数据类型字段大小学号文本10姓名文本10性别文本2班级文本10高数成绩数字20英语成绩数字20计算机成绩数字20（3），学生密码表： 包括的字段有： 用户名，密码。 表3密码表字段名称数据类型字段大小用户名文本10密码文本10（4）教师密码表：包括的字段有：用户名，密码。 表4 教师密码表 字段名称数据类型字段大小用户名文本10密码文本10五详细设计系统主要由五部分组成：系统用户的管理、学生成绩的管理、学生信息的管理、信息的查询，其

4、中还包括登录界面以及成绩的统计模块。各模块的主要功能如下：1.系统用户的管理：实现用户的添加、删除和密码的修改。通过.Hide对象方法隐藏原有窗体界面，通过.Show对象方法显示所要用到的窗体界面。2.学生信息的管理：通过创建数据库，连接数据库，调用数据库及Data控件Adodc控件，MSHFlexGrid控件的使用来实现学生信息的添加，查询，删除和修改。3.学生成绩的管理：通过创建数据库，连接数据库，调用数据库以及Data控件Adodc控件，MSHFlexGrid控件的使用来实现学生成绩的录入，查询，删除和修改。4学生成绩信息的统计：实现学生男女生人数以及不及格人数的统计六效果及存在问题（1

5、），登陆界面：选择用户类型，可选择教师，学生，分别进入不同界面。功能截图如图2所示： 图2 登陆界面（2），学生登陆：输入学号，输入学生密码，单击确定即进入学生界面如图3所示： 图3学生登录（3），学生密码修改:输入学生新密码。再次输入学生新密码，单击确定按钮，修改学生密码，功能截图如图4所示： 图4修改密码（4），主窗体界面：系统用户的管理：包括用户的添加、删除和密码的修改；学生信息的管理：包括学生信息的添加，查询、删除和修改；学生成绩的管理：包括学生成绩的录入，查询，删除和修改；学生成绩信息的统计：包括学生男女生人数以及不及格人数的统计。功能截图如图5所示： 图5主界面（6），成绩查询：输

6、入学生学号，单击查询按钮，查询学生成绩。功能截图如图6所示： 图6成绩查询七结论或心得体会设计之前由于数据库知识的空白，使得我们毫无头绪，无从下去手，只是盲目的按照课本和参考资料进行设计和编程，没有动脑子思考，也没有进行结构的规划，使得我们的程序进行到一半时夭折，那时候我们就开始意识到，不应该盲目，我们认真地看了课本，有了数据库的思想和思路，自己又重新规划了系统的结构，但是由于时间的关系，我们错过了中期检查，但是我们并没有气馁，而是更加热情地的投入到系统的设计中，但我们又出现了新问题，我和另一个男生本来分工合作的，可是我们的窗体总是衔接不上，而且数据库也不同，而我们又都想尝试一下其他窗体的创建

7、，获得更多的知识，于是我们最终各自完成了各自的管理系统。 这次课程设计实习我流的汗和泪，都是以成功的完成课程设计任务为收获的。不断的调试，使我认识即时丁点的错误也可以导致系统的非正常运行，细节决定成败。我只有在以后的学习之路上做到一丝不苟，才能获得成功.面对新的问题，以前的我会觉的十分畏惧，可通过这次实习，我发现自己变得勇敢，积极地从正面面对问题，认真地查阅资料、动手实践、和同学交流，问题便能解决。此次实习培养了我自主学习和动手实践能力，让我体会到完成任务的成就感和喜悦。八参考文献1刘天惠 等. Visual Basic程序设计教程, 清华大学出版社. 2006.22李春葆 等. Access

8、2003程序设计教程(第2版), 清华大学出版社.2007.13范立南 等. SQL Server2000实用教程, 清华大学出版社. 2005.24. 张宏 等. 30天学通Visual Basic项目案例开发, 电子工业出版社.2009.75. 龚沛曾 等. Visual Basic程序设计教程, 高等教育出版社. 2005.26. 蒋加伏 等. Visual Basic程序设计教程, 北京邮电大学出版社. 2004.17. 张路平等.Visual Basic 6.0编程案例精解，电子工业出版社.2004.38. 谭小丹.Visual Basic 6.0数据库编程思想与实践 ，冶金工业出版

9、社.2005.69. 周国民.Visual Basic+Access数据库项目开发实践，中国铁道出版社.2006.5 附录：各功能程序代码Private Sub Command1_Click()dl.Hidexsdl.Show End SubPrivate Sub Command2_Click()dl.Hidejsdl.Show End SubPrivate Sub Form_Load()Label1.Width = dl.ScaleWidthLabel1.Left = dl.ScaleWidth End SubPrivate Sub Timer1_Timer()If Label1.Left

10、+ Label1.Width = 0 ThenLabel1.Left = Label1.Left - 50ElseLabel1.Left = dl.ScaleWidth End IfEnd SubPrivate Sub Command1_Click()UserName = If Trim(Text1.Text) = ThenMsgBox 用户名不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 Text1.SetFocusElseData1.RecordSource = select * from mmb where yhm= & Text1.Text & an

11、d mm= & Text2.Text & Data1.Refresh If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True ThenMsgBox 用户名或密码输入错误，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusText2.SetFocus ElseUserName = Text1.TextText2.Text = Me.HideForm4.Show End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = T

12、ext2.Text = End Sub Private Sub Timer1_Timer()If Label1.Left + Label1.Width = 0 ThenLabel1.Left = Label1.Left - 50ElseLabel1.Left = dl.ScaleWidth End IfEnd SubPrivate Sub Command1_Click()UserName = If Trim(Text1.Text) = ThenMsgBox 用户名不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusElseData1.R

13、ecordSource = select * from jsmmb where 用户名= & Text1.Text & and mm= & Text2.Text & Data1.RefreshIf Data1.Recordset.BOF = True And Data1.Recordset.EOF = True ThenMsgBox 用户名或密码输入错误，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusText2.SetFocusElseUserName = Text1.TextMe.Hidemain.ShowEnd IfEnd IfEnd

14、SubPrivate Sub Command2_Click()Text2.Text = Text3.Text = End SubPrivate Sub Timer1_Timer()If Label3.Left + Label3.Width = 0 ThenLabel3.Left = Label3.Left - 50ElseLabel3.Left = jsdl.ScaleWidthEnd IfEnd SubPrivate Sub Form_Load()Label3.Width = jsdl.ScaleWidthLabel3.Left = jsdl.ScaleWidthEnd SubPrivate

15、 Sub Command1_Click()EndEnd Sub Private Sub Command2_Click()Me.Hidexiugaimima.Show End SubPrivate Sub Form_Load()Data1.RecordSource = select * from cjb where xh= & xsdl.Text1.Text & Data1.RefreshEnd Sub Private Sub Command1_Click()If Trim(Text1.Text) Trim(Text2.Text) ThenMsgBox 密码输入不正确!, vbOKOnly +

16、vbExclamation, 信息提示Text1.SetFocusText1.Text = ElseData1.RecordSource = select * from mmb where yhm= & xsdl.Text1.Text & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(mm) = Text1.TextData1.Recordset.UpdateMsgBox 密码修改成功！, vbOKOnly + vbExclamation, 修改密码End If End SubPrivate Sub Command2_Click

17、()Text1.Text = Text2.Text = End Sub Private Sub Command3_Click()Me.HideForm4.Show End SubPrivate Sub tcxt_Click()End End SubPrivate Sub tjyh_Click()Me.Hidetianjiayonghu.Show End SubPrivate Sub xgmm_Click()Me.Hidejiaoshimimaxiugai.Show End SubPrivate Sub xmtj_Click()Me.Hidexiangmutongji.Show End SubP

18、rivate Sub xxcx_Click()Me.Hidexinxichaxun.ShowEnd SubPrivate Sub xxtj_Click()Me.Hidexueshengxinxitianjia.Show End SubPrivate Sub xxxg_Click()Me.Hidexinxixiugai.Show End SubPrivate Sub cjcx_Click()main.Hidechengjichaxun.Show End Sub Private Sub cjlr_Click()Me.Hidechengjiluru.ShowEnd Sub Private Sub c

19、jxg_Click() Me.Hidechengjixiugai.Show End SubPrivate Sub Command1_Click()If Trim(Text1.Text) = ThenMsgBox 请输入用户名！, vbOKOnly + vbExclamation, 信息提示Text1.SetFocus Exit SubElseData1.RecordSource = select * from jsmmb where yhm= & Text1.Text & Data1.RefreshIf Not Data1.Recordset.EOF ThenMsgBox 用户已存在，请重新输

20、入用户名！, vbOKOnly + vbExclamation, 提示信息Text1.SetFocusText1.Text = : Text2.Text = : Text3.Text = Exit SubEnd IfEnd If If Trim(Text2.Text) Trim(Text3.Text) ThenMsgBox 两次输入的密码不一样，请确认！, vbOKOnly + vbExclamation, 警告Text2.SetFocusText2.Text = Text3.Text = Exit SubElseWith Data1.Recordset.AddNew.Recordset.Fi

21、elds(0) = Trim(Text1.Text).Recordset.Fields(1) = Trim(Text2.Text).Recordset.UpdateEnd WithMsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户End IfEnd Sub Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command3_Click()Me.Hidemain.Show End SubPrivate Sub Command1_Cli

22、ck()If Trim(Text1.Text) Trim(Text2.Text) ThenMsgBox 密码输入不正确!, vbOKOnly + vbExclamation, 信息提示Text1.SetFocusText1.Text = ElseData1.RecordSource = select * from mmb where yhm= & xsdl.Text1.Text & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(mm) = Text1.TextData1.Recordset.Update MsgBox 密码修改成

23、功！, vbOKOnly + vbExclamation, 修改密码End IfEnd Sub Private Sub Command2_Click()Text1.Text = Text2.Text = End Sub Private Sub Command3_Click()Me.HideForm4.ShowEnd Sub Private Sub Command1_Click()If Text2.Text = Or Text3.Text = ThenMsgBox 学号和姓名不能为空！, vbOKOnly + vbExclamation, 警告Exit Sub ElseData1.RecordS

24、ource = select * from xsxxb where xh= & Trim(Text2.Text) & Data1.RefreshIf Data1.Recordset.BOF = False And Data1.Recordset.EOF = False ThenMsgBox 输入的学号已经存在，请重新输入！, vbOKOnly + vbExclamation, 警告Text2.Text = Text3.Text = Text2.SetFocus ElseData1.Recordset.AddNewData1.Recordset.Fields(0) = Text2.TextDat

25、a1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields(2) = text4.TextData1.Recordset.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Text8.TextData1.Recordset.UpdateMsgBox 添加成功！ Data2.RecordSource = select * from cjb w

26、here xh= & Trim(Text2.Text) & Data2.RefreshData3.RecordSource = select * from mmb where yhm= & Trim(Text2.Text) & Data3.RefreshData2.Recordset.AddNewData2.Recordset.Fields(0) = Text2.TextData2.Recordset.Fields(1) = Text3.TextData2.Recordset.UpdateData3.Recordset.AddNewData3.Recordset.Fields(0) = Tex

27、t2.TextData3.Recordset.Fields(1) = Text2.TextData3.Recordset.UpdateEnd If End IfEnd SubPrivate Sub Command2_Click()Me.Hidemain.ShowEnd Sub Private Sub Command1_Click()If Text1.Text = ThenMsgBox 请输入内容！Else Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.Tex

28、tData1.Recordset.Fields(2) = text4.TextData1.Recordset.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Text8.TextText9.Text = Str(Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text) / 3)Data1.Recordset.Fields(7) = Text9.Te

29、xtData1.Recordset.UpdateMsgBox 修改成功 End IfEnd SubPrivate Sub Command10_Click()If Trim(Text1.Text) = ThenMsgBox 学号不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusElse Data1.RecordSource = select * from cjb where xh= & Text1.Text & Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox 学号不存在，请重新输入！, vb

30、OKOnly + vbExclamation, 警告Text1.SetFocusText1.Text = Text2.Text = Text3.Text = text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Else Text2.Text = Data1.Recordset.Fields(0) Text3.Text = Data1.Recordset.Fields(1) text4.Text = Data1.Recordset.Fields(2) Text5.Text = Data1.Re

31、cordset.Fields(3) Text6.Text = Data1.Recordset.Fields(4) Text7.Text = Data1.Recordset.Fields(5) Text8.Text = Data1.Recordset.Fields(6)End If End IfEnd SubPrivate Sub Command2_Click()Me.Hidemain.ShowEnd Sub Private Sub Command3_Click()If Text1.Text = ThenMsgBox 请输入内容！Else mybookmark = Data1.Recordset

32、.BookmarkStr2$ = MsgBox(是否删除当前记录？, vbOKCancel, 删除当前记录)If Str2$ = vbOK Then Data1.Recordset.Delete Data1.RefreshText1.Text = Text2.Text = Text3.Text = text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = End IfEnd If End SubPrivate Sub Command1_Click()If Combo1.Text = 按学号 The

33、nData1.RecordSource = select * from xsxxb where xh= & Text1.Text & Data1.RefreshElseData1.RecordSource = select * from xsxxb where xm= & Text1.Text & Data1.RefreshEnd If If Text1.Text = ThenData1.RecordSource = select * from xsxxb Data1.RefreshEnd IfEnd Sub Private Sub Command2_Click()Me.Hidemain.Sh

34、ow Private Sub Command1_Click()If Text2.Text = Or Text3.Text = Or text4.Text = Or Text5.Text = Or Text7.Text = Or Text8.Text = Or Text9.Text = ThenMsgBox 内容不能为空，请重新输入！Else Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields(2) = text

35、4.TextData1.Recordset.Fields(3) = Val(Text5.Text)Data1.Recordset.Fields(4) = Val(Text7.Text)Data1.Recordset.Fields(5) = Val(Text8.Text)Data1.Recordset.Fields(6) = Val(Text9.Text)Text1.Text = Str(Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) / 3)Data1.Recordset.Fields(7) = Text1.TextData1.Recor

36、dset.UpdateMsgBox 添加成功！ End IfText2.Text = : Text3.Text = : text4.Text = : Text5.Text = : Text7.Text = : Text8.Text = : Text9.Text = End Sub Private Sub Command2_Click()Me.Hidemain.ShowEnd Sub Private Sub Command3_Click()Data1.Recordset.MoveFirstEnd Sub Private Sub Command4_Click()Data1.Recordset.Mo

37、vePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirst End IfEnd SubPrivate Sub Command5_Click()Data1.Recordset.MoveNextIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd If End SubPrivate Sub Command6_Click()Data1.Recordset.MoveLastEnd Sub Private Sub Command1_Click()If Text1.Text = The

38、nMsgBox 请输入内容！Else Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields(2) = text4.TextData1.Recordset.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Text8

39、.TextText9.Text = Str(Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text) / 3)Data1.Recordset.Fields(7) = Text9.TextData1.Recordset.UpdateMsgBox 修改成功 End IfEnd SubPrivate Sub Command10_Click()If Trim(Text1.Text) = ThenMsgBox 学号不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusElse Data1.RecordS

40、ource = select * from cjb where xh= & Text1.Text & Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox 学号不存在，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusText1.Text = Text2.Text = Text3.Text = text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text9.Text = Else Text2.Text = Data1.Recordset.Fields(0) Text3.Text = Data1.Recordset.Fields(1) text4.Text = Data1.Recordset.Field