VB学生成绩管理系统课程方案报告.docx

1、VB学生成绩管理系统课程方案报告 VB程序设计课程设计报告 班 级：资工10902 班姓 名：何睦序 号：05指导老师：刘少华 邵燕林 王庆 陈君华 朱小龙 目 录1、课设的目的 32、界面设计和功能设计 33、系统功能实施 124、系统功能设计 195、总结和体会 28一、课设的目的 1.通过本次课程设计，提高实践动手能力；2.通过本次课程设计，进一步理解计算机程序设计的思路与方法；3.通过本次课程设计，进一步熟练运用VB的语言元素和流程控制语句；4.通过本次课程设计，达到能熟练使用各种常见的VB控件，理解面向对象的思想；5.通过本次课程设计，熟悉用户界面的设计；6.通过本次课程设计，熟悉数

2、据访问控件ADO及相关对象的使用，能基于ADO控件实现Access的数据访问与操纵； 二、界面设计和功能设计 1、下面的界面为用户登陆界面： 用户名和密码均已设定，用户名为zg，密码为10902，只有输入正确，然后点击“登陆“按钮才能进入主界面。如果用户名或密码三次输入错误，则系统自动退出。 当你点击“退出“按钮时，弹出一个对话窗，界面如下：在对话框上点击“是”按钮，则退出系统，如果点击“否”，则该界面不变。2、当用户名和密码均输入正确，点击“登陆”按钮，进入主界面“学生成绩管理系统”界面，该界面是其他子界面的入口，界面如下：3、进入主界面后，点击“学生管理（删除添加）”，进入学生管理界面，界

3、面如下：该界面上有一个ADO控件，用于连接数据库，当用户在六个文本框中输入数据时，点击“添加“按钮，可以将数据录入到数据库中，如果此时点击”删除“按钮，则刚才输入的数据就会被删除，点击”保存“按钮时，输入的数据就会自动保存在数据库里，点击”返回主窗体“按钮，该窗体消失，主窗体出现。4、在主界面点击“各科成绩查询“按钮，出现如下界面：该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果5、在主界面点击“姓名查询“按钮后，会出现

4、如下界面：该界面与上一界面相似，在文本框输入要查询的姓名后，点击“查询“按钮，就会在DataGrid控件上显示所要查询的结果。下面为输入条件后查询的结果5、在主界面点击“班级查询“按钮后，会出现如下界面：在文版框中输入所要查询的班级，DataGrid控件上就会显示所要查询的结果。下面为输入条件后查询的结果6、在主界面上点击“各科成绩段查询“按钮后，会出现如下界面：点击“计算分数段统计“按钮后，就会出现所要查询的结果。下面为查询的结果7、在主界面点击“排名“按钮后，出现如下界面：在该界面上点击“排名“按钮后，在DataGrid控件上会显示出按成绩高低排名的结果，点击”清除排名“按钮后，刚才结果消

5、失，显示原来结果。下面为所现实的结果8、在主界面点击“统计直方图“按钮后，出现如下界面：在该界面点击各个按钮后，就会出现与之相关科目的成绩统计直方图，下面为查询的结果 9、在主界面点击“优等生“按钮后，出现如下界面：点击按钮查询后，结果就会在界面上显示出来。下面为所查询的结果三、系统功能实施 以上展示的是系统的所有界面，怎样才能让这所有的功能实现呢？数据库和ADO控件的使用便是其中的关键。 1、建立如下数据库(学号、姓名、班级、英语、数学、VB、总分、排名)2、建立如下图的所有界面： 3、ADO控件和DataGrid控件以及数据库的连接步骤：（这一步在设计界面的同时完成）（1）、如何加载ADO

6、控件：步骤1：步骤2：步骤3：各个界面的ADO控件如何连接数据库（分两步）：步骤1： 如下面界面中的5个步骤步骤2：选中ADO控件Adodc1，点击鼠标右键选择属性，然后界面设置如下：控件绑定数据库的字段操作说明：属性设置说明：下面以学号为例，姓名、班级等都可参考此。将学号对应的文本框Text1连接Adodc1显示数据库中的学号，需要设置DataSource和DataField两个属性,首先选中Text1文本框，并进行下面的两步操作，即可绑定数据库的学号字段。设置DataSource:设置DataField:（2）、如何加载DataGrid控件控件DataGrid，可以实现数据的批量处理，该控

