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

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

1、学生成绩管理系统1. 课程设计的目的学生成绩管理师一个复杂又繁琐的一项工程。本系统针为了解决这些问题针对高校教师及管理人员提供了在校学生有效管理的一个信息系统。系统设计的目的是实现纪录、查询和修改学生成绩信息；对于学生成绩情况能有效的处理，以及设置考试类型的信息及考试相关信息。本系统的开发具有很强的使用价值及实践意义。开发本系统不仅能很好的巩固我们在学习中的所掌握的知识，而且系统本身就是应用于实践，为学校教学管理提供了很大的方便性，提高了工作效率；同时方便了我们自己。2.功能介绍2.1系统功能介绍本系统的功能主要有学生成绩的录入，查询，修改，删除等，以及可以设置学生成绩类型的设置。对于指定的人

2、，可以通过密码进入该系统。2.2 系统数据库设计针对学生成绩管理系统的需求，通过对学生成绩录入过程的内容分析，为本系统设计如下的数据项和数据结构：(1) 学生基本信息表：包括学生姓名，学号，性别，课程名称，成绩等。(2) 学生成绩的基本信息结构如表1所示：表1 学生成绩基本信息表字段类型长度是否为空说明学号Text7否学生在学校的编号姓名Text20否学生姓名性别Text2否学生性别课程名称Text20是课程名称成绩Byte20是课程成绩3.详细设计3.1 系统功能模块图学生成绩管理 用户登录主控界面成绩管理增加修改删除查找考试类型设置增加修改删除退出图1 功能模块图3.2 登录模块设计登录模

3、块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。设计过程：用于输入用户名和密码登录，提示中写可以以用户名和密码都为guest进入系统，不过是只读用户。点击确定判断数据库中的用户是否为合法用户。设计代码：Private Sub Command1_Click()x = Text1.TextIf x = 郭聪颖 ThenText2.SetFocusElseMsgBox 无此用户 !End IfIf

4、 Text2.Text = 123456 ThenMsgBox 欢迎进入此系统！Form1.ShowForm2.HideText1.Text = Text2.Text = ElseMsgBox 密码错误End IfText1.Text = End Sub单击运行按钮时就会出现如图2所示的界面，在文本框中输入“郭聪颖”，密码框中输入“123456”时，就会出现消息框，提示进入本系统，并且进入下一个模块。图2 登录界面3.3 成绩管理模块本模块可以实现对成绩的查询，修改等设计，还可以实现对text文本框中字体及颜色的设计。本模块有设计到菜单栏的编辑，菜单栏还涉及到toolbar控件，增加了imag

5、elist选项，对toolbar中各个按钮增加有图片的选项。菜单栏有编辑，颜色，结束，打印等选项。当单击编辑时可以选择对成绩做如何处理，如对文本框中显示内容的选择，上一个可以显示当前文本框中上一个的内容，同理，下一个选项，当单击查找时可以对某一个学号学生姓名的查找，当单击增加按钮时可以实现对记录增加的要求，当单击删除时，可以删除记录，当单击修改时，文本框得到焦点，实现对文本框中内容的修改。本模块还增加commondialog控件，可以实现对文本框中字体的大粗细及各个细节的修改。菜单选项中还有颜色选项，可以实现对文本框中字体颜色的选择。本模块还涉及到data report控件，当单击此控件时可以

6、显示学生成绩的报表。本模块的数据源有adodc 控件实现对数据库的连接。本模块还有一个mshflexgrid控件，显示数据库中学生成绩的详细信息，并且单击该控件中的某个选项时，文本框中的内容就会随着改变。模块设计的涉及到的各个控件，其各个属性的改变在属性窗口中涉及，运行时界面如图3所示：图3 添加各个控件的界面在各个方法中写入各个模块的运行代码，当单击运行按钮时出项如图4所示的运行界面：图4 运行时的界面当单击命令按钮时出现如图5所示的界面，可以对文本框中字体的大小，字体，字形等选项进行修改和选择，其部分运行代码如下：Private Sub Command1_Click()CommonDial

