VB课设实例.docx

1、VB课设实例参考文献：1. Visual Basic 6.0编程案例精解， 张路平，电子工业出版社2.Visual Basic 6.0数据库编程思想与实践 ，谭小丹，冶金工业出版社3. Visual Basic+Access数据库项目开发实践，周国民，中国铁道出版社4. MSDN 一 选题的意义1.选该题的原因从大的方面来讲，现在我国的部分高中及其以下级别的大部分中学，学生成绩的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我选择这个题目，希望可以在信息管理方面有所提高。改革的总设计

2、师邓小平同志说过“科学技术是第一生产力”，我希望能用我一年的所学编制出一个实用的程序来帮助学校进行更有效的信息管理。从小的方面来说，我感觉这个题目和我的学校生活密切相关，我也比较熟悉该系统，更容易学到对于我vb语言学习有用的知识。2完成此题目用到的数据结构和知识点。2.1数据结构：通过可视化数据管理器可以进行数据库操作。建立数据库：启动可视化数据管理器，创建数据库，创建数据库表，然后编辑数据库。2.2知识点：Access技术：可以开发关系数据库，数据库能汇集各种信息以供查询、存储和检索。数据库(Database)是由一些有意义和有关系的数据(data)所组合而成。一个数据库中，包含了许多条记录

3、(Record),而每条记录是由多个字段(Field)所组成,不同的字段存放这不同的数据。所以数据库的严格定义是一组相关记录的集合，而字段则是最基本的数据项，也是数据库中最小的单位。在计算机中用来帮我们管理数据库的系统，我们称之为数据库管理管理系统（Database Management System DBMS）。数据库管理系统是架构在一个或多个数据库之上，并针对数据库中的数据进行管理运用。Access 的优点在于它能使用数据表示图或自定义窗体收集信息，数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。

4、Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。结构化查询语言SQL: 结构化查询语言(Structrued Query Lauguage,SQL)是访问数据库的标准语言，使用SQL语言可以从数据库中获取数据，建立数据库和数据库对象，增加，修改数据和实现复杂的查询功能。它是本系统实现的基础。使用data控件访问数据库：主要使用的是data控件和数据绑定控件编写数据库应用程序的方法。 二系统功能简介 1.系统概

5、述随着学校的规模不断扩大，学生数量急剧增加，有关学生的各种信息量也成倍增长。面对庞大的信息量，需要有学生管理系统来提高学生管理工作的效率。通过这样的系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少管理方面的工作量。2.系统的组成以及各模块的功能系统开发的总任务是实现学生信息关系的系统化、规范化和自动化。系统主要由五部分组成：系统用户的管理、学生成绩的管理、学生学籍信息的管理、信息的查询，其中还包括登录界面以及成绩的统计模块。各模块的主要功能如下：系统用户的管理：实现用户的添加、删除和密码的修改学生学籍信息的管理：实现学生学籍信息的添加、删除和修改。学生成绩的管理：实现学生成绩的录入

6、，删除和修改。学生信息的查询：实现学生学籍的查询、成绩的查询。 学生成绩信息的统计：实现学生男女生人数以及不及格人数的统计。3.系统的运行环境系统使用环境操作系统：windows xp/2000/me/98系统支持： visual basic 6.0及以上版本数据库： access系统开发环境操作系统：windows xp/2000/me/98系统支持： visual basic 6.0三 系统设计1.总体结构设计对上述各项功能进行集中、分块，按照结构化层序设计的要求，得到如下所示的系统功能功能模块图。小型成绩管理系统成绩查询成绩修改成绩录入成绩管理信息查询信息修改信息添加学生信息项目统计退出

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

8、，密码。 教师密码表：包括的字段有：用户名，密码。得到上面的数据项就可以设计出能够满足用户需求的各种实体以及他们之间的关系。由上面的设计规划出的实体有：用户实体、信息实体、成绩实体。按照以上实体进行设计：（1）打开可视化数据管理器程序（2）建立数据库（3）创建数据库表（4）添加字段（5）生成表 添加内容基本信息表字段名称数据类型字段大小学号文本10姓名文本10性别文本2年龄数字2联系电话数字50班级文本50家庭住址文本50等。四 系统实现现在已经完成了程序各个功能模块的创建，现在可以进行系统的实现了1 登录界面实现 第一个登陆界面选择用户类型，分为教师和学生。具体图形及相关代码如下所示：核心代

