access课程设计报告.docx

1、access课程设计报告xxxx学院数据库技术与应用课程设计报告书课程名称： 数据库技术与应用课程设计设计题目： 高校公寓管理系统 指导教师： xxx 班 级： 组 别： 第十组 同组人员： 评 语： 计算机科学与工程学院2014年1月3日目 录第1章 概述 21.1 选题的背景与意义 21.2需求分析 21.3相关技术分析 3第2章 系统功能设计 42.1系统总体结构设计图 42.2 系统功能模块 42.2.1 高校公寓管理系统 42.2.2 各房间的情况资料 各房间的状态资料 物品报修 42.3 界面设计 5第3章 数据库设计 63.1 数据库逻辑结构设计 63.2 安全性和完整性设计 7

2、3.3 查询设计 73.4 窗体设计 83.5 报表设计 9第4章 系统集成与实现代码 11第5章 结束语 19考文献 20第1章 概述1.1 选题的背景与意义学生公寓,是大学生在高校校园里一个重要的学习、生活、交往的空间环境,大学生大约有2/3的时间是在学生公寓环境里渡过的。学生公寓管理是高校基础性的管理工作，学生公寓管理系统对一个重点高校来说是必不可少的组成部分，随着我校规模的不断扩大，在校人数不断的增加，必将引起大家对学生公寓各项管理工作的要求提高，目前我校还停留在公寓管理人员手工记录数据的最初阶段，传统的工作方式账本化的工作模式，这种模式获取信息慢，查阅困难，准确性差，很难适应高水平宿

3、舍管理的需要。因而旧的手工记录的公寓管理方式已经不能满足我校庞大的学生信息量和适应高速发展的信息化时代的需要。当今社会是飞速发展进步的世界，原始的记录方式为竞争激烈的社会所淘汰，计算机化管理是顺应时代的产物，21世纪的今天,信息社会占有主流地位，计算机已不再只是简单的计算工具，它已成为我们生活和工作中处理大量信息不可缺少的手段，计算机在各行各业中的运用已经得到普及，自动化、信息化的管理越来越广泛应用于各个领域。学生公寓管理具有程序性、规范性和技术性等确定性因素,利于通过计算机智能化辅助管理。现在全国很多高校的学生公寓楼都采用了计算机统一管理，这样就需要一种系统管理软件来为公寓的管理者服务，协助

4、他们来完成管理学生公寓这一庞大工作。针对于此，我们设计了一套学生公寓管理系统，本系统最大的特点是通用性、简单操作性。学生公寓管理系统采用计算机化管理，由过去的人工方式转变为计算机方式，由效率低、数据冗余、易产生错误转变为检索迅速、查找方便、可靠性高、存储量大，尽量做到人性化设计。系统从对学生公寓的信息搜集开始到最后的公寓管理全部信息化，它主要包括：学生基本信息管理、公寓财物管理、物品出入管理、报修管理等，可以更快地了解到每个学生的住宿情况,使宿舍的管理效率更高，使操作者能够舒适方便的运用，将为学校的公寓管理带来很大的方便，实现很大的改观，节省相当大的人力、物力、财力，促进学校各项工作的顺利展开

5、。1.2需求分析目前，我校的学生公寓管理采用的是原始手工记录, 面对学校发展的实际状况，通过实地调研，结合日常生活中的经验，我们进行了基本情况调查。学生住在公寓楼中，每栋公寓楼都会有若干名宿舍管理员负责本公寓楼的日常管理，负责学生的日常工作，如宿舍进出、报修等业务。每个学院都有辅导员进行学生管理，主要针对安全，突发事件，如晚归登记、卫生评比等进行管理。1.2.1 学生公寓财产统计的基本情况：每个学生宿舍的财产皆属于学校，如电灯，床铺，柜子，桌椅等，为了对不同的财产进行区分，可以为每种财产编制不同的财产号，这样有利于财产的报修和管理，便于公寓物业统计。各苑学生公寓现有的财产状况是：椅子6把，套橱

