vb课程设计报告书

1、 学校名称：石家庄铁道大学学院名称：机械工程学院 专业名称：机械设计制造及其自动化学生姓名：xx学生学号：xx学生班级：xx指导教师：xx 设计时间：2012-9-42012-9-13目录一、 选题的意义1、 选择的题目名称：2、选择该题的原因：3、运用的知识点： 4、时间的安排：5、参考书籍：二、 系统功能需求分析1、用户登录2、学生成绩的维护3、学生成绩的查询4、学生密码修改5、学生成绩录入6.修改学生成绩7、学生成绩查看8、教师密码修改9、添加学生用户10、删除学生用户11、添加教师用户12、删除教师用户13、添加管理员用户14、添加学生基本信息15、成绩管理页面三、系统功能需求分析1、

2、用户登录2、学生成绩的维护3、学生成绩的查询4、下面是学生成绩管理系统结构图四、系统实现1、学生、教师、管理员不同身份登录2、学生查看成绩3、成绩管理页面4、学生成绩录入 5、添加学生用户6、添加教师用户7、添加管理员用户8、学生密码修改9、删除学生用户10、删除教师用户11、退出12、教师密码修改13、学生个人信息查询14、教师登录成绩查询五、总结1、总结2 、存在的主要问题一、 选题的意义1、 选择的题目名称：学生成绩管理系统 2、选择该题的原因：现在我国的一些院校的学生成绩管理水平普遍不高，有的还停留在纸介质基础上，这种管理手段已不能适应时代的发展，因为它浪费了了许多的人力和物力。在当今

3、信息时代这种传统的管理方法必然被计算机为基础的信息管理系统所代替。如果本系统能被学校所采用，将会改变以前靠手工管理学生成绩的状况，可以树立良好的办学形象，提高工作效率。学生成绩管理系统是为本校开发的，本系统所采用的语言是Visual Basic语言，通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。我这次选的课程设计题目是小型学生成绩管理系统，该课程设计题目主要围绕学生成绩信息录入、管理与维护展开的，通过对系统的设置将各方面的信息联系在一起，使用户对学生成绩的信息一目了然，能够简洁、迅速的浏览信息，查询信息，快速的找到自己想要的

4、信息。本次课程设计应达到的目的是通过对该题目的设计，掌握软件开发过程的问题分析，系统设计，程序编码，测试等基本方法和技能；掌握数据库的基础知识，利用数据库管理器进行数据库设计的方法，使用Data空间访问数据的方法和掌握利用VB开发数据库系统的方法。通过这次课程设计，我对VB课程设计有了更深入的了解。由于以前只是一些抽象的理论课程，所以对一些具体的课程设计没有具体的接触，对一些语言功能也不是很了解，没有独立完成一次真正的课程设计。通过这次实际操作，我收获很大，对VB的认识也不仅仅停留在以前的层面上，认识到自身存在很大的不足，对VB的认识还需要更深入的了解，进行更详尽的学习，并且需要多次的实践练习

5、。这门课程设计是针对刚学完Visual Basic课程的本科专业学生的课程设计教学。Visual Basic设计是学生的一门计算机语言课程，课程结束后，学生已经对Visual Basic程序设计有了较全面的了解，但接触的基本上是为了阐述相关概念或知识点而列举的示例，都是较小的程序，程序功能单一，因此缺乏整体观点和编写一个具体实用的综合程序的思想。对于学生而言，登录学生成绩管理系统是司空见惯的事，所以也对其系统结构和功能有着较强的印象。但是，如果自己编写一个类似的成绩管理系统，不一定是件轻松的事。本生基于刚学完Visual Basic课程，所以就选择了这个题目，来测试自己所学的能力。如此一来，不

