数据库课程设计(Access版)

1、目 录第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 课程设计的实验环境硬件要求能运行Windows XP

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

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

4、理系统基本资料消费结帐职员资料入住记录客房资料会员资料预定记录入住记录消费列表结账列表图2.12.2数据库模型2.2.1 数据库需求分析职员信息：职员ID,姓名,职位,性别,籍贯,年龄,民族,健康状况,婚姻状况,省份证号,家庭住址,家庭电话,备注等.客房类型:类型ID,类型名称,客房价格,拼房价格,可超额定数.客房资料:客房ID, 员工ID,类型名称, 是否入住, 是否预定，额定人数, 房间单价,客房状态等.2.2.2 数据库概念结构设计 职员信息实体E-R图： 职员信息职员ID民族姓名性别职位 图2.2职员查询E-R图客房资料E-R图：客房状态额定人数房间单价客房类型类型ID员工ID类型名称

5、是否入住是否预定 图2.3客房类型E-R图酒店管理系统总体E-R图如图2.4所示：职员用户会员酒店管理入住拥有会员信息拥有客房资料属于客房拥有n11111nn11n1图2.4 酒店管理系统总E-R图2.2.3 数据库逻辑结构设计通过模块图分析可以知道,此系统由6个图表组成,具体图表如下：职员资料表中包括职员ID,姓名,职位,性别,籍贯,年龄,民族,健康状况,婚姻状况,省份证号,家庭住址,家庭电话,备注等等详细情况如表2.2所示字段名称数据类型 职员ID文本 姓名文本职位文本 性别文本 籍贯文本 年龄数字 民族文本 健康状况文本 婚姻状况文本 身份证号数字 家庭住址文本 家庭电话数字 备注文本

6、表2.22.2.4 数据库连接说明酒店管理系统是一个要求连贯性很强的系统，所以根据上面的对数据库系统的概念模型的设计，我们能根据表里的主键，连接出各个表中的关系和分类，这样才给我们做下面的系统，每个主键，还有每个外主键，都是数据库的关键，必须做个关系明确，这样系统才能明了清晰，数据库关系图如下：图2.5表之间的关系2.3 设计窗体和报表通过以上模块和E-R图可知这个窗体是由基本资料、消费结帐、记录查询、用户管理、退出系统5部分组成，而基本资料又包括职员资料管理,客房资料管理,客房类型管理,会员资料管理,而消费结帐又包括预定记录管理,入住记录管理,消费明细管理,消费结帐管理,所以登陆窗体如图所示

7、:图2.6登录窗口系统主体窗体是系统中唯一一个联系所有窗体的窗体，由基本资料，消费结帐，记录查询，用户管理，退出系统，所组成。系统有很高的稳定性，能够稳定的完成酒店的所有日常管理，和酒店的新老职工进行合理的安排，对职员的信息一目了然，主窗体是用现在对规范的设计视图设计完成的，能够满足酒店的各种数据需要，如图2.7所示图2.7系统主体界面职员信息查询窗体可通过职员ID对职员进行详细信息的查询，通过创建一个按编号查找的查询，再以其作为数据来源创建一个职员信息查询窗体。如图2.8所示图2.8员工资料查询会员作为收入的主要来源，需要分为不同等级，并记录在案。如图2.9所示： 图2.9会员资料窗体客房管

8、理中包括对各个客房的描述，可以入住的客房和预订的记录，管理者。这些可以让管理者清楚地帮助顾客订客房，顾客也可一览客房的各种资料。如图3.0所示图3.0客房管理窗体入住记录可以查询入住的顾客以及利用此联系可入住的客房，并记录是否有会员并根据其消费提升会员标准。如图3.1所示 图3.1入住记录管理窗体消费结账窗体可以很清晰的显示出，客人在酒店里的结账情况和入住费用情况，如图3.2所示图3.4消费结账窗体2.4 设计窗体和报表模块主要代码本登陆窗口是系统的窗口，代码必须完善和使用，代码如下：Option Compare DatabasePrivate Sub cancel_Click()On Err

9、or GoTo Err_login_cancel_Click DoCmd.CloseExit_login_cancel_Click: Exit SubErr_login_cancel_Click: MsgBox Err.Description Resume Exit_login_cancel_ClickEnd SubPrivate Sub login_Click()Dim userID As Integer If IsNull(user) = False Then If DLookup("密码", "登陆", "账户= ""

10、" & user & """") = id Then DoCmd.Close MsgBox ("欢迎使用酒店管理系统！") DoCmd.OpenForm "面板" ' Form_主界面.user = userID Else user = "" id.SetFocus MsgBox "帐户密码错误！", vbCritical End If End IfEnd Sub查询职员资料代码如下：Option Compare DatabasePrivat

11、e 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.Description Resume Exit_Command6_Click End Su

12、bPrivate 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 Err_Command7_Click DoCmd.CloseExit_Command7_Cli

13、ck: 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(25353) & ChrW(23458) & ChrW(25151) &

14、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 Error GoTo Err_C

15、ommand4_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.De

16、scription Resume 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

17、: Exit SubErr_Command7_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

18、()On Error GoTo Err_Command23_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 Com

19、mand24_Click()On Error GoTo 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 stLinkCriteri

20、a As String stDocName = ChrW(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_Cli

21、ck 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_Command6_Click: Exit SubErr_Command6_Click: MsgBox Err.Description Resume Exit

22、_Command6_Click End SubPrivate Sub Command7_Click()On Error 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, , , stLinkCriteriaEx

23、it_Command7_Click: Exit SubErr_Command7_Click: MsgBox Err.Description Resume Exit_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, , , stLinkCri

24、teriaExit_Command8_Click: Exit SubErr_Command8_Click: MsgBox Err.Description Resume 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章 课程设计总结数

25、据库课程设计和实验都结束了，在这段时间我学到了很多知识。通过这次的课程设计，使我增加了对数据库基本概念的理解，提高对知识的理解和应用能力，并且对数据库的应用都有了更深的了解，使我的数据库编写水平又有了明显的提高。在WINDOWS的环境中，用ACCESS和VISUAL BASIC代码构建一个库存管理系统。让我了解到了在实际的环境下编写数据库的应用。我做的课设题目是酒店管理系统，在做课设的过程当中，我充分运用我们所学的知识，当然其中肯定有不懂或者懵懂的问题，所有就去图书馆查看相关的资料，上课时也咨询了老师同学，最后问题也都迎刃而解了。开始的登陆窗口,我们遇到了不会写代码的问题,这个登陆窗口是一个有

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