周欣囡毕业设计.docx
《周欣囡毕业设计.docx》由会员分享，可在线阅读，更多相关《周欣囡毕业设计.docx（46页珍藏版）》请在冰豆网上搜索。
周欣囡毕业设计
大连广播电视大学
毕业设计论文
题目家庭财务管理系统设计与实现
指导老师王楠
年级10春专业计算机信息管理（专科）
姓名周欣囡学号1021201402471
日期2011年11月07日
摘要
学生信息，它的工作量可能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成绩管理；缴费管理；统计等等，每个信息的数据都在不断地变化着，如果采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。
针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。
因此学生信息管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分,使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:
检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。
这些优点能够极大地提高学生信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。
这次我的毕业设计的课题为：
学生信息管理系统，其主要包含学生基本信息和考试成绩。
系统能进行学生信息的录入考试成绩登记查询，修改等功能。
无论学校大小，每个学校手里总是会有很多很多的学生档案，而且随着一年一年的累积，学校规模的逐渐扩大，学生档案信息是越来越多。
学校虽然不算是一个纯粹的企业，但是学校的管理一样需要信息化，而且现在的学校逐渐的往大规模的方向发展，信息化对于学校就显的更加的重要了。
以前的手工管理,已经越来越不适应学校的发展要求了。
针对这种情况，我设计了一个简的学生管理信息系统。
关键词：
家庭财务管理系统C#MicrosoftVisualStudio2005
第1章系统概述
1.1系统的开发思路
学生信息管理是每一所高校都必须面对的工作，特别是近几年来，国家政策的调整，我国高等院校大规模的扩招，给高等院校的教学管理、学生管理、后勤管理等方面都带来不少的冲击。
特别是对于学校的决策者和管理者来说学生信息管理工作是至关重要的，但一直以来人们使用传统的人工方式管理文件档案，这种管理方式存在许多缺点，如:
效率低、保密性差，学生数量的增加，这必然增加了学生档案管理者的工作量和劳动强度，同时将产生大量的文件和数据，这给学生信息的查找、更新和维护都带来了不少困难。
现在的社会日新月异，发展的非常快。
学校的发展也是非常的快了，而且每年都有不同的要求。
学生的量也非常的大，资料可能经常性的发生更换，原来手工的管理模式就显的不怎么的合适了。
而且手工的数据是存放在多处的，没有使用统一管理的模式，数据整理非常的麻烦，统计也困难,很多的情况下，老师都是在重复一些相同的工作。
做一些相似的报表，这样不但降低了工作效率，而且非常的容易出错。
在这种条件下，使用微机管理就显的非常的合适了。
只要你正确的录入，统计，一点问题都没有的。
学生做为学校的最主要的管理对象，学生档案管理系统就成了学校信息化管理系统中中不可缺少的部分，它的内容对于学校的管理者说都至关重要。
但一直以来人们使用传统人工的方式进行学生的档案管理，这种管理方式存在着许多缺点,如:
效率低,容易出错，格式不规范。
另外时间一长，不容易进行统计和分析。
随着科学技术的不断提高,计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。
作为计算机应用的一部分，使用计算机对学生档案进行管理，具有手工管理所无法比拟的优点。
例如:
检索迅速、查找方便、可靠性高、存储量大、寿命长、成本低等。
这些优点能够极大地提高学校学生档案管理效率。
因此，开发这样一套管理软件成为很有必要的事情。
而且只要软件的设计合理，可以为学校提供合理的管理模式。
1.2编程环境的选择
系统运行环境在操作系统方面，显然微软的WINDOWS很为流行和傻瓜化。
而且现在计算机的运算速度已经不能和以前相提并论了，而且硬件的价格也一天天的在下降了，所以我们决定该档案管理系统将运用的工具可以来协助管理人员轻松地进行与数据库的连接和管理。
综上所述，我们选择了VisualBasic6.0+ACCESS来开发整个系统。
第2章 系统总体设计
2.1系统功能
系统包括如下功能：
1．可以进行文本操作；
2．添加一个数据库项目；
3．删除一个数据库项目；
4．修改一个数据库项目；
5．查询信息；
6．查看课程信息表，成绩信息表，学生信息表。
2.2系统模块结构
图2-1系统模块结构
第3章系统详细设计
3.1系统功能描述
3.1.1添加功能
在用户管理模块中，可添加新用户，输入一个用户名，密码，确认密码即添加了一个新用户。
也可将原密码进行修改，点击修改密码，输入用户名，原密码，新密码即将原来的密码进行了修改，点击删除用户，可将不要的用户进行删除。
3.1.2数据显示录入和修改功能
在数据显示及录入和修改模块中，分为学生信息，成绩信息和课程信息三个模块。
可添加，更新，删除学生ID，课程ID，成绩，班级，姓名，学号，课程名称，授课教师。
3.1.3查询功能
可按学生ID，课程ID查询学生姓名、班级、学号、成绩、课程名称、授课教师。
3.2数据库设计
3.2.1设计基本思路
数据库是一种存储数据并对数据进行操作的工具。
数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。
创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。
创建一个数据库结构的过程被认为是数据模型设计。
数据库的修改分为添加、编辑和删除记录。
这三种操作均可由VisualBasic创建的程序来完成。
3.2.2数据库表结构
数据库共创建了四张表分别为：
成绩信息表、课程信息表、密码表和学生信息表。
在本程序的数据维护模块中，课程信息表，成绩信息表，学生信息表是由Adodc控件来实现的。
表3-1成绩信息表
表3-2课程信息表
表3-3密码表
表3-4学生信息表
第4章系统具体实现
4.1启动窗体（frm欢迎）
系统启动后首先进入欢迎使用界面，如图4-1所示。
图4-1启动窗体界面
4.1.1功能描述
此界面为系统启动界面，点击进入系统按扭即可进入登陆对话框。
4.1.2代码设计
PrivateSubCommand1_Click（）
frm登陆.Show
EndSub
PrivateSubForm_Load（）
EndSub
4.2登录对话框（frm登陆）
界面如图4-2所示：
图4-2登录界面
4.2.1功能描述
系统启动后由欢迎使用界面转为用户登录窗体，如上图所示用户首先输入用户名，然后输入密码，如果用户3次输入不正确，将退出程序。
4.2.2代码设计
DimmicountAsInteger
DimaAsString
DimbAsString
DimcAsNewaDODB.Recordset
PrivateSubcmd1_Click（）
Setc=Nothing
b="select*from密码表"
IfText1.Text=""Then
MsgBox"请输入用户名！
",vbOKOnly,"提示信息！
"
Text1.SetFocus
cmd1.Enabled=False
Else
b=b&"where用户名='"&Text1.Text&"'"
c.Openb,a,adOpenForwardOnly,adLockPessimistic
Ifc.EOFThen
MsgBox"无此用户，重新输入",vbOKOnly,"出错提示"
Text1.Text=""
Text1.SetFocus
Text2.Text=""
cmd1.Enabled=False
Else
Ifc.Fields
（1）=Text2.TextThen
frm主控.Show
Unloadfrm欢迎
Else
MsgBox"密码错误，重新输入",vbOKOnly,"出错提示"
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
EndIf
micount=micount+1
Ifmicount=3Then
UnloadMe
Unloadfrm欢迎
EndIf
ExitSub
EndSub
PrivateSubcmd2_Click（）
UnloadMe
Unloadfrm欢迎
EndSub
PrivateSubForm_Load（）
a="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\学生信息（旧）.mdb;PersistSecurityInfo=False"
micount=0
Text1.TabIndex=0
EndSub
PrivateSubText1_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
Text2.SetFocus
cmd1.Enabled=True
EndIf
EndSub
PrivateSubText2_Click（）
cmd1.Enabled=True
EndSub
4.3系统主窗口（frm主控）
界面如图4-3所示：
图4-3系统主窗体界面
4.3.1功能描述
用户已设定权限，有一个a是超级管理员，其它为普通用户，用户输入正确的用户名和密码以后程序即进入主窗口，如是超级管理员进入，在主窗口里用户可以选择菜单里的系统用户管理（修改密码，添加用户，删除用户），数据维护（学生信息和成绩课程信息），数据查询等不同的模块进行操作。
如是普通用户进入主窗口，则只可修改本用户的密码，查询信息，帮用，和退出，其它不可操作。
4.3.2代码设计
PrivateSubForm_Load（）
Iffrm登陆.Text1.Text<>"a"Then
数据维护.Enabled=False
EndIf
EndSub
PrivateSub帮助_Click（）
Unloadfrm登陆
frm关于.Show
EndSub
PrivateSub成绩信息_Click（）
Unloadfrm登陆
frm成绩信息.Show
EndSub
PrivateSub课程信息_Click（）
Unloadfrm登陆
frm课程信息.Show
EndSub
PrivateSub数据查询_Click（）
Unloadfrm登陆
frm查询.Show
EndSub
PrivateSub退出_Click（）
UnloadMe
Unloadfrm登陆
EndSub
PrivateSub学生信息_Click（）
Unloadfrm登陆
frm学生信息.Show
EndSub
PrivateSub用户管理_Click（）
Iffrm登陆.Text1.Text="a"Then
frm用户管理.Text5.Enabled=True
frm用户管理.Text6.Enabled=True
frm用户管理.Text7.Enabled=True
frm用户管理.List1.Enabled=True
frm用户管理.cmdDel.Enabled=True
frm用户管理.Command3.Enabled=True
frm用户管理.Label5.Enabled=True
frm用户管理.Label6.Enabled=True
frm用户管理.Label7.Enabled=True
frm用户管理.Label8.Enabled=True
Else
frm用户管理.Text5.Enabled=False
frm用户管理.Text6.Enabled=False
frm用户管理.Text7.Enabled=False
frm用户管理.List1.Enabled=False
frm用户管理.cmdDel.Enabled=False
frm用户管理.Command3.Enabled=False
frm用户管理.Label5.Enabled=False
frm用户管理.Label6.Enabled=False
frm用户管理.Label7.Enabled=False
frm用户管理.Label8.Enabled=False
EndIf
frm用户管理.Show
Unloadfrm登陆
EndSub
4.4功能模块设计
4.4.1用户管理模块（frm用户管理）
界面如图4-4所示：
图4-4用户管理界面
4.4.1.1用户管理模块功能
如是超级管理员进入系统中，可修改密码，添加用户，删除用户，如是普通用户进入系统，则只可修改本用户的密码，其它都不可操作。
关闭按扭则退出此界面回到主窗口中。
4.4.1.2代码设计
DimaAsString
DimbAsString
DimcAsNewaDODB.Recordset
DimmicountAsInteger
PrivateSubcmd1_Click（）
Setc=Nothing
b="select*from密码表"
IfText1.Text=""Then
MsgBox"请输入用户名！
",vbOKOnly,"提示信息"
Text1.SetFocus
Text2.Text=""
Text3.Text=""
Text4.Text=""
cmd1.Enabled=False
Else
b=b&"where用户名='"&Text1.Text&"'"
c.Openb,a,adOpenForwardOnly,adLockPessimistic
Ifc.EOFThen
MsgBox"无此用户，请重新输入！
",vbOKOnly,"提示信息"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text1.SetFocus
cmd1.Enabled=False
Else
Ifc.Fields
（1）<>Text2.TextThen
MsgBox"原密码错误，请重新输入！
",vbOKOnly,"错误提示"
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text2.SetFocus
cmd1.Enabled=False
Else
IfText3.Text=Text4.TextThen
c.Fields
（1）=Text3.Text
c.Update
c.Close
MsgBox"密码已修改成功！
",vbOKOnly,"提示信息"
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text1.SetFocus
cmd1.Enabled=False
Else
MsgBox"两次密码不一致，重新输入！
",vbOKOnly,"错误提示"
Text3.Text=""
Text4.Text=""
Text3.SetFocus
cmd1.Enabled=False
EndIf
EndIf
EndIf
EndIf
EndSub
PrivateSubcmdDel_Click（）
Setc=Nothing
IfList1.List（List1.ListIndex）=""Then
MsgBox"请选择要删除的用户！
",vbOKOnly,"提示信息"
Else
IfMsgBox（"真的要删除此用户？
"&List1.List（List1.ListIndex）,vbOKCancel+vbExclamation,"警告"）=vbOKThen
b="deletefrom密码表where用户名='"&List1.List（List1.ListIndex）&"'"
c.Openb,a,adOpenForwardOnly,adLockPessimistic
List1.Clear
Form_Load
MsgBox"删除成功！
",vbOKOnly,"提示信息"
EndIf
EndIf
EndSub
PrivateSubCommand2_Click（）
Setc=Nothing
b="select*from密码表"
c.Openb,a,adOpenKeyset,adLockPessimistic
IfText5.Text=""Then
MsgBox"请输入用户名！
",vbOKOnly,"提示信息！
"
Text5.SetFocus
cmd1.Enabled=False
Else
While（c.EOF=False）
IfText5.Text=c.Fields（0）Then
MsgBox"此用户已存在！
",vbOKOnly,"提示信息！
"
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text5.SetFocus
Command2.Enabled=False
ExitSub
Else
c.MoveNext
EndIf
Wend
IfText6.Text=Text7.TextThen
c.AddNew
c.Fields（0）=Text5.Text
c.Fields
（1）=Text6.Text
c.Update
c.Close
MsgBox"新用户已保存！
",vbOKOnly,"提示信息"
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text5.SetFocus
Else
MsgBox"两次密码不同，请重新输入！
",vbOKOnly,"错误提示"
Text6.Text=""
Text7.Text=""
Text6.SetFocus
Command2.Enabled=False
ExitSub
EndIf
EndIf
EndSub
PrivateSubCommand3_Click（）
Setc=Nothing
b="select*from密码表"
c.Openb,a,adOpenKeyset,adLockPessimistic
List1.Clear
Whilec.EOF=False
List1.AddItemc.Fields（0）
c.MoveNext
Wend
EndSub
PrivateSubForm_Load（）
a="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\学生信息（旧）.mdb;PersistSecurityInfo=False"
micount=0
EndSub
PrivateSubSSTab1_DblClick（）
EndSub
PrivateSubText1_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
Text2.SetFocus
EndIf
EndSub
PrivateSubText2_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
Text3.SetFocus
EndIf
EndSub
PrivateSubText3_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
Text4.SetFocus
cmd1.Enabled=True
EndIf
EndSub
PrivateSubText4_Click（）
cmd1.Enabled=True
EndSub
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubText4_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
cmd1.SetFocus
EndIf
EndSub
PrivateSubText5_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
Text6.SetFocus
EndIf
EndSub
PrivateSubText6_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
Text7.SetFocus
Command2.Enabled=True
EndIf
EndSub
PrivateSubText7_Click（）
Command2.Enabled=True
EndSub
PrivateSubText7_KeyPress（KeyasciiAsInteger）
IfKeyascii=13Then
Command2.SetFocus
EndIf
EndSub
4.4.2数据维护
课程信息（frm课程信息）
图4-5课程信息界面
学生信息（frm学生信息）
图4-6学生信息界面
成绩信息（frm成绩信息）
图4-7成绩信息界面
4.4.2.1模块的功能
数据维护分为：
学生信息，成绩信息和课程信息三个模块。
可添加，更新，删除学生ID，课程ID，成绩，班级，姓名，学号，课程名称，授课教师。
三个模块均是用Adodc控件连接数据库的表格。
4.4.2.2代码设计
一、课程信息代码
PrivateSubForm_Unload（CancelAsInteger）
Screen.MousePointer=vbDefault
升级会员 