access课程设计报告.docx

access课程设计报告.docx

《access课程设计报告.docx》由会员分享，可在线阅读，更多相关《access课程设计报告.docx（25页珍藏版）》请在冰豆网上搜索。

access课程设计报告

xxxx学院

《数据库技术与应用》课程设计

报告书

课程名称：

《数据库技术与应用》课程设计

设计题目：

高校公寓管理系统

指导教师：

xxx

班级：

组别：

第十组

同组人员：

评语：

计算机科学与工程学院

2014年1月3日

目录

第1章概述2

1.1选题的背景与意义2

1.2需求分析2

1.3相关技术分析3

第2章系统功能设计4

2.1系统总体结构设计图4

2.2系统功能模块4

2.2.1高校公寓管理系统4

2.2.2各房间的情况资料各房间的状态资料物品报修4

2.3界面设计5

第3章数据库设计6

3.1数据库逻辑结构设计6

3.2安全性和完整性设计7

3.3查询设计7

3.4窗体设计8

3.5报表设计9

第4章系统集成与实现代码11

第5章结束语19

考文献20

第1章概述

1.1选题的背景与意义

学生公寓,是大学生在高校校园里一个重要的学习、生活、交往的空间环境,大学生大约有2/3的时间是在学生公寓环境里渡过的。

学生公寓管理是高校基础性的管理工作，学生公寓管理系统对一个重点高校来说是必不可少的组成部分，随着我校规模的不断扩大，在校人数不断的增加，必将引起大家对学生公寓各项管理工作的要求提高，目前我校还停留在公寓管理人员手工记录数据的最初阶段，传统的工作方式——账本化的工作模式，这种模式获取信息慢，查阅困难，准确性差，很难适应高水平宿舍管理的需要。

因而旧的手工记录的公寓管理方式已经不能满足我校庞大的学生信息量和适应高速发展的信息化时代的需要。

当今社会是飞速发展进步的世界，原始的记录方式为竞争激烈的社会所淘汰，计算机化管理是顺应时代的产物，21世纪的今天,信息社会占有主流地位，计算机已不再只是简单的计算工具，它已成为我们生活和工作中处理大量信息不可缺少的手段，计算机在各行各业中的运用已经得到普及，自动化、信息化的管理越来越广泛应用于各个领域。

学生公寓管理具有程序性、规范性和技术性等确定性因素,利于通过计算机智能化辅助管理。

现在全国很多高校的学生公寓楼都采用了计算机统一管理，这样就需要一种系统管理软件来为公寓的管理者服务，协助他们来完成管理学生公寓这一庞大工作。

针对于此，我们设计了一套学生公寓管理系统，本系统最大的特点是通用性、简单操作性。

学生公寓管理系统采用计算机化管理，由过去的人工方式转变为计算机方式，由效率低、数据冗余、易产生错误转变为检索迅速、查找方便、可靠性高、存储量大，尽量做到人性化设计。

系统从对学生公寓的信息搜集开始到最后的公寓管理全部信息化，它主要包括：

学生基本信息管理、公寓财物管理、物品出入管理、报修管理等，可以更快地了解到每个学生的住宿情况,使宿舍的管理效率更高，使操作者能够舒适方便的运用，将为学校的公寓管理带来很大的方便，实现很大的改观，节省相当大的人力、物力、财力，促进学校各项工作的顺利展开。

1.2需求分析

目前，我校的学生公寓管理采用的是原始手工记录,面对学校发展的实际状况，通过实地调研，结合日常生活中的经验，我们进行了基本情况调查。

学生住在公寓楼中，每栋公寓楼都会有若干名宿舍管理员负责本公寓楼的日常管理，负责学生的日常工作，如宿舍进出、报修等业务。

每个学院都有辅导员进行学生管理，主要针对安全，突发事件，如晚归登记、卫生评比等进行管理。

1.2.1学生公寓财产统计的基本情况：

每个学生宿舍的财产皆属于学校，如电灯，床铺，柜子，桌椅等，为了对不同的财产进行区分，可以为每种财产编制不同的财产号，这样有利于财产的报修和管理，便于公寓物业统计。

各苑学生公寓现有的财产状况是：

