如何开发案例分析课程

如何开发案例分析课程

目标正确就是指制定的教学目标既要符合课程标准的要求，又要符合学生的实际情况。教学目标是设计教学过程的依据，是课堂教学的总的指导思想，是上课的出发点，也是进行课堂教学的终极回宿。如何制定出一个具体明确又切实可行的教学目标呢?首先要认真钻研教材，结合数学课程目标和教学内容，制定出本节课的教学计划：要使学生把握哪些知识、形成什么样的技能技巧、达到什么样的熟练程度、会用哪些方法解题等，这就是双基目标。其次是考虑通过这些知识的教学，应该培养学生哪些思维能力，这是思维能力的目标。再次是想一想通过这些知识的教学，对学生进行哪些思想教育，培养哪些良好的道德品质，这是渗透思想教育的要求。最后是考虑哪些地方可以对学生进行创新教育，怎样培养学生的创新意识和创造能力，这是创新教育的要求，这也是课堂教学最重要的目标。

基于vb的学生信息管理系统的设计 摘要：本系统针对高校学生信息的特点以及管理中的弊端而设计，实现了学生信息管理的信息化、减轻了管理人员的工作负担，能 够规范、高效地管理大量的学生信息，该系统旨在更好地管理高校的教学和资源的整合，推动科技成果的转化，推进高校改革，提高 高校的办学效率。 关键词：信息管理；vb；系统 近几年来，随着各高校办公自动化工作的推进，学生信息管理自动化也被摆上了日程。在学校工作中占有很大比重的一项就是 每学期的学生信息管理工作。由于教工、教室和设备的相对紧张，如何进行合理地安排和分配，从而充分利用教学资源是我们不得 不面对的问题。而人工进行管理不仅任务重，效率低，而且易出错，难于维护，想要排出一张各方面都满意的信息管理表非常困难。 并且随着高校规模的扩大手工管理的难度和工作量呈几何级数增长。 学生信息管理系统正是为了减轻教务人员工作量，实现学校管理科学发展观自动化，解决管理难这一老大难题的教务办公软 件。本系统以中文版visual basic 6.0为前台开发工具，用microsoft access2000作为后台数据库。系统的操作对人员的素质的要求不 高，只需对他们稍加培训便能胜任。 本系统最大的优点就是学生的所有信息及全部操作完全可以通过各功能模块直接写入后台数据库，操作简单易行，使信息管 理流程能够在一个安全可视的环境下运行。 1学生信息管理系统的设计 学生信息管理系统的设计主要是为了更好的实现学校学生信息的系统化、规范化和自动化。其主要功能包括操作员权限设置、 便于信息管理、信息的查询、以及生成各种报表。其中查询包括姓名查询、学号查询、班级查询、性别查询、年龄、电话及住址查询、组 合查询、模糊查询等，查询可按建表输入的时间，进行统计人数和成绩等统计，查询其中的一种或多种方法。 1.1系统设计思想和特点 现状：学校管理工作对于学校的决策者和管理者来说至关重要。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式 存在着许多缺点，如：效率低、保密性差。另外，时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。 设计思想：《学生信息管理系统》采用面向对象的程序设计思想为基本的设计指导思想。本系统主要实施目标是帮助学校的学 生档案管理人员对学校学生信息进行管理。 本系统优点：检索迅速、查询方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理 的效率，也是学校的科学化、正规化管理的重要条件。 1.2系统目标和功能模块 本信息管理系统在追求完善的同时应达到以下目标： 1)界面友好、易于操作； 2)实现基本信息管理，包括操作员的注册及权限设置，所需基本信息的建立与设置等功能； 3)实现数据库管理，包括数据库的自动创建，备份与恢复；4)实现智能跟踪用户操作，智能容错处理，数据统计与分析等功能； 5)真正意义上实现该高校从原始的手工阶段走向了方便快捷的计算机实现阶段。 功能模块如图1所示。 运行主窗体如图2。 2.3登录模块设计 登录界面是进入系统的大门，是对管理员身份的验证，只有输入 了正确的名称和密码，才有权进入系统。因为系统有许多管理员，他 们拥有不同的权限，当有不同的用户登录到系统中时，系统便会根据 数据库中记载的内容而赋予其不同的权限 关键代码如下： dim a as string dim b as string dim str as string dim strr as string str=instr(text2.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text1.text,"'") if strr<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if a=trim(text1) b=trim(text2) if a=""then msgbox"用户名不能为空!",vbcritical,"错误" text1.setfocus text1.selstart=0 text1.sellength=len(text1) else dim r as new adodb.recordset set r=dataenvironment1.rsuser dim c as string static ntrycount as integer c="select*from用户登陆where用户名='"&a&"'" if r.state=adstateopen then r.close r.open c if r.eof then msgbox"无此用户!请重新登陆!!",vbcritical,"错误" text1.setfocus text1.selstart=0 text1.sellength=len(text1) ntrycount=ntrycount+1 if ntrycount>=5 then msgbox"您无权操作本系统！",vbcritical,"错误" unload me end if else if b=trim(r.fields(1))then quanxian=trim(r.fields(2)) mdiform1.show unload me else msgbox"密码错误!请重新登陆!!",vbcritical,"错误" text2.setfocus text2.selstart=0 text2.sellength=len(text2) ntrycount=ntrycount+1 if ntrycount>=5 then msgbox"您无权操作本系统！",vbcritical,"错误" unload me end if end if end if end if 图

end sub 2.4信息管理和信息查询模块设计 信息管理和信息查询分别如图3。 关键代码如下： on error resume next dim str as string dim strr as string select case command2.caption case"启用组合查找" select case combo1.text case"学号" str=instr(text9.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text10.text,"'") if strr<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if tycz case"姓名" str=instr(text9.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text10.text,"'") if strr<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if tycz case"年龄" str=instr(text9.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text10.text,"'") if strr<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if tycz case"性别" str=instr(text9.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text10.text,"'") if strr<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if sex case"所属班级" str=instr(text9.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text10.text,"'") if strr<>0 then

msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if tycz case"家庭地址" str=instr(text9.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text10.text,"'") if strr<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if tycz end select case"关闭组合查找" str=instr(text9.text,"'") if str<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub else strr=instr(text10.text,"'") if strr<>0 then msgbox"不能输入非法字符！！",vbcritical+vbokonly,"错误" exit sub end if end if if combo1.text="性别"or combo2.text="性别"then combination else combination_faintness_nosex end if end select public sub tycz() on error resume next dim a as new adodb.recordset set a=dataenvironment1.rsstudent dim b as string if trim(combo3.text)<>"模糊"then b="select*from学生信息表where"&trim(combo1.text)&""&trim(combo3.text)&"'"&trim(text9.text)&"'" if a.state=adstateopen then a.close a.open b dgre else b="select*from学生信息表where"&trim(combo1.text)&"like'%"&trim(text9.text)&"%'" if a.state=adstateopen then a.close a.open b dgre end if end sub public sub dgre() datagrid1.datamember="" datagrid1.refresh dataenvironment1.rsstudent.requery datagrid1.datamember="student" datagrid1.refresh end sub 3结束语 本系统达到了预期的要求，系统设计是根据学校的学生信息管理流程，合理设置各种操作模块，各管理员和操作员之间分工明 确，并且能够及时、准确地记录每次操作信息。操作简单易行，定期审核，确保了数据的正确性。从根本上解决了学生管理的计算机 实现方式，对学校管理来讲是一个大的跨越。