宾馆客房信息管理系统设计(数据库课程设计)

1、课程设计任务书课程名称数据库原理课程设计课题宾馆客房信息管理系统专业班级0808计算机 0303班学生姓名曾彬学号3535指导老师张铁楠谭小兰审 批任务书下达日期 20112011年3 3月4 4日 任务完成日期 20112011年3 3月1818日本课程设数据库逻辑设计的目的是将概念设计阶段设计好的E-R图转换成与具体机器上的DBMS （如E-R图）转换成初始的关系模设计内容与设计要求数据库系统原理的课程设计要求学生综合利用本课程的有关知识，在教师的指导下，利用特定 的数据库设计环境，针对具体的问题，完成从系统的需求分析、数据库的概念设计、数据库的逻辑 设计，到数据库实现等设计过程，最终实现

2、一个较为完整的反映应用需求的数据库系统。因此，在 设计中，要求学生应该全面考虑各个设计环节以及它们之间的相互联系。下面是各个设计阶段的具体内容。1.系统需求分析需求分析是数据库系统设计的一个重要的环节。本阶段应该对整个应用情况作全面的、详细的 调查，确定特定数据库应用环境下的设计目标，收集该应用环境下针对系统设计所需要的基础数据 以及对这些数据的具体存储要求，从而确定用户的需求。用户对数据库的需求包括：处理需求。即用户要完成什么处理功能等。学生在设计中应根据具体的课题要求确定系统应 该实现的功能，一些基本的功能通常是必须具备的，如用户的管理与维护，基本数据的维护，灵活 的信息查询等。 信息需求

3、。即在数据库中需要存储哪些数据。学生应该根据具体的课题，认真分析有关的要 求，确定本设计的信息需求。安全性和完整性功能。实践中这是一个需要与用户不断交流才能逐步确定的需求。 计要求学生在自己的设计中能反映出基本的安全性和完整性功能。本阶段的设计结果（即系统需求分析）应该在课程设计报告中进行详细描述，画出系统的数据 流图，写出较为详细的数据字典，作为本课程设计的验收依据之一。2.数据库的概念设计数据库的概念设计是在需求分析的基础上，利用与用户双方都能理解的形式，设计出数据库的 概念模型。本课程设计要求学生采用E-R方法进行数据库的概念设计。本设计阶段可分为：数据抽象。即根据需求分析的结果，抽取出

4、与本课程设计相关的特性。设计局部概念模式。 运用E-R方法，设计出系统的各个局部ER模型。设计全局概念模式。通过对局部E-R模型的操作，解决各个 E-R模型关于对象定义不一致问题，以及对各个E-R模型进行合并优化等，最终形成数据库的全局概念模式。本阶段的设计结果（局部和全局E-RE-R图、具体数据库设计工具中概念结构设计图）应该在课程设计报告中进行详细描述，应该能够反映该设计的正确性，作为本课程设计的验收依据之一。3.数据库的逻辑设计Oracle）所支持的数据模型（如关系模型）相符合的逻辑结构。鉴于本课程设计的具体环境要求，学生在进行数据库的逻辑结构设计时应该充分考虑特定的数 据库环境。要求学

5、生在本阶段的设计中分两步进行:形成初始的关系模式。将概念设计阶段产生的全局概念模式（ 式。关系模式的规范化处理。为了减少或消除关系模式中存在的数据冗余和操作异常，根据设计 所要求的规范级别，按照本课程所学知识，逐一分析各个关系模式是否满足规定的范式。在课程设计报告中应该提供本设计阶段的相关内容，作为本课程设计的验收依据之一。4.创建数据库在某一数据库管理系统环境中创建数据库，根据需要也可建立相关数据视图和存储过程。在课程设计报告中应该提供相关的内容，包括数据库及各个数据库对象的定义的SQLSQL语句，作为本课程设计的验收依据之一。2 2 .设计要求:鉴于数据库选题原理课程设计的具体内容，对课程

6、设计提出如下要求：1.选题原则课程设计题目以选用学生相对比较熟悉的业务模型为宜，要求通过本实践性教学环节，能较好 地巩固数据库的基本概念、基本原理、关系数据库的设计理论、设计方法等主要相关知识点，针对 实际问题设计概念模型，并应用现有的工具完成小型数据库的设计与实现。2.选题要求在后面的课题表中列出了几个设计课题，每个课题都有相应的要求或说明。各课题的难易度有 一定的差异，因此，参加课程设计的学生首先要了解设计的任务，仔细阅读各个课题的设计要求， 为了避免多人选同一题， 所做课题为（学号最后两位数 mod课题号，比如学号23号，选题为23 mod 10=3,即做第三题一一学生管理系统）。一般来

