基于Access 2003数据库开发设计的教学管理系统-大学毕业论文毕业设计学位论文范文.doc

教学管理系统1摘要和设计说明本论文是在Access 2003数据库应用教程的指导下，基于数据库技术的计算机系统能够有效地采集、存储、加工、传输、编码、排序、检索、维护和处理大量的数据。目前，各种数据库系统已经成为办公自动化系统、管理信息系统和决策支持系统的核心，并与计算机网络技术结合起来，成为电子商务等各种信息处理系统的核心，得到越来越多广泛的应用。Access 是微软司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 2.数据库管理系统的知识数据库是整个网站的基础，只有将数据库搭建起来，才能进行模块的编辑实施。这里采用的是数据库的开发工具Microsoft Access 2003。Access 数据库提供对象来了7种完成数据库的功能，这7种对象为表、查询、窗体、报表、页、宏、模块。表（Table）：表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存储数据库的数据，故又称数据表。查询（Query）：查询可以按索引快速查找到需要的记录。按要求筛选记录并能连接若干个白哦的字段组成新表。窗体（Form）：窗体提供了一种方便的浏览，输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。报表（Report）：报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。宏(Macro):宏相当于DOS中的批处理，用来自动执行一系列操作。Access列出了一些常用的操作供用户选择，是用起来十分方便。模块（Module）：模块的功能与洪类似，但它定义的操作比宏更精细和复杂，拥护可以根据自己的需要编写程序。页就是直接连接到数据库中的数据的一种WEB页。通过数据访问页讲数据发布到Internet或Intranet上，并可以是用浏览器进行数据的维修和操作。教学管理系统数据表设计与开发1、 开发平台简述a. 软件平台操作系统：Microsoft Windows7旗舰版 信息服务：Microsoft Internet Information Services数据库：Microsoft Access 2003简体中文版编辑设计：SQL、ASP、VBA文档工具：Microsoft Word 2003 简体中文版图片工具：QQ剪切工具（Ctrl+Alt+A）b.硬件平台处理器：Intel(R)Core(TM) i3 M 380 2.53GHz 2.53GHz系统类型：32位操作系统2、模块简述教学管理系统学生信息管理选课信息管理教师信息管理学生信息显示学生成绩子窗体学生信息查询登入学生信息查询课程及选课信息查询登入教师档案教师信息情况情况教师信息查询3数据库设计(1)数据库构成：学生档案表、学生成绩表、课程名表、学生选课表、教师档案表、教师授课表。（可以明确知道改表每一字段的名称、数据类型、相当属性等。要想创建一个表，首先需要设计和创建表的结构，然后再输入数据。）例如：表1 学生档案表字段名称字段类型必填字段说明学号文本（8）是主键姓名文本（10）是性别文本（2）否出生日期日期时间否政治面貌文本（10）否班级编号文本（8）否毕业学校文本（20）否（1）创建查询：按编号查询教师档案、按姓名查询教师档案、按学生课程编号查询学生成绩、按姓名查询、学号查询学生档案。（通过创建操作查询对象，可以对指定的数据表进行记录的添加、更新和删除的操作。）。（2）创建窗体：登入教师档案、登入学生档案、教师信息查询、教师信息情况浏览、教师管理系统主菜单、课程及选课信息查询、学生成绩子窗体、学生信息查询、学生信息显示。（使用窗体可以是数据库中数据的输入、查看和维护操作变得更加直观和方便。用户不能对数据进行修改、删除等，但为用户只能通过设计相应窗体来进行数据录入、维护与检索工作。从而为用户提供了操作的便利性和友好性，同时也又助于提高数据的准确性、安全性与可靠性。）。（3）创建报表：学生基本信息表。（可以使报表向导快速创建一个报表，然后再在设计视图中对其进行加工完善。）例如：（4）创建宏：按教师编号查询、按教师姓名查询、按学生姓名查询、按学生学号查询、课程名。（本系统中的查询统计功能都是通过相应的宏命令与所创建的窗体界面连接起来，为用户提供查询服务的。具体说，首先创建相应的宏，再通过宏将已经创建好的有关查询对象连接到窗体特定的命令按钮上，当单击该命令按钮时即可实现运行相应的宏，从而执行该宏所对应的查询并将查询结果显示出来。）4数据库系统功能设计与实现（1）.登入教师档案界面截图代码：Option Compare DatabasePrivate Sub Command34_Click()On Error GoTo Err_Command34_Click Screen.PreviousControl.SetFocus DoCmd.FindNextExit_Command34_Click: Exit SubErr_Command34_Click: MsgBox Err.Description Resume Exit_Command34_Click End SubPrivate Sub Command35_Click()On Error GoTo Err_Command35_Click DoCmd.GoToRecord , , acPreviousExit_Command35_Click:Exit SubErr_Command35_Click: MsgBox Err.Description Resume Exit_Command35_Click End SubPrivate Sub Command36_Click()On Error GoTo Err_Command36_Click DoCmd.GoToRecord , , acNewRecExit_Command36_Click:Exit SubErr_Command36_Click: MsgBox Err.Description Resume Exit_Command36_Click End SubPrivate Sub Command37_Click()On Error GoTo Err_Command37_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70Exit_Command37_Click: Exit SubErr_Command37_Click: MsgBox Err.Description Resume Exit_Command37_Click End SubPrivate Sub Command38_Click()On Error GoTo Err_Command38_Click DoCmd.CloseExit_Command38_Click: Exit SubErr_Command38_Click: MsgBox Err.Description Resume Exit_Command38_Click End SubPrivate Sub Command39_Click()On Error GoTo Err_Command39_Click DoCmd.CloseExit_Command39_Click:Exit SubErr_Command39_Click: MsgBox Err.Description Resume Exit_Command39_Click End SubPrivate Sub Command40_Click()On Error GoTo Err_Command40_Click DoCmd.GoToRecord , , acPreviousExit_Command40_Click:Exit SubErr_Command40_Click: MsgBox Err.Description Resume Exit_Command40_Click End SubPrivate Sub Command41_Click()On Error GoTo Err_Command41_Click DoCmd.GoToRecord , , acNextExit_Command41_Click:Exit SubErr_Command41_Click: MsgBox Err.Description Resume Exit_Command41_Click End SubPrivate Sub Form_Current()End Sub：（2）登入学生档案代码：Option Compare DatabasePrivate Sub 上_Click()On Error GoTo Err_上_Click DoCmd.GoToRecord , , acPreviousExit_上_Click:Exit SubErr_上_Click: MsgBox Err.Description Resume Exit_上_Click End SubPrivate Sub Command46_Click()On Error GoTo Err_Command46_Click Screen.PreviousControl.SetFocusDoCmd.FindNextExit_Command46_Click: Exit SubErr_Command46_Click: MsgBox Err.Description Resume Exit_Command46_Click End SubPrivate Sub Command47_Click()On Error GoTo Err_Command47_Click DoCmd.GoToRecord , , acNewRecExit_Command47_Click:Exit SubErr_Command47_Click: MsgBox Err.Description Resume Exit_Command47_Click End SubPrivate Sub Command48_Click()On Error GoTo Err_Command48_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70Exit_Command48_Click: Exit SubErr_Command48_Click: MsgBox Err.Description Resume Exit_Command48_Click End SubPrivate Sub Command49_Click()On Error GoTo Err_Command49_Click DoCmd.CloseExit_Command49_Click: Exit SubErr_Command49_Click: MsgBox Err.Description Resume Exit_Command49_Click End SubPrivate Sub Command50_Click()On Error GoTo Err_Command50_Click DoCmd.CloseExit_Command50_Click: Exit SubErr_Command50_Click: MsgBox Err.Description Resume Exit_Command50_Click End SubPrivate Sub Command53_Click()On Error GoTo Err_Command53_Click DoCmd.GoToRecord , , acNextExit_Command53_Click: Exit SubErr_Command53_Click: MsgBox Err.Description Resume Exit_Command53_Click End SubPrivate Sub Command54_Click()On Error GoTo Err_Command54_Click Screen.PreviousControl.SetFocus DoCmd.FindNextExit_Command54_Click:Exit SubErr_Command54_Click: MsgBox Err.Description Resume Exit_Command54_Click End SubPrivate Sub Command55_Click()On Error GoTo Err_Command55_ClickDoCmd.GoToRecord , , acNextExit_Command55_Click Exit SubErr_Command55_Click: MsgBox Err.Description Resume Exit_Command55_Click End SubPrivate Sub Command56_Click()On Error GoTo Err_Command56_Click DoCmd.GoToRecord , , acPreviousExit_Command56_Click: Exit SubErr_Command56_Click: MsgBox Err.Description Resume Exit_Command56_Click End SubPrivate Sub Command57_Click()On Error GoTo Err_Command57_Click DoCmd.GoToRecord , , acPreviousExit_Command57_Click: Exit SubErr_Command57_Click: MsgBox Err.Description Resume Exit_Command57_Click End SubPrivate Sub Command58_Click()On Error GoTo Err_Command58_Click DoCmd.GoToRecord , , acNextExit_Command58_Click: Exit SubErr_Command58_Click: MsgBox Err.Description Resume Exit_Command58_Click End SubPrivate Sub Command59_Click()On Error GoTo Err_Command59_Click DoCmd.CloseExit_Command59_Click: Exit SubErr_Command59_Click: MsgBox Err.Description Resume Exit_Command59_Click End SubPrivate Sub Form_Current()End Sub（3）教师信息查询代码：Option Compare DatabasePrivate Sub Command19_Click()On Error GoTo Err_Command19_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(25945) & ChrW(24072) & ChrW(22995) & ChrW(21517) & ChrW(26597) & ChrW(25214) DoCmd.RunMacro stDocNameExit_Command19_Click: Exit SubErr_Command19_Click: MsgBox Err.Description Resume Exit_Command19_Click End SubPrivate Sub Command20_Click()On Error GoTo Err_Command20_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(25945) & ChrW(24072) & ChrW(32534) & ChrW(21495) & ChrW(26597) & ChrW(-29726) DoCmd.RunMacro stDocNameExit_Command20_Click: Exit SubErr_Command20_Click: MsgBox Err.Description Resume Exit_Command20_Click End SubPrivate Sub Command21_Click()On Error GoTo Err_Command21_Click DoCmd.CloseExit_Command21_Click: Exit SubErr_Command21_Click: MsgBox Err.Description Resume Exit_Command21_Click End SubPrivate Sub Form_Current()End Sub（4）教师浏览情况代码Option Compare DatabasePrivate Sub Command19_Click()On Error GoTo Err_Command19_Click DoCmd.CloseExit_Command19_Click: Exit SubErr_Command19_Click: MsgBox Err.Description Resume Exit_Command19_ClickEnd SubPrivate Sub Form_Current()End Sub：（5）课程及选课信息查询代码：Option Compare DatabasePrivate Sub Command10_Click()On Error GoTo Err_Command10_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(21517) & ChrW(26597) & ChrW(-29726) DoCmd.RunMacro stDocNameExit_Command10_Click: Exit SubErr_Command10_Click: MsgBox Err.Description Resume Exit_Command10_ClickEnd SubPrivate Sub Command11_Click()On Error GoTo Err_Command11_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(31867) & ChrW(21035) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command11_Click: Exit SubErr_Command11_Click: MsgBox Err.Description Resume Exit_Command11_ClickEnd SubPrivate Sub Command12_Click()On Error GoTo Err_Command12_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(23398) & ChrW(20998) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command12_Click: Exit SubErr_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End SubPrivate Sub Command15_Click()On Error GoTo Err_Command15_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(21517) & ChrW(26597) & ChrW(-29726) DoCmd.RunMacro stDocNameExit_Command15_Click: Exit SubErr_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End SubPrivate Sub Command16_Click()On Error GoTo Err_Command16_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(23398) & ChrW(20998) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command16_Click: Exit SubErr_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End SubPrivate Sub Command17_Click()On Error GoTo Err_Command17_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(31867) & ChrW(21035) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command17_Click: Exit SubErr_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End SubPrivate Sub Command18_Click()On Error GoTo Err_Command18_Click DoCmd.CloseExit_Command18_Click: Exit SubErr_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End SubPrivate Sub Command19_Click()On Error GoTo Err_Command19_Click Dim stDocName As String stDocName = ChrW(-29698) & ChrW(31243) & ChrW(21517) DoCmd.RunMacro stDocNameExit_Command19_Click: Exit SubErr_Command19_Click: MsgBox Err.Description Resume Exit_Command19_Click End SubPrivate Sub Command20_Click()On Error GoTo Err_Command20_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(23398) & ChrW(29983) & ChrW(22995) & ChrW(21517) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command20_Click: Exit SubErr_Command20_Click: MsgBox Err.Description Resume Exit_Command20_Click End SubPrivate Sub Command21_Click()On Error GoTo Err_Command21_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(23398) & ChrW(29983) & ChrW(23398) & ChrW(21495) & ChrW(26597) & ChrW(-29726) DoCmd.RunMacro stDocNameExit_Command21_Click: Exit SubErr_Command21_Click: MsgBox Err.Description Resume Exit_Command21_Click End SubPrivate Sub Form_Current()End Sub（6）学生成绩子窗体代码：Option Compare DatabasePrivate Sub Form_Current()End Sub（6）学生信息查询代码：Option Compare DatabasePrivate Sub Command18_Click()On Error GoTo Err_Command18_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(23398) & ChrW(29983) & ChrW(22995) & ChrW(21517) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command18_Click: Exit SubErr_Command18_Click: MsgBox Err.Description Resume Exit_Command18_Click End SubPrivate Sub Command19_Click()On Error GoTo Err_Command19_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(23398) & ChrW(20998) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command19_Click: Exit SubErr_Command19_Click: MsgBox Err.Description Resume Exit_Command19_Click End SubPrivate Sub Command20_Click()On Error GoTo Err_Command20_Click DoCmd.CloseExit_Command20_Click: Exit SubErr_Command20_Click: MsgBox Err.Description Resume Exit_Command20_Click End SubPrivate Sub Command21_Click()On Error GoTo Err_Command21_Click Dim stDocName As String stDocName = ChrW(25353) & ChrW(-29698) & ChrW(31243) & ChrW(23398) & ChrW(20998) & ChrW(26597) DoCmd.RunMacro stDocNameExit_Command21_Click: Exit SubErr_Command21_Click: MsgBox Err.Description Resume Exit_Command21_Click End SubPrivate Sub Command22_Click()On Error GoTo Err_Command22_Click Dim stDocName As String stDocName = ChrW(-29698) & ChrW(31243) & ChrW(21517) DoCmd.RunMacro stDocNameExit_Command22_Click: Exit SubErr_Command22_Click: MsgBox Err.Description Resume Exit_Command22_Click End SubPrivate Sub Form_Current()End Sub(7)学生信息现示代码：Option Compare DatabasePrivate Sub Form_Current()End Sub（8）教学管理系统主菜单代码：Option Compare DatabasePrivate Sub Form_Open(Cancel As Integer) Minimize the database window and initialize the form. Move to the switchboard page that is marked as the default. Me.Filter = ItemNumber = 0 AND Argument = 默认 Me.FilterOn = True End SubPrivate Sub Form_Current() Update the caption and fill in the list of options. Me.Caption = Nz(Me!ItemText, ) FillOptions End SubPrivate Sub FillOptions() Fill in the options for this switchboard page. The number of buttons on the form. Const conNumButtons = 8 Dim con As Object Dim rs As Object Dim stSql As String Dim intOption As Integer Set the focus to the first button on the form, and then hide all of the buttons on the form but the first. You cant hide the field with the focus. Me!Option1.SetFocus For intOption = 2 To conNumButtons Me(Option & intOption).Visible = False Me(OptionLabel & intOption).Visible = False Next intOption Open the table of Switchboard Items, and find the first item for this Switchboard Page. Set con = Application.CurrentProject.Connection stSql = SELECT * FROM Switchboard Items stSql = stSql & WHERE ItemNumber 0 AND SwitchboardID= & Me!SwitchboardID stSql = stSql & ORDER BY ItemNumber; Set rs = CreateObject(ADODB.Recordset) rs.Open stSql, con, 1 1 = adOpenKeyset If there are no options for this Switchboard Page, display a message. Otherwise, fill the page with the items. If (rs.EOF) Then Me!OptionLabel1.Caption = 此切换面板页上无项目。 Else While (Not (rs.EOF) Me(Option & rs!ItemNumber).Visible = True Me(OptionLabel & rs!ItemNumber).Visible = True Me(OptionLabel & rs!ItemNumber).Caption = rs!ItemText rs.MoveNext Wend End If Close the recordset and the database. rs.Close Set rs = Nothing Set con = NothingEnd SubPrivate Function HandleButtonClick(intBtn As Integer) This function is called when a button is clicked. intBtn indicates which button was clicked. Constants for the commands that can be executed. Const conCmdGotoSwitchboard = 1 Const conCmdOpenFormAdd = 2 Const conCmdOpenFormBrowse = 3 Const conCmdOpenReport = 4 Const conCmdCustomizeSwitchboard = 5 Const conCmdExitApplication = 6 Const conCmdRunMacro = 7 Const conCmdRunCode = 8 Const conCmdOpenPage = 9 An error that is special cased. Const conErrDoCmdCancelled = 2501 Dim con As Object Dim rs As Object Dim stSql As StringOn Error GoTo HandleButtonClick_Err Find the item in the Switchboard Items table that corresponds to the button that was clicked. Set con = Application.CurrentProject.Connection Set rs = CreateObject(ADODB.Recordset) stSql = SELECT * FROM Switchboard Items stSql = stSql & WHERE SwitchboardID= & Me!SwitchboardID & AND ItemNumber= & intBtn rs.Open stSql, con, 1 1 = adOpenKeyset If no item matches, report the error and exit the function. If (rs.EOF) Then MsgBox 读取 Switchboard Items 表时出错。 rs.Close Set rs = Nothing Set con = Nothing Exit Function End If Select Case rs!Command Go to another switchboard. Case conCmdGotoSwitchboard Me.Filter = ItemNumber = 0 AND Switchb