椅子6把，套橱6厕所电灯等。

1.2.2学生公寓物品（主要是笔记本、桌椅）进出基本情况：

随着科技的发展，电脑已经风行大学校园，与此同时，携带方便、轻巧的笔记本电脑更是受到同学的青睐，这就给学生公寓管理带来了一定的挑战。

在我校有约60%的学生有笔记本电脑，且为了工作学习的需要，大家经常会携带进出学生公寓，这就给了不法分子趁虚而入的机会，所以加强电脑进出登记很有必要。

关于笔记本的进出，学生公寓也采取了一系列的措施，如带出笔记本电脑要登记学生姓名，学院，所住宿舍及电脑型号，时间，以及原因，从而有利于学校的管理和查证。

1.2.3学生公寓报修的基本情况：

宿舍楼中经常出现财产的损坏，比如灯泡的破损，厕所马桶的淤塞，橱柜的破损，下水道的堵塞等等。

这时，同学们需要将财产损坏情况报告给公寓管理员，以便学校派人进行维修。

在报修的过程中，学生需要登记宿舍号，损坏的财产编号，同时记录报修的时间和损坏的原因，且还要留下宿舍钥匙。

当损坏的财产维修完毕检查确认后，方可记录解决时间，取回钥匙。

1.3相关技术分析

1.3.1技术可行性分析：

硬件：

每栋公寓楼需配备一台计算机。

主要配置为CPU（PII300以上）、内存（64M以上）、显卡（4M以上）、系统为windows98以上.

软件：

学生公寓管理系统是用MicrosoftOfficeAccess2003编写的。

MicrosoftOfficeAccess2003是一种数据库管理程序，可赋予更佳的用户体验，并且新增了导入、导出和处理XML数据文件等功能。

由于该程序可以识别和标记常见错误，同时提供更正错误的选项，因此在Access2003中工作变得更加轻松自如。

另外，Access2003的新功能还可以帮助数据库开发人员查看有关数据库对象之间相关性的信息。

扩展数据库导入、导出和链接数据保护信息增强用户体验扩展数据库查看有关对象相关性的信息查看有关数据库对象之间相关性的信息。

查看使用特定对象的对象列表有助于随着时间维护数据库以及避免犯与丢失记录源相关的错误。

例如，“销售额”数据库中的“季度订单”查询不再需要，但是在将其删除之前，您可能需要查明数据库中哪些其他对象也使用该查询。

接着，在删除“季度订单”查询之前，您可以更改相关对象的记录源，或删除这些相关对象。

查看相关对象的完整列表可以帮助您节省时间并最大限度地减少错误。

除了查看绑定到选择的对象的对象列表之外，还可以查看正由选择的对象使用的对象。

技术人员：

学校内有大批的技术操作人员，以及勤工助学岗位上的同学皆可掌握普通操作，从而对公寓管理员进行定期培训，和对日常系统进行

1.3.2操作可行性分析：

为了实现无纸化管理，使工作更有条理，更方便，从而选用灵活、方便、友好的用户界面，为操作者准备灵活的输入形式。

本系统运行在通用的Windows操作系统上，具有Windows相似的操作界面。

具有简单易学，使用方便等特点，系统所采用的操作和工作方式皆符合公寓管理人员和学生的日常习惯，使用者会感到操作非常方便，公寓管理人员需要做的就是将数据输入到系统的数据库中去熟悉计算机的人员不需要再经过专门的培训即可熟练操作。

由于数据库的存储容量相当大，而且比较稳定，适合较长时间的保存，也不容易丢失，这无疑是为信息存储量比较大的学校提供了一个方便、快捷的操作方式。

第2章系统功能设计

2.1系统总体结构设计图

1.报修业务：

学生登记报修信息，管理员将学生报修信息输入数据库，形成报修信息表，维修员从报修信息表中获取需要维修的宿舍信息，进而报修，留下维修单，学生持维修单去管理员处反馈报修信息。

报修业务流程图

2.物品出入流程图

物品出入业务流程图

2.2系统功能模块

2.2.1高校公寓管理系统

2.2.2各房间的情况资料各房间的状态资料物品报修

