学生信息管理系统期末论文Word下载.doc
《学生信息管理系统期末论文Word下载.doc》由会员分享，可在线阅读，更多相关《学生信息管理系统期末论文Word下载.doc（33页珍藏版）》请在冰点文库上搜索。
Withtherapiddevelopmentofinformationtechnology,basedonthedatabasemanagementsystem,moreandmorepeopleofallages.Itshighqueryefficiency,datasecurity,datasharingandhigh.Studentinformationmanagementsystemasanexampleofthesystem,inthedailylifetopeoplemanagementdatahasbroughtgreatconvenience,thestudentinformationmanagementsystemasanexample,describesthedatabasesysteminapplicationinlife.
Keywords:
Studentinformationmanagementsystem;
Database;
Highefficiency;
Safety
目录
摘要 1
Abstract 2
一.绪论 4
二.开发环境 5
三.需求分析 5
3.1程序简介 5
3.2程序功能 5
四.系统设计 5
4.1数据库的设计 5
4.1.1用企业管理器创建数据库 5
4.1.2用企业管理器基本表 7
4.2程序的概要设计 8
4.3程序的详细设计 9
4.3.1登陆界面的实现 9
4.3.2主界面的实现 10
4.3.3系统管理的实现 13
4.3.4学生档案管理的实现 15
4.3.5班级管理的实现 18
4.3.6课程管理的实现 22
4.3.7成绩管理的实现 26
五.测试 30
六.结论 30
一.绪论
对于一个选择编写学生信息管理系统的人来说，必须要有足够的细心和耐心，因为编程一般来说是很枯燥的乏味的，而且程序会越来越复杂，它所用到的符号、标记很多，所以不能出点小错误的。
还有，我们不能只是看程序，要学会把自己学的自己拿去实践，自己去编一些程序，培养自己的动手能力，掌握一些编程技巧，熟练运用自己学到的理论知识，这样在以后才能开发出属于自己的东西。
如今，随着科学技术的发展，计算机已成为了我们生活中必不可少的设备了，而掌握计算机知识和运用，又成了我们每一个人的目标了。
现在IT行业的飞速发展，无不应正了以前、现在、将来计算机行业都是科学发展的主导行业。
而这些基本上都建立在程序上的，所以程序员对计算机行业来说，可想而知有多么的重要了，他们所付出的每一滴汗水都将推动这个行业的发展。
现在我就用Basic语言编写一个基于数据库的程序——学生信息管理系统。
将所学的基本知识用到其中去，这里包括了需求分析、数据库的搭建、基本VisualBasic的应用程序的编写等等。
这不仅能锻炼我的实践能力，同时也进一步复习和巩固了我所学的理论知识。
对以前没有学好的还有督促和促进作用。
而且，根据需要，还可以了解一些课外的知识。
增加自己的知识面。
二.开发环境
在开发此学生信息管理系统程序时，该程序所使用的软件开发环境如下：
操作系统：
Windows7
开发工具：
MicrosoftVisualStudio2008，SQLserver2000
三.需求分析
3.1程序简介
随着网络技术的发展，人们越来越多的依赖于简便的程序，为了方便人们的管理，各种管理系统自然成为了热点，各种管理系统到处都是。
此程序便是参考其他管理系统设计的，当然只是实现了比较基本的功能，可以进行学生信息处理的基本操作。
3.2程序功能
该程序功能：
该程序分为5个部分，分别是学生档案管理、班级管理、课程管理、成绩管理和系统管理。
四.系统设计
4.1数据库的设计
4.1.1用企业管理器创建数据库
打开企业管理器，进入数据库，右击点创建数据库，选择主数据文件和事物日志文件的存放位置，分别位置主数据文件和事物日志文件的大小，最后点击确定按钮即完成数据库的创建。
其截图如下图1-1、1-2和1-3所示：
图1-1新建数据库的名称
图1-2数据文件
图1-3事物日志文件
4.1.2用企业管理器基本表
打开企业管理器，进入已创建好的数据库xsxxglxt，在表上右键单击创建表，分别创建用户表、学生基本信息表、班级表、课程表和成绩表。
其表结构如下表1、2、3、4和5所示：
表1用户表的结构
表2学生基本信息表的结构
表3班级表的结构
表4课程表的结构
表5成绩表的结构
4.2程序的概要设计
此管理系统共有5个部分，分别是学生档案管理、班级管理、课程管理、成绩管理和系统管理。
程序流程图如下图2所示：
图2程序流程图
4.3程序的详细设计
4.3.1登陆界面的实现
打开VisualBasic.NET2008，创建一个项目名为“学生信息管理系统”的项目，项目创建完毕后，在在项目下添加一个windows窗体，窗体名为“登陆界面”，双击按钮控件，对按钮的Click事件进行编程，其关键码如下：
PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click
IfTextBox1.Text="
"
Then
MsgBox（"
用户名不能为空，请输入用户名！
20,"
提示"
）
ElseIfTextBox2.Text="
密码不能为空，请输入密码！
EndIf
IfTextBox1.Text<
>
"
AndTextBox2.Text<
apppath=Application.StartupPath
Ifcslj（）Then
DimstrsqlAsString="
selectcount（*）from用户表where用户名='
&
Trim（TextBox1.Text）&
'
and"
密码='
Trim（TextBox2.Text）&
and身份='
ComboBox1.Text&
objconn1.Open（）
DimobjcmdAsNewSqlCommand（strsql,objconn1）
Dimn1AsInteger=objcmd.ExecuteScalar
objconn1.Close（）
objcmd.Dispose（）
Ifn1>
0Then
yh=Trim（TextBox1.Text）
yonghu=Trim（TextBox1.Text）
sf=ComboBox1.Text
DimfrmAsNew主界面
frm.Show（）
Else
MsgBox（"
用户名或密码不对，无法登陆！
MsgBoxStyle.DefaultButton1,"
EndIf
Else
MsgBox（"
无法连接到数据库！
可能是网络的问题或数据库服务器有问题!
EndIf
EndSub
其运行截图如下图3所示：
图3登陆界面
4.3.2主界面的实现
在“学生信息管理系统”的项目下，添加一个windows窗体，窗体名为“主界面”，双击按钮控件，对按钮的Click事件进行编程，其关键码如下：
PrivateSub档案添加ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles档案添加ToolStripMenuItem.Click
DimxxtjAsNew学生信息添加
xxtj.ShowDialog（）
PrivateSub档案浏览ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles档案浏览ToolStripMenuItem.Click
DimxxllAsNew学生信息浏览
xxll.ShowDialog（）
PrivateSub退出系统ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles退出系统ToolStripMenuItem.Click
Me.Close（）
PrivateSub班级浏览ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles班级浏览ToolStripMenuItem.Click
DimbjllAsNew班级信息浏览
bjll.ShowDialog（）
PrivateSub班级添加ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles班级添加ToolStripMenuItem.Click
DimbjtjAsNew班级信息添加
bjtj.ShowDialog（）
PrivateSub课程浏览ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles课程浏览ToolStripMenuItem.Click
DimccllAsNew课程信息浏览
ccll.ShowDialog（）
PrivateSub课程添加ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles课程添加ToolStripMenuItem.Click
DimcctjAsNew课程信息添加
cctj.ShowDialog（）
PrivateSub成绩添加ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles成绩添加ToolStripMenuItem.Click
Dimcctj1AsNew成绩信息添加
cctj1.ShowDialog（）
PrivateSub成绩浏览ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles成绩浏览ToolStripMenuItem.Click
DimccllAsNew成绩信息浏览
PrivateSub添加用户ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles添加用户ToolStripMenuItem.Click
DimtjyhAsNew添加用户
tjyh.ShowDialog（）
PrivateSub修改密码ToolStripMenuItem_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handles修改密码ToolStripMenuItem.Click
DimxgmmAsNew修改密码
xgmm.ShowDialog（）
其运行截图如下图4所示：
图4主界面
4.3.3系统管理的实现
在“学生信息管理系统”的项目下，添加多个windows窗体，双击按钮控件，对按钮的Click事件进行编程，其关键码如下：
请再次输入密码！
AndTextBox3.Text<
AndTextBox2.Text=TextBox3.TextThen
DimstrinAsString
objconn1.Open（）
DimyhmAsNewSqlParameter（"
@yhm"
SqlDbType.VarChar,20）
DimmmAsNewSqlParameter（"
@mm"
DimsfAsNewSqlParameter（"
@sf"
strin="
insertinto用户表（用户名,密码,身份）values（@yhm,@mm,@sf）"
DimshouquanAsString="
sp_adduser@yhm"
Dimobjcmd2AsNewSqlCommand（shouquan,objconn1）
Dimobjcmd1AsNewSqlCommand（strin,objconn1）
objcmd1.Parameters.Add（yhm）
objcmd1.Parameters.Add（mm）
objcmd1.Parameters.Add（sf）
yhm.Value=TextBox1.Text
mm.Value=TextBox2.Text
IfRadioButton1.CheckedThen
sf.Value=RadioButton1.Text
ElseIfRadioButton2.CheckedThen
sf.Value=RadioButton2.Text
ElseIfRadioButton3.CheckedThen
sf.Value=RadioButton3.Text
objcmd1.ExecuteNonQuery（）
objconn1.Close（）
objcmd1.Dispose（）
Dimstrsq111AsString
strsq111="
select*from用户表where用户名='
TextBox1.Text&
xs3（strsq111）
添加成功！
64,"
IfCheckBox1.CheckedThen
Dimstr111AsString="
grantupdateontable学生基本信息表to@yhm"
Dimobjcmd3AsNewSqlCommand（str111,objconn1）
其运行截图如下图5-1和5-2所示：
图5-1添加用户
图5-2修改密码
4.3.4学生档案管理的实现
PrivateSubPictureBox3_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesPictureBox3.Click
linenum=ysj.CurrentRow.Index
IfDataGridView2.Rows（linenum）.Selected=FalseThen
没有选择记录不能删除！
Else
DimynAsInteger
yn=MsgBox（"
确定要删除该条记录吗?
vbCrLf&
该操作会导致该学生数据的丢失！
确定？
16+4,"
Ifyn=6Then
Dimstrsq3AsString="
deletefrom学生基本信息表where学号='
Trim（xuehao）&
DimobjcmdAsNewSqlCommand（strsq3,objconn1）
objcmd.ExecuteNonQuery（）
Dimstrsq2AsString="
select*from学生基本信息表where学号='
xs3（strsq2）
删除成功！
PictureBox3.Enabled=False
Subxs3（ByValsj1AsString）
Dimstrsql1AsString=sj1
sqlconnection1=NewSystem.Data.SqlClient.SqlConnection（conn）
sqlconnection1.Open（）
DimobjAdapAsNewSqlClient.SqlDataAdapter（strsql1,conn）
sqlc
升级会员 