6、但可以更深地了解这门课程的作用，还可以提高编写和修改Visual Basic程序的能力。顺便让同学们试一试我们所编的程序的可实用性。3、运用的知识点： 标签的使用； 文本框的使用；命令按钮的使用；图片的加载； data控件的使用； 时钟控件的使用；窗体的加载、显示和隐藏；数据库的建立和链接： 不同身份访问权限的设置；if语句的条件判断；Msgbox对话框的使用； 密码的修改；添加新用户。4、时间的安排：9月4号：进行Visual Basic课程设计题目的选择；9月5号：查询成绩管理系统的相关资料；9月6号：查询成绩管理系统的相关资料；9月7号：确定设计方案；9月8号：开始设计程序、编代码；9月

7、9号：开始设计程序、编代码；9月10号：开始调试程序；9月11号：开始调试程序；9月12号：写课程设计报告书；9月13号：写课程设计报告书。5、参考书籍：1. Visual Basic 6.0编程案例精解， 张路平，电子工业出版社2.Visual Basic 6.0数据库编程思想与实践 ，谭小丹，冶金工业出版社3. Visual Basic+Access数据库项目开发实践，周国民，中国铁道出版社4Visual Basic程序设计，王学军，张玉梅，中国铁道出版社二、 系统功能需求分析1、用户登录通过输入用户名和密码登录学生信息管理系统。2、学生成绩的维护能够输入学生信息，实现对数据的添加、删除、

8、修改功能。基础数据包括用户信息的添加和修改，学生高数、英语、计算机成绩的添加和修改，添加学生密码的录入，实现管理员管理。3、学生成绩的查询基础数据包括学生基本信息和其学科成绩信息的记录，可以按学生名称和按学生学号进行查询和浏览。由于在学校学生成绩管理系统运用的非常普遍，所以该系统有着强大的和广泛的用处。4、下面是学生成绩管理系统结构图 登录学生用户教师用户管理员用户成绩查看基本信息修改密码成绩录入成绩修改学生成绩查看教师密码修改添加学生用户删除学生用户添加教师用户删除教师用户添加管理员删除管理员学生成绩查看三、系统设计1.登录页面Private Sub Form_Load() Label2.C

9、aption = 欢迎进入成绩管理系统 设置标签的标题 Label2.FontName = 宋体 设置标签字体 Label2.FontSize = 22 设置字号 Label2.ForeColor = vbBlue 设置字体颜色 Text1.Text = 初始化文本框 Text2.Text = Combo1.AddItem 学生 为combo1添加选择条件 Combo1.AddItem 教师 Combo1.AddItem 管理员 Data1.DatabaseName = App.Path & student.mdb 为data控件设置相对路径及数据库名称 End SubPrivate Sub

10、Timer1_Timer() 将标签设置为移动的 If Label2.Left + Label2.Width 0 Then Label2.Move Label2.Left - 24 Else Label2.Left = frm_dl.ScaleWidth 当标签从左边出去后，使其再从右边出来 End IfEnd Sub2、学生成绩查看Private Sub Command1_Click() If Combo1.Text = 学生 Then 学生登录 If Trim(Text1.Text) = Then 用户名为空，弹出警告对话框 MsgBox 用户名不能为空，请重新输入！, vbOKOnly

11、+ vbExclamation, 警告 Text1.SetFocus 为用户名设置焦点 Else Data1.RecordSource = select * from 学生密码 where 学号= & Text1.Text & and 密码= & Text2.Text & 从数据库学生密码表中读取学号密码 Data1.Refresh 刷新数据库 If Data1.Recordset.BOF And Data1.Recordset.EOF Then 没有该用户名或用户名与密码不一致，弹出警告对话框 MsgBox 用户名或密码输入错误，请重新输入！, vbOKOnly + vbExclamatio

12、n, 警告 Text2.Text = 清空该文本框数据 Text1.SetFocus 清空该文本框数据 Else Text2.Text = 初始化文本框 frm_dl.Hide 隐藏登录窗体 frm_xscxcj.Show 弹出学生成绩查询窗体 frm_xscxcj.Data1.DatabaseName = App.Path & student.mdb 设置数据库路径及名称 frm_xscxcj.Data1.RecordSource = select * from 成绩单 where 学号= & frm_dl.Text1.Text & 从数据库中读取该学生成绩 frm_xscxcj.Data1