7、说，选择课题应以在规定的时间内能完成，并能得到 应有的锻炼为原则。若学生对课题表以外的相关课题较感兴趣，希望选作课程设计的课题时，应征得指导教师的认 可，并写出明确的设计要求和说明。设计时要严格按照题意要求进行设计，不能随意更改。若确因条件所限，必须要改变课题要求 时，应在征得指导教师同意的前提下进行。3 .参考选题工资管理系统人事管理系统仓库管理系统学生管理系统图书馆管理信息系统 宾馆客房管理信息系统 学籍管理系统 机票预定系统第三周第四周星期二8 :0012: 00星期三8 :00 12: 00星期四8 :00 12: 00星期二8 :00 12: 00星期三8 :00 12: 00星期四

8、8 :00 12: 00学生成绩管理系统课程管理子系统通讯录子系统教室管理子系统宿舍管理子系统个人事务管理子系统库房管理系统小商店销售管理系统其它管理子系统数据库设计（自己选题需经指导教师认可）.4.课程设计报告要求课程设计的设计报告是学生对本次课程设计的全面总结，应该反映每个设计阶段的设计思路和 设计内容。该设计报告，应作为整个课程设计评分的书面依据和存档材料。设计报告一般要以固定 规格的纸张（如 A4 ）书写或打印并装订，字迹及图形要清楚，工整，规范。内容及要求如下： 设计任务、要求及所用软件环境或工具介绍。课程设计内容中要求的设计结果。总结验收情况附：课程设计报告装订顺序：封面、任务书、

9、目录、正文、评分、附件（A4大小的图纸及程序清单）正文的格式：一级标题用3号黑体，二级标题用四号宋体加粗，正文用小四号宋体；行距为22。正文的内容：一、课题的主要功能；二、课题的功能模块的划分（要求画出模块图）；三、主要功能的实现（至少要有一个主要模块的流程图）；四、程序调试；五、总结；六、附件（所有程序的原代码， 要求对程序写出必要的注释） 正文总字数要求在5000字以上（不含程序原代码）。.系统需求分析 设计前调查. 用户需求分析 核心数据流图 核心数据字典1.21.31.4二、 概念设计2.1局部 2.2全局三、 逻辑设计3.1开发环境.3.2.1有以下关系模式：.3.2.2分解分析：

10、.四、创建数据库 .五、 程序以及调试和使用说明 .5.1程序登陆界面 .5.2主面板.5.3具体介绍.5.3.1房态查看 .5.3.2入住登记和预定房间 .5.3.3调房，住宿、退宿查询 .5.3.4挂帐，结帐，日报表，追加押金 5.3.5报修和维修 .5.3.6添加用户，添加员工，修改密码六、 总结 .七、 部分代码 .E-R图E-R图7.2添加员工 .7.3宾客入住 .计算机与通信学院课程设计评分表.7.8.91010.11121212121213131415151516.1718 181920212228七、其他功能：界面管理（提供两套外观：经典外观和春天里）四、财务管理：追加押金，增

11、删财务，日报表五、员工管理：增改员工，查删员工八、系统管理：增删管理员，修改密码，以及预留的基于SQL的数据库管理（该程序考虑到作为课程设计和信息系统不是很大，使用了单机版的ACCESS以求方便 写程序）系统需求分析1.1设计前调查近年来，宾馆业迅猛发展，市场的竞争日趋激烈，全面提高宾馆的软件管理水准，已成为宾馆 业发展的当务之急。尤其是对于星级宾馆，既需要完成前台的一些服务工作，还需要完成后台的管 理工作。然而，传统的人工管理模式已经远远不能满足有效、快捷地处理经营中产生的大量信息数 据的需要，从而使得企业决策层无法及时、准确地掌握一线资料，继而影响对市场进行正确地分析 和预测。像沿海城市三

12、星级以上宾馆引进外方管理，使小部分宾馆管理水准几乎接近或达到国际水 平。但对占80%以上的广大中小型宾馆来说，是难以做到的。因此，欲在竞争中甩开对手，取得优 势，必须在经营、管理、产品、服务等方面具备独到之处。而对宾馆的经营状况起决定作用的是客 房的管理。简单的服务标准已不是制胜的锦囊，只有管理做到最细微之处，才能让顾客体会到宾馆 服务的高标准、高质量，而准确、快速、周全往往就是最基本的成功要素。传统的管理方法已经不能适应现代社会的需要，因此采用电脑管理业务、财务等诸多环节已成 为推动宾馆业迅速发展的先决条件，宾馆客房管理信息系统是各大中小型宾馆所需要使用的一个管 理系统。1.2用户需求分析建