7、og1.Flags = cdlCFBothCommonDialog1.ShowFontText1.Font.Name = CommonDialog1.FontNameText1.Font.Size = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicEnd Sub在字体下拉列表框中选择宋体，在字形下拉列表框中选择粗体，在大小下拉列表框中选择小五，打击“确定“按钮时，便对文本框中的文字进行了修改，运行界面如图5所示：图5 字体选项界面当单

8、击菜单选项中的增加选项是会出项如下的选项框，以便对学生成绩的增加，增加了对成绩的管理容易程度。其涉及到的代码如下：Private Sub zengjia_Click()vb_msg = MsgBox(请输入, vbOKCancel)If vb_msg = vbCancel ThenExit SubEnd IfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(学号) = Text1.TextAdodc1.Recordset.Fields(姓名) = Text2.TextAdodc1.Recordset.Fields(性别) = Text3.TextAd

9、odc1.Recordset.Fields(课程名字) = Text4.TextAdodc1.Recordset.Fields(成绩) = Val(Text5.Text)End Sub在文本框中输入学生对应的各项信息，完成对成绩管理的增加的要求，运行结果的界面如图6所示：图6 增加成绩当在toolbar中单击查找时，其涉及的代码如下：Private Sub chazhao_Click()msg = InputBox(请输入准确的学号, 查找记录)Adodc1.Recordset.Find 学号= & msg & If Adodc1.Recordset.EOF ThenMsgBox 没有符合条件

10、的学生!ElseMsgBox 符合条件的学生为 & Adodc1.Recordset.Fields(1)End IfEnd Sub在输入框中输入学生的学号F084120，如图7所示：图7 查找学生查找结果如图所示,msgbox中显示出查找学生姓名的信息，如图8所示：图8 查找结果当单击删除时，部分代码如下：Private Sub shanchu_Click()Dim areturn As Integerareturn = MsgBox(确实要删除记录吗?, vbYesNo)If areturn = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordse

11、t.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfEnd IfEnd Sub当单击”是”就会对学生的记录进行了删除，运行结果如图9所示：图9 删除记录颜色设置的代码如下所示：Private Sub hongse_Click()Text1.ForeColor = vbRedText2.ForeColor = vbRedText3.ForeColor = vbRedText4.ForeColor = vbRedText5.ForeColor = vbRedEnd Sub当单击菜单选项中的颜色下拉列表时，单击“红

12、色“选项时，出现如下的图10所示：图10 颜色选项界面打印所涉及到的代码如下所示：Private Sub dayin_Click()DataReport2.ShowEnd Sub当单击打印按钮时，会出现如图11所示的报表：图11 学生成绩报表3.4 考试类型的设计 本模块可以实现对学生考试类型的选择，如期中或是期末。本模块有四个命令按钮增加，修改等组成，还有一个文本框。有权限的用户和超级管理员可以进行考试类型的增加，修改，删除等操作。在此窗体修改过的东西会在其它具有选择类型的combo控件的窗体中作出相应的修改。最大特点是在点击增加或修改按钮时，其他按钮的enable属性会变成false，以免

13、造成不正确的操作。设计的界面如下图12所示：图12 考试类型设置界面 4 . 设计心得与体会在vb课程开课之前我就下决心要学好这一门课，因为这是我的专业课，我一心只想在这门课上学到更多的东西，直到现在我也是这样想这样做的，直到现在的vb课程设计，我一开始就谨慎小心，争取每一个细节都做得很好。现在终于是完成了，我的设计体会如下：小心谨慎是关键，因为做程序关键就是写代码，每一个字母都要很小心输入，若是不小心错了一个，就会带来庞大的“查错工程”，不过从我检查错误当中也学会了一些检查的方法，比如设置中断点，可以观查每一个变量的当前值，很有效的。小心是一个方面，另一个是怎么样让程序最人性化，并且保持较简