13、.Refresh 刷新数据库 End If End If ElseIf Combo1.Text = 教师 Then 教师登录 If Trim(Text1.Text) = Then 用户名为空，弹出警告对话框 MsgBox 用户名不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus 设置焦点 Else Data1.RecordSource = select * from 教师密码 where 用户名= & Text1.Text & and 密码= & Text2.Text & 从数据库中读取教师用户名和密码 Data1.Refresh

14、刷新数据库 If Data1.Recordset.BOF And Data1.Recordset.EOF Then 没有该教师用户名或用户名与密码不一致，弹出警告对话框 MsgBox 用户名或密码输入错误，请重新输入！, vbOKOnly + vbExclamation, 警告 Text2.Text = 清空该文本框数据 Text1.SetFocus 清空该文本框数据 Else frm_dl.Hide 隐藏登录窗体 frm_cjgl.Show 弹出成绩管理窗体 frm_cjgl.tjjsyh.Enabled = False 教师没有添加教师用户的权限 frm_cjgl.scxsyh.Enabl

15、ed = False 教师没有删除学生用户的权限 frm_cjgl.scjsyh.Enabled = False 教师没有删除教师用户的权限 frm_cjgl.tjxsyh.Enabled = False 教师没有添加学生用户的权限 frm_cjgl.tjgly.Enabled = False 教师没有添加管理员的权限 End If End If Else If Trim(Text1.Text) = Then 用户名为空，弹出警告对话框 MsgBox 用户名不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus 设置焦点 Else Da

16、ta1.RecordSource = select * from 管理员密码 where 用户名= & Text1.Text & and 密码= & Text2.Text & 从数据库中读取管理员用户名和密码 Data1.Refresh 刷新数据库 If Data1.Recordset.BOF And Data1.Recordset.EOF Then 没有该管理员用户名或用户名与密码不一致，弹出警告对话框 MsgBox 用户名或密码输入错误，请重新输入！, vbOKOnly + vbExclamation, 警告 Text2.Text = 清空该文本框数据 Text1.SetFocus 清空该

17、文本框数据 Else frm_dl.Hide 隐藏登录窗体 frm_cjgl.Show 弹出成绩管理窗体 frm_cjgl.xscjlr.Enabled = False 管理员没有成绩录入的权限 frm_cjgl.xscjxg.Enabled = False 管理员没有成绩修改入的权限 frm_cjgl.jsmmxg.Enabled = False 管理员没有修改教师密码的权限 End If End If End IfEnd SubPrivate Sub Command3_Click() 退出系统 EndEnd SubPrivate Sub frm_dl_Load() Label2.Width

18、 = frm_dl.ScaleWidth 设置标签的尺寸 Label2.Left = frm_dl.ScaleWidth Data1.DatabaseName = App.Path & student.mdb 为data控件设置相对路径及数据库名称End Sub Private Sub Command1_Click() If combo1.Text = 按学号 Then Data1.RecordSource = select * from 成绩单 where 学号= & Text1.Text & 按学号搜寻个人成绩 Data1.Refresh 显示个人成绩 Else Data1.RecordS

19、ource = select * from 成绩单 where 姓名= & Text1.Text & 按姓名搜寻个人成绩 Data1.Refresh 显示个人成绩 End If If Text1.Text = Then 显示所有学生成绩 Data1.RecordSource = select * from 成绩单 Data1.Refresh 显示所有人成绩 End IfEnd SubPrivate Sub Command2_Click() frm_cxcj.Hide 隐藏成绩查询窗体 frm_cjgl.Show 弹出成绩管理窗体End SubPrivate Sub Form_Load() co

20、mbo1.AddItem 按学号 为combo1添加选择条件 combo1.AddItem 按姓名 combo1.AddItem 按班级 Text1.Text = 初始化文本框 Data1.DatabaseName = App.Path & student.mdb 用data控件连接数据库路径及名称 Data1.RecordSource = select * from 成绩单 order by 学号 asc 搜寻所有人的成绩，按升序排列 Data1.Refresh End Sub3.学生信息查看Private Sub Command1_Click() frm_xscxxx.Hide 关闭学生信

