数据库课程设计Access版.docx

1、数据库课程设计Access版目 录第1章 课程设计目的与要求 11.1 课程设计目的 11.2 课程设计的实验环境 11.3 课程设计的预备知识 11.4 课程设计要求 1第2章 课程设计内容 22.1 系统设计 22.2 数据库模型 32.3 设计窗体和报表 92.4 窗体和报表模块主要代码 11第3章 课程设计总结 14参考文献 15第1章 课程设计目的与要求本课程的课程设计实际是电子商务和计算机信息管理专业学生学习完数据库原理及应用（ACCESS 2003）课程后，进行的一次全面的综合训练，其目的在于加深对数据库基础理论和基本知识的理解，掌握运用数据库应用系统开发软件的基本方法。1.2

2、课程设计的实验环境硬件要求能运行Windows XP操作系统的微机系统。数据库应用系统开发软件可以选用Microsoft Access，或其他数据库管理系统。1.3 课程设计的预备知识熟悉数据库的基本知识及一种以上数据库系统开发软件。1.4 课程设计要求按课程设计指导书提供的课题，应根据下一节给出的基本需求独立完成八个方面的设计，标有“可选”的部分可根据设计时间的安排及工作量的大小适当选择。选用其他课题或不同的数据库管理系统，可以组成设计小组，分模块进行,共同协作完成一个应用系统的开发任务。要求书写详细的设计说明书，对复杂的代码段和程序段，应画出程序流程图。在界面设计中，画出每个窗口的布局，有

3、多个窗口时，按模块调用的方式画出窗口调用图，用手工画好报表和标签样式，严禁相互抄袭。课程设计内容2.1系统功能分析2.1.1 系统功能分析酒店管理系统需要对入住的人员和客房情况进行详细的管理，其中主要针对客房情况和人员入住情况进行管理。因此本系统分为如下两大个方面：1.基本情况资料，而基本情况资料有分为1.职员资料2.客房类型3.客房资料4.会员管理5.消费结帐管理此外,系统管理员还可以通过报表对系统的明细一目了然。2.1.2 系统功能模块设计酒店管理系统包括职员资料管理，客房类型管理，客房资料管理，会员资料管理，帐目管理分为入住管理，预定管理，消费明细管理，消费结帐管理，而在查询界面，可以查

4、到详细的各种管理系统，详细情况如图2.1所示：图2.12.2数据库模型2.2.1 数据库需求分析职员信息：职员ID,姓名,职位,性别,籍贯,年龄,民族,健康状况,婚姻状况,省份证号,家庭住址,家庭电话,备注等.客房类型:类型ID,类型名称,客房价格,拼房价格,可超额定数.客房资料:客房ID, 员工ID,类型名称, 是否入住, 是否预定，额定人数, 房间单价,客房状态等.2.2.2 数据库概念结构设计 职员信息实体E-R图： 图2.2职员查询E-R图客房资料E-R图： 图2.3客房类型E-R图酒店管理系统总体E-R图如图2.4所示：图2.4 酒店管理系统总E-R图2.2.3 数据库逻辑结构设计通

5、过模块图分析可以知道,此系统由6个图表组成,具体图表如下：职员资料表中包括职员ID,姓名,职位,性别,籍贯,年龄,民族,健康状况,婚姻状况,省份证号,家庭住址,家庭电话,备注等等详细情况如表2.2所示字段名称数据类型 职员ID文本 姓名文本职位文本 性别文本 籍贯文本 年龄数字 民族文本 健康状况文本 婚姻状况文本 身份证号数字 家庭住址文本 家庭电话数字 备注文本 表2.22.2.4 数据库连接说明酒店管理系统是一个要求连贯性很强的系统，所以根据上面的对数据库系统的概念模型的设计，我们能根据表里的主键，连接出各个表中的关系和分类，这样才给我们做下面的系统，每个主键，还有每个外主键，都是数据库

6、的关键，必须做个关系明确，这样系统才能明了清晰，数据库关系图如下：图2.5表之间的关系2.3 设计窗体和报表通过以上模块和E-R图可知这个窗体是由基本资料、消费结帐、记录查询、用户管理、退出系统5部分组成，而基本资料又包括职员资料管理,客房资料管理,客房类型管理,会员资料管理,而消费结帐又包括预定记录管理,入住记录管理,消费明细管理,消费结帐管理,所以登陆窗体如图所示:图2.6登录窗口系统主体窗体是系统中唯一一个联系所有窗体的窗体，由基本资料，消费结帐，记录查询，用户管理，退出系统，所组成。系统有很高的稳定性，能够稳定的完成酒店的所有日常管理，和酒店的新老职工进行合理的安排，对职员的信息一目了

