vb实习学生管理系统Word格式文档下载.docx

资源描述

vb实习学生管理系统Word格式文档下载.docx

《vb实习学生管理系统Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb实习学生管理系统Word格式文档下载.docx（33页珍藏版）》请在冰豆网上搜索。

vb实习学生管理系统Word格式文档下载.docx

二．系统功能简介1

2.1系统概述1

2.2系统的组成及各模块的功能1

2.3系统的运行环境2

三．系统设计2

3.1总体结构设计2

3.2数据库设计3

四．系统实现3

4.2学生登录模块的设计与实现3

4.3管理员登录模块的设计与实现6

4.4注册新用户模块的设计与实现7

4.5修改密码模块的设计与实现9

4.6添加管理员模块的设计与实现10

4.7学生学籍信息查询模块的设计与实现11

4.8学生成绩查询模块的设计与实现12

4.9学生信息浏览模块的设计与实现14

4.10学生成绩录入模块的设计与实现15

4.11学生信息维护模块的设计与实现17

4.12统计模块的设计与实现22

五．总结24

5.1遇到及存在的问题24

5.2心得体会24

参考文献25

一．选题的意义

我之所以选择学生信息管理系统主要是因为它与我的学习生活息息相关，同时这个程序设计包含了大量与数据库有关的知识点，通过整个过程的设计，可以让我们很好地掌握这些不太熟悉的知识。

另外，它涉及面广，工作量大，这样在过程中就可以对vb有更进一步的了解，能更加系统全面地把自己所学运用到实际中。

二．系统功能简介

2.1系统概述

面对各种庞大的信息量，需要有先进的管理系统作保障。

学生信息管理系统就大大提高了管理人员对学生信息管理的工作效率，做到了信息管理规范、查询方便快捷，使人一目了然。

2.2系统的组成及各模块的功能

一．学生方面

（1）学生学籍信息浏览

可以让学生很方便的浏览自己的学籍信息，如有错误，能够及时的修改，以免造成不便。

（2）学生成绩查询

学生登录自己的账号后能迅速查询自己各学期的考试成绩，分析自己的各科情况及进步情况。

二．管理员方面

（1）学生基本信息浏览

可以清晰地浏览全体学生的基本信息，使其对学生有全面的了解。

（2）学生成绩录入

能够使管理员及时的录入学生各次期末考试的成绩，同时又能准确的算出平均成绩，方便快捷。

（3）学生信息维护

可以实现对学生信息的查询、添加、修改和删除等功能，使学生信息更完善。

（4）学生统计

统计学生的男女生人数以及平均成绩不及格的人数，同时又能显示不及格人的名单，使其对全体学生有个整体的了解。

2.3系统的运行环境

操作系统：

Windowxp/2000/me/98

系统支持：

VisualBasic6.0以上版本

三．系统设计

3.1总体结构设计

通过对窗体的设计以及对SSTab控件等的应用，得到如下图所示的系统功能模块图。

小型学生信息管理系统

管理员登录

学生登录

进入系统

修改密码

注册新用户

取消登录

添加管理员

学籍查询

成绩查询

统计

学生信息维护

学生信息浏览

学生成绩录入

3.2数据库设计

数据库的应用对该学生信息管理系统起着至关重要的作用，合理的数据库设计使其对学生基本信息、学生成绩以及用户信息等的储存更加完善，同时合理的数据库结构提高了系统运行的效率，满足了用户的需求。

✧基本信息表：

包括字段：

姓名、学号、性别、年龄、班级。

✧成绩表：

姓名、学号、高数、英语、计算机、平均成绩。

✧用户表：

用户名、密码。

✧管理员表：

用户名、密码。

四．系统实现

4.2学生登录模块的设计与实现

学生登录窗体

代码如下：

PrivateSubCommand1_Click（）

IfOption1.Value=FalseAndOption2.Value=FalseThen

MsgBox"

请选择登录模式！

vbOKOnly,"

注意"

EndIf

Iftxtusername="

Then

用户名不能为空，请重新输入！

vbOKOnly+vbExclamation,"

警告"

txtusername.SetFocus

ExitSub

Iftxtpassword="

请输入密码！

txtpassword.SetFocus

IfOption1.Value=TrueThen

Adodc1.RecordSource="

select*from用户where用户名='

txtusername&

Adodc1.Refresh

IfAdodc1.Recordset.EOF=TrueThen

用户名不存在！

txtusername.Text="

txtpassword.Text="