13、立一套功能完善的管理信息系统，既能满足业务人员日常处理的需要，增强企业经营全过程 的数字化管理水平；又能满足管理人员决策分析的需要，提高公司管理层对公司经营反馈信息的响 应速度。从而大幅度提高工作效率，提高实施管理的准确性、科学性，使担负管理的工作人员从繁 杂的手工劳作中解脱出来。因而程序需要实现的功能有如下主要六大功能:客房管理：客房登记，入住情况查询，客房状态查看。宾客入住管理：客房预定，登记入住，房间调整，退房结帐物资管理：物品登记，物品查询，报修和维修，定时提醒。部分数据流图数据流名称：客人信息来源：客人去向：入住登记包含的数据项：姓名、身份证号、性别、入住房间、房间类型、房间价格、入

14、住状态等（宾馆客房管理系统的数据流一一客人信息）数据流名称：入住登记来源：客人产生入住登记去向：入住包含的数据项：订单编号、姓名、性别、身份证号、客户编号、客房类型、抵房时间、入住 人数、预定人、电话、住几天等信息（宾馆客房管理系统的数据流一一入住登记）数据流名称：客房信息来源：客人产生入住登记去向：入住包含的数据项：客房编号、客房类型、客房价格、客房状态（宾馆客房管理系统的数据流一一客房信息）数据流名称：房间状态来源：退房去向：房间包含的数据项：客房号码、房间状态（宾馆客房管理系统的数据流一一房间状态）数据流名称：帐务信息来源：退房去向：财务包含的数据项：帐单编号、姓名、消费金额、入住时间、

15、退房时间、押金（宾馆客房管理系统的数据流一一帐务信息）1.4核心数据字典宾客入住信息表：Cmanage数据项名称（库中字段名）数据类型及长度说明客人电话（ctel）Char(20)客人姓名（cname）Char(12)Not null客人性别（csex）Char(4)客人身份证号（cidnum）Char(20)客人住址（caddress）Char(50)订单编号（cnumber）Char(15)Not nu II ,p rimary key入住人数（cmemeber）int客房编号（croom）Char(20)Not null客房类型（ctype）Char(10)客房价格（cprice）mon

16、ey客房状态（cstatue）Char(2)Not null抵店时间（cindate）短日期型date退房时间（coutdate）短日期型dateNot null入住类别（cintype）Char（4）预定/现开押金(cya)money调整房间（cchange）Char(20)原由(creason)Char(80)应付款(cmshould)Money实收(cm pay)money客房登记表：Roomlogin数据项名称（库中字段名）数据类型及长度说明房间编号（Rid）Char(12)Not null房间名称（Rname）Char(20)Not null ,p rimary key房间描述(Rd

17、escribe)Char(100)房间价格（Rprice）moneyNot null房间状态（Rstatue）Char(8)Not null操作员（ruser）Char(12)Not null管理员表：:pw数据项名称（库中字段名）数据类型及长度说明用户(user)Char(12)Not null ,p rimary key密码(p wd)Char(8)Not null权限(po wer)Char(1)Not null财务管理表：Smanage数据项名称(库中字段名)数据类型及长度说明财务 ID(Sid)Char(15)Not null ,p rimary key事由(Sreason)Char

18、(20)Not null收入(Sin)money支出(Sout)moneyNot null总收入(ssum)moneyNot null操作时间(Sdate)dateNot null结帐人(sman)Char(12)Not null挂帐单位(scomp)Char(12)操作员(suser)Char(12)Not null维修/报修表:fix数据项名称(库中字段名)数据类型及长度说明登记 ID(Fid)自动编号Not null ,p rimary key登记日期(Fdate)dateNot null物品名称(Fname)Char(50)Not null所属房间(Froom)Char(20)Not

19、null维修状态(Fstatue)Char(8)Not null维修日期(Ffdate)date登记操作员(Fman)Char(12)Not null维修员(Ffman)Char(12)所需费用(Fpay)money提醒表:Reminder数据项名称(库中字段名)数据类型及长度说明提醒 ID(RemID)自动编号Not null ,p rimary key提醒日期(Remdate)dateNot null提醒类别(remtype)Char(20)Not null提醒状态(remstatue)Char(4)Not null操作员(remuser)Char(12)Not null二、概念设计2.1

20、局部E-R图姓名电话性另I客人住址价格编号名称状态类型客房描述客人 E-RC密码丄 管理员 Q权限客房E-R证件住址职员管理员E-R电话职务姓名工资职员E-R年龄性另U入职时间用户名2.2全局E-R图电话证件名称编号姓名类型价格性另I入住状态住址结帐预疋维修事由类另U收入费用名称支出状态n时间状态m提醒表客人密码权限帐目管理员管理管理客房维修表用尸名描述所属房间登记日期电话职员职务住址姓名工资性另I年龄入职时间全局E-R图三、逻辑设计3.1开发环境开发语言:Visual Basic开发平台：windows xp,1G内存，集成显卡。开发工具：Visual Basic 6.0 企业版,SQL S

