酒店客房管理系统设计与实现.doc

1、 目 录序 言。1一、系统概述。21. 开发背景。22. 开发工具介绍。33. 开发运行环境。5二、需求分析。61.可行性分析。62.功能需求。83.数据需求。84.数据流图。9三、系统设计。101.系统功能模块设计。102.数据库设计。11四、系统实现。151. 登录界面。15 2系统主界面。172.客房信息模块。173.客人信息模块。20五、系统测试。251.软件测试的目的。252.测试条件及要求。253.软件测试的步骤。264.单元测试。265.集成测试。26参考文献。28致 谢。29序 言在现代社会中管理的作用越来越显得重要和突出。一般来讲，管理通过计划、组织、指导与领导、控制等手段，

2、为组织制定目标，应用组织的各种要素，以实现组织的目标。对酒店来说，人们按照一定的营销计划、人力、物力资源，对人员、物质、资金等加以计划和协调，以达到预期的目的，即称为酒店管理。但是随着社会化大生产的不断扩大和社会对产品多样化的需求，人们越来越重视信息在生产经营及酒店管理中的作用，并把它当做酒店的一种极其重要的资源。显然，今天的酒店与过去的旅馆相比已经有了很大的不同。随着社会的进步，经济的发展，当今社会人员流动越来越频繁，酒店客房管理工作也变得越来越复杂。旅游者对酒店的需求量越来越大，对酒店的要求也越来越高。如果能够实现酒店客房管理的自动化，无疑将给酒店客房管理部门带来很大的方便。现在在我国一些

3、地方的酒店客房管理水平还停留在纸介质或半自动（由电脑处理一部分数据，由人工处理一部分数据）的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。只有当软件作为一有项有力的工具与我们的实践相结合起来的时候，才具有重大的社会价值及使用价值。酒店在正常的运营中需要对客房资源，客人信息，结算信息进行管理。因此根据酒店目前实际的酒店客房管理情况开发一套酒店客房管理系统是十分必要的。 酒店客房管理系统设计与实现一、系统概述1. 开发背景由于传统的手工管理一直没有得到较好的改善，人员的登记、住宿流动人口的加大，效益的统计，房号

4、的查询在整个工作占了很大的工作量，手工文件管理过程中，存在不少弊端：（1）出现不必要的重复劳动，造成人力资源及时间上的浪费；（2）文件的丢失带来不必要的麻烦；（3）住宿人口的变化，查询不便；（4）房号，价格容易出现错误现象，引起不必要的麻烦。在这种情况下，我们设计并开发了“酒店客房管理系统”。管理信息系统（MIS，Management Information System），是一个由人、计算机等组成的能进行信息的收集、传送、储存、维护和使用的系统，能够实测企业的各种运行情况，并利用过去的历史数据预测未来。从企业全局的角度出发辅助企业进行决策，利用信息控制企业的行为，帮助企业实现其规划目标。这里

5、给出的定义强调了管理信息系统的功能和性质，也强调了管理信息系统中的计算机对企业管理而言只是一种工具。管理信息系统是信息系统的重要分支之一，经过30多年的发展，已经成为一个具有自身概念、理论、结构、体系和开发方法的覆盖多学科的新学科。 随着计算机及其网络在世界范围内的广泛应用，计算机的管理系统正在以难以置信的速度渗透到各个工作的领域和人们的日常生活。传统管理系统方面的应用局限于人工的记录，不仅麻烦有时还出现错误，丢失重要的文件和信息等等。计算机管理系统的出现不仅解决了人工方面的错误，而且还大大的提高了工作效率，适应了现代化生活的速度快，效率高的特点，因此受到了广泛的欢迎。在我国，酒店分成五星级、

6、四星级、三星级、二星级和一星级。客房方面的管理也随着酒店的星级不同有所区别，但大体上是相同的。酒店在正常的运营中需要对客房资源、顾客信息、结算信息进行管理，利用酒店客房管理系统及时了解各个环节中信息的变更，有利于提高管理效率。信息社会的高科技，商品经济化的高效益，使计算机的应用已普及到经济和社会生活的各个领域。计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继续用手工劳动。为了适应现代社会人们高度强烈的时间观念，酒店客房管理系统软件为管理人员带来了极大的方便。通过操作手册，使用者可以了解本软件的基本工作原理。操作人员只需输入一些简单的汉字、数字，即可达到自己的目标。对于大中型宾馆来