2.3界面设计

第3章数据库设计

3.1数据库逻辑结构设计

.1数据结构

数据结构名

组成

宿舍信息

学号，姓名，性别，专业，宿舍号

宿舍物品信息

物品号，物品名

报修信息

宿舍号，物品名，提交日期，报修原因

.2数据项

1住宿学生数据字典：

属性名

存储代码

类型

长度

备注

学号

SNo

char

10

住宿学生学号

姓名

SName

char

8

住宿学生姓名

性别

SSex

char

2

住宿学生性别

专业

SDept

char

20

学生专业

宿舍号

Dno

char

6

住宿学生宿舍号

2物品出入管理数据字典：

属性名

存储代码

类型

长度

备注

姓名

SName

char

8

住宿学生姓名

宿舍号

Pno

Int

6

宿舍物品编号

物品名称

Pname

char

20

宿舍物品名

3.2安全性和完整性设计

3.3查询设计

3.4窗体设计

3.5报表设计

第4章系统集成与实现代码

PrivateSubCommand11_Click（）

OnErrorGoToErr_Command11_Click

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Command11_Click:

ExitSub

Err_Command11_Click:

MsgBoxErr.Description

ResumeExit_Command11_Click

EndSub

PrivateSubCommand12_Click（）

OnErrorGoToErr_Command12_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（21508）&ChrW（25151）&ChrW（-27148）&ChrW（30340）&ChrW（24773）&ChrW（20917）&ChrW（-29372）&ChrW（26009）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command12_Click:

ExitSub

Err_Command12_Click:

MsgBoxErr.Description

ResumeExit_Command12_Click

EndSub

PrivateSubCommand13_Click（）

OnErrorGoToErr_Command13_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（21508）&ChrW（25151）&ChrW（-27148）&ChrW（30340）&ChrW（29366）&ChrW（24577）&ChrW（-29372）&ChrW（26009）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command13_Click:

ExitSub

Err_Command13_Click:

MsgBoxErr.Description

ResumeExit_Command13_Click

EndSub

PrivateSubCommand15_Click（）

OnErrorGoToErr_Command15_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（29289）&ChrW（21697）&ChrW（25253）&ChrW（20462）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command15_Click:

ExitSub

Err_Command15_Click:

MsgBoxErr.Description

ResumeExit_Command15_Click

EndSub

PrivateSubCommand16_Click（）

OnErrorGoToErr_Command16_Click

DoCmd.Close

Exit_Command16_Click:

ExitSub

Err_Command16_Click:

MsgBoxErr.Description

ResumeExit_Command16_Click

EndSub

PrivateSubCommand17_Click（）

OnErrorGoToErr_Command17_Click

DoCmd.GoToRecord,,acNext

Exit_Command17_Click:

ExitSub

Err_Command17_Click:

MsgBoxErr.Description

ResumeExit_Command17_Click

EndSub

PrivateSubCommand11_Click（）

OnErrorGoToErr_Command11_Click

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Command11_Click:

ExitSub

Err_Command11_Click:

MsgBoxErr.Description

ResumeExit_Command11_Click

EndSub

PrivateSubCommand12_Click（）

OnErrorGoToErr_Command12_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（21508）&ChrW（25151）&ChrW（-27148）&ChrW（30340）&ChrW（24773）&ChrW（20917）&ChrW（-29372）&ChrW（26009）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command12_Click:

ExitSub

Err_Command12_Click:

MsgBoxErr.Description

ResumeExit_Command12_Click

EndSub

PrivateSubCommand13_Click（）

OnErrorGoToErr_Command13_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（21508）&ChrW（25151）&ChrW（-27148）&ChrW（30340）&ChrW（29366）&ChrW（24577）&ChrW（-29372）&ChrW（26009）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command13_Click:

ExitSub

Err_Command13_Click:

MsgBoxErr.Description

ResumeExit_Command13_Click

EndSub

PrivateSubCommand15_Click（）

OnErrorGoToErr_Command15_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（29289）&ChrW（21697）&ChrW（25253）&ChrW（20462）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command15_Click:

ExitSub

Err_Command15_Click:

MsgBoxErr.Description