21、erver 2000,Access 20033.2关系模式形成以及规范3.2.13.2.1有以下关系模式：PW(user,p wd, po wer);Emp l(eid,e name,eage,esex,eaddress,etel,ejob,ejtime,ejage);Fix(Fidfname,froom,fstatue,ffdate,fpay,fma n, fuser);Gman age(Gid,g name,gt yp e,g nu m,g price,guse,gsum,gdate,guser,gdw);Roomlogi n(Rid,r name,rtyp e,rdescribe,r p

22、rice,rstatue,ruser);Remin der(remid,re mn ame,remdate,remt yp e,remstatue,remuser);Sman age(Sid,sreas on,sin, sout,ssum,sdate,sma n, sco mp ,suser);Cman age(cnumber,c name,cict yp e,cic num ,csex,caddress,ctel,cmember,croom,ct yp e,c price,cin date,c intyp e,coutdate,cya,cyaadd,cstatue,ccha nge,crea

23、s on, cmtel,cmmeeti ng, cmcar,cmdamage,cmother,cmshould,c mp ay,cmback,cuser);3.2.23.2.2分解分析: 各分量都是不可分割的数据项。满足第一范式;每一个关系中的非码属性都完全函数依赖于码，符合第二范式;每个关系中的主属性不传递依赖关系中的每个关系键，符合第三范式;关系中所有非主属性对每个码都是完全依赖，且所有主码对于每个不包含它的码也是完全函数依赖，没有任 何属性完全函数依赖非码的任何一组属性四、创建数据库1)创建数据库，让数据库可以动态增长create database hotelon(n ame=hotel

24、_data,file name=E:hotel.mdf,size=5mB,maxsize=20mb,filegrowth=10%)log on(n ame=hotel_log,file name=E:hotel.ldf,size=2mb,maxsize=5mb,filegrowth=1mb)go2）创建PW用户表use hotelgocreate table pw(user char (12) notn ull p rimary key,Pwd char(8) n ot null,Po wer char(1) not n ull )go3）创建客房登记表 RoomLogincreate tab

25、le roomlogi n (rid char (12) not null,Rn ame char(20) not n ull p rimary key,Rtype char(10) not nullRdescribe char(100),Rp rice money not n ull,Rstatue char(8) not null,Ruser char(12) not null,)go4）同上创建提醒表 Reminder、物品表 Gmanage维修表fix、员工表 EmpI、帐务表 Smanage客户女0住表Cmanage五、程序以及调试和使用说明5.1程序登陆界面说明：进入登陆界面后，系

26、统会自动加载已有的用户，让用户选择自己的帐户进行登陆，密码容腭管理糸统=1柚宝1 1c cUJEEUJEEar 但1i i囱1颐五AW1AW1曰wn1m mD DE E言1HH送*SiB*SiB砂丿4*1B B?1ftTT*EJffEJff祁_玉_11風1 1nuExtnuExtaXckrcXckrc口BWrtfBWrtfQi 1JvkJvk1且B B砧9LF9LF- -frHfrHa a 1 1BtnrBtnr1 11natftIHfIHf旦乐D DWFtUWFtU且1 11 HJHlJUJHlJU 1 1*胡1 1输入三次后关闭窗口；用控件属性设置来实现用户定义的完整性：密码最大长度为用户

27、名错误，或密码错误，系统都会对其进行提醒，以达到正确输入，本程序设置一超 级用户：admin，权限为1,其他用户的权限均为0。超级用户能对押金进行追加，其他用户必须在超级用户协助下才能完成押金追加5.2主面板说明：主界面用 VB中的MDIForm,多入口提供给用户操作，包括菜单栏、工具栏（可选择显e eItIt界E E*.*va*.*va钿I I、员XWXW 圭恸HflHflHIHI - - E E - - . . . . D D . . m m . .帛臥音定專憎音定 iimiim連 TWfcsTWfcs *wra*wra airaairaai:-ai:- IZIZ ITIT n n 3fl

