当前位置:首页>> >>


VB sql学生管理系统(源代码 系统).rar

收藏

资源目录
    文档预览:
    编号:20180913212518695    类型:共享资源    大小:679.41KB    格式:RAR    上传时间:2018-09-13
    尺寸:148x200像素    分辨率:72dpi   颜色:RGB    工具:   
    35
    金币
    关 键 词:
    VBsql 学生 管理 系统 源代码
    资源描述:
    浙 江 教 育 学 院信 息 学 院高职毕业设计报告题 目 基于 VB 的学生管理系统设计与实现专 业 计算机技术与应用班 级 04 计高(1)姓 名 邹玲学 号 20045831014指导教师 金跃全200 6 年 12 月 19 日目录【内容摘要】…………………………………………………【关键词】 …………………………………………………第一章 概述1.1 开发背景…………………………………………….1.2 开发环境……………………………………………第二章 系统分析和设计2.1 系统业务流程图…………………………………..2.2 系统逻辑模型的提出……………………………..2.3 总提模块的划分……………………………..2.4 各个模块的功能……………………………………2.5 数据库的设计……………………………….第三章 系统实现3.1 公共模块………………………………………………..3.2 登陆系统……………………………………………….3.3 系统管理……………………………………………..3.4 学生档案管理………………………………………..3.5 班级管理………………………………………………..3.6 课程管理………………………………………………..3.7 成绩管理……………………………………………….第四章总结………………………………………………….第五章参考文献………………………………………………【内容摘要】无论学校大小,每个学校手里总是会有很多很多的学生档案,而且随着一年一年的累积,学校规模的逐渐扩大,学生档案信息是越来越多。现在随着中国加入了 WTO,很多的企业为了能够加强自己的竞争力,都不约而同的在工作效率和管理的规范性方面下功夫。现在计算机化管理已经不知不觉中渗透到了各行各业,并且提高了这些行业的效率。学校虽然不算是一个纯粹的企业,但是学校的管理一样需要信息化,而且现在的学校逐渐的往大规模的方向发展,信息化对于学校就显的更加的重要了。以前的手工管理,已经越来越不适应学校的发展要求了。针对这种情况下,我设计了这么一个简单的学生档案管理系统,虽然很小,但是呢,还是有一定的使用价值的。【关键词】学生档案管理系统 VB6.0 管理信息系统第一章 概述1.1 开发背景现在的社会日新月异,发展的非常快。学校的发展也是非常的快了,而且每年都有不同的要求。学生的量也非常的大,资料可能经常性的发生更换,原来手工的管理模式就显的不怎么的合适了。而且手工的数据是存放在多处的,没有使用统一管理的模式,数据整理非常的麻烦,统计也困难,很多的情况下,老师都是在重复一些相同的工作。做一些相似的报表,这样不但降低了工作效率,而且非常的容易出错。在这种条件下,使用微机管理就显的非常的合适了。只要你正确的录入,统计,报表输出一点问题都没有的。学生做为学校的最主要的管理对象,学生档案管理系统就成了学校信息化管理系统中中不可缺少的部分,它的内容对于学校的管理者说都至关重要。但一直以来人们使用传统人工的方式进行学生的档案管理,这种管理方式存在着许多缺点,如:效率低,容易出错,格式不规范。另外时间一长,不容易进行统计和分析。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生档案进行管理,具有手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、寿命长、成本低等。这些优点能够极大地提高学校学生档案管理的效率。因此,开发这样一套管理软件成为很有必要的事情。而且只要软件的设计合理,可以为学校提供合理的管理模式。1.2 开发运行环境在操作系统方面,虽然现在 Linux 的发展速度非常的快,但是对于大多数的使用者来说,操作显然没有微软的 WINDOWS 那么的流行和傻瓜化。而且现在计算机的运算速度已经不能和以前相提并论了,而且硬件的价格也一天天的在下降了,所以也不用为了节省整体的造价而改用硬件要求很低的 DOS 系统了。所以我们决定该档案管理系统将运行在强大的工具来协助管理人员轻松地进行与数据库的连接和管理。综上所述,我们选择了 Visual Basic+SQL 来开发整个系统。第二章 系统分析和设计2.1 系统业务流程图详细调查的重点是对管理业务的流程进行描述,通过采用系统流程图中部分图形工具来描述管理活动,进行规范化说明。业务流程图的符号说明如图2-1 所示:1、 2、 3、 4、 5、系统中人员 实体或单据 实物或信息流 处理 数据存储图 2-1 业务流程图图例详细调查之后,绘制出的学生档案管理系统的管理业务流程图如图 2-2 所示。图 2-2 学生档案管理系统业务流程图2.2 系统逻辑模型的提出系统分析的主要成果是系统的逻辑模型。本系统的逻辑模型主要是以系统的数据流图和数据字典为主要描述工具。即在对学生成绩管理方式和业务流程进行认真分析和研究的基础上,排除现有组织机构和业务分工所造成的信息障碍。完全从业务管理功能和管理对象出发,按照信息系统中应有的数据流和数据结构来勾画系统的概貌。每学年 9 月份各班学生名单各班学生名单(空白,供填写学生成绩)学生档案处理报表教导处存档校领导各班主任各年级主任各班学生名单微机室教导处转退复留学生名单录入有关信息打印各班名单学生档案处理学生档案处理报表学生档案处理报表年级主任P2.2.1 数据流图(简称为 DFD)数据流图是组织中信息运动的抽象。是在调研的基础上,从系统的科学性、管理的合理性、实际运动的可行性角度出发。将信息处理功能和彼此之间的联系自顶向下,逐层分解,从逻辑上精确地描述系统应具有的数据加工功能、数据输入、数据输出、数据存储及数据来源和去向(外部实体)等项目。首先,分析学生档案管理的总体情况,划分系统边界,识别系统的数据来源和去处,确定外部实体,得出系统的顶层数据流程图;然后划分出几个主要的信息管理功能,并明确各功能之间的联系,绘制出数据流程图。数据流程图的符号说明如图 2-3 所示。学生档案管理系统的顶层数据流程图如图 2-4 所示。学生档案管理系统的数据流程图如图 2-5 所示外部实体 处理 数据流 数据存储图 2-3 数据流程图的符号用户 校领导图 2-4 学生档案处理的顶层数据流程图2.2.2 数据字典(简称为 DD)绘制 DFD,只是对数据处理和彼此之间的联系进行了说明。为进一步明确数据的详细内。 。 。 。 。 。 。述清楚,以便于此后系统设计的进行。这就需要开发人员编写详细的数据字典。 。 。 。 。据项、数据流、数据存储、加工处理和数据结构的数据字典。2.3 总体模块划分学生信息管理是一项非常重要的工作,它负责整个学校的档案管理,学生资料管理成绩管理等,教务工作者急切希望计算机提高工作效率。在各大中小学校中,用计算机管理学校的信息已经越来有越普遍了。采用学生信息管理系统不仅可以节省人力物力,而且增强学校资料的安全性,提高了学校的管理能力在第一章的开发背景中已经说明了本学生档案管理系统的流程了,于是在下面的学生档案处理D1 学生档案报表学生简明情况这个功能设计中,我们将针对这里的流程进行设计。我们把系统功能分为如下图。2.3.1、登陆系统对于这类系统如果谁都能登陆到本系统的话,系统里面的数据将非常的危险和有可能会受到蓄意破坏者的攻击了。考虑到数据的安全性,用户必须拥有密码才能够登陆到本系统的主页面。2.3.2、主页面有 5 个菜单。分别为。系统管理,学生档案管理,班级管理,课程管理,成绩管理。对于这个主页面。我们可以完成所有对学生档案的管理,修改,查询。方便登陆的用户进行一系列的操作,提供了方便。2.4 各个模块的功能系统管理:系统菜单包括有两个功能添加用户对于一个系统来说,永远不可能只是存在一个用户,用户的添加体现了这个系统的方便灵活性,适合多人来使用。所有设计了这个功能是理所当然的。学生档案管理:包括添加档案菜单,档案浏览菜单。档案添加正如一个添加用户一样。永远不可能只是存在一个学生的学籍信息,学生毕业后会有新的学生进来,自然要添加新的学生学籍信息。这个菜单恰好提供这个功能,档案浏览当我们将学生的学籍信息存放在数据库中,最大的方便就是我们有需要知道学生的学籍信息时能够及时查询到。因为人的记忆有限,不可能记得住所有学生的学籍信息以及相关的一系列资料,所以就要靠查询学籍信息来实现了。这个菜单的功能最大的优点就是方便。班级管理单:包括班级浏览菜单,班级添加菜单班级添加菜单每一年,学校都会增见新的年级,因此就会有新的班级信息添加。学生档案管理系统系统管理学生档案管理班级管理课程管理成绩管理班级浏览菜单可以方便学校统一浏览班级的信息课程管理菜单:包括基本课程设置,基本课程设置可以对课程的信息进行修改增加班级课程设置可以选择班级相应的课程。成绩管理菜单:包括添加添加成绩,修改成就,查询成绩。考试类型设置不同的功课自然有不同的成绩。我们针对这个提前对考试类型做下设置。方便学校同学老师查成绩。成绩添加现今的教育 ,学生的成绩是体现学生在学校的表现之一。也可以作为对学生评价的准则之一。因次添加学生的成绩是比较重要的一个功能。成绩浏览一个完成的学生管理系统,自然要提供学生的查询,方便学生和老师2.5 数据库设计2.5.1 数据库表的建立系统数据库名称为 StudengMIS。其中包括①allkecheng②cj③class④classkecheng⑤kaoshileixing⑥userinfo⑦xj第三章 系统实现3.1 公共模块Module1 模块主要三个函数组成,函数 EXECUTESQL 用于执行响应的 SQL命令,函数 CONNSTRING 用于连接字符串,函数 EXECUTEQX 用于检查权限。代码如下:Public modi As BooleanPublic classmodi As BooleanPublic xuefeimodi As BooleanPublic txtsql As StringPublic find As BooleanPublic classfind As BooleanPublic xuefeifind As BooleanPublic username As StringPublic qxstr As String'执行相应的 SQL 命令Public Function ExecuteSQL(ByVal sql As String) As ADODB.RecordsetDim mycon As ADODB.ConnectionDim rst As ADODB.RecordsetSet mycon = New ADODB.Connectionmycon.ConnectionString = connstringmycon.OpenDim stokens() As StringOn Error GoTo exectuesql_errorstokens = Split(sql)If InStr(“INSER,DELETE,UPDATE“, UCase(stokens(0))) Thenmycon.Execute sqlElseSet rst = New ADODB.Recordsetrst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstEnd Ifexectuesql_exit:Set rst = NothingSet mycon = NothingExit Functionexectuesql_error:Resume exectuesql_exitEnd Function'连接字符串,用户可以根据自己的数据库进行修改相应参数Public Function connstring() As Stringconnstring = “Provider=SQLOLEDB.1;Persist Security Info=False;UID=sa;PWD=12345;Initial Catalog=StudentMIS;Data Source=(local)“End Function'检查用户的权限Public Function Executeqx(ByVal txt As Integer) As StringDim sql As StringDim mycon As ADODB.ConnectionDim rst As ADODB.RecordsetSet mycon = New ADODB.Connectionmycon.ConnectionString = connstringmycon.OpenSet rst = New ADODB.Recordsetsql = “select admin from userinfo where username='“ & username & “'“rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimisticIf rst.EOF = True ThenMsgBox “非法用户!“, vbExclamation + vbOKOnly, “警告“Executeqx = “nothing“Exit FunctionEnd IfIf rst.Fields(0) = “y“ ThenExecuteqx = “admin“Exit FunctionEnd Ifrst.Closesql = “select readonly from userinfo where username='“ & username & “'“rst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimisticIf rst.Fields(0) = “y“ ThenExecuteqx = “readonly“Exit FunctionEnd IfSelect Case txtCase 1sql = “select qx1 from userinfo where username='“ & username & “'“Case 2sql = “select qx2 from userinfo where username='“ & username & “'“Case 3sql = “select qx3 from userinfo where username='“ & username & “'“End SelectOn Error GoTo exectuesql_errorSet rst = New ADODB.Recordsetrst.Open Trim(sql), mycon, adOpenKeyset, adLockOptimisticIf rst.Fields(0) = “y“ ThenExecuteqx = “true“ElseExecuteqx = “false“End Ifexectuesql_exit:Set rst = NothingSet mycon = NothingExit Functionexectuesql_error:Resume exectuesql_exitEnd Function3.2 登陆系统这个模块主要有确定跟取消组成。确定按纽的主要功能是检查用户名和用户密码是否正确。以及确定权限。取消按纽则是退出该功能。代码如下Private Sub Command1_Click()Dim mrc As ADODB.Recordsettxtsql = “select username from userinfo where username='“ & Trim(Text1.Text) & “'“Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True ThenMsgBox “ 用户名错误!“, vbExclamation + vbOKOnly, “ 警告“Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)Exit SubEnd Ifusername = mrc.Fields(0)txtsql = “select username from userinfo where password='“ & Trim(Text2.Text) & “'“Set mrc = ExecuteSQL(txtsql)If mrc.EOF = True ThenMsgBox “ 密码错误!“, vbExclamation + vbOKOnly, “ 警告“Text2.SetFocusText2.SelStart = 0Text2.SelLength = Len(Text2.Text)Exit SubEnd IfMDIForm1.ShowUnload MeEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenText2.SetFocusEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCommand1.SetFocusEnd IfEnd Sub3.3 系统管理这个模块的功能主要是添加用户。并且设置权限。代码如下Private Sub Command1_Click()If Trim(Text1(0).Text) = ““ ThenMsgBox “用户名不能为空!“, vbExclamation + vbOKOnly, “警告“Text1(0).SetFocusExit Sub
    展开阅读全文
    1
      金牌文库所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
    0条评论

    还可以输入200字符

    暂无评论,赶快抢占沙发吧。

    关于本文
    本文标题:VB sql学生管理系统(源代码 系统).rar
    链接地址:http://www.gold-doc.com/p-138857.html
    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们
    copyright@ 2014-2018 金牌文库网站版权所有
    经营许可证编号:浙ICP备15046084号-3
    收起
    展开