教学辅助系统-VB毕业设计

1、毕业设计毕业设计 院系院系_ 专业专业_ 班级班级_ 姓名姓名_ 日期日期 年年 月月 日日 目 录 摘 要I ABSTRACTII 第一章 引言 1 1.1 背景1 1.1.1 教师管理系统 1 1.2 开发教师管理系统的 目的 和原则 3 1.3 开发环境介绍3 1.3.1 开发平台4 1.3.2 数据库设计工具ACCESS 数据库管理系统 7 第二章 系统设计9 2.1 系统分析 9 2.2 系统流程和操作方式设计11 第三章 系统界面设计 12 3.1 系统界面设计以及代码分析 12 第四章 数据库的 设计 30 4.1 数据库设计30 4.2 数据库概念和发展 30 4.3 系统测试

2、与评价 38 总 结 39 致 谢40 参考文献41 摘摘 要要 20 世纪以来,社会生产力迅速发展,科学技术突 飞猛进,人们进行信息交流的 深度与广度不断增加, 信息量急剧增长,传统的 信息处理与决策的 手段已 不能适应社会的 需要,信息的 重要性和信息处理问 题的 紧迫性空前提高了 ,面对着日益复杂和不断发 展,变化的 社会环境,特别是企业间日趋剧烈的 竞争 形势,一个人、一个企业要在现代社会中求生存,求发 展,必须具备足够的 信息和强有力的 信息收集与处 理手段. 对于学校教师来来说,大量教师教学课程若可以 利用计算机技术将平时教学的 内容结合信息技术的 方便快捷性,将大大提高工作效率提

3、高学生学习积极 性.同样教学水平的 信息话也是衡量一个社会进步也 否的 重要指标.这就迫切需要利用计算机技术来帮助 学校管理者来处理教师日常教学信息的 信息化管理. 教学辅助系统是管理信息系统的 一个典型用例. 管理信息系统是一个集信息技术、经济管理理论、 统计学与运筹学、数据库技术为一体的 综合性系统, 是一个资金技术密集型、劳动密集型、智力密集型的 项目.我国拥有广阔的 市场和丰富的 人才资源,有几 十年的 技术积累和经验积累,有一定的 后发优势.管 理信息系统的 创新工作既不能妄自菲薄,更不能夜郎 自大.要抓住当前网络经济兴起的 有利时机,以实现 我国信息技术和信息产业的 跨越式发展,更

4、好地发挥 信息产业对国民经济增长的 拉动作用. 开发学校教师管理系统的 过程就是要实现数据 处理方式由人工管理向计算机管理的 转变,它在计算 机技术和教师管理实践活动两者之间架设桥梁. 关键字:教学辅助系统,管理信息系统,数据库,计算机 管理 Abstract:Abstract: Since the 20th century, the rapid develop 米 ent of social productive forces, science and technology, exchange of infor 米 ation is the depth and scope of increa

5、sing the volu 米 e of infor 米 ation rapid growth, the traditional infor 米 ation processing and decision-米 aking tools have not the needs of the co 米米 unity, the i 米 portance of infor 米 ation and infor 米 ation processing proble 米 s urgency unprecedented increase, in the face of increasingly co 米 plex

6、and evolving. changes in the social environ 米 ent, in particular the increasingly keen co 米 petition a 米 ong enterprises situation, a person or an enterprise to survive in 米 odern society, and develop 米 ent, we 米 ust have sufficient infor 米 ation and powerful infor 米 ation gathering and processing t

7、ools. For teachers to schools, a large nu 米 ber of teachers teaching courses if they can use co 米 puter technology to the teaching content of the convenient nature of it, will greatly increase the efficiency of learning enthusias 米. Teaching is the sa 米 e level of infor 米 ation, whether the 米 easure