6、6厕所电灯等。1.2.2学生公寓物品（主要是笔记本、桌椅）进出基本情况：随着科技的发展，电脑已经风行大学校园，与此同时，携带方便、轻巧的笔记本电脑更是受到同学的青睐，这就给学生公寓管理带来了一定的挑战。在我校有约60%的学生有笔记本电脑，且为了工作学习的需要，大家经常会携带进出学生公寓，这就给了不法分子趁虚而入的机会，所以加强电脑进出登记很有必要。关于笔记本的进出，学生公寓也采取了一系列的措施，如带出笔记本电脑要登记学生姓名，学院，所住宿舍及电脑型号，时间，以及原因，从而有利于学校的管理和查证。1.2.3 学生公寓报修的基本情况：宿舍楼中经常出现财产的损坏，比如灯泡的破损，厕所马桶的淤塞，橱柜

7、的破损，下水道的堵塞等等。这时，同学们需要将财产损坏情况报告给公寓管理员，以便学校派人进行维修。在报修的过程中，学生需要登记宿舍号，损坏的财产编号，同时记录报修的时间和损坏的原因，且还要留下宿舍钥匙。当损坏的财产维修完毕检查确认后，方可记录解决时间，取回钥匙。1.3相关技术分析1.3.1技术可行性分析：硬件：每栋公寓楼需配备一台计算机。主要配置为CPU（PII300以上）、内存（64M以上）、显卡（4M以上）、系统为windows98以上.软件：学生公寓管理系统是用Microsoft Office Access 2003 编写的。Microsoft Office Access 2003 是一种

8、数据库管理程序，可赋予更佳的用户体验，并且新增了导入、导出和处理 XML 数据文件等功能。由于该程序可以识别和标记常见错误，同时提供更正错误的选项，因此在 Access 2003 中工作变得更加轻松自如。另外，Access 2003 的新功能还可以帮助数据库开发人员查看有关数据库对象之间相关性的信息。 扩展数据库 导入、导出和链接数据 保护信息 增强用户体验 扩展数据库 查看有关对象相关性的信息 查看有关数据库对象之间相关性的信息。查看使用特定对象的对象列表有助于随着时间维护数据库以及避免犯与丢失记录源相关的错误。例如，“销售额”数据库中的“季度订单”查询不再需要，但是在将其删除之前，您可能需

9、要查明数据库中哪些其他对象也使用该查询。接着，在删除“季度订单”查询之前，您可以更改相关对象的记录源，或删除这些相关对象。查看相关对象的完整列表可以帮助您节省时间并最大限度地减少错误。除了查看绑定到选择的对象的对象列表之外，还可以查看正由选择的对象使用的对象。技术人员： 学校内有大批的技术操作人员，以及勤工助学岗位上的同学皆可掌握普通操作，从而对公寓管理员进行定期培训，和对日常系统进行1.3.2操作可行性分析：为了实现无纸化管理，使工作更有条理，更方便，从而选用灵活、方便、友好的用户界面，为操作者准备灵活的输入形式。本系统运行在通用的Windows操作系统上，具有Windows相似的操作界面。

10、具有简单易学，使用方便等特点，系统所采用的操作和工作方式皆符合公寓管理人员和学生的日常习惯，使用者会感到操作非常方便，公寓管理人员需要做的就是将数据输入到系统的数据库中去熟悉计算机的人员不需要再经过专门的培训即可熟练操作。由于数据库的存储容量相当大，而且比较稳定，适合较长时间的保存，也不容易丢失，这无疑是为信息存储量比较大的学校提供了一个方便、快捷的操作方式。第2章 系统功能设计2.1系统总体结构设计图1.报修业务：学生登记报修信息，管理员将学生报修信息输入数据库，形成报修信息表，维修员从报修信息表中获取需要维修的宿舍信息，进而报修，留下维修单，学生持维修单去管理员处反馈报修信息。报修业务流程