9、码：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 + Label1.Width = 0 ThenLabel1.L

10、eft = Label1.Left - 50ElseLabel1.Left = dl.ScaleWidth 使上述标签以一定的时间运动End IfEnd Sub学生登陆界面核心代码如下：Private Sub Command1_Click()UserName = If Trim(Text1.Text) = ThenMsgBox 用户名不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告 判断输入是否为空，若是，则弹出窗体警告！Text1.SetFocusElseData1.RecordSource = select * from 密码表 where 用户名= &

11、Text1.Text & and 密码= & 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.Sh

12、ow 若是匹配 ，则当前窗体隐藏，进入学生成绩查询界面。End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End Sub “取消”按钮，使两个文本框内容为空。Private Sub Timer1_Timer()If Label1.Left + Label1.Width = 0 ThenLabel1.Left = Label1.Left - 50ElseLabel1.Left = dl.ScaleWidth 使标签按一定的时间运动，达到电子滚动的效果。End IfEnd Sub教师登陆界面：核心代码如

13、下所示；该界面代码与上个界面基本一致。Private Sub Command1_Click()UserName = If Trim(Text1.Text) = ThenMsgBox 用户名不能为空，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusElseData1.RecordSource = select * from 教师密码表 where 用户名= & Text1.Text & and 密码= & Text2.Text & Data1.RefreshIf Data1.Recordset.BOF = True And Data1.Reco

14、rdset.EOF = True ThenMsgBox 用户名或密码输入错误，请重新输入！, vbOKOnly + vbExclamation, 警告Text1.SetFocusText2.SetFocusElseUserName = Text1.TextMe.Hidemain.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Text2.Text = Text3.Text = End SubPrivate Sub Timer1_Timer()If Label3.Left + Label3.Width = 0 ThenLabel3.Left

15、= Label3.Left - 50ElseLabel3.Left = jsdl.ScaleWidthEnd IfEnd SubPrivate Sub Form_Load()Label3.Width = jsdl.ScaleWidthLabel3.Left = jsdl.ScaleWidthEnd Sub学生成绩查询界面：使用一个data控件，一个MSFlexgrid控件，两个命令按钮。代码如下：Private Sub Command1_Click()EndEnd Sub 单击“退出系统”按钮，结束程序。Private Sub Command2_Click()Me.Hidexiugaimima

16、.Show 单击修改 “密码按钮”， 进入学生修改密码界面。End SubPrivate Sub Form_Load()Data1.RecordSource = select * from 成绩表 where 学号= & xsdl.Text1.Text & Data1.RefreshEnd Sub 当界面载入的时候，就连接数据库，并查找出满足学号等于学生登陆窗体中的用户名的记录。学生密码修改界面：代码如下：Private Sub Command1_Click()If Trim(Text1.Text) Trim(Text2.Text) ThenMsgBox 密码输入不正确!, vbOKOnly

17、+ vbExclamation, 信息提示Text1.SetFocusText1.Text = 判断两次输入地密码是否一致，若不一致 ，则弹出警告，重新输入！ElseData1.RecordSource = select * from 密码表 where 用户名= & xsdl.Text1.Text & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(密码) = Text1.TextData1.Recordset.UpdateMsgBox 密码修改成功！, vbOKOnly + vbExclamation, 修改密码End If

18、若是一致，则连接数据库，将所输入的新密码修改并加入数据库。End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End Sub 单击“取消”按钮，将文本框清空。Private Sub Command3_Click()Me.HideForm4.Show 单击“返回”按钮，当前窗体隐藏，学生成绩查询界面出现。End Sub主窗体界面：代码如下：Private Sub tcxt_Click()End 单击“退出系统”按钮， 结束程序。End SubPrivate Sub tjyh_Click()Me.Hidetianjiayongh

19、u.Show 单击“添加用户”按钮，当前窗体隐藏，“添加用户窗体”出现。 End SubPrivate Sub xgmm_Click()Me.Hidejiaoshimimaxiugai.Show 单击“修改密码”按钮，当前窗体隐藏，“教师修改密码”窗体出现。End SubPrivate Sub xmtj_Click()Me.Hidexiangmutongji.Show 单击“项目统计”按钮，进入“项目统计”界面End SubPrivate Sub xxcx_Click()Me.Hidexinxichaxun.Show 单击“信息查询”按钮，进入“学生信息查询”界面。End SubPrivate