7、件在控件库Microsoft DataGrid Control 6.0中。说明：DataGrid控件属性设置四、系统功能设计系统功能的设计，其核心就是程序代码的编写过程，如何让让系统更加完善、界面更加友好呢，这就得益于代码的编写。以下为各个界面所对应的代码该界面代码如下：Private Sub Command1_Click() If Text1.Text = zg And Text2.Text = 10902 Then mainfrm.Show dlfrm.Hide Else MsgBox 用户名或密码错误,请重新输入, vbMsgBoxSetForeground, 系统提示！ End If

8、Static t As Integer t = t + 1 If t = 3 Then EndEnd SubPrivate Sub Command2_Click()a = MsgBox(确定要退出本系统吗？, 3 + 32 + 256, 系统提示！)If a = 6 ThenUnload MeEnd IfEnd Sub 该界面代码如下： Private Sub Command1_Click() xsglfrm.ShowEnd SubPrivate Sub Command10_Click() ydsfrm.ShowEnd SubPrivate Sub Command3_Click() jszff

9、rm.ShowEnd SubPrivate Sub Command4_Click() pmfrm.ShowEnd SubPrivate Sub Command5_Click() zftjtfrm.ShowEnd SubPrivate Sub Command6_Click() cjcxfrm.ShowEnd SubPrivate Sub Command7_Click() xmcxfrm.ShowEnd SubPrivate Sub Command8_Click() bjcxfrm.ShowEnd SubPrivate Sub Command9_Click() gkcjfrm.ShowEnd Su

10、b该界面代码如下：Private Sub Command1_Click() Me.Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click() If Me.Adodc1.Recordset.RecordCount = 0 Or Me.Adodc1.Recordset.EOF Then Exit SubEnd IfMe.Adodc1.Recordset.DeleteMe.Adodc1.Recordset.MoveNextIf Me.Adodc1.Recordset.RecordCount = 0 Then Exit SubEnd IfIf

11、Me.Adodc1.Recordset.EOF Then Me.Adodc1.Recordset.MoveLastEnd SubPrivate Sub Command4_Click() Me.Adodc1.Recordset.SaveEnd SubPrivate Sub Command5_Click() Unload Me mainfrm.ShowEnd Sub该界面代码如下：Dim kc_条件 As StringDim kc As StringPrivate Sub Command1_Click()kc_条件 = Me.Text1Me.Adodc1.RecordSource = select

12、 * from stu where + kc + + kc_条件Me.Adodc1.RefreshEnd SubPrivate Sub Form_Load()kc_条件 = =92kc = vbEnd SubPrivate Sub Option1_Click()kc = VBEnd SubPrivate Sub Option2_Click()kc = mathEnd SubPrivate Sub Option3_Click()kc = EnglishEnd Sub该界面代码如下：Dim kc_条件 As StringDim kc As StringPrivate Sub Command1_Cl

13、ick()kc_条件 = Me.Text1Me.Adodc1.RecordSource = select * from stu where + kc + = + kc_条件 + Me.Adodc1.RefreshEnd SubPrivate Sub Form_Load()kc = nameEnd Sub该界面代码如下：Dim kc_条件 As StringDim kc As StringPrivate Sub Command1_Click()kc_条件 = Me.Text1Me.Adodc1.RecordSource = select * from stu where + kc + = + k

14、c_条件 + Me.Adodc1.RefreshEnd SubPrivate Sub Form_Load()kc = classEnd Sub该界面代码如下：Private Sub Command1_Click() Dim vb_A As Integer Dim vb_B As Integer Dim vb_C As Integer Dim vb_D As Integer Dim vb_E As Integer Dim Math_A As Integer Dim Math_B As Integer Dim Math_C As Integer Dim Math_D As Integer Dim Math_E As Integer Dim English_A As Integer Dim English_B As Integer Dim English_C As Integer Dim English_D As Integer Dim English_E As Integer Me.Adodc1.RecordSource = select * from stu