11、图2.物品出入流程图物品出入业务流程图2.2 系统功能模块2.2.1 高校公寓管理系统2.2.2 各房间的情况资料 各房间的状态资料 物品报修2.3 界面设计第3章 数据库设计3.1 数据库逻辑结构设计.1数据结构数据结构名组成宿舍信息学号，姓名，性别，专业，宿舍号宿舍物品信息物品号，物品名报修信息宿舍号，物品名，提交日期，报修原因.2数据项1 住宿学生数据字典：属性名存储代码类型长度备注学号SNochar10住宿学生学号姓名SNamechar8住宿学生姓名性别SSexchar2住宿学生性别专业SDeptchar20学生专业宿舍号Dnochar6住宿学生宿舍号2 物品出入管理数据字典：属性名存

12、储代码类型长度备注姓名SNamechar8住宿学生姓名宿舍号PnoInt6宿舍物品编号物品名称Pnamechar20宿舍物品名3.2 安全性和完整性设计3.3 查询设计3.4 窗体设计3.5 报表设计第4章 系统集成与实现代码Private Sub Command11_Click()On Error GoTo Err_Command11_Click Screen.PreviousControl.SetFocus DoCmd.FindNextExit_Command11_Click: Exit SubErr_Command11_Click: MsgBox Err.Description Resu

13、me Exit_Command11_Click End SubPrivate Sub Command12_Click()On Error GoTo Err_Command12_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(21508) & ChrW(25151) & ChrW(-27148) & ChrW(30340) & ChrW(24773) & ChrW(20917) & ChrW(-29372) & ChrW(26009) DoCmd.OpenForm stDocName, , ,

14、 stLinkCriteriaExit_Command12_Click: Exit SubErr_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End SubPrivate Sub Command13_Click()On Error GoTo Err_Command13_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(21508) & ChrW(25151) & ChrW(-27148) & ChrW(

15、30340) & ChrW(29366) & ChrW(24577) & ChrW(-29372) & ChrW(26009) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command13_Click: Exit SubErr_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End SubPrivate Sub Command15_Click()On Error GoTo Err_Command15_Click Dim stDocName As Str

16、ing Dim stLinkCriteria As String stDocName = ChrW(29289) & ChrW(21697) & ChrW(25253) & ChrW(20462) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command15_Click: Exit SubErr_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End SubPrivate Sub Command16_Click()On Error GoTo Err_C

17、ommand16_Click DoCmd.CloseExit_Command16_Click: Exit SubErr_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End SubPrivate Sub Command17_Click()On Error GoTo Err_Command17_Click DoCmd.GoToRecord , , acNextExit_Command17_Click: Exit SubErr_Command17_Click: MsgBox Err.Description R

18、esume Exit_Command17_Click End SubPrivate Sub Command11_Click()On Error GoTo Err_Command11_Click Screen.PreviousControl.SetFocus DoCmd.FindNextExit_Command11_Click: Exit SubErr_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click End SubPrivate Sub Command12_Click()On Error GoTo Err_C

19、ommand12_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(21508) & ChrW(25151) & ChrW(-27148) & ChrW(30340) & ChrW(24773) & ChrW(20917) & ChrW(-29372) & ChrW(26009) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command12_Click: Exit SubErr_Command12_Click: MsgBox Err.De

20、scription Resume Exit_Command12_Click End SubPrivate Sub Command13_Click()On Error GoTo Err_Command13_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(21508) & ChrW(25151) & ChrW(-27148) & ChrW(30340) & ChrW(29366) & ChrW(24577) & ChrW(-29372) & ChrW(26009) DoCmd.OpenForm