7、然，主窗体是用现在对规范的设计视图设计完成的，能够满足酒店的各种数据需要，如图2.7所示图2.7系统主体界面职员信息查询窗体可通过职员ID对职员进行详细信息的查询，通过创建一个按编号查找的查询，再以其作为数据来源创建一个职员信息查询窗体。如图2.8所示图2.8员工资料查询会员作为收入的主要来源，需要分为不同等级，并记录在案。如图2.9所示： 图2.9会员资料窗体客房管理中包括对各个客房的描述，可以入住的客房和预订的记录，管理者。这些可以让管理者清楚地帮助顾客订客房，顾客也可一览客房的各种资料。如图3.0所示图3.0客房管理窗体入住记录可以查询入住的顾客以及利用此联系可入住的客房，并记录是否有会

8、员并根据其消费提升会员标准。如图3.1所示 图3.1入住记录管理窗体消费结账窗体可以很清晰的显示出，客人在酒店里的结账情况和入住费用情况，如图3.2所示图3.4消费结账窗体2.4 设计窗体和报表模块主要代码本登陆窗口是系统的窗口，代码必须完善和使用，代码如下：Option Compare DatabasePrivate Sub cancel_Click()On Error GoTo Err_login_cancel_Click DoCmd.CloseExit_login_cancel_Click: Exit SubErr_login_cancel_Click: MsgBox Err.Descr

9、iption Resume Exit_login_cancel_ClickEnd SubPrivate Sub login_Click()Dim userID As Integer If IsNull(user) = False Then If DLookup(密码, 登陆, 账户= & user & ) = id Then DoCmd.Close MsgBox (欢迎使用酒店管理系统！) DoCmd.OpenForm 面板 Form_主界面.user = userID Else user = id.SetFocus MsgBox 帐户密码错误！, vbCritical End If End

10、IfEnd Sub查询职员资料代码如下：Option Compare DatabasePrivate Sub Command6_Click()On Error GoTo Err_Command6_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26782) & ChrW(26495) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command6_Click: Exit SubErr_Command6_Click: MsgBox Err.

11、Description Resume Exit_Command6_Click End SubPrivate Sub Command7_Click()On Error GoTo Err_Command7_Click DoCmd.CloseExit_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_Click End Sub查询会员资料如下：Option Compare DatabasePrivate Sub Command7_Click()On Error GoTo Er

12、r_Command7_Click DoCmd.CloseExit_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_Command7_ClickEnd Sub查询客房资料如下：Option Compare DatabasePrivate Sub Command3_Click()On Error GoTo Err_Command3_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(2535

13、3) & ChrW(23458) & ChrW(25151) & ChrW(26597) & ChrW(-29726) & ChrW(20837) & ChrW(20303) & ChrW(20449) & ChrW(24687) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command3_Click: Exit SubErr_Command3_Click: MsgBox Err.Description Resume Exit_Command3_Click End SubPrivate Sub Command4_Click()On Err

14、or GoTo Err_Command4_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(25353) & ChrW(20837) & ChrW(20303) & ChrW(73) & ChrW(68) & ChrW(26597) & ChrW(-29726) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command4_Click: Exit SubErr_Command4_Click: MsgBox Err.Description R

15、esume Exit_Command4_Click End SubPrivate Sub Command7_Click()On Error GoTo Err_Command7_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26492) & ChrW(23450) & ChrW(32426) & ChrW(24405) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command7_Click: Exit SubErr_Command7_

16、Click: MsgBox Err.Description Resume Exit_Command7_Click End SubPrivate Sub Command9_Click()On Error GoTo Err_Command9_Click DoCmd.CloseExit_Command9_Click: Exit SubErr_Command9_Click: MsgBox Err.Description Resume Exit_Command9_ClickEnd Sub查询入住记录如下：Private Sub Command23_Click()On Error GoTo Err_Com

17、mand23_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26782) & ChrW(26495) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command23_Click: Exit SubErr_Command23_Click: MsgBox Err.Description Resume Exit_Command23_Click End SubPrivate Sub Command24_Click()On Error GoTo

18、 Err_Command24_Click DoCmd.CloseExit_Command24_Click: Exit SubErr_Command24_Click: MsgBox Err.Description Resume Exit_Command24_Click End Sub结账记录如下：Option Compare DatabasePrivate Sub Command4_Click()On Error GoTo Err_Command4_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = Chr

19、W(28040) & ChrW(-29383) & ChrW(32467) & ChrW(-29402) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command4_Click: Exit SubErr_Command4_Click: MsgBox Err.Description Resume Exit_Command4_Click End SubPrivate Sub Command6_Click()On Error GoTo Err_Command6_Click Dim stDocName As String Dim stLinkCr

20、iteria As String stDocName = ChrW(28040) & ChrW(-29383) & ChrW(32467) & ChrW(-29402) & ChrW(26597) & ChrW(-29726) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command6_Click: Exit SubErr_Command6_Click: MsgBox Err.Description Resume Exit_Command6_Click End SubPrivate Sub Command7_Click()On Error