21、息查询窗体 frm_xscxcj.Show 打开学生查询成绩窗体End SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & student.mdb 设置连接数据库的路径 Data1.RecordSource = select * from 学生基本信息 where 学号= & frm_dl.Text1.Text & 从数据库读取学生基本信息 Data1.Refresh 刷新End Sub4、学生密码修改Private Sub Command1_Click() If Trim(Text1.Text) Trim(Text2.Text

22、) Then 两次密码输入不一致，弹出信息提示对话框 MsgBox 两次密码输入不一致，请重新输入！, vbOKOnly + vbExclamation, 信息提示 Text1.SetFocus 设置焦点 Text1.Text = 清空文本框 Text2.Text = Else 从数据库中读取学号和密码 Data1.RecordSource = select * from 学生密码 where 学号= & frm_dl.Text1.Text & Data1.Refresh 刷新 Data1.Recordset.Edit 修改学生密码 Data1.Recordset.Fields(密码) = T

23、ext1.Text Data1.Recordset.Update 更新数据库，弹出修改成功对话框 i = MsgBox(密码修改成功,是否重新登录？, vbOKCancel + vbQuestion, 提示) If i = 1 Then 确认 frm_xsmmxg.Hide 关闭修改学生密码窗体 frm_dl.Show 打开登录窗体 End If End IfEnd SubPrivate Sub Command2_Click() Text1.Text = 清空文本框 Text2.Text = frm_xsmmxg.Hide 关闭修改学生密码窗体 frm_xscxcj.Show 打开修改学生成绩

24、窗体End SubPrivate Sub form_resize() Text1.Text = 清空文本框 Text2.Text = Data1.DatabaseName = App.Path & student.mdb 为data控件设置相对路径及数据库名称End SubPrivate Sub Text1_LostFocus() If Len(Text1.Text) 6 Then 如果密码字数少于6个，弹出提醒对话框 MsgBox 密码长度不应少于6位，请重新输入！, vbOKOnly, 提醒 Text1.Text = 清空文本框 Text2.Text = End IfEnd Sub5、学生

25、成绩录入Private Sub Command1_Click() Data1.Recordset.MoveFirst 移动到第一条记录 Command1.Enabled = False 第一个不能操作 Command2.Enabled = False 上一个不能操作 Command3.Enabled = True 下一个能操作 Command4.Enabled = True 最后一个能操作End SubPrivate Sub Command2_Click() Data1.Recordset.MovePrevious 移动到第一条前记录 If Data1.Recordset.BOF Then 没

26、有记录 Data1.Recordset.MoveFirst 移动到第一条记录 Command1.Enabled = False 第一个不能操作 Command2.Enabled = False 上一个不能操作 Command3.Enabled = True 下一个能操作 Command4.Enabled = True 最后一个能操作 Else Command1.Enabled = True 第一个能操作 Command2.Enabled = True 上一个能操作 Command3.Enabled = True 下一个能操作 Command4.Enabled = True 最后一个能操作 En

27、d IfEnd SubPrivate Sub Command3_Click() Data1.Recordset.MoveNext 移动到下一条记录 If Data1.Recordset.EOF Then 下一条没有记录 Data1.Recordset.MoveLast 移动到最后一条记录 Command1.Enabled = True 第一个能操作 Command2.Enabled = True 上一个能操作 Command3.Enabled = False 下一个不能操作 Command4.Enabled = False 最后一个不能操作 Else Command1.Enabled = Tr

28、ue 第一个能操作 Command2.Enabled = True 上一个能操作 Command3.Enabled = True 下一个能操作 Command4.Enabled = True 最后一个能操作 End IfEnd SubPrivate Sub Command4_Click() Data1.Recordset.MoveLast 移动到最后一条记录 Command1.Enabled = True 第一个能操作 Command2.Enabled = True 上一个能操作 Command3.Enabled = False 下一个不能操作 Command4.Enabled = False

