教学辅助系统(毕业论文)

1、-WORD格式 - 可编辑 -毕业设计院系 _专业 _班级 _姓名 _日期年月日-WORD格式 - 可编辑 -目 录摘要IABSTRACT II第一章引言 11.1背景1教师管理系统11.2 开发教师管理系统的目的和原则31.3 开发环境介绍3开发平台4数据库设计工具ACCESS 数据库管理系统7第二章系统设计92.1系统分析92.2系统流程和操作方式设计11第三章系统界面设计123.1 系统界面设计以及代码分析12第四章数据库的设计304.1 数据库设计304.2数据库概念和发展304.3 系统测试与评价38总结 39致谢40参考文献41-WORD格式 - 可编辑 -摘要世纪以来，社会生产力

2、迅速发展，科学技术突飞猛进，人们进行信息交流的深度与广度不断增加，信息量急剧增长，传统的信息处理与决策的手段已不能适应社会的需要，信息的重要性和信息处理问题的紧迫性空前提高了，面对着日益复杂和不断发展，变化的社会环境，特别是企业间日趋剧烈的竞争形势，一个人、一个企业要在现代社会中求生存，求发展，必须具备足够的信息和强有力的信息收集与处理手段。对于学校教师来来说，大量教师教学课程若可以利用计算机技术将平时教学的内容结合信息技术的方便快捷性 , 将大大提高工作效率提高学生学习积极性. 同样教学水平的信息话也是衡量一个社会进步也否的重要指标 . 这就迫切需要利用计算机技术来帮助学校管理者来处理教师日

3、常教学信息的信息化管理. 教学辅助系统是管理信息系统的一个典型用例.管理信息系统是一个集信息技术、经济管理理论、统计学与运筹学、数据库技术为一体的综合性系统，是一个资金技术密集型、劳动密集型、智力密集型的-WORD格式 - 可编辑 -项目。我国拥有广阔的市场和丰富的人才资源，有几十年的技术积累和经验积累，有一定的后发优势。管理信息系统的创新工作既不能妄自菲薄，更不能夜郎自大。要抓住当前网络经济兴起的有利时机，以实现我国信息技术和信息产业的跨越式发展，更好地发挥信息产业对国民经济增长的拉动作用。开发学校教师管理系统的过程就是要实现数据处理方式由人工管理向计算机管理的转变，它在计算机技术和教师管理

4、实践活动两者之间架设桥梁。关键字 : 教学辅助系统 , 管理信息系统 , 数据库 , 计算机管理Abstract：Since the 20th century, the rapid development of social productive forces,science and technology, exchange of information is the depth and scopeof increasing the volume of information rapid growth, the traditional-WORD格式 - 可编辑 -information pro

5、cessing and decision-making tools have not the needs ofthe community, the importance of information and information processingproblems urgency unprecedented increase, in the face of increasinglycomplex and evolving. changes in the social environment, in particularthe increasingly keen competition am

6、ong enterprises situation, a personor an enterprise to survive in modern society, and development, we musthave sufficient information and powerful information gathering andprocessing tools.For teachers to schools, a large number of teachers teaching courses ifthey can use computer technology to the

7、teaching content of theconvenient nature of it, will greatly increase the efficiency of learningenthusiasm. Teaching is the same level of information, whether themeasure is one important indicator of social progress. This urgent needfor using computer technology to help school managers to deal withd

8、ay-to-day teaching teachers of information technology managementinformation. teaching aids system is a typical management informationsystem used cases.Management Information System is a collection of information technology,economic management theory, statistics and research, databaseintegration tech

9、nology for the integrated system is a capital-andtechnology-intensive and labor-intensive, intellectual-intensive projects.China has a vast market and abundant human resources, technical-WORD格式 - 可编辑 -accumulation and decades of accumulated experience, a certainadvantages. Mis innovation can not sel

10、l, not self-assertive. We shouldseize the current favorable opportunity to network economy, Chinasinformation technology and to achieve a leap forward of the informationindustry, give better play to the information industry to stimulateeconomic growth.Development of school teachers in the management

11、 process is to achievedata systems approach to the management of the artificial computermanagement changes in computer technology and management practicesbetween teachers build bridges.keyword : teaching aids system, management information systems,databases, computer management-WORD格式 - 可编辑 -第一章 引言对