7、说，利用计算机支持高效率完成日常事务，是适应现代要求、推动管理走向科学化、规范化的必要条件；而且酒店客房管理又是一项非常烦琐的事情，数量之大，核算极其不便。同时计算机具有手工管理所无法比拟的优点。例如：检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高宾馆管理的效率，也是酒店的科学化、正规化管理，与世界接轨的重要条件。 酒店客房管理需要对客人预订客房、入住、居住和离店期间的一切服务进行管理，并存储酒店客房的所有静态和动态信息，并且严格服从有关规定，按一定的模式或规律进行。体现数据量大，数据流清晰、规范的特点，因而特别适合用计算机管理，但现在国内的中文系统

8、很少，大多都是用外国公司制作的英文系统软件，对国人来说，使用不方便，不利于普及。因此，中文的酒店客房管理在国内的需求应该很大，很有发展空间。2. 开发工具介绍在确定了操作系统后，就该选择开发工具了。经过了综合的比较选择Visual Basic这个软件来开发系统。数据库方面考虑到这个系统针对的用户，以及价格方面的考虑，完全可以使用Access来进行开发，而且在使用Visual Basic的时候，操作数据库方面使用的是微软提供的数据访问接口。下面介绍一下Visual Basic以及Access各自都有什么特点。（1）Visual Basic的特点Visual Basic是一种由微软公司开发的包含协

9、助开发环境的事件驱动编程语言。它源自于BASIC编程语言，VB拥有图形用户界面和快速应用程序开发系统，可以轻易的使用DAO，PDO，ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松使用VB提供的组件快速建立一个应用程序。VB就是要便于程序员使用，无论是新手或者专家。VB可以简单建立应用程序的 GUI 系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组建的属性和方法。每个控件都有自己的属性和事件 。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的操作和修改进行改动，这样就形成

10、了一动态的程序。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。而且VB可以简单的和数据库连接。这些都是VB的特点。它还拥有面向对象的编程方法。面向对象的程序设计是伴随WIDNOWS图形界面的诞生而产生的一种新的程序设计思想，与传统程序设计有着较大的区别，VISUAL BASIC采用了面向对象的程序设计思想。所谓“对象”就是现实生活中的每个一人，每一个可见的实体。同样，在VISUAL BASIC中，用来构成用户图形界面的可视化控件，也可视为是一个对象。不同的对象，在程序中所赋给它的功能也是不同的，所以选择VB作为开发软件。（2）ACCESS的特

11、点Access 是微软公司推出的基于Windows的桌面关系数据库管理系统（RDBMS），是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规范化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。 Access是一种关系型数据库管理系统，其主要特点如下： （a）存储方式单一 Access管理的对象有表、查询、窗体、报表、页、宏和模块，以上对象都存放在数据库文件中，便于用户的操作和管理。 （b）面向对象 Acces

12、s是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。 （c）界面友好、易操作 Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导

13、、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。 （d）集成环境、处理多种数据信息 Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。 Access是一个数据库管理系统，它之所以被集成到Office中而不是VisualStudio中，是因为它与其它的数据库管理系统（如SQL Server 2000）相比更加简单易学，一个普通的计算机用户即可掌握并使用它。而且最重要的一点是，Access的功能足够强大，足以应付一般的

14、数据管理及处理需要。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。所以数据库选用Access 3. 开发运行环境系统开发环境包括硬件平台和软件平台两种。（1）硬件主要包括计算机机型及硬件配置。由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济，只要配备有PII300处理器（或以上）、64M内存（或以上）、20G硬（或以上）的普通微机即可顺利运行。（2）软件本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Basic6.0作为开发语言，同时

15、选用了Access数据库，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。Visual Basic 6.0具有可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，使得可以轻松方便的对数据库管理。数据库采用MICROSOFT ACCESS，由于对系统的要求，采用它完全可以适合现有系统的需求，并且它所支持的数据类型十分丰富，维护简便，费用较低。二、需求分析1.可行性分析 随着旅游业的发展，酒店、餐饮娱乐行业日趋发达，引入全方位的电脑服务和电脑管理日益流行。同时，酒店和餐厅娱乐业引入电脑服务和管理也取得了优良的经济效益和社会效益