29、 最后一个不能操作End SubPrivate Sub Command5_Click() If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Or Text7.Text = Then 如果基本信息有一个为空，弹出提醒对话框 MsgBox 内容不能为空，请重新输入！ Else Data1.Recordset.Edit 对基本信息进行修改 Data1.Recordset.Fields(0) = frm_xscjlr.Text1.Text Data1.Recor

30、dset.Fields(1) = frm_xscjlr.Text2.Text Data1.Recordset.Fields(2) = frm_xscjlr.Text3.Text Data1.Recordset.Fields(3) = frm_xscjlr.Text4.Text Data1.Recordset.Fields(4) = frm_xscjlr.Text5.Text Data1.Recordset.Fields(5) = frm_xscjlr.Text6.Text Data1.Recordset.Fields(6) = frm_xscjlr.Text7.Text Data1.Recor

31、dset.Fields(7) = frm_xscjlr.Text8.Text Data1.Recordset.Update 更新，弹出添加成功对话框 MsgBox 添加成功！ End If Text5.Text = 清空文本框 Text6.Text = Text7.Text = Text8.Text = End SubPrivate Sub Command6_Click() frm_xscjlr.Hide 隐藏学生成绩录入窗体 frm_cjgl.Show 打开成绩管理窗体End SubPrivate Sub Form_Load() Text1.Text = 初始化文本框 Text2.Text

32、= Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Data1.DatabaseName = App.Path & student.mdb 连接数据库路径和名称End Sub 6.修改学生成绩Private Sub Command2_Click() If Text1.Text = Then 学号文本框不能为空 MsgBox 请输入内容！Else Data1.Recordset.Edit 修改各门课程成绩修改 Data1.Recordset.Fields(0) = Text2.Text D

33、ata1.Recordset.Fields(1) = Text3.Text Data1.Recordset.Fields(2) = Text4.Text Data1.Recordset.Fields(3) = Text5.Text Data1.Recordset.Fields(4) = Text6.Text Data1.Recordset.Fields(5) = Text7.Text Data1.Recordset.Fields(6) = Text8.Text Data1.Recordset.Update 更新修改后的数据 MsgBox 修改成功, vbOKOnly, 提示 弹出修改成功对话框

34、 End IfEnd SubPrivate Sub Command1_Click() If Trim(Text1.Text) = Then MsgBox 学号不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 学号文本框不能为空 Text1.SetFocus 为学号设置焦点 Else Data1.RecordSource = select * from 成绩单 where 学号= & Text1.Text & 从数据库中加载学号 Data1.Refresh If Data1.Recordset.EOF Then 数据库中没有这个学号 MsgBox 学号不存在，请

35、重新输入！, vbOKOnly + vbExclamation, 警告 弹出学号不存在对话框 Text1.SetFocus 为学号设置焦点 Text1.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)

36、Text4.Text = Data1.Recordset.Fields(2) Text5.Text = Data1.Recordset.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 Command3_Click() frm_cjxg.Hide 隐藏成绩修改窗体 frm_cjgl.Show 弹出成绩管理窗体End SubPriv

37、ate Sub Form_Load() Data1.DatabaseName = App.Path & student.mdb 用data控件连接数据库路径及名称 Text1.Text = 初始化各个文本框 Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = End Sub7、学生成绩查看Private Sub Command1_Click() If Combo1.Text = 按学号 Then Data1.RecordSource = select * from

38、成绩单 where 学号= & Text1.Text & 按学号搜寻个人成绩 Data1.Refresh 显示个人成绩 Else Data1.RecordSource = select * from 成绩单 where 姓名= & Text1.Text & 按姓名搜寻个人成绩 Data1.Refresh 显示个人成绩 End If If Text1.Text = Then 显示所有学生成绩 Data1.RecordSource = select * from 成绩单 Data1.Refresh 显示所有人成绩 End IfEnd SubPrivate Sub Command2_Click()