12、于学校教师来来说，大量教师教学课程若可以利用计算机技术将平时教学的内容结合信息技术的方便快捷性 , 将大大提高工作效率提高学生学习积极性.1.1 背景教学辅助系统如今随着教育事业的发展 , 教师教学内容的增多 , 如何才能让教师减少压力 ,同时又增加学生的学习积极性 ,我们想到了教学辅助系统 , 采用本系统 ,教师可以将讲课内容输入系统 ,采用计算机处理的方式 , 让学生自主的学习 .1.2 开发教学辅助系统的目的与原则本教学辅助系统的主要目的是服务与中小学 ,各高校的教师 ,方便其讲课 ,其原则是做到 ,界面友好人性 ,操作简单 ,可靠 .1.3 开发环境介绍开发平台-WORD格式 - 可编

13、辑 -本教师管理系统的开发平台为微软windows xp visual basic 6.0以及微软的 Access 作为操作数据库.数据库设计工具ACCESS 数据库管理系统Microsoft Access介绍:使用 Microsoft Access ，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据； 也可以使用报表以特定的版面布置来分析及打印数据。如果要保存数据， 请为每一种类型的信息创建一个表。如果要从查询、 窗体或报表中的多个表中将数据合

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

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

16、xecuteA (ByVal hwnd As Long, ByVallpOperation As String, ByVal lpFile As String, ByVallpParametersAs String,ByVal lpDirectoryAs String,ByValnShowCmd As Long) As LongPrivate BigStyle As StringPrivate SmallStyle As StringPrivate RTB1_BackCorlor As IntegerPrivate AddCode As BooleanPrivate EditCode As B

17、ooleanDim Temptitle As String-WORD格式 - 可编辑 -Private Sub Cmdcancel_Click()RTB1.BackColor = GetSetting(App.EXEName, Corlor,BackCorlor, RTB1.BackColor)Frame5.Visible = False: Frame6.Visible = False:TreeView1.Visible = TrueRTB1.Locked = TrueEditCode = FalseAddCode = FalseToolbar1.Buttons(7).Image = 5:To

18、olbar1.Buttons(8).Image = 6Toolbar1.Buttons(7).Caption = Toolbar1.Buttons(8).Caption = 全选 :复制 Toolbar1.Buttons(7).Tag = Tool_SelAll:Toolbar1.Buttons(8).Tag = Tool_CopyMenu_Plaste.Enabled = False: Menu_Clear.Enabled =FalseEnd SubPrivate Sub Cmdfix_Click()Frame5.Visible = False: Frame6.Visible = False

19、:TreeView1.Visible = True-WORD格式 - 可编辑 -Dim adoprimaryrs As New ADODB.RecordsetIf Cbostyle.Text = ThenMsgBox 类别不能为空, vbCritical +vbApplicationModal, 错误 Exit SubEnd IfIf TxTTitle.Text = ThenMsgBox 标题不能为空, vbCritical +vbApplicationModal, 错误 Exit SubEnd IfIf RTB1.Text = ThenMsgBox 内容不能为空, vbCritical +v