16、。为此，国家建设部已于最近作出明确规定：凡星级酒店在项目审批时，其设计方案必须包括电脑管理系统，否则不予立项。可见，酒店客房管理电脑化势在必行。酒店客房管理系统将先进的电脑技术与现代酒店服务管理完美地结合起来，实现了住宿、餐饮、娱乐全新概念的服务和管理方式。 传统的酒店客房管理往往令管理者花大量的时间来处理顾客投诉，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响出租率，使的管理人员不得不集中精力规划管理运行策略和进行决策。以上问题可通过电脑系统辅助解决，酒店客房管理的电脑化，不仅是体现酒店现代化形象的一个重要标志 ，而且对于提高员工工作效率，加速资金

17、周转、降低各项成本及改善服务质量都有十分积极的作用。 在经过对市场深入细致的分析和研究后，运用国际上的先进计算机技术，采用国际先进的管理模式，结合中国酒店的实际特点，开发了这套酒店客房管理系统。一个成熟的酒店客房管理系统不仅仅是记录酒店客人的信息，提供查询，报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且酒店客房管理系统本身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管理和决策提供支持。为了达到这个要求，它必须依靠高起点的硬件环境和软件开发工具来保证系统的稳定和正常运行。酒店电脑系统要求24小时连续运行，数据量大，可靠性要求高，因此整个电脑系统供电采用专线方式

18、，加配UPS（不间断供电系统），并合理接地，以便保障整套系统的正常运行。在系统调查的基础上，针对系统的开发是否具备必要性和可能性，对系统的开发从操作、技术、经济、三方面进行分析和研究，以避免投资失误，保证新系统的开发成功。从操作、技术、经济三方面，结合当前企业所需的人力、物力、财力对酒店信息管理系统进行分析，系统开发在当前环境条件可行。（1）操作上的可行性 在传统的酒店客房管理中，管理人员不得不花费大量的时间来处理顾客投诉，例如错误查询、烦琐的登记和结帐手续、旅客费用计算错误、空余客房资料不能及时提供等，从而影响酒店的经济效益。因此酒店的管理人员迫切的需要一套酒店客房管理信息系统对日常信息进行

19、处理和维护。界面设计时充分考虑管理人员的习惯，使得操作简单；数据录入迅速、规范、可靠；统计准确；制表灵活；适应力强；容易扩充。 （2）技术上的可行性 本管理信息系统将采用技术成熟的VB6.0做为前台开发工具。后台数据库采用微软公司的Access数据库，它的灵活性，安全性，和易用性为数据库编程提供了良好的条件。因此，系统的软件开发平台已成熟可行。硬件方面，科技的飞速发展使硬件的更新速度越来越快，容量越来越大，可靠性越来越高，价格越来越低，其硬件平台完全能满足此系统的需要。 （3）经济上的可行性 操作人员只需简单培训即可上岗。管理和维护比较简单，除了必要的设备投资外，后期只需少量资金就可确保运转。

20、因此对于中小型酒店在经济上完全可以接受。 本系统的使用能大大提高员工工作效率，加速资金周转、降低各项成本及改善服务质量。能够取得良好的经济效益。 综上所述，本系统在操作上，在技术上和经济上是完全可行的，并且投入少，见效快。因此系统的开发完全可行的。综合从操作、技术、经济、三方面来看，开发一个简单易用、界面友好、灵活方便的管理信息系统对于企业是十分迫切和可行的，这对于企业提高管理效率，减少管理费用是十分有益的。2.功能需求系统开发的总体任务是实现酒店客房各种信息的系统化、规范化和自动化。主要完成功能：（1）客房管理：管理员可以通过对客房信息的查询，实现查看和登记、修改房间的编号、房间面积、床位数

21、量、客房种类、客房位置、房间空闲信息的功能。（2）客人管理：管理员可以通过对客人信息的查询，实现客人入住管理，登记和修改客人的信息、如客人的姓名、身份证号码、入住日期的功能。（3）订房管理：管理员通过对该客人订房信息的查询，实现对客人订房的标准、日期、房间单价及客人信息的查询，管理客人入住房间的功能。（4）结算管理：管理员通过对结算信息的查询，实现对客人离开酒店的结算工作，包括查看客人所住房间的单价、入住日期、打印结算清单完成结算功能。3.数据需求用户的需求具体体现在各种信息的提供、保存、更新和查询等方面，这就要求数据库结构能充分满足各种信息的输出和输入。针对一般酒店客房管理信息系统的需求，通