14、洁的程序代码，通俗说就是事半功倍。有很多时间我是花在了调试程序方面，一部分是在找错误，还有就是怎么用最简练的代码实现当前的作用。其中绝大多数都是自己写的代码，只有在自己不会的时候才借鉴了指导老师发下来的那个示例作品的代码。我的程序大多数是我自己写的，但是自己的知识和水平都十分有限，所以在做完每一个窗体之后我都与示范的程序代码作了比较，吸收了示范代码中的好的部分，改进了自己的不足，也学会的很多新的作程序方法，都是十分有用的。在一个体会就是做程序要有对全局和面的分析能力，具体是在设置用户权限中学到的，要注重点和面，都是一样的重要。我是先些具体的代码，再把全局的东西加进去；或者先把全局的代码构建起一

15、个框架，再往这个框架里写每个部分的代码。每个人的方法不一样，因人而异。做什么事都是一样的，具体体现在了这次的vb课程设计上来，让我学到了很多东西。就像要完成一个很大的工作，要先从小的部分做起，不能急于求成，细心谨慎才是关键，坚持不懈，最后再把这些小的窗体在连接起来，就构成了一个整体。还有很多体会和学到的东西是些也写不完的，只有实践真正动手做了才会真正了解，在不断的学习和实践中体会到更多的经验。在这次课设中，特别感谢刘老师对我的指导和帮助，再次感谢刘老师及帮助我的同学！5. 参考文献1刘天惠等.Visual Basic程序设计教程M.清华大学出版2005.10:157-1722人杰，殷人昆，陶永

16、雷.实用软件工程M（第二版）清华大学出版2003.3:45-67 3王运坚.VISUAL BASIC 6.0 应用指南M .北京: 人民邮电出版社1998.6:78 4管丽娜,白海波.实用Visual Basic6 教程M .北京:清华大学出版社2001. 6段兴.visual Basic数据库实用程序设计100例 M .北京：人民邮电出版社2008.6 :56-787曹军生. Microsoft Accses实用教程M. 北京理工大学出版社 2001.9:48 8甘仞初.信息系统开发M. 北京: 经济科学出版社.1996.7:23-459郝春强.新概念VISUAL BASIC教程M. 北京:

17、 科海集团司.2001.8:45-786. 源代码用户权限的代码Private Sub Command1_Click()x = Text1.TextIf x = 郭聪颖 ThenText2.SetFocusElseMsgBox 无此用户 !End IfIf Text2.Text = 123456 ThenMsgBox 欢迎进入此系统！Form1.ShowForm2.HideText1.Text = Text2.Text = ElseMsgBox 密码错误End IfText1.Text = End Sub查找记录的代码Private Sub chazhao_Click()msg = Input

18、Box(请输入准确的学号, 查找记录)Adodc1.Recordset.Find 学号= & msg & If Adodc1.Recordset.EOF ThenMsgBox 没有符合条件的学生!ElseMsgBox 符合条件的学生为 & Adodc1.Recordset.Fields(1)End IfEnd Sub设置字体的代码：Private Sub Command1_Click()CommonDialog1.Flags = cdlCFBothCommonDialog1.ShowFontText1.Font.Name = CommonDialog1.FontNameText1.Font.S

19、ize = CommonDialog1.FontSizeText1.FontBold = CommonDialog1.FontBoldText1.FontItalic = CommonDialog1.FontItalicText2.Font.Name = CommonDialog1.FontNameText2.Font.Size = CommonDialog1.FontSizeText2.FontBold = CommonDialog1.FontBoldText2.FontItalic = CommonDialog1.FontItalicText2.ForeColor = CommonDial

20、og1.ColorText3.Font.Name = CommonDialog1.FontNameText3.Font.Size = CommonDialog1.FontSizeText3.FontBold = CommonDialog1.FontBoldText3.FontItalic = CommonDialog1.FontItalicText4.Font.Name = CommonDialog1.FontNameText4.Font.Size = CommonDialog1.FontSizeText4.FontBold = CommonDialog1.FontBoldText4.Font