20、bApplicationModal, 错误 Exit SubEnd IfSelect Case TrueCase AddCodei = ExistRecord(code, 标题 ,Trim(TxTTitle.Text)If i Then-WORD格式 - 可编辑 -MsgBox 该代码标题已存在，请重新修改代码标题 , vbCritical + vbApplicationModal, 错误 TxTTitle.SelStart = 0TxTTitle.SelLength =Len(Trim(TxTTitle.Text)Exit SubEnd IfCase EditCodeDim adoprima

21、rycmdAs New ADODB.Commandadoprimarycmd.ActiveConnection=StrConnectadoprimarycmd.CommandText = delete * fromcode where标题 = & Trim(Temptitle) & adoprimarycmd.ExecuteSet adoprimarycmd = NothingEnd Selectadoprimaryrs.CursorLocation = adUseClientadoprimaryrs.Open select * from code, StrConnect,adOpenKeys

22、et, adLockOptimistic, adCmdTextadoprimaryrs.MoveLastadoprimaryrs.AddNewadoprimaryrs.Fields(大类别 ) = Trim(BigStyle)adoprimaryrs.Fields(小类别 ) = Trim(Cbostyle)-WORD格式 - 可编辑 -adoprimaryrs.Fields(标题 ) = Trim(TxTTitle)adoprimaryrs.Fields(内容 ) = RTB1.Textadoprimaryrs.UpdateSet adoprimaryrs = NothingRTB1.Bac

23、kColor = GetSetting(App.EXEName, Corlor,BackCorlor, RTB1.BackColor)Call ShowTree(BigStyle)RTB1.Locked = TrueEditCode = FalseAddCode = FalseToolbar1.Buttons(7).Image = 5:Toolbar1.Buttons(8).Image = 6Toolbar1.Buttons(7).Caption = 全选 :Toolbar1.Buttons(8).Caption = 复制 Toolbar1.Buttons(7).Tag = Tool_SelA

24、ll:Toolbar1.Buttons(8).Tag = Tool_CopyMenu_Plaste.Enabled = False: Menu_Clear.Enabled= FalseRTB1.BackColor = GetSetting(App.EXEName, Corlor,BackCorlor, RTB1.BackColor)-WORD格式 - 可编辑 -End SubPrivate Sub Command1_Click()Dim str As String: Dim rst1 As NewADODB.Recordset: Dim rst2As New ADODB.RecordsetAp

25、p.Path & dataWinApi.mdb;rst1.Open select * from winfun, str, adOpenKeyset,adLockOptimisticrst2.Open select * from funclass, str, adOpenKeyset,adLockOptimisticrst1.MoveFirstFor i = 1 To rst1.RecordCountrst1.Fields(声明 ) = GetFthFld2(funclass,name,rst1.Fields(函数 ), fullname)rst2.Updaterst1.MoveNextNext

26、 End SubPrivate Sub Form_Load()Me.Top = 0: Me.Left = 0-WORD格式 - 可编辑 -Frame5.Visible = False: Frame6.Visible = False:TreeView1.Visible = TrueStatusBar1.Panels(1).Text = & Format(Date,long date) & & Time & RTB1.FileName = App.Path & dataabout.datRTB1.BackColor = GetSetting(App.EXEName, Corlor,BackCorl

27、or, RTB1.BackColor)Source= & App.Path & dataVB.mdb;StrTempConnect =App.Path & datawinapi.mdb;BigStyle = VB基础 Call ShowTree(BigStyle)End SubPrivate Sub ShowTree(ByVal TempBigStyle As String)Dim nodex As NodeDim nodey As NodeDim adoprimaryrs1 As New ADODB.RecordsetDim adoprimaryrs2 As New ADODB.Record

28、set-WORD格式 - 可编辑 -a = aab = bbc = ccIf TempBigStyle = API函数 Then*adoprimaryrs1.CursorLocation = adUseClientadoprimaryrs1.Openselect函数 fromwinfun orderby 函数 , StrTempConnect, adOpenForwardOnly,adLockReadOnly, adCmdText*TreeView1.LineStyle = tvwRootLinesSet, a, TempBigStyle,2, 1)If adoprimaryrs1.Recor

29、dCount 0 Thenadoprimaryrs1.MoveFirstElseExit SubEnd If-WORD格式 - 可编辑 -Do Until adoprimaryrs1.EOFTempSmallStyle = adoprimaryrs1.Fields(函数).ValueSettvwChild,b,TempSmallStyle, 3, 3)b = b + 1adoprimaryrs1.MoveNextLoopadoprimaryrs1.CloseSet adoprimaryrs1 = NothingElse*adoprimaryrs1.CursorLocation = adUseC

30、lientadoprimaryrs2.CursorLocation = adUseClientadoprimaryrs1.Open select distinct小类别fromCode where 大类别 = & TempBigStyle & , StrConnect, adOpenForwardOnly, adLockReadOnly, adCmdText*TreeView1.LineStyle = tvwRootLines-WORD格式 - 可编辑 -Set, a, TempBigStyle,2, 1)If adoprimaryrs1.RecordCount 0 Thenadoprimar

31、yrs1.MoveFirstElseExit SubEnd IfDo Until adoprimaryrs1.EOFTempSmallStyle= adoprimaryrs1.Fields(小类别).ValueSettvwChild,b,TempSmallStyle, 3, 3)If adoprimaryrs2.State = 1 Thenadoprimaryrs2.CloseEnd Ifadoprimaryrs2.Open select标题from Codewhere 大类别 = & TempBigStyle & and小类别= &TempSmallStyle & , StrConnect,

32、 adOpenForwardOnly,adLockReadOnly, adCmdTextIf adoprimaryrs2.RecordCount 0 Then-WORD格式 - 可编辑 -adoprimaryrs2.MoveFirstEnd IfDo Until adoprimaryrs2.EOFtvwChild, c, adoprimaryrs2.Fields(标题 ), 4, 4)c = c + 1adoprimaryrs2.MoveNextLoopb = b + 1adoprimaryrs1.MoveNextLoopadoprimaryrs1.Closeadoprimaryrs2.Clo