22、过对酒店客房管理过程的内容和流程分析，设计如下面所示的数据项和数据结构：（1）客房标准信息，包括的数据项有：标准编号、标准名称、住房单价等。（2）客房信息，包括的数据项有：客房编号、客房种类、客房位置、客房单价、备注等。（3）订房信息，包括的数据项有：订房编号、客房编号、客房种类、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、备注等。（4）结算信息，包括的数据项有：订房编号、客房编号、客房种类、客房备注信息、顾客姓名、顾客身份证号码、入住时间、折扣、结算时间、备注等。4.数据流图管理员房间信息登记P1房间，客人信息查询P4入住管理P2房间信息表订房信息表结算 P3 客 人客人信息查

23、询房间信息房间信息结算清单图1 酒店客房管理系统数据流图三、系统设计1.系统功能模块设计按结构化程序设计思想，分析得出如下系统功能模块图 酒店客房管理系统结算管理订房管理客房管理系统管理结算信息查询结算信息修改结算信息添加订房信息查询订房信息修改订房信息添加剩余客房信息查询设置客房信息设置客房标准密码管理用户管理客房信息查询客房信息修改客房信息添加客房标准修改客房标准添加图2 系统功能模块图（1）结算管理：根据核实的客人入住情况，系统提供酒店应返利的详细报表，方便结算部门向酒店进行结算，并根据实际结算情况核实酒店返款情况，系统记录下所有的信息，可以随时根据酒店名称、编号及日期对酒店结算情况进行

24、查询，方便应收帐款的催缴。 同时，系统还提供会员预付款管理，根据会员预付款及在酒店的消费情况，订房中心向酒店进行帐目的结算。（2）订房管理：可根据客人的基本订房资料自动显示该种房间类型在该客人抵达酒店期间所剩余的房间数量；客人预订可到房间类型也可到房间号；根据已经预订房间客人资料进行快速入住登记；（3）客房管理：该功能可以客房信息查询、客房结算查询和效益信息查询。管理人员可以根据房间号、房间级别、房间类型、房间状态对客户信息进行查询，查询到的信息包括房间号、房间级别、房间类型、房间状态这是客房信息查询;结算信息查询，查询到的信息包括登记号、结算日期、付款金额。效益查询信息包括按时间段查询选择时

25、间来查询，也可以按房间号来查询，也可以查询到费用等。（4）系统管理：管理员利用自己的用户名和密码维护本系统正常运行。2.数据库设计 (1)数据库的安全性，一致性和完整性安全性：数据库的安全性是指保护数据库以防止不合法的的使用所造成的数据泄露，更改或破坏。一致性：数据库的一致性是指事务执行的结果必须是使数据库从一个一致性状态变到另一个一致性状态。因此当数据库只包含成功事务提交的结果时，就说数据库处于一致性状态。如果数据库系统运行中发生故障，有些事务尚未完成就被迫中断，这些未事务对数据库所做的修改有一部分已写入物理数据库，这时数据库就处于一种不正确的状态，或者说是不一致的状态。完整性：数据库的完整

26、性是指数据的正确性和相容性，这是数据库理论中的重要概念。完整性控制的主要目的是防止语义上不正确的数据进入数据库。关系系统中的完整性约束条件包括实体完整性、参照完整性和用户定义完整性。(2)数据库概念结构设计。 （2）数据库的概念结构设计 本系统根据以上的设计规划出的实体有：客房标准信息实体、客房信息实体、订房信息实体、结算信息实体。各个实体具体的描述属性图如下：客房标准信息实体标准编号标准名称床位数量客房单价图3 客房标准信息实体属性图客房信息实体客房标准客房编号客房位置客房单价图4 客房信息实体属性图订房信息实体客房编号顾客名折 扣入住时间身份证号图5 订房信息实体属性图结算信息实体客房编号

27、顾客名结算时间结算金额图6 结算信息实体属性图各个实体具体的描述E-R图如下：客房标准 1登记 N客房 N订 房结算信息 1客房结算 1订房信息 1 图7 实体之间关系E-R图(3)数据库表结构设计 首先将酒店客房管理系统的数据库概念结构转化为ACCESS数据库系统所支持的实际数据模型，即：数据库的逻辑结构。其各个表格的设计结果如下：表1 Roomtype 客房信息表列名数据类型可否为空说明roomNOVarcharNOT NULL客房编号TypenameVarcharNOT NULL标准名称AreaNumericNULL房间面积BednumNumericNULL床位数量Hairconditi

28、onVarcharNULL是否有空调HtelephoneVarcharNULL是否有电话HtelevisionVarcharNULL是否有电视HtoiletVarcharNULL是否有单独卫生间PriceNumericNULL单价RoomtypeVarcharNOT NULL客房种类RoompositionVarcharNULL客房位置PutupVarcharNOT NULL是否被预定RoommemoTextNULL备注表2 Bookin 订房信息表列名数据类型可否为空说明CustomnameVarcharNOT NULL 顾客姓名CustomIDVarcharNOT NULL身份证号码Roo