IfAdodc1.Recordset.Fields（"

密码"

）<

txtpasswordThen

密码错误！

Endif

）=txtpasswordThen

mingzi=txtusername.Text

stuid=txtusername.Text

stuchoose.Show

Unloadstulogin

ElseIfOption2.Value=TrueThen

select*fromadmwhereadmname='

Adodc1.Refresh

password"

addadm.Show

EndIf

EndSub

PrivateSubCommand2_Click（）

PrivateSubCommand3_Click（）

PrivateSubCommand4_Click（）

Form6.Show

PrivateSubForm_Load（）

stulogin.Show

PrivateSubOption1_Click（）

IfOption2.Value=TrueThen

Command3.Enabled=False

Else

Command3.Enabled=True

PrivateSubOption2_Click（）

4.3管理员登录模块的设计与实现

管理员登录窗体

Iftxtadmusername="

txtadmusername.SetFocus

Iftxtadmpassword="

txtadmpassword.SetFocus

txtadmusername&

txtadmusername.Text="

txtadmpassword.Text="

txtadmpasswordThen

）=txtadmpasswordThen

Unloadadmlogin

4.4注册新用户模块的设计与实现

注册新用户窗体

请输入用户名！

Iftxtpwd="

txtpwd.SetFocus

ElseIftxtrepwd="

请确认密码！

txtrepwd.SetFocus

ElseIftxtpwd.Text<

txtrepwd.TextThen

两次密码不相同，请确认！

txtpwd.Text="

txtrepwd.Text="

select*from用户where用户名='

txtusername.Text&

IfNotAdodc1.Recordset.EOFThen

输入的学号已存在，请重新输入！

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields（0）=txtusername.Text

Adodc1.Recordset.Fields

（1）=txtpwd.Text

Adodc1.Recordset.Update

注册成功！

信息提示"

Adodc1.Recordset.Close

Unloadregister

4.5修改密码模块的设计与实现

修改密码窗体

Iftxtnewpwd.Text="

请输入新密码！

txtnewpwd.SetFocus

Iftxtrenewpwd.Text="

请确认新密码！

txtrenewpwd.SetFocus

Iftxtnewpwd.Text<

txtrenewpwd.TextThen

您输入的密码不匹配，请重新输入！

txtnewpwd.Text="

txtrenewpwd.Text="

select*from用户where用户名='

mingzi&

Adodc1.Recordset.Fields

（1）=txtnewpwd.Text

密码修改成功！

修改密码"

Unloadeditpwd

stulogin.Show

UnloadForm6

4.6添加管理员模块的设计与实现

添加管理员窗体

select*fromadmwhereadmname='

输入的定员帐户已存在，请重新输入！

Unloadaddadmin

admlogin.Show

4.7学生学籍信息查询模块的设计与实现

学籍信息查询界面

Data1.RecordSource="

select*from学生whereid='

stuid&

Data1.Refresh

Picture1.Picture=LoadPicture（Text2.Text）

4.8学生成绩查询模块的设计与实现

学生成绩查询界面

message=MsgBox（"

确定退出"

vbYesNo,"

提示"

）

Ifmessage=vbYesThen

End

n=Combo1.Text

j=Combo2.Text

ri=n&

Text1.Text=ri

Data2.RecordSource="

select*from成绩表where日期='

Text1.Text&

and学号='

Data2.Refresh

DimsAsString,j%

select*from成绩表where学号='

Forj=2000To2500

s=Str（j）

Combo1.AddItem（s）

Nextj

Combo1.ListIndex=0

Combo2.AddItem（"

春"

秋"

Combo2.ListIndex=0

4.9学生信息浏览模块的设计与实现

学生信息浏览界面

4.10学生成绩录入模块的设计与实现

学生成绩录入界面

PrivateSubCombo3_Change（）

Data4.RecordSource="

select*from成绩表"

Iftxtid.Text="

Ortxtmath.Text="

Ortxtcpt.Text="

Ortxtenglish.Text="

请完善信息！

提示”

txtid.SetFocus

ElseIftxtmath.Text="

txtmath.SetFocus

ElseIftxtenglish.Text="

txtenglish.SetFocus

txtcpt.SetFocus

select*from成绩表where学号='

txtid.Text&

nian=Combo3.Text

ji=Combo4.Text

riqi=nian&

txtriqi.Text=riqi

Adodc1.Recordset.Fields（0）=labelname.Caption

Adodc1.

展开阅读全文