vb程序设计报告

1、 VB程序设计 课程设计报告 班级： 姓名： 学号： 指导老师： 目录1. 课设的目的.32. 功能介绍.43. 界面设计.4. 系统功能实施.5. 系统界面实现代码.6. 系统不足.7. 总结与体会.背景：随着学校规模的不断扩大，学生数量急剧增加，有关学生的各科成绩信息量也成倍增长。面对庞大的成绩信息，需要学生管理系统来提高学生管理工作的效率。通过这样的系统可以做到成绩的规范管理、科学统计和快速查询、修改、增加、删除等，从而减少管理方面的工作量。本系统主要用于学生成绩管理，总体任务是实现学生成绩信息的系统化、规范化和自动化。其主要任务是用计算机对学生各科成绩进行管理，如修改、增加、删除、统计

2、总分，另外还考虑到学生名次的排序、统计、分析等，针对这些要求设计了学生成绩管理系统。其功能主要有：1)有关学生信息的输入，包括输入学生所在班级、学号、姓名、各科成绩等 2)学生信息的修改及保存 3)学生成绩的查询，包括：按姓名查询，按班级查询等4）学生成绩的排名5）生成学生成绩的统计直方图 6）系统自动查询优等生等。一：课设的目的1.通过本次课程设计，提高实践动手能力； 2.通过本次课程设计，进一步理解计算机程序设计的思路与方法； 3.通过本次课程设计，进一步熟练运用VB的语言元素和流程控制 语句； 4.通过本次课程设计，达到能熟练使用各种常见的VB控件，理解 面向对象的思想； 5.通过本次课

3、程设计，熟悉用户界面的设计； 6.通过本次课程设计，熟悉数据访问控件ADO及相关对象的使用， 能基于ADO控件实现Access的数据访问与操纵；二：功能介绍1. 下面的界面为用户登录界面用户名和密码以及登录身份均已设定，登录身份有三种：管理者、教师与学生。三者对应的账号与密码分别为“glz”和“111”，“js”和“222”，“xs”和“333”。只有三项分别对应输入正确，然后点击“登陆“按钮才能进入主界面。如果用户名或密码三次输入错误，则系统自动退出。 当你点击“退出“按钮时，弹出一个对话窗，界面如下：在对话框上点击“是”按钮，则退出系统，如果点击“否”或者“取消”，则该界面不变。2.当用户

4、名和密码均输入正确，点击“登陆”按钮，进入主界面“学生成绩管理系统”界面，该界面是其他子界面的入口，且该界面应用了菜单编辑框，节省了大量空间，界面如下：2. 进入主界面后，点击“学生管理（添加删除修改保存返回主窗体统计总分）”，进入学生管理界面，界面如下：该界面上有一个ADO控件，用于连接数据库，当用户在六个文本框中输入数据时，点击第七个文本框可以计算学生成绩总分；点击“添加“按钮，可以将数据录入到数据库中；如果此时点击”删除“按钮，则刚才输入的数据就会被删除；点击”保存“按钮时，输入的数据就会自动保存在数据库里；点击”返回主窗体“按钮，该窗体消失，主窗体出现。3. 在主界面点击“按各科成绩查

5、询“按钮，出现如下界面： 该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果该界面有一个ADO控件，用来连接数据库，还有一个DataGrid控件，用来显示学生成绩的查询结果，当用户选择了要查询的科目和条件后，点击“查询“按钮，在DataGrid控件上就会显示出所查询的结果。下面为输入条件后查询的结果4.在主界面点击“姓名查询“按钮，出现如下界面：该界面与上一界面相似，在文本框输入要查询的姓名后，点击“查询“按钮，就会在Da

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

7、主界面点击“统计直方图“按钮后，出现如下界面：在该界面点击各个按钮后，就会出现与之相关科目的成绩统计直方图，下面为查询的结果9、在主界面点击“优等生“按钮后，出现如下界面：点击按钮“查询优等生”后，结果就会在界面上显示出来。下面为所查询的结果三：界面设计 四：系统功能的实施1. 加载ADO控件，DataGrid控件，MSChart控件点击project勾选添加、确定、应用点击部件 生成MSChart控件生成DataGrid控件生成ADO控件 添加到窗体上即可点击外接程序2. 建立学生成绩信息表点击可视化数据管理器先将新建表保存在工程所在文件夹中，并命名在左边空白处点击右键，选择新建表为表命名

8、通过点击“添加字段”在字段列表中添加改工程期望的字段，例如：学号，integer；姓名，text，8.完成之后，点击close-生成表。 在表中加入具体信息双击表名（如下student）出现如下界面，添加所需信息更新即可保存完毕之后，直接点击“close”，关掉界面即可注：如果表中信息出现错误，或者表中信息需要得到更改，步骤如下：外界程序 可视化数据管理器右击表名设计3. 各个界面的ADO控件如何连接数据库（以班级查询为例）点击adodc1属性框”ConnectionString” 出现如下界面： 点击生成，出现如下界面：在“选择或输入数据库名称”中选择期望表的路径测试连接 连接成功后 确定