29、mnoVarcharNOT NULL客房编号IndateDatetimeNULL入住日期DiscountNumericNULL折扣InmenoTextNULL备注CheckdateDatetimeNULL结算日期AmountNumericNULL金额四、系统实现1.登录界面在登录界面中，如图主要是对用户的身份进行确认，在界面中需要输入用户名和密码，密码用*号显示，确保用户信息的安全性。同时通过登录信息输入来确认使用权限，管理员通过登录系统后，便可进行管理和维护。图8 登录界面图主要代码如下所示：Dim TIM As Integer 定义一个整型变量Dim myval As String 定义一

30、个字符串变量Private Sub Form_Load() 自动识别数据库路径Data1.DatabaseName = App.Path & db.mdbData2.DatabaseName = App.Path & db.mdbEnd Sub Private Sub Form_Activate() 当记录为零时，进入系统具有所有权限 If Data1.Recordset.RecordCount = 0 Then MsgBox (请先设置操作员密码和权限！) Load main main.Show Unload Me Else Text1.SetFocus End IfEnd SubPriva

31、te Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Text2.SetFocus 按回车键，text2获得焦点End SubPrivate Sub text2_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = vbKeyReturn Then Cmd1.SetFocus 按回车键cmd1获得焦点If KeyCode = vbKeyUp Then Text1.SetFocusIf KeyCode = vbKe

32、yDown Then Cmd1.SetFocusEnd SubPrivate Sub cmd1_Click() main.StatusBar1.Panels(4).Text = Text1.Text 赋值给main.StatusBar1.Panels(4).Text验证操作员及密码 If Data2.Recordset.BOF = False Then Data2.Recordset.MoveFirst Data2.Recordset.FindFirst 操作员 like + Chr(34) + Text1.BoundText + Chr(34) + If Data2.Recordset.No

33、Match Then MsgBox (操作员输入错误!) Else Data1.RecordSource = select * from qxsz where 操作员= & Text1.BoundText & Data1.Refresh If Text1.BoundText And Text2.Text And Text2.Text = Data1.Recordset.Fields(密码) Then Load main main.Show Unload Me Else If TIM = 3 Then 密码输错3次，退出系统 myval = MsgBox(密码输入错误,请向系统管理员查询!, 0

34、, ) If myval = vbOK Then End End If If Text1.BoundText = Then MsgBox (请输入操作员!) Text1.SetFocusElseIf Text1.BoundText Data1.Recordset.Fields(操作员) Then MsgBox (查无此操作员,请重新输入操作员!) Text1.SetFocus Else If Text2.Text = Then MsgBox (请输入操作员密码!) Text2.SetFocus Else If Text2.Text Data1.Recordset.Fields(密码) Then

35、 MsgBox (密码错误,请重新输入密码!) TIM = TIM + 1 Text2.SetFocus End If End If End If End If End IfEnd IfEnd Sub Private Sub cmd2_Click() EndEnd Sub2.系统主界面 当输入用户名和密码正确则进入系统主界面，如图9所示。界面美观，大方，相信会蒙受大家的喜欢。图9 系统主界面3.客房信息模块 本功能模块可以查看并修改客房的信息资料，可以对客房的编号，房间类型，房间价格，是否有人住等信息进行随时更新。点击主界面的客房管理可以看到客房查询在点击客房查询会出下如图10所示的客房信息图

36、，此模块的功能是管理员可以通过本模块对系统的进行新房间的添加，对已有房间资料的修改或删除等操作，界面简单，易于操作。图10 客房设置主要代码如下所示：Private Sub Form_Load() Data1.DatabaseName = App.Path & db.MDB 自动识别数据库路径End SubPrivate Sub Form_Unload(Cancel As Integer) main.Enabled = TrueEnd SubPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode =

37、 vbKeyReturn Then Combo2.SetFocus 查询客房信息 Data1.RecordSource = select * from kf where 房间类型= & Combo1.Text & Data1.Refresh 赋值给texjg.textIf Data1.Recordset.RecordCount 0 Then Texjg.Text = Data1.Recordset.Fields(价格)End Sub Private Sub texfjh_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Combo1.SetFocus 按回车键Combo1获得焦点End SubPrivate Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode