学生管理系统.docx

上传人:b****6 文档编号:4688670 上传时间:2022-12-07 格式:DOCX 页数:16 大小:68.86KB
下载 相关 举报
学生管理系统.docx_第1页
第1页 / 共16页
学生管理系统.docx_第2页
第2页 / 共16页
学生管理系统.docx_第3页
第3页 / 共16页
学生管理系统.docx_第4页
第4页 / 共16页
学生管理系统.docx_第5页
第5页 / 共16页
点击查看更多>>
下载资源
资源描述

学生管理系统.docx

《学生管理系统.docx》由会员分享,可在线阅读,更多相关《学生管理系统.docx(16页珍藏版)》请在冰豆网上搜索。

学生管理系统.docx

学生管理系统

学生管理系统

第一章概述
1.1 开发背景
现在的社会日新月异,发展的非常快。

学校的发展也是非常的快了,而且每年都有不同的要求。

学生的量也非常的大,资料可能经常性的发生更换,原来手工的管理模式就显的不怎么的合适了。

而且手工的数据是存放在多处的,没有使用统一管理的模式,数据整理非常的麻烦,统计也困难,很多的情况下,老师都是在重复一些相同的工作。

做一些相似的报表,这样不但降低了工作效率,而且非常的容易出错。

在这种条件下,使用微机管理就显的非常的合适了。

只要你正确的录入,统计,报表输出一点问题都没有的。


学生做为学校的最主要的管理对象,学生档案管理系统就成了学校信息化管理系统中中不可缺少的部分,它的内容对于学校的管理者说都至关重要。

但一直以来人们使用传统人工的方式进行学生的档案管理,这种管理方式存在着许多缺点,如:

效率低,容易出错,格式不规范。

另外时间一长,不容易进行统计和分析。


随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对学生档案进行管理,具有手工管理所无法比拟的优点。

例如:

检索迅速、查找方便、可靠性高、存储量大、寿命长、成本低等。

这些优点能够极大地提高学校学生档案管理的效率。

因此,开发这样一套管理软件成为很有必要的事情。

而且只要软件的设计合理,可以为学校提供合理的管理模式。

1.2 开发运行环境

在操作系统方面,虽然现在Linux的发展速度非常的快,但是对于大多数的使用者来说,操作显然没有微软的WINDOWS那么的流行和傻瓜化。

而且现在计算机的运算速度已经不能和以前相提并论了,而且硬件的价格也一天天的在下降了,所以也不用为了节省整体的造价而改用硬件要求很低的DOS系统了。

所以我们决定该档案管理系统将运行在强大的工具来协助管理人员轻松地进行与数据库的连接和管理。


综上所述,我们选择了VisualBasic+SQL来开发整个系统。


第三章系统实现
3.1公共模块
 Module1模块主要三个函数组成,函数EXECUTESQL用于执行响应的SQL命令,函数CONNSTRING用于连接字符串,函数EXECUTEQX用于检查权限。

代码如下:


PublicmodiAsBoolean
PublicclassmodiAsBoolean
PublicxuefeimodiAsBoolean
PublictxtsqlAsString
PublicfindAsBoolean
PublicclassfindAsBoolean
PublicxuefeifindAsBoolean
PublicusernameAsString
PublicqxstrAsString

'执行相应的SQL命令
PublicFunctionExecuteSQL(ByValsqlAsString)AsADODB.Recordset
   DimmyconAsADODB.Connection
   DimrstAsADODB.Recordset
   Setmycon=NewADODB.Connection
   mycon.ConnectionString=connstring
   mycon.Open
   Dimstokens()AsString
   OnErrorGoToexectuesql_error
   stokens=Split(sql)
   IfInStr("INSER,DELETE,UPDATE",UCase(stokens(0)))Then
       mycon.Executesql
   Else
       Setrst=NewADODB.Recordset
       rst.OpenTrim(sql),mycon,adOpenKeyset,adLockOptimistic
       SetExecuteSQL=rst
   EndIf
exectuesql_exit:


   Setrst=Nothing
   Setmycon=Nothing
   ExitFunction
exectuesql_error:


   Resumeexectuesql_exit
EndFunction

'连接字符串,用户可以根据自己的数据库进行修改相应参数
PublicFunctionconnstring()AsString
   connstring="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UID=sa;PWD=12345;InitialCatalog=StudentMIS;DataSource=(local)"
EndFunction

'检查用户的权限
PublicFunctionExecuteqx(ByValtxtAsInteger)AsString
   DimsqlAsString
   DimmyconAsADODB.Connection
   DimrstAsADODB.Recordset
   Setmycon=NewADODB.Connection
   mycon.ConnectionString=connstring
   mycon.Open
   Setrst=NewADODB.Recordset
   sql="selectadminfromuserinfowhereusername='"&username&"'"
   rst.OpenTrim(sql),mycon,adOpenKeyset,adLockOptimistic
   Ifrst.EOF=TrueThen
       MsgBox"非法用户!

",vbExclamation+vbOKOnly,"警告"
       Executeqx="nothing"
       ExitFunction
   EndIf
   Ifrst.Fields(0)="y"Then
       Executeqx="admin"
       ExitFunction
   EndIf
   rst.Close
   sql="selectreadonlyfromuserinfowhereusername='"&username&"'"
   rst.OpenTrim(sql),mycon,adOpenKeyset,adLockOptimistic
   Ifrst.Fields(0)="y"Then
       Executeqx="readonly"
       ExitFunction
   EndIf
   SelectCasetxt
     Case1
       sql="selectqx1fromuserinfowhereusername='"&username&"'"
     Case2
       sql="selectqx2fromuserinfowhereusername='"&username&"'"
     Case3
       sql="selectqx3fromuserinfowhereusername='"&username&"'"
    
   EndSelect
   OnErrorGoToexectuesql_error

   Setrst=NewADODB.Recordset
   rst.OpenTrim(sql),mycon,adOpenKeyset,adLockOptimistic
   Ifrst.Fields(0)="y"Then
       Executeqx="true"
   Else
       Executeqx="false"
   EndIf
exectuesql_exit:


   Setrst=Nothing
   Setmycon=Nothing
   ExitFunction
exectuesql_error:


   Resumeexectuesql_exit

EndFunction
3.2登陆系统
  这个模块主要有确定跟取消组成。

确定按纽的主要功能是检查用户名和用户密码是否正确。

以及确定权限。

取消按纽则是退出该功能。

代码如下
PrivateSubCommand1_Click()
   DimmrcAsADODB.Recordset
   txtsql="selectusernamefromuserinfowhereusername='"&Trim(Text1.Text)&"'"
   Setmrc=ExecuteSQL(txtsql)
   Ifmrc.EOF=TrueThen
       MsgBox"用户名错误!

",vbExclamation+vbOKOnly,"警告"
       Text1.SetFocus
       Text1.SelStart=0
       Text1.SelLength=Len(Text1.Text)
       ExitSub
   EndIf
   username=mrc.Fields(0)
   txtsql="selectusernamefromuserinfowherepassword='"&Trim(Text2.Text)&"'"
   Setmrc=ExecuteSQL(txtsql)
   Ifmrc.EOF=TrueThen
       MsgBox"密码错误!

",vbExclamation+vbOKOnly,"警告"
       Text2.SetFocus
       Text2.SelStart=0
       Text2.SelLength=Len(Text2.Text)
       ExitSub
   EndIf

   MDIForm1.Show
   UnloadMe
EndSub

PrivateSubCommand2_Click()
   UnloadMe
EndSub

PrivateSubText1_K

摘要:

本文以“C#高级应用”课程为例,介绍了作者在多年教学经验和课程设计指导的基础上总结出来的一套较成熟的教学理论,并在多年的应用中取得了较好的效果。


  关键词
本文来自:

计算机毕业网:

教学模式;团队学习;C#高级应用;课程设计
        
  1“团队学习”教学模式的概述
  
  “团队学习“教学模式是指将某个班级分成若干个团队,团队内成员互相学习,团队间互相竞争,发挥学习的主动性,达到共同提高的学习方法。

它能充分调动和发挥教师的主导作用和学生的主体作用,能激发学生内心产生强烈的自主学习的愿望,学生的能动性、创造性能得到充分的发挥,能最大限度地发展他们的学习潜能。


  
  2“团队学习”教学模式过程
  
  

(1)创建团队。

该班有32名同学,将全班分成5个团队,采用模5的方式产生团队,同时考虑学生的水平、性别等因素进行适当的调整,这样学生们的学习热情和积极性都会得到提高。

同时,要求每个团队取一个尽可能具有想象力的团队名并选出组长,组长全面负责团队活动。


  

(2)信息收集。

各个团队针对成员的情况,通过讨论确定课程设计的题目,同时通过互联网查找相关知识,分析课题的要求和功能,形成课程设计任务书。

再由教师根据任务书充分分析各团队学生的知识、能力基础,将课程设计要求与各团队的实际情况相结合,对任务书给予详细的指导。


  (3)合理分工。

根据修改后的任务书,团队内进行讨论,由组长提议和队内成员自己要求相结合,进行功能模块的合理分工,明确每个团队成员的职责,让各成员都有事做,都有能力完成。


  (4)团队学习。

课程教学过程中要求每个团队课后每周至少进行一次团队学习,一起预习、复习、讨论课堂讲授的内容和自学内容,并对老师布置的问题和学生自己的疑难问题进行讨论和记录,组长以讨论报告的形成反馈给老师,老师再和各团队进行深入地交流和探讨。


  (5)实验环节。

老师对各团队及个别同学进行现场指导,指出需改正的功能和进一步可以加强的功能。


  (6)讲解演示。

各团队通过充分讨论上台讲解内容,形成PPT文档,由组长负责介绍本团队各成员的分工,选题依据,功能模块,课程设计实施过程,完成的功能等情况,并演示所做课题的内容和功能。


  (7)团队评议。

其他团队根据该团队的讲解演示情况,对其进行提问,由该组长负责答辩解释,等所有团队都讲解演示之后,由老师给出自己的评议。

然后,进行各团队之间的评分,并给出名次。


  (8)设计报告。

要求各团队根据整个课程设计的情况和所完成的功能,根据课程设计报告的要求,撰写相应的设计报告
  (9)各过程时间进度安排表。

本课安排18周的课时,在开始的几周介绍课本内容和讲解课程设计的含义、要求以及应如何去完成一个课程设计,从第5周正式开始启动课程设计的安排,一直持续到第16周结束,具体时间进度安排如表1所示。


  
  3“团队学习“学习模式的成绩评估方法
  
  将每个学生的成绩分成团队得分和个人得分两部分,不仅可以引导学生达到团队内合作、团队间竞争的目的,而且也可以对小组的学习进行评价,做到教师评价和学生评价相结合,通过评价激发学生学习的积极性。


  3.1团队得分
  

(1)选题介绍和功能说明:

占5分,由各团队互相评分,累加各团队的分数并给出名次,第1名得5分,第2名为得4分,依此类推,最后1名得1分。


  

(2)中期模块演示:

占5分,由各团队互相评分,累加各团队的分数并给出名次,第1名得5分,第2名为得4分,依此类推,最后1名得1分。


  (3)综合演示:

占15分,由各团队互相评分,累加各团队的分数并给出名次,第1名得15分,第2名为得14分,依此类推,最后1名得11分。


  (4)讨论报告:

占10分,由老师根据各团队每次提交的讨论报告的内容和所提的问题进行评分。


  (5)教师评价:

占15分,由老师根据各团队在整个课程设计过程中的表现、所完成的内容和撰写的课程设计报告进行综合评分。


  3.2个人得分
  

(1)个人讲解和演示:

占10分,由各团队成员讲解和演示自己在课程设计中所负责的功能模块的实施和实现情况,由老师来评分。


  

(2)回答问题:

占10分,老师根据各团队成员的讲解和演示提出相关问题,该成员负责回答,由老师根据回答情况来评分。


  (3)团队评价:

占20分,由团队各成员互相打分。


  (4)个人总结:

占10分,由老师根据各学生写的总结报告进行评分。


  3.3总评得分
  最后将团队得分作为整个团队各个成员的分数,再加上个人得分,形成每个学生的最终得分。


  
  4“团队学习”学习模式的成效
  
  

(1)有利于培养学生的协同竞争的素质。

推行“个体突破、群体实现”的集体协作行为,在一个群体中只要一个人掌握了某知识和技术,就应该主动教会其他同学,建立“个人努力,群体成功”的群体意识,增强了学生的集体荣誉感、责任感。


  

(2)培养学生的主动学习精神和自学能力。

通过共同讨论、交流信息、共同分析所学的内容,提高了对本学科知识的运用能力,加深了所探讨问题的理解深度,强化了对此问题的长久记忆,也提高了思维技巧的运用能力。


  (3)实现知识共享。

各个团队可以把所掌握的知识与其他团队进行交流,实现知识共享。


  (4)有利于学生个性的培养。

通过团队中的优秀学生和团队之间开展的各项丰富有趣、形式多样的教学比赛活动,使学生在活动中增强了兴趣,优化了个性,有利于激发学生的进取心。

同时通过上台讲解演示,培养了学生的组织内容、知识表达和口才演讲能力。


  (5)有利于教师获得及时的教学信息并及时进行调控。

通过每一次的教学竞赛,教师能及时地得到反馈教学信息,改进教学与指导的方法,提高教学效果。

而每一次的赛后总结,使学生能够及时、准确地进行自我评价,改进、强化、巩固所学的内容。


  (6)解决团队间不正当的竞争。

为了解决各团队给其他团队打分时出现不公平、不公正现象,在团队得分方面加入了教师评分,占25分。


  (7)避免学生吃“大锅饭”现象。

为了让每位同学都能在课程设计中真实地学到知识,发挥他们的潜能,而不是自己不干活占用他人的成果,故在个人得分方面加入了教师评分,占30分,加强了对偷懒学生的督促。


  
  参考文献
  [1]周窦华.小组学习中的常见问题与对策[J].课程教材教学研究,2005,(11).
  [2]肖离离.项目教学法在“电子商务网站建设毕业设计”中的应用.计算机教育,2006,(10).
  [3]倪莉,张雯.小组学习的教学实践与探讨[J].福建轻纺,2006,(11).
  [4]万孝星.团队学习理论在高等教学中的应用研究[J].江西师范大学,2004.

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 小学教育 > 英语

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1