ResumeExit_Command15_Click

EndSub

PrivateSubCommand16_Click（）

OnErrorGoToErr_Command16_Click

DoCmd.Close

Exit_Command16_Click:

ExitSub

Err_Command16_Click:

MsgBoxErr.Description

ResumeExit_Command16_Click

EndSub

PrivateSubCommand17_Click（）

OnErrorGoToErr_Command17_Click

DoCmd.GoToRecord,,acNext

Exit_Command17_Click:

ExitSub

Err_Command17_Click:

MsgBoxErr.Description

ResumeExit_Command17_Click

EndSub

PrivateSubCommand11_Click（）

OnErrorGoToErr_Command11_Click

Screen.PreviousControl.SetFocus

DoCmd.FindNext

Exit_Command11_Click:

ExitSub

Err_Command11_Click:

MsgBoxErr.Description

ResumeExit_Command11_Click

EndSub

PrivateSubCommand12_Click（）

OnErrorGoToErr_Command12_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（21508）&ChrW（25151）&ChrW（-27148）&ChrW（30340）&ChrW（24773）&ChrW（20917）&ChrW（-29372）&ChrW（26009）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command12_Click:

ExitSub

Err_Command12_Click:

MsgBoxErr.Description

ResumeExit_Command12_Click

EndSub

PrivateSubCommand13_Click（）

OnErrorGoToErr_Command13_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（21508）&ChrW（25151）&ChrW（-27148）&ChrW（30340）&ChrW（29366）&ChrW（24577）&ChrW（-29372）&ChrW（26009）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command13_Click:

ExitSub

Err_Command13_Click:

MsgBoxErr.Description

ResumeExit_Command13_Click

EndSub

PrivateSubCommand15_Click（）

OnErrorGoToErr_Command15_Click

DimstDocNameAsString

DimstLinkCriteriaAsString

stDocName=ChrW（29289）&ChrW（21697）&ChrW（25253）&ChrW（20462）

DoCmd.OpenFormstDocName,,,stLinkCriteria

Exit_Command15_Click:

ExitSub

Err_Command15_Click:

MsgBoxErr.Description

ResumeExit_Command15_Click

EndSub

PrivateSubCommand16_Click（）

OnErrorGoToErr_Command16_Click

DoCmd.Close

Exit_Command16_Click:

ExitSub

Err_Command16_Click:

MsgBoxErr.Description

ResumeExit_Command16_Click

EndSub

PrivateSubCommand17_Click（）

OnErrorGoToErr_Command17_Click

DoCmd.GoToRecord,,acNext

Exit_Command17_Click:

ExitSub

Err_Command17_Click:

MsgBoxErr.Description

ResumeExit_Command17_Click

EndSub

第5章结束语

052412448张雅豪：

作为工程造价专业的学生，我们专业在大一时的时候学过简单的微机原理和C语言编程。

大二开始接触，和了解Access开发平台的时间并不长，这学期在老师和同学的帮助下完成了第一个ACCESS系统——商店进货，销售，存货管理系统，这其实是我真正意义上接触的第一个程序，第一学期的C语言只能说是了解。

说是系统，真的功能还太不完善了。

就在这样的背景下，我开始向XX求救，查阅大量的资料后，在同学的帮助下开始了Access开发平台课程的学习。

并使用Access开发平台完成了商店进货，销售，存货管理系统。

通过为期一周的设计，使我了解到程序设计绝不仅仅是一个人的事情，它需要大量的人力，脑力参与其中，对程序的每一步骤都要求大家严谨，认真的对待，并且要不断的验算检核，以确保程序的可行性。

这一周，我们克服了重重困难，查阅大量资料后，在老师及相关组员的共同努力下，我们于今天完成了程序系统设计，并且通过了全部组员的验证，这一次的共同努力，增进了我们之间的感情，强化了努力学习的氛围，我相信在哦今后的学习中，我们将因此而受益匪浅！

052412447张坤浩：

刚开始学习EXCEL的时候，总觉得那软件挺好的，操作起来也非常方便，但是，由于太灵活太过于自由，总觉得缺少了约束性！

如今，学习了ACCESS的数据类型，才发现，原来，计