28、13R-3fl13R- hLc.hLc. 出“刚护彌血皿示和不显示）、侧边栏（可隐藏）、主面板Panel（提供操作员最常用的操作，节约时间），在状态栏可他|-$泻 ifwifw nhb-nhb- URFHMHHMH JSHffJSHffhmrhmr MMMM twevvtwevv i7*Bfi7*Bf曰 .c.c. ”口，DD.E”DD.E”王囲刼Ed BES *Sff*Sff* 舸音a a fli*#fli*#以显示系统时间和当前用户以及需要维修的房间数。实现了所有要求的功能说明：提供两种风格供用户选择。在vb模块里有一函数 change()，变量保存当前风格类型，当每次show 窗口时，就

29、会调用该函数通过变量判断是显示那种风格5.3具体介绍5.3.15.3.1房态查看说明：在主面板上的快速入口上点击房态查询，显示当前房间入住图形界面。直观、方便。点击 房间能显示在该房间入住过的客户。嵌入的查询语句为：selectcnu mber,c name,cict yp e,cic nu m,csex,caddress,ctel,cmember,croom ,ctyp e,c pricec in date,coutdate,cstatuefrom cmanage where croom= & Command1(lndex).Caption & ， Command1(lndex).Capti

30、on 为当前按下的要查询的房间按钮的名称5.3.25.3.2入住登记和预定房间入性空闲房间使用率：中，供客户选择房间，用户可以选择ML-3ML-3说明：点登记，系统自动在roomlogin表中rstatue=空闲的房间名字添加到房间号码的下拉列表现开/预定”当用户选择下拉列表中的一个房间时，系统自动将 roomlogin中该房间的标准类型，价格自动加载显示，房间状况一目了然。其他用户自定义完整性约束都通过对控件的属性设置来完成，当用户输入数据破坏完整性时，系统会发出警告，以保持数据SOLiaiTLESOLiaiTLE ifiHifiHLZMWTLZMWT 予39D39D 0aiL-3-LT0a

31、iL-3-LT 30110133011013KM _KIU31TIBKIU31TIB 0#0#IE:M*5BTaIE:M*5BTa $ $SflISflI科 BII-5-LTBII-5-LT H1II-3-IQH1II-3-IQ0p pD0fflLLEtLTfflLLEtLT 餉q5M*5lq5M*5l 立3 ffllL-J-ft 3011-5-304 4D0 00库的完整性 5.3.35.3.3调房，住宿、退宿查询BO.BO.姓：S SItIt IBIB天欝押金说明：通过入口可以打开窗体。当客户需要调整房间时，点登记后，系统自动加载已入住客户的房间和空闲的房间号码，当用户选择要调房的客户时，

32、系统自动加载客户的信息。选择目标房间时候, 系统自动加载房间信息。用户确定调房后，系统修改数据库：原房间状态改为空闲，目标房间改为23 3 X XB赳月进石刚i.隹IFIF日蚪退TTTT日期cnu mber,c name,cict yp e,cic num ,csex,caddress,ctel,cmember,croom ,ctyp e,c priceci ndate,coutdate,cstatuefrom cman age,其他查询语句雷同，此后不在赘述。在文本框里输入要查询的姓名, 间将会显示查询结果，嵌入的查询语句为MSFlexGrid 空:selectcnu mber,c name

33、,cict yp e,cic num ,csex,caddress,ctel,cmember,croom ,ctyp e,c priceci ndate,coutdate,cstatuefrom cma nage where cn ame like & Text1.Text & *5.3.45.3.4挂帐，结帐，日报表，追加押金说明：追加押金窗体.系统自动加载已入住客户号码，当用户选择客户号码时候，系统自动加载客户信息，用户添加押金后，保存时系统对cman age表进行修改，保存数据；结帐窗体。系统自动加载已入住还没退房的房间号，用户选择要退房的房间号，系统加载客户信息以需付款和明细供核对,确

34、定结帐后，系统将对cmanage表，smanage, reminder， roomlogin进行修改，以保持数据库的参照完整性。如果是挂帐，用户可以选择挂帐，在客户结帐的时候，调出挂帐结帐窗体，系统自动加载挂帐的单位，用户选择挂帐单位，系统自动加载需还金额。挂帐结帐只对smanage表操作。而日报表显示smange里的信息，提供按日期查找的方法，打印当天的帐务明细。 查询的嵌入sql语句为:select sreason,sin,sout,ssum,sdate,sman,scomp,suser from smanage where sdate =# & DTPickeM.V alue入住。原住房

35、产生的费用将加在新入住房间上，而提醒表中原房间改为现房间。因而需要修改三个表:Cmanage,roomlogin,reminder.而查询入住信息的嵌入sql语句为：select画邸I固捺示；垢择匡何号嫦人姓名承琳fSiSfSiS tttt址住测问用 tintin 張固晴桃& #。在该处开始一直调试不出，后来发现在5.3.55.3.5报修和维修sql语句中对日期要加#来格式说明是日期型的。III I确走Awris添加操房间号也盟 揭坏物品名称o o报倏报修日期團维修登记所需费用錐修登记员说明：打开该窗体，左边有一组 option选项。当选报修时候，系统自动加载空闲的房间号。如果为入住的房间报修

