VB学生管理系统课程设计毕业设计.docx
- 文档编号:5721731
- 上传时间:2022-12-31
- 格式:DOCX
- 页数:27
- 大小:371.93KB
VB学生管理系统课程设计毕业设计.docx
《VB学生管理系统课程设计毕业设计.docx》由会员分享,可在线阅读,更多相关《VB学生管理系统课程设计毕业设计.docx(27页珍藏版)》请在冰豆网上搜索。
VB学生管理系统课程设计毕业设计
摘要
信息管理系统MIS(managementinformationsystem)是一个利用计算的硬件资源及数据库的人机系统,它能提供信息支持企业或组织的运行,管理和决策功能,在强调管理和信息的现代社会中变得越来越普及了。
随着信息技术,特别是计算机技术和网络技术的不断发展,人们建立了企业数据库,铺设了网络,人们应用系统观点,实施全局规划,设计出了许多比较完善的管理信息系统。
社会的发展和社会的进步是人们对系统的要求不断地提高。
管理系统的应用非常广泛,不仅大中型企业建立了自己的MIS,一些小型企业也不例外,普遍建立了公用数据网络尤其是近年来Internet的飞速发展,为企业MIS提供了良好的支撑环境。
管理信息系统影响一个公司的许多层面,所以用它原因很复杂,虽然能直接节省成本及拥有处理许多难以用财务报表来量化的数据的好处。
大体上来说,采用系统管理有4个主要理由:
节省成本,经营上考量,资源利用,发展战略。
关键字:
数据库VisualBasic6.0管理信息系统网络
第1章 需求分析1
1.1编写语言概述2
1.2测试环境概述2
1.3制作工具概述2
第2章 基本设计思路3
2.1开发背景3
2.2系统简介4
2.3系统功能介绍4
第3章 系统设计概述5
第4章详细设计与实现6
结论………………………………………………………………………………24
考察文献…………………………………………………………………………25
致谢………………………………………………………………………………26
第一章需求分析
学生学籍管理系统是一个学校不可缺少的部分,它的内容对于学校管理者来说是至关重的,所以学生学籍管理系统应该能够为学校管理者提供充足的信息和快捷的查询手段但一直以来人们使用人工的方式管理学生档案,这种管理方式存在着许多缺点,如效率低、保密性差等,另外时间长了将产生大量的文件和资料,这对于查找、更新和维护都带来了不少的困难,随着学校的规模不断的扩大,学生数量急剧增加,有关学生的各种信息量也成倍增加。
面对庞大的信息量,需要有学生信息管理系统来提高学生管理工作的效率。
通过这样的系统可以做到信息的规范管理,科学统计和快速查询,从而减少管理方面的工作量。
因此开发学生管理系统是必要的。
1.1测试环境概述
支持Win98、WinNT、WinXP、Win2000、Win2003、Vista、Win7系统。
1.2制作工具概述
本系统的数据库管理系统采用SQLServerManagementStudio2005,客户端采用WindowsXP,本系统开发工具主要采用VB6.0设计系统。
设计平台:
VisualBasic
VisualBasic6.0是功能最为强大可视化开发工具,它不仅支持传统的软件开发方法,更重要的是它能支持面向对象、可视化的开发风格。
因此VisualBasic6.0又称作是一个集成开发工具,它提供了软件代码自动生成和可视化的资源编辑功能。
VisualBasic是一个对象导向设计的应用程序语言,是开发数据库前端的经典工具,它的编程语言简洁明快、组件功能强大和编程环境灵活方便。
采用VisualBasic来开发数据库应用程序具有灵活性和可扩展性。
数据库:
MicrosoftSQL2005
SQL2005是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索。
SQL2005的优点在于它能使用数据表示图或自定义窗体收集信息。
数据表示图提供了一种类似于Excel的电子表格,可以使数据库一目了然。
SQL2005是一种关系数据库工具,关系数据库是已开发的最通用的数据库之一。
SQL2005多用于中小型企业来设计中小型数据库,一般的学校教务系统的数据库用SQL2005来设计完全能达到要求。
SQLServerManagementStudio2005是微软公司推出的基于Windows的桌面关系数据库管理系统(RDBMS,即RelationalDatabaseManagementSystem),是Office系列应用软件之一。
它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象;提供了多种向导、生成器、模板,把数据存储、数据查询、界面设计、报表生成等操作规范化;为建立功能完善的数据库管理系统提供了方便,也使得普通用户不必编写代码,就可以完成大部分数据管理的任务。
数据库访问方式:
ADO
ADO(ActiveDataObjects)是一种提供访问各种数据类型的连接机制。
ADO设计为一种极简单的格式,通过ODBC的方法同数据库接口。
可以使用任何一种ODBC数据源,即不止适合于SQLServer、Oracle、Access等数据库应用程序,也适合于Excel表格、文本文件、图形文件和无格式的数据文件。
ADO具有以下的优点:
对于本地和远程的数据库访问都与具体的数据库无关,由于ADO是Microsoft开发的,所以它对Microsoft的Access和SQLServer的数据访问有着非常好的支持,因此如果是基于Access和SQLServer的数据库应用程序的开发,那么采用ADO是很好的选择。
因为本系统是基于SQL2005数据库的设计,因此我们采用了ADO。
1.3软件功能简介
本系统的开发目标是有效管理学生信息,实现学生信息的数据录入、浏览、修改等,实现学生信息的规范化、系统化、自动化管理。
根据对客户端用户和客户进行调研,得出下面的说明文本。
(1)由于学生学籍等信息具有一定的保密性,为了便于管理,应该为用户设置密码保护,提高系统的数据安全性。
(2)软件能够对学生的学籍信息进行记录,并能够非常方便地浏览、添加、编辑和查询学生的学籍信息。
能够通过软件及时了解学生的基本情况,同时能够提供学生学籍信息的报表打印功能。
(3)系统应该具有数据库维护功能,系统运行在Windows平台上,应该具有较好的图形用户界面,还应有较好的可扩展性。
第2章基本设计思路
2.1开发背景
随着Internet的飞速发展,以及数据库技术的逐渐成熟,在各个高校,基于校园网的学生管理信息系统已经相当普及,而与此同时,全国高职院校也在教育快速发展的浪潮中实现了规模的迅速扩大,校园网络也相当的普及,而现在广大高职院校往往借用高等院校的学生管理信息系统,由于办学模式和管理制度的差异,高等院校的学生管理系统并不适合高职院校的实际需求。
在这样的背景下,全国高职院校对于一套针对高职院校的学生管理信息系统需求非常迫切,学生信息管理系统也就是人们常说的管理信息系统。
近年来作为计算机技术与通信技术相结合产生的计算机网络得到了飞速的发展,并成为当前现代家庭与社会的基础设施,尤其是随着Internet技术越来越广泛的应用,网络覆盖的区域不断扩大,正在向全球每一个角落延伸,并将逐步进入到千家万户。
可以说,计算机网络的飞速发展,使人类正在面临一场信息时代的变革,人类社会开始进入真正的信息的时代。
随着计算机性能进一步提高以及网络的普及,给予网络的学生信息管理系统以其技术优势和完善的功能,必将具有广泛的应用前景。
2.2系统简介
本系统的功能和要求是解决某高校计算机系学生学籍的管理问题,为进一步完善学校对学生档案学籍管理。
本系统有关的数据表有一个,分别是:
(表2-1Student表(学生))
字段名
数据类型
说明
是否允许为空
是否为关键字
number
文本
学号
sname
文本
姓名
sex
文本
性别
dname
文本
所在系部
grade
文本
班号
chudate
文本
出生日期
phone
文本
手机号
文本
表2-1学生表
2.3系统功能介绍
本系统提供输入用户名和密码为入口查询学籍信息的功能。
以用户名和密码为入口添加,修改,查询学生学籍的信息,并有打印和帮助功能。
第3章学生学籍系统设计概述
系统设计是在需要分析完成后,按照需求分析的要求进行的。
学生信息管理系统根据需求分析结果,可以包括下面几个功能。
有关学籍等信息的输入,包括学生的基本信息所在班级联系方式等。
学生信息的查询,包括学生的基本信息所在班级联系方式等。
学生信息的修改。
学生信息的打印
根据上面的各项功能进行集中分块,按照结构化程序设计的要求,可以得到如图3-1
图3-1系统功能模块图
第4章系统设计与实现
与数据库的连接
通用模块定义:
'主模块
PublicFunctionexecutesql(ByValsqlAsString,msgstringAsString)AsADODB.Recordset
DimcnnAsADODB.Connection
DimrstAsADODB.Recordset
Dimstokens()AsString
OnErrorGoToexecutesql_error
stokens=Split(sql)
Setcnn=NewADODB.Connection'创建连接
cnn.Openconnectstring'打开连接
'判断字符串中是否含有指定内容
IfInStr("insert,delete,update",UCase$(stokens(0)))Then
cnn.Executesql
msgstring=stokens(0)&"querysuccessful"
Else
'创建数据集对象
Setrst=NewADODB.Recordset
rst.OpenTrim$(sql),cnn,adOpenKeyset,adLockOptimistic
Setexecutesql=rst
msgstring="查询到"&rst.RecordCount&"条记录"
EndIf
executesql_exit:
'中断连接
Setrst=Nothing
Setcnn=Nothing
ExitFunction
'错误类型判断
executesql_error:
msgstring="查询错误:
"&Err.Description
Resumeexecutesql_exit
EndFunction
PublicFunctionconnectstring()AsString
DimstrAsString
str=App.Path
IfRight(str,1)<>"\"Then
str=str+"\"
EndIf
connectstring="provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=student;DataSource=20100508-1342"
EndFunction
PublicFunctiontesttxt(txtAsString)AsBoolean
IfTrim(txt)=""Then
testtxt=False
Else
testtxt=True
EndIf
EndFunction
4.1进入窗体
点击点击进入按钮就可以进入用户界面
进入窗体的代码:
PrivateSubCommand1_Click()
form2.Show
EndSub
PrivateSubtian_Click()
Form5.Show
EndSub
PrivateSubTimer1_Timer()
Label3.Caption=Format(Date,"yyyy年mm月dd日")
Label4.Caption=Format(Time,"hh时mm分ss秒")
EndSub
进入界面(图4-1为第4章的第一个图):
4-1学生管理系统
4.2用户管理界面设计:
用户管理界面包括用户名和密码。
在用户管理界面有两个label条,两个文本框和两个命令按钮,输入用户名和密码都正确后才可以进入学生学籍添加界面,如果用户名或密码错误则由信息提示,输入错误请重新输入。
用户登录代码:
PrivateSubadd_Click()
Form5.Show
EndSub
PrivateSubchaxun_Click()
Form8.Show
EndSub
PrivateSubdabao_Click()
Form3.Show
EndSub
PrivateSubdaxin_Click()
Form7.Show
EndSub
PrivateSubdelect_Click()
Form9.Show
EndSub
用户管理的窗体(图4-2为第4章的第二个图所示):
图4-2用户管理系统
4.3学籍信息管理模块界面设计
学籍信息管理模块是实现学籍信息的添加,修改,查询,删除操作的,实现对每位学员学号、姓名、性别、出生日期、所在系部、班号、联系方式、e-mail等信息的管理。
按照不同的功能划分,学籍信息管理模块分为四部分,也就是四个不同的窗体,即添加学籍信息窗体,修改学籍信息窗体,查询学籍信息窗体和删除学籍信息窗体。
选择“学籍管理|添加学籍信息”菜单,就能打开添加学籍信息窗体,如(图4-3为第4章的第三个图)所示:
图4-3添加学籍信息
5、添加学籍信息窗体主要包括多个文本框和文本框,两个按钮用来确定是否添加学籍信息,标签提示文本框需要输入的内容。
这些主要控件属性(表4-1为第4章的第一个表)如下所示:
表4-1控件的属性
控件
属性
属性值
Form5
Name
Form5
caption
添加学籍信息
Command1
Name
Command1
caption
确定添加
Command2
Name
Command2
caption
取消添加
Text1
name
Text1
Text2
name
Text2
Text3
name
Text3
Text4
name
Text4
Text5
name
Text5
Text6
name
Text6
Text7
name
Text7
Text8
name
Text8
Text9
name
Text9
添加学籍信息窗体的代码:
PrivateSubCommand1_Click()
DimmrcAsNewADODB.Recordset
DimtxtsqlAsString
DimmsgtextAsString
IfNottesttxt(Text1.Text)Then
MsgBox"请输入学号!
",vbOKOnly+vbExclamation,"警告"
Text1.SetFocus
ExitSub
EndIf
'是否输入学号
IfNottesttxt(Text2.Text)Then
MsgBox"请输入姓名!
",vbOKOnly+vbExclamation,"警告"
Text2.SetFocus
ExitSub
EndIf
'是否输入姓名
IfNottesttxt(Text9.Text)Then
MsgBox"请选择性别!
",vbOKOnly+vbExclamation,"警告"
Text9.SetFocus
ExitSub
EndIf
'是否输入性别
IfNottesttxt(Text3.Text)Then
MsgBox"请输入出生日期!
",vbOKOnly+vbExclamation,"警告"
Text3.SetFocus
ExitSub
EndIf
'是否输入出生日期
IfNottesttxt(Text4.Text)Then
MsgBox"请输入班号!
",vbOKOnly+vbExclamation,"警告"
Text4.SetFocus
ExitSub
EndIf
'是否输入班号
IfNottesttxt(Text10.Text)Then
MsgBox"请输入联系方式!
",vbOKOnly+vbExclamation,"警告"
Text10.SetFocus
ExitSub
EndIf
'是否输入联系方式
IfNottesttxt(Text6.Text)Then
MsgBox"请输入E-mail!
",vbOKOnly+vbExclamation,"警告"
Text6.SetFocus
ExitSub
EndIf
'是否输入e-mail
IfNottesttxt(Text7.Text)Then
MsgBox"请输入所在系部!
",vbOKOnly+vbExclamation,"警告"
Text7.SetFocus
ExitSub
EndIf
'是否输入所在系部
IfNotIsNumeric(Trim(Text1.Text))Then
MsgBox"请输入数字",vbOKOnly+vbExclamation,"警告"
ExitSub
Text1.SetFocus
EndIf
'txtsql="select*fromstudentwherenumber='"&Trim(Text1.Text)&"'"
'Setmrc=Executesql(txtsql,msgtext)
'Ifmrc.EOF=FalseThen
'MsgBox"学号重复,请重新输入",vbOKOnly+vbExclamation,"警告"
'mrc.Close
'Text1(0).SetFocus
'Else
'mrc.Close
'IfNotIsDate(Text3.Text)Then
'MsgBox"出生时间应输入日期格式(yyyy-mm-dd)",vbOKOnly+vbExclamation,"警告"
'Text3.SetFocus
'Else
'Text3(5)=Format(Text3(5),"yyyy-mm-dd")
txtsql="select*fromstudent"
Setmrc=Executesql(txtsql,msgtext)
mrc.AddNew
mrc.Fields(0)=Trim(Text1.Text)
mrc.Fields
(1)=Trim(Text2.Text)
mrc.Fields
(2)=Trim(Text9.Text)
mrc.Fields(3)=Trim(Text3.Text)
mrc.Fields(4)=Trim(Text4.Text)
mrc.Fields(5)=Trim(Text10.Text)
mrc.Fields(6)=Trim(Text6.Text)
mrc.Fields(7)=Trim(Text7.Text)
'mrc.Fields(8)=Trim(Text8.Text)
mrc.Update
MsgBox"添加学籍信息成功!
",vbOKOnly+vbExclamation,"警告"
mrc.Close
'添加学籍信息
Me.Hide
'EndIf
'EndIf
'EndIf
EndSub
PrivateSubForm_Load()
DimmrcAsADODB.Recordset
DimtxtsqlAsString
DimmsgtextAsString
DimiAsInteger
'Combo1.AddItem"男"
'Combo1.AddItem"女"
'txtsql="select*fromstudent"
'Setmrc=executesql(txtsql,msgtext)
'Fori=1Tomrc.RecordCount
'comboclassno.AddItemmrc.Fields(0)
'Nexti
'mrc.Close
EndSub
修改学籍信息窗体是从“学籍管理|修改学籍信息”菜单中打开的,主要控件和添加学籍信息窗体中的一样,只是添加了两排按钮,(图4-4为第4章的第四个图)如下所示:
。
这些控件中的下面两行按钮的主要作用是:
第一排是查看学籍信息,第二排是修改学籍信息。
窗体中其他主要控件的属性值设置和前面添加学籍信息窗体相仿。
图4-4修改学籍信息
修改学籍信息的代码:
DimmrcAsADODB.Recordset
PublicSubviewdata()
Text1.Text=mrc.Fields(0)
Text2.Text=mrc.Fields
(1)
Text3.Text=mrc.Fields(3)
Text4.Text=mrc.Fields(4)
Text5.Text=mrc.Fields(5)
Text6.Text=mrc.Fields(6)
'Text7.Text=mrc.Fields(7)
Text9.Text=mrc.Fields
(2)
EndSub
'窗体加载时,程序应该对学籍信息表student_info表进行查询,并把查询到的信息保存在recordset对象mrc中,
'窗体首先调用viewdata显示一个学生的学籍信息
PrivateSubCommand1_Click()
mrc.MoveFirst
Callviewdata
EndSub
PrivateSubCommand2_Click()
mrc.MovePrevious
Ifmrc.BOFThen
mrc.MoveLast
EndIf
Callviewdata
EndSub
PrivateSubCommand3_Click()
mrc.MoveNext
Ifmrc.EOFThen
mrc.MoveFirst
EndIf
Callviewdata
EndSub
PrivateSubCommand4_Click()
mrc.MoveLast
Callviewdata
EndSub
PrivateSubCommand5_Click()
mcclean=False
Frame1.Enabled=False
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
Command4.Enabled=False
Text1.Enabled=True
Text2.Enabled=True
Text3.Enabled=True
Text4.En
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 学生 管理 系统 课程设计 毕业设计