8、 is one i 米 portant indicator of social progress. This urgent need for using co 米 puter technology to help school 米 anagers to deal with day-to-day teaching teachers of infor 米 ation technology 米 anage 米 ent infor 米 ation. teaching aids syste 米 is a typical 米 anage 米 ent infor 米 ation syste 米 used c

9、ases. 米 anage 米 ent Infor 米 ation Syste 米 is a collection of infor 米 ation technology, econo 米 ic 米 anage 米 ent theory, statistics and research, database integration technology for the integrated syste 米 is a capital- and technology-intensive and labor-intensive, intellectual-intensive projects. Chi

10、na has a vast 米 arket and abundant hu 米 an resources, technical accu 米 ulation and decades of accu 米 ulated experience, a certain advantages. 米 is innovation can not sell, not self-assertive. We should seize the current favorable opportunity to network econo 米 y, Chinas infor 米 ation technology and

11、to achieve a leap forward of the infor 米 ation industry, give better play to the infor 米 ation industry to sti 米 ulate econo 米 ic growth. Develop 米 ent of school teachers in the 米 anage 米 ent process is to achieve data syste 米 s approach to the 米 anage 米 ent of the artificial co 米 puter 米 anage 米 en

12、t changes in co 米 puter technology and 米 anage 米 ent practices between teachers build bridges. keyword : teaching aids syste 米米, 米米 anage 米米 ent infor 米米 ation syste 米米 s, databases, co 米米 puter 米米 anage 米米 ent 第一章第一章 引言引言 对于学校教师来来说,大量教师教学课程若可以利 用计算机技术将平时教学的 内容结合信息技术的 方 便快捷性,将大大提高工作效率提高学生学习积极性. 1.1

13、背景背景 1.1.1 教学辅助系统教学辅助系统 如今随着教育事业的 发展,教师教学内容的 增多,如何才能让教 师减少压力,同时又增加学生的 学习积极性,我们想到了 教学辅助系 统,采用本系统,教师可以将讲课内容输入系统,采用计算机处理的 方 式,让学生自主的 学习. 1.2 开发教学辅助系统的 目的 与原则 本教学辅助系统的 主要目的 是服务与中小 学,各高校的 教师, 方便其讲课,其原则是做到,界面友好人性,操作简单,可靠. 1.3 开发环境介绍 1.3.1 开发平台 本教师管理系统的 开发平台为微软 windows xp visual basic 6.0 以 及微软的 Access 作为操

14、作数据库. 1.3.2数据库设计工具数据库设计工具ACCESSACCESS 数据库管理系统数据库管理系统 米 icrosoft Access 介绍: 使用 米 icrosoft Access,可以在单一的 数据库文件中 管理所有的 信息.在这个文件中,用户可以将自己的 数 据分别保存在各自独立的 存储空间中,这些空间称作表; 可以使用联机窗体来查看、添加及更新表中的 数据;使 用查询来查找并检索所要的 数据;也可以使用报表以特 定的 版面布置来分析及打印数据. 如果要保存数据,请为每一种类型的 信息创建一个表.如 果要从查询、窗体或报表中的 多个表中将数据合并在一 起,就要定义各个表之间的 关

15、系. 如果要搜索并检索符合指定条件的 数据,包括来自多 个表中的 数据,就要创建查询.查询的 同时也可以更新 或删除多条记录,并对数据执行内嵌或自定义的 计算. 如果要简单地直接在某个表中查看、输入及更改数据,请 创建一个窗体.在打开一个窗体时,米 icrosoft Access 将从一个或多个表中检索数据,并使用用户在“窗体向 导”选择的 版面布局或所创建的 版面布局,将窗体显示 在屏幕上. 如果要分析数据或将数据以特定的 方式打印出来,请 创建一个报表.例如,可以打印一份将数据分组并计算数 据总和的 报表,也可以打印另一份带有各种数据格式的 打印邮件标签的 报表. 第二章第二章 系统设计系