21、Italic = CommonDialog1.FontItalicText5.Font.Name = CommonDialog1.FontNameText5.Font.Size = CommonDialog1.FontSizeText5.FontBold = CommonDialog1.FontBoldText5.FontItalic = CommonDialog1.FontItalicEnd Sub显示报表的代码：Private Sub dayin_Click()DataReport2.ShowEnd Sub网格代码的设计：Private Sub Form_Load()Set MSHFlex

22、Grid1.DataSource = Adodc1MSHFlexGrid1.Row = 0MSHFlexGrid1.Col = 0MSHFlexGrid1.Text = 学号MSHFlexGrid1.Col = 1MSHFlexGrid1.Text = 姓名MSHFlexGrid1.Col = 2MSHFlexGrid1.Text = 性别MSHFlexGrid1.Col = 3MSHFlexGrid1.Text = 课程名称MSHFlexGrid1.Col = 4MSHFlexGrid1.Text = 成绩MSHFlexGrid1.ColWidth(0) = 600MSHFlexGrid1.

23、ColWidth(1) = 1000MSHFlexGrid1.ColWidth(2) = 1200MSHFlexGrid1.ColWidth(3) = 1000MSHFlexGrid1.ColWidth(4) = 1200End Sub文本框中字体颜色设计的代码：Private Sub heise_Click()Text1.ForeColor = vbBlackText2.ForeColor = vbRblackText3.ForeColor = vbBlackText4.ForeColor = vbBlackText5.ForeColor = vbblaxkEnd SubPrivate Su

24、b hongse_Click()Text1.ForeColor = vbRedText2.ForeColor = vbRedText3.ForeColor = vbRedText4.ForeColor = vbRedText5.ForeColor = vbRedEnd SubPrivate Sub huangse_Click()Text1.ForeColor = vbYellowText2.ForeColor = vbYellowText3.ForeColor = vbYellowText4.ForeColor = vbYellowText5.ForeColor = vbYellowEnd S

25、ubPrivate Sub lanse_Click()Text1.ForeColor = vbBlueText2.ForeColor = vbBlueText3.ForeColor = vbBlueText4.ForeColor = vbBlueText5.ForeColor = vbBlueEnd SubPrivate Sub jieshu_Click()EndEnd Sub报表设计的代码：Private Sub MSHFlexGrid1_Click()Adodc1.Recordset.AbsolutePosition = MSHFlexGrid1.RowEnd SubPrivate Sub

26、 shanchu_Click()Dim areturn As Integerareturn = MsgBox(确实要删除记录吗?, vbYesNo)If areturn = vbYes ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfEnd IfEnd SubPrivate Sub shangyige_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF T

27、henAdodc1.Recordset.MoveFirstMsgBox (已经是第一条记录了!)End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Call xiugai_ClickCase 2Call xiayige_ClickCase 3Call shangyige_ClickCase 4Call jieshu_ClickCase 5Call dayin_ClickCase 6Call chazhao_ClickCase

28、7Call shanchu_ClickCase 8Call zengjia_ClickEnd SelectEnd SubPrivate Sub xiugai_Click()Dim areturn As Integerareturn = MsgBox(你确实要修改记录吗?, vbYesNo)If are = vbYes ThenAdodc1.Recordset.UpdateAdodc1.Recordset.Fields(学号) = Text1.TextAdodc1.Recordset.Fields(姓名) = Text2.TextAdodc1.Recordset.Fields(性别) = Tex