33、seSet adoprimaryrs1 = NothingSet adoprimaryrs2 = NothingEnd IfTreeView1.Nodes(1).Expanded = TrueEnd SubPrivate Sub Form_Resize()If Me.WindowState = maximized ThenMe.Width = 12000-WORD格式 - 可编辑 -Me.Height = 9000End IfEnd SubPrivate Sub Menu_BackCorlor_Click()CommonDialogCorlor.ShowColorRTB1.BackColor

34、= CommonDialogCorlor.ColorSaveSetting App.EXEName, Corlor, BackCorlor,RTB1.BackColorEnd SubPrivate Sub Menu_Clear_Click()SendKeys delEnd SubPrivate Sub Menu_Plaste_Click()SendKeys VEnd Sub-WORD格式 - 可编辑 -Private Sub TreeView1_NodeClick(ByVal Node AsMSComctlLib.Node)Temptitle =If BigStyle = API函数 Then

35、RTB1.Text = 别名： & GetFthFld22(winfun, 函数,Trim(Temptitle), 别名 ) & Chr(10) & Chr(13)RTB1.Text= RTB1.Text & 库名： & GetFthFld22(winfun, 函数 , Trim(Temptitle), 库名 ) & Chr(10) & Chr(13)RTB1.Text= RTB1.Text & 声明： & GetFthFld22(winfun, 函数 , Trim(Temptitle), 声明 ) & Chr(10) & Chr(13)RTB1.Text = RTB1.Text & 参数表：

36、 &GetFthFld22(winfun, 函数 , Trim(Temptitle), 参数表 ) &Chr(10) & Chr(13)ElseRTB1.Text= GetFthFld2(code, 标题 , Trim(Temptitle),内容 ) RTB1.SelStart = 0End IfEnd SubPrivate Sub Menu_About_Click()-WORD格式 - 可编辑 -StrMsg= 本软件是作者的毕业设计, 为免费软件欢迎大家使用. & Chr(13) & _& Chr(13) & _& Chr(13) & _& Chr(13) & _& Chr(13) & _