21、 GoTo Err_Command7_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(28040) & ChrW(-29383) & ChrW(32467) & ChrW(-29402) & ChrW(26597) & ChrW(-29726) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Ex

22、it_Command7_Click End SubPrivate Sub Command8_Click()On Error GoTo Err_Command8_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(-26782) & ChrW(26495) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_Command8_Click: Exit SubErr_Command8_Click: MsgBox Err.Description Resume

23、 Exit_Command8_Click End SubPrivate Sub Command9_Click()On Error GoTo Err_Command9_Click DoCmd.CloseExit_Command9_Click: Exit SubErr_Command9_Click: MsgBox Err.Description Resume Exit_Command9_Click End Sub第3章 课程设计总结数据库课程设计和实验都结束了，在这段时间我学到了很多知识。通过这次的课程设计，使我增加了对数据库基本概念的理解，提高对知识的理解和应用能力，并且对数据库的应用都有了更深

24、的了解，使我的数据库编写水平又有了明显的提高。在WINDOWS的环境中，用ACCESS和VISUAL BASIC代码构建一个库存管理系统。让我了解到了在实际的环境下编写数据库的应用。我做的课设题目是酒店管理系统，在做课设的过程当中，我充分运用我们所学的知识，当然其中肯定有不懂或者懵懂的问题，所有就去图书馆查看相关的资料，上课时也咨询了老师同学，最后问题也都迎刃而解了。开始的登陆窗口,我们遇到了不会写代码的问题,这个登陆窗口是一个有用户名,有密码的界面,当你选择一个用户名,它有相应的口令,口令正确才可以进入.这是一个要有变量来实现的过程,当然也要对应的数据窗口.其实,这个问题不会写代码没有关系的

25、,我们可以从数据窗口中的变量设置中找到SQL语句,这样就解决了问题。我们的登陆窗口粗略的完成了.在建立职工资料数据源时,我们发现了一个这样的问题,就是性别一栏可以填写除男,女以外的字,我们需要一个约束,可是在约束语句里,我们有语法错误,弄了半天还是没有弄懂,后来问别人知道了那是由于没有弄清楚一些符号是应该在英语还是中文条件下写出,PB的符号都是在英语的条件下实现的.我们一般设主键的时候都是设一个，这个主键在数据源中是不能重复的。由于自己的分析设计和程序经验不足,该系统设计和实现过程中,还有许多没有完善的地方,比如数据冗余,文档组织不合理,帮助文档没有编写,用户界面设计不够美观,异常出错处理比较

26、差等多方面问题,这些都有待进一步完善和提高。 总的来说，数据库的实验是我们上大学以来遇到的最大的课题，它不像以前的课题很容易就完成，它需要设计人有足够的耐心，超强的学习能力和坐的住的心态。所以，这次实验中，我的许多毛病都有了改善。这些都不是主要的，重要的是我们在这次实验中，以及平时上课的时候，从老师那里学到了很多做人做事的道理，这些金玉良言将对我们终身受用。 参考文献1 甘雷,中文Access2002标准教程，北京希望电子出版社,20082 王珊，数据库系统简明教程，北京高等教育出版社，20043 苏帅华，中文版Access2002宝典，北京人民邮电出版社，20044李春葆，曾平，Access

27、数据库程序设计，北京清华大学出版社，20055罗小沛，数据库技术，武汉华中理工大学出版社，20006丁堡康，数据库实用教程，北京清华短信额出版社，20017梁书赋，精通中文版Access2002数据开发与应用，北京清华大学出版社，20018李禹生，Access2002应用技术，北京中国水利点出版社，20029张冕洲，Access2002开发使用全书，北京电子工业出版社，200210故名，数据库原理与应用Access2002，北京高等教育出版社，2004塔里木大学课程设计评审表学号： 姓名：平时成绩设计成绩答辩成绩综合成绩等级指导教师评语：答辩小组评语：组长签字： 年 月 日答辩小组成员签字： 塔里木大学教学实习日志学院信息工程学院姓名课程名称数据库原理课程设计专业计算机科学与技术班级指导教师实习时间2014/6/22014/6/15实习地点日期 内容备注6月6日案例讨论、讲解与分析； 6 月 7日根据所选题目进行规划设计和需求分析 6 月 8日：用POWER DESIGNER辅助设计工具设计概念数据模型和物理数据模型 6 月9日数据库的物理设计和在ACCESS中建表 6 月10日在ACCESS中设计查询，窗体，报表 6 月 11日功能模块代码的编写 6 月 12日系统测试与试运行 6 月 13日设计书明书撰写 6 月 14 日设计书明书撰写 6 月 15 日程序验收