29、t3.TextAdodc1.Recordset.Fields(课程名字) = Text4.TextAdodc1.Recordset.Fields(成绩) = Val(Text5.Text)End IfEnd SubPrivate Sub xiayige_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastMsgBox (已经是最后一条记录了!)End IfEnd SubPrivate Sub zengjia_Click()vb_msg = MsgBox(请输入, vbOKCan

30、cel)If vb_msg = vbCancel ThenExit SubEnd IfAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(学号) = Text1.TextAdodc1.Recordset.Fields(姓名) = Text2.TextAdodc1.Recordset.Fields(性别) = Text3.TextAdodc1.Recordset.Fields(课程名字) = Text4.TextAdodc1.Recordset.Fields(成绩) = Val(Text5.Text)End SubPrivate Sub Command1

31、_Click()增加考试类型的代码If Command1.Caption = 加入列表 Then Adodc1.RecordSource = select * from leixing where 类型= & Text1.Text & Adodc1.Refresh 判断是否重复 If Adodc1.Recordset.EOF = False Then MsgBox 已经存在该类型名称！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Su

32、b Else 增加 Adodc1.Recordset.AddNew Adodc1.Recordset!类型 = Text1.Text Adodc1.Recordset.Update Command1.Caption = 增加 Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Visible = False Text1.Text = End If 这个Form_Load是刷新list列表用的 Form_Load MsgBox 设置成功！, vbOKOnly + vbInformatio

33、n, 提示Else Text1.Text = InputBox(输入考试类型！, 输入) If Text1.Text = Then MsgBox 类型名称不能为空！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If Command1.Caption = 加入列表 Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Visible = TrueEnd IfEnd SubPrivate Sub Command2_

34、Click()If Text1.Text = Then MsgBox 你还没有选择记录！, vbOKOnly + vbExclamation, 警告Else If MsgBox(确定要删除 类型名称 为 & List1.List(List1.ListIndex) & 的记录吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then Adodc1.RecordSource = select * from leixing where 类型= & List1.List(List1.ListIndex) & Adodc1.Refresh Adodc1.Records

35、et.Delete Text1.Text = End IfEnd If这个Form_Load是刷新list列表用的Form_LoadEnd SubPrivate Sub Command3_Click()If Text1.Text = Then MsgBox 你还没有选择记录！, vbOKOnly + vbExclamation, 警告Exit SubEnd IfIf Command3.Caption = 保存修改 Then Adodc1.RecordSource = select * from leixing where 类型= & Text1.Text & Adodc1.Refresh 判断

36、是否重复 If Adodc1.Recordset.EOF = False Then MsgBox 已经存在该类型名称！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) Exit Sub Else 修改 Adodc1.RecordSource = select * from leixing where 类型= & List1.List(List1.ListIndex) & Adodc1.Refresh Adodc1.Recordset!类型 = Te

37、xt1.Text Adodc1.Recordset.Update Text1.Text = Command3.Caption = 修改 Command2.Enabled = True Command1.Enabled = True Command4.Enabled = True Text1.Text = End If 这个Form_Load是刷新list列表用的 Form_Load MsgBox 修改成功！, vbOKOnly + vbInformation, 提示Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text

38、1.Text) If Text1.Text = Then MsgBox 类型名称不能为空！, vbOKOnly + vbExclamation, 警告 Text1.SetFocus Exit Sub End If Command1.Enabled = False Command2.Enabled = False Command3.Caption = 保存修改 Command4.Enabled = False Command5.Visible = TrueEnd IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Co

39、mmand5_Click()If Command1.Caption = 加入列表 Then 取消添加 Command5.Visible = False Command3.Enabled = True Command2.Enabled = True Command1.Caption = 增加 Command4.Enabled = True Text1.Text = Else 取消修改 Command5.Visible = False Command3.Caption = 修改 Command2.Enabled = True Command1.Enabled = True Command4.Ena

40、bled = True Text1.Text = End IfEnd SubPrivate Sub Form_Load()打开数据库中的leixing表OpenTable Adodc1, leixingList1.ClearAdodc1.Refresh If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF List1.AddItem Adodc1.Recordset.Fields(0) Adodc1.Recordset.MoveNext LoopEnd IfEnd SubPrivate Sub List1_Click()Text1.Text = List1.List(List1.ListIndex)End Sub