37、MsgBox StrMsg, vbOKOnly + vbInformationEnd SubPrivate Sub Menu_Add_Click()Frame5.Visible = True: Frame6.Visible = True:TreeView1.Visible = FalseCallSelFldtoCbo(code, 小类别 ,BigStyle,Cbostyle)Label4.Caption = （添加） TxTTitle.Text = RTB1.Text = On Error GoTo ERR:If ExistRecord(code, 标题 ,True Then-WORD格式 -

38、 可编辑 -Cbostyle.Text =)ElseIf ExistRecord(code, 小类别,True ThenCbostyle.Text =End IfEnd IfERR:RTB1.Locked = FalseRTB1.BackColor = RGB(255, 255, 255)AddCode = TrueToolbar1.Buttons(7).Image = 16:Toolbar1.Buttons(8).Image = 17Toolbar1.Buttons(7).Caption = 粘贴 :Toolbar1.Buttons(8).Caption = 清除 Toolbar1.Butt

39、ons(7).Tag = Tool_Plaste:Toolbar1.Buttons(8).Tag = Tool_ClearMenu_Plaste.Enabled = True: Menu_Clear.Enabled = True-WORD格式 - 可编辑 -End SubPrivate Sub Menu_API_Click()Label1.Caption = API函数 BigStyle = API函数 Toolbar1.Buttons(i).MixedState = FalseNext iToolbar1.Buttons(4).MixedState = TrueCall ShowTree(B

40、igStyle)End SubPrivate Sub Menu_Author_Click()ShellExecute Me.hwnd, open, , App.Path, 1, 0End SubPrivate Sub Menu_Basic_Click()Label1.Caption = VB基础 BigStyle = VB基础 Toolbar1.Buttons(i).MixedState = FalseNext i-WORD格式 - 可编辑 -Toolbar1.Buttons(2).MixedState = TrueCall ShowTree(BigStyle)End SubPrivate S

41、ub Menu_Big_Click()SaveSetting App.EXEName, Font, FontSize,End SubPrivate Sub Menu_Consult_Click()Label1.Caption = 语言参考BigStyle = 语言参考Toolbar1.Buttons(i).MixedState = FalseNext iToolbar1.Buttons(3).MixedState = TrueCall ShowTree(BigStyle)End SubPrivate Sub Menu_Copy_Click()-WORD格式 - 可编辑 -SendKeys CE

42、nd SubPrivate Sub Menu_Del_Click()On Error GoTo ERR:If ExistRecord(code, 标题 , Temptitle) = True ThenIf MsgBox(你真的要删除此记录吗？, vbYesNo +vbExclamation, 警告 ) = vbYes ThenDim adoprimarycmdAs New ADODB.Commandadoprimarycmd.ActiveConnection=StrConnectadoprimarycmd.CommandText = delete * fromcode where标题 = &

43、Trim(Temptitle) & adoprimarycmd.ExecuteSet adoprimarycmd = NothingRTB1.Text = Call Form_LoadEnd IfElseMsgBox 你必须先选择要删除的标题, vbOKOnly +vbCritical, 删除错误End IfExit Sub-WORD格式 - 可编辑 -ERR:MsgBox 你必须先选择要删除的标题, vbOKOnly +vbCritical, 删除错误End SubPrivate Sub Menu_Edit_Click()On Error GoTo ERR:If ExistRecord(co

44、de, 标题MsgBox 你必须先选择要修改的标题, vbOKOnly +vbCritical, 错误 Exit SubEnd IfFrame5.Visible = True: Frame6.Visible = True:TreeView1.Visible = FalseLabel4.Caption = （修改）CallSelFldtoCbo(code, 小类别 , BigStyle,Cbostyle)RTB1.Locked = FalseRTB1.BackColor = RGB(255, 255, 255)-WORD格式 - 可编辑 -Cbostyle.Text =)TxTTitle.Tex

45、t = TemptitleEditCode = TrueToolbar1.Buttons(7).Image = 16:Toolbar1.Buttons(8).Image = 17Toolbar1.Buttons(7).Caption = 粘贴 :Toolbar1.Buttons(8).Caption = 清除 Toolbar1.Buttons(7).Tag = Tool_Plaste:Toolbar1.Buttons(8).Tag = Tool_ClearMenu_Plaste.Enabled = True: Menu_Clear.Enabled = TrueExit SubERR:MsgBo

46、x 你必须先选择要修改的标题 , vbOKOnly + vbCritical, 错误 End SubPrivate Sub Menu_Example_Click()Label1.Caption = 经典事例BigStyle = 经典事例-WORD格式 - 可编辑 -Toolbar1.Buttons(i).MixedState = FalseNext iToolbar1.Buttons(5).MixedState = TrueCall ShowTree(BigStyle)End SubPrivate Sub Menu_Exit_Click()EndEnd SubPrivate Sub Menu_

47、Print_Click()MsgBox 系统找不到打印机.End SubPrivate Sub Menu_SelAll_Click()RTB1.SetFocusRTB1.SelStart = 0RTB1.SelLength = Len(RTB1.Text)End SubPrivate Sub Menu_Small_Click()-WORD格式 - 可编辑 -SaveSetting App.EXEName, Font, FontSize,End SubPrivate Sub Timer1_Timer()StatusBar1.Panels(1).Text = & Format(Date,long

48、date) & & Time & End SubPrivate Sub Toolbar1_ButtonClick(ByVal Button AsMSComctlLib.Button)Select Case Button.TagCase Tool_BasicCall Menu_Basic_ClickCase Tool_ConsultCall Menu_Consult_ClickCase Tool_APICall Menu_API_ClickCase Tool_ExampleCall Menu_Example_ClickCase Tool_SelAll-WORD格式 - 可编辑 -Call Men

49、u_SelAll_ClickCase Tool_CopyCall Menu_Copy_ClickCase Tool_PlasteCall Menu_Plaste_ClickCase Tool_ClearCall Menu_Clear_ClickCase Tool_PrintCall Menu_Print_ClickCase Tool_AddCall Menu_Add_ClickCase Tool_EditCall Menu_Edit_ClickCase Tool_DelCall Menu_Del_ClickCase Tool_AuthorCall Menu_Author_ClickCase T

50、ool_AboutCall Menu_About_ClickCase Tool_ExitCall Menu_Exit_ClickEnd Select-WORD格式 - 可编辑 -End Sub第四章数据库的设计4.1 数据库设计1.code 信息表 :v2.winfun表设计:-WORD格式 - 可编辑 -4.2数据库概念和发展关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。20 世纪 70 年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库发展的历史上，最重要的成就就是关系模型。关系数据库系统与非关系数据库系统的区别是： 关系系统只有“表“这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数据结构有其他的操作。结构化查询语言 SQL （Structured Query Language ）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言4.3 系统测试与评价测试在软件开发过程中一直都是备受关