39、frm_cxcj.Hide 隐藏成绩查询窗体 frm_cjgl.Show 弹出成绩管理窗体End SubPrivate Sub Form_Load() Combo1.AddItem 按学号 为combo1添加选择条件 Combo1.AddItem 按姓名 Combo1.AddItem 按班级 Text1.Text = 初始化文本框 Data1.DatabaseName = App.Path & student.mdb 用data控件连接数据库路径及名称 Data1.RecordSource = select * from 成绩单 order by 学号 asc 搜寻所有人的成绩，按升序排列 D

40、ata1.Refresh End Sub8、教师密码修改Private Sub Command1_Click() If Trim(Text1.Text) Trim(Text2.Text) Then 两次密码输入不一致，弹出提示对话框 MsgBox 密码输入不正确!, vbOKOnly + vbExclamation, 信息提示 Text1.SetFocus 为第一个文本框设置焦点 Text1.Text = 初始化文本框 Text2.Text = Else Data1.RecordSource = select * from 教师密码 where 用户名= & frm_dl.Text1.Text

41、 & 从数据库中读取教师用户名和密码 Data1.Refresh 刷新数据库 Data1.Recordset.Edit 修改数据库中的密码 Data1.Recordset.Fields(密码) = Text1.Text Data1.Recordset.Update 更新，弹出修改成功对话框 MsgBox 密码修改成功！, vbOKOnly + vbExclamation, 修改密码 Text1.Text = 清空文本框 Text2.Text = End If Data1.Refresh 更新数据库End SubPrivate Sub Command2_Click() Text1.Text =

42、清空文本框 Text2.Text = End SubPrivate Sub Command3_Click() frm_jsmmxg.Hide 隐藏教师修改密码窗体 frm_cjgl.Show 弹出成绩管理窗体End SubPrivate Sub Form_Load() Text1.Text = 初始化文本框 Text2.Text = Data1.DatabaseName = App.Path & student.mdb 为data控件设置相对路径及数据库名称End Sub9、添加学生用户Private Sub Command1_Click() 学号不能为空，否则弹出信息提示对话框 If Tri

43、m(Text1.Text) = Then MsgBox 请输入用户名！, vbOKOnly + vbExclamation, 信息提示 Text1.SetFocus 设置焦点 Exit Sub 退出 Else Data1.RecordSource = select * from 学生密码 where 学号= & Text1.Text & 设置学号和密码 Data1.Refresh If Not Data1.Recordset.EOF Then MsgBox 用户已存在，请重新输入用户名！, vbOKOnly + vbExclamation, 提示信息 Text1.SetFocus 设置焦点 T

44、ext1.Text = : Text2.Text = : Text3.Text = 清空文本框 Exit Sub End If End If If Trim(Text2.Text) Trim(Text3.Text) Then 如果两次输入的密码不一致，弹出警告对话框 MsgBox 两次输入的密码不一样，请确认！, vbOKOnly + vbExclamation, 警告 Text2.SetFocus 设置焦点 Text2.Text = 清空文本框 Text3.Text = Exit Sub Else With Data1 .Recordset.AddNew 添加记录 .Recordset.Fi

45、elds(0) = Trim(Text1.Text) .Recordset.Fields(1) = Trim(Text2.Text) .Recordset.Update 更新记录 End With MsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户 弹出修改成功对话框 End If Data1.Refresh 刷新 frm_tjxsyh.Hide 关闭添加学生用户窗体 frm_tjxsxx.Show 打开学生信息窗体End SubPrivate Sub Command2_Click() frm_tjxsyh.Hide 关闭添加学生用户窗体 frm_cj

46、gl.Show 打开成绩管理窗体End SubPrivate Sub Command3_Click() frm_tjxsyh.Hide 关闭添加学生用户窗体 frm_cjgl.Show 打开成绩管理窗体End SubPrivate Sub Form_Load() Text1.Text = 清空文本框 Text2.Text = Text3.Text = Data1.DatabaseName = App.Path & student.mdb 为data1控件设置相对路径及数据库名称End Sub10、删除学生用户Private Sub Command1_Click() If Text1.Text = Then 要删除的学生学号为空，弹出提醒对话框 MsgBox 请输入要删除的用户名, vbOKOnly, 提醒 Else i = MsgBox(确认要删除该用户, vbOKCancel + vb