9、应用 确定点击属性框中“RecordSource”，出现如下界面：选择命令类型：1 - adCmdText 输入命令文本：select*from 表名点击“应用” 然后“确定”选择DataGrid1 将属性框中 DataSource 连接Adodc5.文本框绑定数据库属性设置说明：下面以学号为例，姓名、班级等都可参考此。将学号对应的文本框Text1连接Adodc1显示数据库中的no，需要设置DataSource和DataField两个属性,首先选中Text1文本框，在属性框进行下面的两步操作，即可绑定数据库的学号字段。选择no（对应字段）选择adodc1 五：附表 （各窗体程序）该界面代码如下

10、Private Sub Command1_Click()If Combo1.Text = 管理者 And Text1.Text = glz And Text2.Text = 111 Then Form2.ShowElse If Combo1.Text = 教师 And Text1.Text = js And Text2.Text = 222 Then Form2.Show Else If Combo1.Text = 学生 And Text1.Text = xs And Text2.Text = 333 Then Form2.Show Else MsgBox 用户名或密码错误,请重新输入, vb

11、MsgBoxSetForeground, 系统提示！ End If End IfEnd IfEnd SubPrivate Sub Command3_Click() a = MsgBox(确定要退出本系统吗？, 3 + 32 + 256, 系统提示！) If a = 6 Then Unload Me End IfEnd SubPrivate Sub Form_Load()Combo1.AddItem 管理者Combo1.AddItem 教师Combo1.AddItem 学生End Sub2.该界面程序如下 .Private Sub bjcx_Click()bjcxfrm.ShowEnd SubP

12、rivate Sub gkcjcx_Click()gkcjcxfrm.ShowEnd SubPrivate Sub gkcjd_Click()gkcjdfrm.ShowEnd SubPrivate Sub pm_Click()pmfrm.ShowEnd SubPrivate Sub tjzf_Click()tjzffrm.ShowEnd SubPrivate Sub tjzft_Click()tjzftfrm.ShowEnd SubPrivate Sub xmcx_Click()xmcxfrm.ShowEnd SubPrivate Sub xsgl_Click()xsglfrm.ShowEnd

13、 SubPrivate Sub yds_Click()ydsfrm.ShowEnd Sub3.该界面程序如下Private Sub Command1_Click() Adodc1.Recordset.AddNewEnd Sub Private Sub Command2_Click() If Adodc1.Recordset.RecordCount = 0 Or Adodc1.Recordset.EOF Then Exit Sub End If Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.Record

14、Count = 0 Then Exit Sub End If If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd Sub Private Sub Command4_Click() Adodc1.Recordset.SaveEnd SubPrivate Sub Command5_Click() Unload Me Form2.Show End SubPrivate Sub Command6_Click()Text7.Text = Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)E

15、nd Sub4.该界面程序如下 Dim kc_条件 As String Dim kc As String Private Sub Command1_Click() kc_条件 = Text1 Adodc1.RecordSource = select * from stu where + kc + = + kc_条件 + Adodc1.Refresh End Sub Private Sub Form_Load() kc = name End Sub5.该界面程序如下Dim kc_条件 As String Dim kc As String Private Sub Command1_Click()

16、kc_条件 = Text1 Adodc1.RecordSource = select * from stu where + kc + = + kc_条件 + Adodc1.Refresh End Sub Private Sub Form_Load() kc = class End Sub6.该界面程序如下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 Inte

17、ger 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 where vb=90 Me.Adodc1.Refresh vb_A = Me.

18、Adodc1.Recordset.RecordCount Me.Text1 = vb_A Me.Adodc1.RecordSource = select * from stu where vb=80 and vb=70 and vb=60 Me.Adodc1.Refresh vb_D = Me.Adodc1.Recordset.RecordCount Me.Text4 = vb_D Me.Adodc1.RecordSource = select * from stu where vb=90 Me.Adodc1.Refresh Math_A = Me.Adodc1.Recordset.Recor

19、dCount Me.Text6 = Math_A Me.Adodc1.RecordSource = select * from stu where math=80 and math=70 and math=60 Me.Adodc1.Refresh Math_D = Me.Adodc1.Recordset.RecordCount Me.Text9 = Math_D Me.Adodc1.RecordSource = select * from stu where math=90 Me.Adodc1.Refresh English_A = Me.Adodc1.Recordset.RecordCoun

20、t Me.Text11 = English_A Me.Adodc1.RecordSource = select * from stu where English=80 and English=70 and English=60 Me.Adodc1.Refresh English_D = Me.Adodc1.Recordset.RecordCount Me.Text14 = English_D Me.Adodc1.RecordSource = select * from stu where English=95 and math=100 or english=100 or vb=100 Me.Adodc1.RefreshEnd SubPrivate Sub Form_Load()End Sub六：系统不足 不够美观 不够高级 七总结及体会 经过一学期的接触和学习，我认为Vb程序设计很有趣，相比C语言，Java语言来说，更容易理解、记忆以及应用，一个个原本没有生命的字符在老师的领导下变得生动可爱，做出的东西也很具有美感以及实用性。我深知这一个学期学习到的东