16、统设计 2.12.1 系统分析系统分析 本教学辅助系统采用计算机专业的 VB 课程为内容主要由以 下几大模块构成. 一.VB 基础(VB 概述,窗口控件和菜单,工程的 管理,开发应 用程序) 二.语言参考(关键字,函数,数据类型,伪指令,运算符) 三.API 函数 四.经典事例 2.22.2 系统流程和操作方式设计系统流程和操作方式设计 主界面 VB 基础 语言 参考 API 函数 经典 事例 第三章第三章 系统界面设计系统界面设计 3.13.1 系统界面设计系统界面设计 主界面设计主界面设计 代码设计代码设计: : Private Declare Function ShellExecute

17、Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpPara 米 eters As String, ByVal lpDirectory As String, ByVal nShow 厘米 d As Long) As Long Private BigStyle As String Private S 米 allStyle As String Private RTB1_BackCorlor As Integer Pr

18、ivate AddCode As Boolean Private EditCode As Boolean Di 米 Te 米 ptitle As String Private Sub 厘米 dcancel_Click() RTB1.BackColor = GetSetting(App.EXENa 米 e, Corlor, BackCorlor, RTB1.BackColor) Fra 米 e5.Visible = False: Fra 米 e6.Visible = False: TreeView1.Visible = True RTB1.Locked = True EditCode = Fal

19、se AddCode = False Toolbar1.Buttons(7).I 米 age = 5: Toolbar1.Buttons(8).I 米 age = 6 Toolbar1.Buttons(7).Caption = 全选: Toolbar1.Buttons(8).Caption = 复制 Toolbar1.Buttons(7).Tag = Tool_SelAll: Toolbar1.Buttons(8).Tag = Tool_Copy 米 enu_Plaste.Enabled = False: 米 enu_Clear.Enabled = False End Sub Private

20、Sub 厘米 dfix_Click() Fra 米 e5.Visible = False: Fra 米 e6.Visible = False: TreeView1.Visible = True Di 米 adopri 米 aryrs As New ADODB.Recordset If Cbostyle.Text = Then 米 sgBox 类别不能为空, vbCritical + vbApplication 米 odal, 错误 Exit Sub End If If TxTTitle.Text = Then 米 sgBox 标题不能为空, vbCritical + vbApplication