36、，则需先调房退房后才能报修，总不能让客户住在需维修的房间中吧。确定报修后。系统将在reminder表中增加一条需提醒事项，即需维修事项，传递房间号和维修状态给reminder表做为关键字。在主窗体中便会有提示需要维修的房间，可以通过房态查询，查看需要维修的房间 号。维修完后要进行登记， 选择登记后，系统加载当前状态为 维修的房间，记录维修费用和维修员,确定后，系统将操作 roomlogin和reminder表，保持数据库系统的参照完整性5.3.65.3.6添加用户，添加员工，修改密码说明：只有管理员，即超级用户才能添加操作员和员工，但是普通拥护可以修改自己的密码。作员的代码为：If Text1

37、.Text And Text2.Text And Text2.Text = P user.Fields( pwd) ThenIf Text3.Text The nPu ser.EditP user.Fields(“ pwd) = Text3.TextMsgBox (密码修改成功，退出操作员密码修改!)Puser.U pdatemain.En abled = TrueUn load Me报修/维修表ElseMsgBox (请输入新密码！!)(Him(Him退出用户名原密码甕码新密码再te密码姓容匿系方式员工号HIHI-3-16关闭End IfElseIf Text1.Text = The nMs

38、gBox （请输入操作员!）Text1.SetFocusElseIf Text1.Text Puser.Fields（user） The nText1.SetFocusTextI.Text =MsgBox （无此操作员，请重新输入!）End IfEnd IfIf Text2.Text = The nMsgBox （请输入操作员原密码!）Text2.SetFocusElseIf Text2.Text Puser.Fields（ pwd） The nMsgBox （原密码错误，请重新输入原密码r）Text2.SetFocusEnd IfEnd IfEnd If这是才用DAO 3.6对象来对数据库进

39、行操作，这是另一种方法对数据库操作cr = in sert into pw values（ & text1.text & ” , & text2.text & ” ,0） mydb.Execute cr这是直接用嵌入sql语句来插入记录。两种效果都一样六、总结两周的日日夜夜的奋战，终于达到了预定的效果，完成了该信息系统的设计和程序编写。在专科学校，曾学过 VB语言，也开发过很多程序，所以vb语言成为首选。虽然其编写的应用程序在不同的机器上需要解释器，需要随带很多OCX控件和其他，但是在编写信息管理系统这方面还是很有优势的。（1）可视画编程，丰富的控件，随用随拖，对控件对象编程，很方便。（2）可

40、以方便的利用API函数实现窗体的各种效果。有丰富的api接口。（3）语言简单，实现功能很方便。在对数据库操作方面，引用了DAO 3.6对象，使用DAO编程连接和操作。所以很自然选择了VB语言。在数据库方面，考虑编程方便，采用从 sql中导出成access文件来进行操作。选定课题后，开始收集相关资料和设计软件架构。到宾馆调查和到网上收集信息，以及参考 了其他信息管理系统，心里就有了轮廓。设计好软件的几大模块，采用自顶向下的经典设计方法， 确定实现的功能，开始设计数据库。运用相关的数据库知识，设计好数据表，确定字段。并通过模 式分解，确定其是无损的连接。有了数据库作为整个设计的底层，就好象盖房子有

41、了骨架，而软件 就象是砖瓦，只是将骨架填充完善，给客户一个好的外观。因而数据库的设计尤为重要，但是在设 计之初，往往会有很多情况不能考虑周全，再加之一个人编写，所以进度一度很慢，后来通过列出 所有可能的情况，以及同同学老师等交流，总结并重新设计了数据库，终于是能有一个比较好的效 果。通过将所有和客户相关的财务信息都加到客户信息里，避免了对多表的操作，避免了有可能会 出现的参照完整性不一致的问题。继而是软件的设计，由于对vb还是算比较熟悉，因而有了数据库的支撑，就得心应手了。考虑到用户使用的方便性，软件主界面提供了很多入口，以及直观的图形 显示，方便用户操作，因而也给客户带来方便，免去了客户的很

42、多等待时间，提升宾馆的形象。同 时提供了两套外观，春天里这套外观可以避免用户的审美疲劳。整个程序完成了，又花了大量的时 间对其进行调试。通过白盒黑盒测试，程序能正常的显示结果和准确报错，达到了单机运行的效果。 接着在不同机环境器上测试，有些控件因为没有带走，所以报错，后来带上控件后都能正常运行， 在xp和win7上都能正常运行。由于公司规模和业务量大，因而信息系统不可能只在单机上运行，所以才用C/S,或B/S结构比较合适。因时间关系所以没能完成，只预留了接口，供以后开发扩展用。当然这次课程设计因为 是数据库的课程设计，重点在数据库的设计，所以对于软件体系结构风格，没有考虑，只求能达到 目的！在

43、本次课程设计中，要感谢各位老师的指导，也要感谢提供意见和建议的同学，才得以大致完 成该设计。本欲来让老师答辩的，但因个人原因，在答辩那天赶回家了，所以没得完成最终的答辩。 但这不要紧，编程最大的喜事莫过于完成所有程序的那一刻，虽然后续还有很多维护和修改任务， 但是心里突然轻松下来那一刻的心情是无与伦比的。再次感谢老师的指导！七、部分代码7.1模块Public NowUser As String 当前用户名Public nowpower As String 当前用户权限Public mydb As DAO.Database 定义数据库Public bgi As Integer 判断背景风格Pub

44、lic Sub LoadAccessOSet mydb = DAO.Open Database(A pp.Path & hotel.mdb)End SubPublic Sub bgrou nd()If bgi = 1 The nmai n.P icture = pan el.Image1. Picturepan el. Picture = pan el.Image1. Picturepan el. Pi cture1. Picture = pan el.Image1. Picturemai n.P icture1. Picture = pan el.Image1. Pi cturemai n.

45、P icture2. Picture = pan el.Image1. Pi ctureUnioad findEm: Unioad findlogin: Unioad fingG: Unioad InLogin: Unioad LogoutBG: Unioad man agekf: Uni oad p ayoff: Uni oad ViewUni oad cha ngelog in: Uni oad fin dLogout: Uni oad find: pan ei.resizemeElseIf bgi = 0 Thenmain.P icture = Nothi ngpan el. Pi ct

46、ure = Nothi ngpan el. Picturel. Picture = Nothi ngmai n.P icturel. Picture = Nothi ng获取“变动”PrivateSubComma nd1_Click()mai n.P icture2. Picture = Nothi ngUnioadfindEm:Unioadfindlogin:UnioadfingG:UnioadInLogin:UnioadLogoutBG: Unioadman agekf: Uni oad p ayoff: Uni oad ViewUni oad cha ngelog in: Uni oad

47、 fin dLogout: Uni oad find: pan el.resizemeEnd IfEnd IfEnd Sub7.2添加员工Private Declare Function ReleaseCa pture Lib user32 () As Long信息Private Declare Fun ction Sen dMessage Lib user32 Alias Se ndMessageA (ByVai hwnd As Long, ByVai wMsg As Lon g, ByVai wP aram As Lon g, l Param As Any) As LongPrivate

48、Co nst WM_SYSCOMMAND = & H112Private Co nst SC_MOVE = & HF010 &Private Co nst HTCA PTION = 2Dim Emp As RecordsetPrivate Sub DTP icker1_Cha nge()Text7.Text = Year(Date) - Year(DT Pickerl.Value)End SubPrivate Sub Form_MouseDow n( Butt on As In teger, Shift As In teger, X As Si ngle, Y As Sin gle)If Bu

49、tton = 1 The n如果按下鼠标左键Dim ReturnVal As Lo ngX = ReleaseCa pture()ReturnVal = Sen dMessage(addEm.hw nd, WM_SYSCOMMAND, SC_MOVE +HTCA PTION, 0)End IfEnd SubPrivate Sub Form_Load() LoadAccessSet Emp = mydb. Open Recordset(select * from emp I)TextI.Text = Year(Date) & Mon th(Date) & Day(Date) & Hour(Tim

50、e) & Min ute(Time)Text7.Text = Year(Date) - Year(DT Pickerl.Value)End Sub缺少判断员工号是否存在的信息If TextI.Text = Or Text2.Text = Or Text4.Text = The nmsg$ = MsgBox(请确认 员工号、员工姓名、职务已经输入,48, Error)ElseEmp .AddNewEmp. Fields(emid) = TextI.TextEmp .Fields(e name) = Text2.TextEmp .Fields(esex) = Combol.TextEmp. Fie

51、lds(ejob) = Text4.TextEmp. Fields(eage) = Val(Text5.Text)Emp .Fields(etel) = Text6.TextEmp. Fields(ejtime) = DTP ickerl.ValueEmp. Fields(ejage) = Text7.TextEm p.Up date更新记录Emp .Closemsg$ = MsgBox(添加成功,64, Success!)Un load MeEnd IfEnd SubPrivate Sub Comma nd2_Click()TextI.Text = : Text2.Text = : Comb

52、ol.Text =Text4.Text = : Text5.Text = : Text6.Text =End SubPrivate Sub Comma nd3_Click()main.En abled = TrueUn load MeEnd Sub7.3宾客入住Dim i As In teger定义一个整型变量Dim In Log As RecordsetDim Room As RecordsetDim Remi nd As RecordsetPrivate Sub Combo4_Click()Set Room = mydb. Open Recordset(select * from room

53、logi n where rn ame= & Combo4.Text & )ZSDJ (4) .Text = Room.Fields(rty pe): ZSDJ(5).Text = Room.Fields(rprice)End SubPrivate Sub Combo5_click()Labelll.Ca ption = Combo5.TextEnd Sub计算折前宿费计算退宿日期计算实际宿计算提醒日期Private Sub DTP 3_Cha nge()ZSDJ(6).Text = DTP 3.Value - DTP 1.ValueEnd SubPrivate Sub Form_Load()

54、If bgi = 1 The n Me. Picture = pan el.Image1. PictureIf bgi = 0 The n Me.P icture = Noth ingDTP 1.Value = Date: DTP2.Value = Date: DTP3.Value = Date 初始化日期及时间 czy.Text = NowUser赋值给 czyLoadAccessEnd SubP rivate Sub Form_Unl oad(Ca ncel As In teger)mai n.En abled = True设置主窗体有效End SubPrivate Sub Combo2_

55、Click()If Combo2.Text =折扣ThenZSDJ(8).Enabled = True 设置 ZSDJ(8)有效ZSDJ(8).SetFocus ZSDJ(8)获得焦点End IfIf Combo2.Text =招待 ” ThenZSDJ(8).Enabled = True设置 ZSDJ(8)有效ZSDJ(8).Text = 0 赋值给 ZSDJ(8)End IfEnd SubPrivate Sub ZSDJ_Cha nge(l ndex As In teger)Select Case In dexCase 6ZSDJ(7).Text = Format(Val(ZSDJ (6)

56、 .Text) * Val(ZSDJ(5).Text), 0.00)ZSDJ(9).Text = ZSDJ(7).Text 赋值给 ZSDJ(9)ZSDJ(8).Text = 100DTP3.Value = DTPI.Value + V al(ZSDJ(6).Text)Case 8ZSDJ(9).Text = Format(Val(ZSDJ(7).Text) * Val(ZSDJ(8).Text) / 100, 0.00)费Case 10If ZSDJ(10).Text The nZSDJ(10).Text = Val(ZSDJ(10).Text)用val函数将字符串转换为数字DTP 2.Va

57、lue = DTP 1.Value + In t(Val(ZSDJ(10).Text) / Val(ZSDJ (5) .Text)End IfEnd SelectEnd SubPrivate Sub ZSDJ_KeyDow n(l ndex As In teger, KeyCode As In teger, Shift As In teger)Select Case In dex按回车键Combol获得焦点If KeyCode = vbKeyReturn The n ZSDJ(2).SetFocus Case 2If KeyCode = vbKeyReturn The n ZSDJ (3) .

58、SetFocus Case 3If KeyCode = vbKeyReturn The n DBCombo1.SetFocus Case 4按回车键ZSDJ(2)获得焦点按回车键ZSDJ(3)获得焦点按回车键ZSDJ(2)获得焦点If KeyCode = vbKeyReturn The n ZSDJ (5) .SetFocus Case 5If KeyCode = vbKeyReturn The n ZSDJ(6).SetFocus Case 6If KeyCode = vbKeyReturn The n ZSDJ(10).SetFocus Case 8If KeyCode = vbKeyRe

59、turn The n ZSDJ(10).SetFocus Case 10If KeyCode = vbKeyReturn The n ZSDJ(11).SetFocus Case 11按回车键ZSDJ(5)获得焦点按回车键ZSDJ(6)获得焦点按回车键ZSDJ(10)获得焦点ZSDJ(11)获得焦点按回车键Comok获得焦点Case 0If KeyCode = vbKeyReturn The n Combol.SetFocusCase 1If KeyCode = vbKeyReturn The n Comok.SetFocusEnd SelectEnd SubPrivate Sub Combo

60、1_KeyDow n(KeyCode As In teger, Shift As In teger)If KeyCode = vbKeyReturn Then ZSDJ(1).SetFocus按回车键 ZSDJ(1)获得焦点End SubPrivate Sub DBCombo1_KeyDow n(KeyCode As In teger, Shift As In teger)If KeyCode = vbKeyReturn The n ZSDJ (5) .SetFocusZSDJ(5)获得焦点End SubPrivate Sub comdj_Click()查询空闲房间信息Set Room = m