21、stDocName, , , stLinkCriteriaExit_Command13_Click: Exit SubErr_Command13_Click: MsgBox Err.Description Resume Exit_Command13_Click End SubPrivate Sub Command15_Click()On Error GoTo Err_Command15_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(29289) & ChrW(21697) & ChrW(2

22、5253) & ChrW(20462) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command15_Click: Exit SubErr_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End SubPrivate Sub Command16_Click()On Error GoTo Err_Command16_Click DoCmd.CloseExit_Command16_Click: Exit SubErr_Command16_Click: Ms

23、gBox Err.Description Resume Exit_Command16_Click End SubPrivate Sub Command17_Click()On Error GoTo Err_Command17_Click DoCmd.GoToRecord , , acNextExit_Command17_Click: Exit SubErr_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End SubPrivate Sub Command11_Click()On Error GoTo Er

24、r_Command11_Click Screen.PreviousControl.SetFocus DoCmd.FindNextExit_Command11_Click: Exit SubErr_Command11_Click: MsgBox Err.Description Resume Exit_Command11_Click End SubPrivate Sub Command12_Click()On Error GoTo Err_Command12_Click Dim stDocName As String Dim stLinkCriteria As String stDocName =

25、 ChrW(21508) & ChrW(25151) & ChrW(-27148) & ChrW(30340) & ChrW(24773) & ChrW(20917) & ChrW(-29372) & ChrW(26009) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command12_Click: Exit SubErr_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End SubPrivate Sub Command13_Click()On Er

26、ror GoTo Err_Command13_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(21508) & ChrW(25151) & ChrW(-27148) & ChrW(30340) & ChrW(29366) & ChrW(24577) & ChrW(-29372) & ChrW(26009) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command13_Click: Exit SubErr_Command13_Click:

27、 MsgBox Err.Description Resume Exit_Command13_Click End SubPrivate Sub Command15_Click()On Error GoTo Err_Command15_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(29289) & ChrW(21697) & ChrW(25253) & ChrW(20462) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command15_

28、Click: Exit SubErr_Command15_Click: MsgBox Err.Description Resume Exit_Command15_Click End SubPrivate Sub Command16_Click()On Error GoTo Err_Command16_Click DoCmd.CloseExit_Command16_Click: Exit SubErr_Command16_Click: MsgBox Err.Description Resume Exit_Command16_Click End SubPrivate Sub Command17_C

29、lick()On Error GoTo Err_Command17_Click DoCmd.GoToRecord , , acNextExit_Command17_Click: Exit SubErr_Command17_Click: MsgBox Err.Description Resume Exit_Command17_Click End Sub第5章 结束语052412448 张雅豪：作为工程造价专业的学生，我们专业在大一时的时候学过简单的微机原理和C语言编程。大二开始接触，和了解Access开发平台的时间并不长，这学期在老师和同学的帮助下完成了第一个ACCESS系统商店进货，销售，存货

30、管理系统，这其实是我真正意义上接触的第一个程序，第一学期的C语言只能说是了解。说是系统，真的功能还太不完善了。就在这样的背景下，我开始向XX求救，查阅大量的资料后，在同学的帮助下开始了Access开发平台课程的学习。并使用Access开发平台完成了商店进货，销售，存货管理系统。通过为期一周的设计，使我了解到程序设计绝不仅仅是一个人的事情，它需要大量的人力，脑力参与其中，对程序的每一步骤都要求大家严谨，认真的对待，并且要不断的验算检核，以确保程序的可行性。这一周，我们克服了重重困难，查阅大量资料后，在老师及相关组员的共同努力下，我们于今天完成了程序系统设计，并且通过了全部组员的验证，这一次的共同努力，增进了我们之间的感情，强化了努力学习的氛围，我相信在哦今后的学习中，我们将因此而受益匪浅！052412447 张坤浩：刚开始学习EXCEL的时候，总觉得那软件挺好的，操作起来也非常方便，但是，由于太灵活太过于自由，总觉得缺少了约束性！如今，学习了ACCESS的数据类型，才发现，原来，计