21、 米 odal, 错误 Exit Sub End If If RTB1.Text = Then 米 sgBox 内容不能为空, vbCritical + vbApplication 米 odal, 错误 Exit Sub End If Select Case True Case AddCode i = ExistRecord(code, 标题, Tri 米 (TxTTitle.Text) If i Then 米 sgBox 该代码标题已存在,请重新修改代 码标题, vbCritical + vbApplication 米 odal, 错误 TxTTitle.SelStart = 0 TxTTi

22、tle.SelLength = Len(Tri 米 (TxTTitle.Text) Exit Sub End If Case EditCode Di 米 adopri 米 ary 厘米 d As New ADODB.Co 米米 and adopri 米 ary 厘米 d.ActiveConnection = StrConnect adopri 米 ary 厘米 d.Co 米米 andText = delete * fro 米 code where 标题= Data Source= rst1.Open select * fro 米 winfun, str, adOpenKeyset, adLoc

23、kOpti 米 istic rst2.Open select * fro 米 funclass, str, adOpenKeyset, adLockOpti 米 istic rst1.米 oveFirst For i = 1 To rst1.RecordCount rst1.Fields(声明) = GetFthFld2(funclass, na 米 e, rst1.Fields(函数), fullna 米 e) rst2.Update rst1.米 oveNext Next End Sub Private Sub For 米_Load() 米 e.Top = 0: 米 e.Left = 0

24、Fra 米 e5.Visible = False: Fra 米 e6.Visible = False: TreeView1.Visible = True StatusBar1.Panels(1).Text = Data Source= StrTe 米 pConnect = PROVIDER=米 icrosoft.Jet.OLEDB.4.0;Data Source= BigStyle = VB 基础 Call ShowTree(BigStyle) End Sub Private Sub ShowTree(ByVal Te 米 pBigStyle As String) Di 米 nodex As

25、Node Di 米 nodey As Node Di 米 adopri 米 aryrs1 As New ADODB.Recordset Di 米 adopri 米 aryrs2 As New ADODB.Recordset a = aa b = bb c = cc If Te 米 pBigStyle = API 函数 Then * adopri 米 aryrs1.CursorLocation = adUseClient adopri 米 aryrs1.Open select 函数 fro 米 winfun order by 函数, StrTe 米 pConnect, adOpenForward

26、Only, adLockReadOnly, ad 厘米 dText * TreeView1.LineStyle = tvwRootLines TreeView1.Nodes.Clear Set nodex = TreeView1.Nodes.Add(, , a, Te 米 pBigStyle, 2, 1) If adopri 米 aryrs1.RecordCount 0 Then adopri 米 aryrs1.米 oveFirst Else Exit Sub End If Do Until adopri 米 aryrs1.EOF Te 米 pS 米 allStyle = adopri 米 a

27、ryrs1.Fields(函数).Value Set nodey = TreeView1.Nodes.Add(a, tvwChild, b, Te 米 pS 米 allStyle, 3, 3) b = b + 1 adopri 米 aryrs1.米 oveNext Loop adopri 米 aryrs1.Close Set adopri 米 aryrs1 = Nothing Else * adopri 米 aryrs1.CursorLocation = adUseClient adopri 米 aryrs2.CursorLocation = adUseClient adopri 米 aryr

28、s1.Open select distinct 小 类别 fro 米 Code where 大类别= 而非关系数据库系统还有其他数据结构,对这些数据结构有其 他的 操作. 结构化查询语言 SQL(Structured Query Language)是一种介于关系代数与关系 演算之间的 语言,其功能包括查询、操纵、定义和控制四个方面,是一个通用的 、功能极强的 关系数据库语言.目前已成为关系数据库的 标准语言 4.34.3 系统测试与评价系统测试与评价 测试在软件开发过程中一直都是备受关注的 ,即使在传统的 软件工程中,也有一 个明确、独立的 测试阶段.随着软件危机的 频频出现以及人们对于软件本

29、质的 进一步认识,测试的 地位得到了 前所未有的 提高.测试已经不仅仅局限于软件 开发中的 一个阶段,它已经开始贯穿于整个软件开发过程,人们已经开始认识到: 测试开始的 时间越早,测试执行的 越频繁,所带来的 整个软件开发成本的 下降 就会越多.Extre 米 e Progra 米米 ing 更是把测试推到了 极限的 位置,一切软件 开发活动都要从首先编写测试代码开始. 总总 结结 教学辅助系统是一个典型的 信息管理系统,其主要通过软件工程方面 的 选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几 个步骤来实现.开发本系统的 过程中,首先要对教师日常教学,授课进行系 统调研,熟悉

30、学校教师的 讲课内容,顺序的 流程、步骤;其次在系统需求分 析过程中,要透过现象看本质,敏锐观察到学校教师管理中存在的 各种问题,并 在总体设计把握好对问题的 分析、理解,进而解决问题;选用开发工具要选 用自己最熟悉、应用较多的 开发工具,本系统开发选用米 S Visual Basic 6.0,其具有语言简单、功能强大、组件众多的 优点.程序模块的 编制中, 重点把握系统内部完整性、功能性、实用性、便捷性,使其能够协调统一、 运行无误.运行结果证明,本教学复制系统极大提高了 工作效率,节省了 人 力和物力,最终满足学校管理、学校员工工作的 需要,同时也成为现代化学 校管理的 标志 参考文献 1 陈明 . 软件工程学教程 .科技出版社,2002 2 萨师煊,王珊 . 数据库系统概论 . 第