20、 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 Subv 单击

21、“成绩录入”按钮，进入“成绩录入”界面。Private Sub cjxg_Click() Me.Hidechengjixiugai.Show 单击“成绩修改”按钮，进入成绩修改界面。End Sub添加用户界面：代码如下：Private Sub Command1_Click()If Trim(Text1.Text) = ThenMsgBox 请输入用户名！, vbOKOnly + vbExclamation, 信息提示Text1.SetFocus 判断用户名是否为空，若为空，则弹出警告，输入用户名！Exit SubElseData1.RecordSource = select * from 教师

22、密码表 where 用户名= & Text1.Text & Data1.RefreshIf Not Data1.Recordset.EOF ThenMsgBox 用户已存在，请重新输入用户名！, vbOKOnly + vbExclamation, 提示信息Text1.SetFocusText1.Text = : Text2.Text = : Text3.Text = Exit SubEnd IfEnd If 若不为空，连接数据库，判断该用户名是否已经存在，若已经存在，弹出警告，重新输入！ If Trim(Text2.Text) Trim(Text3.Text) ThenMsgBox 两次输入的

23、密码不一样，请确认！, vbOKOnly + vbExclamation, 警告Text2.SetFocusText2.Text = Text3.Text = 若两次输入地密码不一致，则弹出警告，确认并重新输入密码。Exit SubElseWith Data1.Recordset.AddNew.Recordset.Fields(0) = Trim(Text1.Text).Recordset.Fields(1) = Trim(Text2.Text).Recordset.UpdateEnd WithMsgBox 添加用户成功！, vbOKOnly + vbExclamation, 添加用户End

24、IfEnd Sub 若上述情况均没有，则连接数据库，将输入的用户信息添加到“教师密码表”中去。Private Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = 单击“取消”按钮，将文本框清空。End SubPrivate Sub Command3_Click()Me.Hidemain.Show 单击“返回”按钮，返回到主界面。End Sub修改密码界面：代码如下：Private Sub Command1_Click()If Trim(Text1.Text) Trim(Text2.Text) ThenMsgBox 密码输入不正确

25、!, vbOKOnly + vbExclamation, 信息提示Text1.SetFocusText1.Text = 判断两次输入的密码是否一致，若不一致，弹出警告，并重新输入。ElseData1.RecordSource = select * from 密码表 where 用户名= & xsdl.Text1.Text & Data1.RefreshData1.Recordset.EditData1.Recordset.Fields(密码) = Text1.TextData1.Recordset.Update 若一致，连接数据库，进行修改，将所输入密码保存到数据库中去。MsgBox 密码修改

26、成功！, 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 + vbEx

27、clamation, 警告Exit Sub 判断“学号”和“姓名”是否为空，若是，则弹出警告，重新输入!ElseData1.RecordSource = select * from 基本信息表 where 学号= & Trim(Text2.Text) & Data1.RefreshIf Data1.Recordset.BOF = False And Data1.Recordset.EOF = False ThenMsgBox 输入的学号已经存在，请重新输入！, vbOKOnly + vbExclamation, 警告Text2.Text = Text3.Text = Text2.SetFocu

28、s 若不为空，连接数据库，判断输入的学号是否已经存在，若存在，弹出警告，重新输入！ElseData1.Recordset.AddNewData1.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

29、.Recordset.Fields(6) = Text8.TextData1.Recordset.UpdateMsgBox 添加成功！ 若不为空，且输入的学号不存在，则连接数据库，将所输入的信息添加到“基本信息表”中。Data2.RecordSource = select * from 成绩表 where 学号= & Trim(Text2.Text) & Data2.RefreshData3.RecordSource = select * from 密码表 where 用户名= & Trim(Text2.Text) & Data3.RefreshData2.Recordset.AddNewData2.Recordset.Fields(0) = Text2.TextData2.Recordset.Fields(1) = Text3.TextData2.Recordset.UpdateData3.Recordset.AddNewData3.Recordset.Fields(0) = Text2.TextData3.Recordset.Fields(1) = Text2.TextData3.Recordset.UpdateEnd If 同时，也将输入的学号添加到“成绩表”与“密码表”中，