宾馆管理系统毕业论文

《宾馆管理系统毕业论文》由会员分享，可在线阅读，更多相关《宾馆管理系统毕业论文（34页珍藏版）》请在装配图网上搜索。

1、 前 言在当今激烈的竞争环境下，宾馆、旅游业的竞争已经不仅仅是硬件设施、人员素质的竞争，更是现代化管理手段的竞争。一个好的宾馆管理系统的使用，将大大提高宾馆领导的决策管理能力和员工的工作效率，增加服务内容，改善服务质量，也将充分挖掘宾馆的潜力，提高宾馆在住客心目中的地位和档次，给住店旅客良好的形象和享受，是新型现代化宾馆、旅馆的一个重要标志。宾馆管理系统需要由宾馆管理方面的专家和计算机软件开发的精英运用自己的理论知识共同建立。本论文采用VB 6.0作为程序设计语言。VB为开发人员提供可视化的设计环境，提供了构造用户界面所需的大多数屏幕上的可视化对象，如编辑框、各类按钮、效验盒、下拉列表等，用户

2、能方便地用所见即所得的交互式方式设计出用户界面；VB采用了面向对象的技术，如消息传递的事件机制；应用软件由屏上可见或不可见的对象和事件响应程序组成。一个用VB编写的程序由一系列独立的代码段组成，只有当对应事件发生后，它们才被激活并作出响应，这是面向对象的编程思想，这种思想使程序的控制者不是程序员而是用户本身。VB具有先进的模块化程序设计功能，这使得用VB编制大型程序、完成大规模项目变得容易起来，特别是使得计算机应用程序变得漂亮起来。另外，VB易于编程的原因，在于其拥有强大的内部函数。一个完整的宾馆管理系统是包括很多个子系统的，如果全部都实现它们那是需要一个小组甚至是一个公司来做的大项目。作为一

3、名自学VB的学生，选择了宾馆管理系统中最重要的一个子系统客房管理系统来成为我的论文主体。我虽是计算机专业的学生，但是对于VB还是一个初学者、自学者，所以论文中难免有些不妥之处，请领导予以指正。摘要： 本论文采用VB 6.0作为程序设计语言，且选择了宾馆管理系统中最重要的一个子系统客房管理系统来成为论文主体。系统使用的是Access数据库，系统中建立了一个数据库包含有两个表，一个表是用于用户登陆，另一个表记录的是客房以及顾客的信息。该系统需要完成如下功能：管理员的正确登陆，用户密码可以修改；开房、预订房的顾客信息的输入，包括顾客姓名、性别、身份证号、人数、入住时间、所付押金以及房间型号等；退房中

4、可以通过输入房间号码来查找顾客要退的房间且系统会自动统计出顾客所需付账款，结账后顾客的信息将消失，并且该房间自动变为空闲可供入住；顾客以及房间信息查找中能够通过顾客姓名、房间号码来进行对顾客或房间信息的查找；为了合理的分配有利资源，也为了美观，让管理员适时的轻松一下，在顾客查询的右边给出了一个动画FLASH。关键词：数据库 多文档界面 模块 客房管理 需求 功能 窗体 工程ABSTRACT： The paper is adoptive programming language by the way of Visual Basic 6.0, I also choose the guest roo

5、m manage system as my papers main body which is the most important subsystem of hotel manage system. I use Access database, and found a database with two tables, one is for consumer landing, the other one is for guest rooms and clients informations recording. The system needs achieve some functions

6、as follows: administrators can land the landing frame and amend password; we shall input the information of the clients opening room and book room, including name, sex, ID card number, number, entered time, pay the deposit, the rooms type and so on; exit room we may lookup the information by the way

7、 of inputting the room number, and system can self-motion stat. the clients paying, after the client foots a bill, the clients information will vanish, as well as the room becomes empty; we are capable of lookup the information of the clients and rooms by the way of inputting the clients name or roo

8、m number; by the way of reasonable distribute favorableness resource and slinky, I make a cartoon FLASH in the right of the Client Loop up, it let the administrators take it easy.Key Words: database MDI module guest room manage requirement Function forms project第1章 绪论1.1 问题定义及内容简介在当今激烈的竞争环境下，宾馆、旅游业的

9、竞争已经不仅仅是硬件设施、人员素质的竞争，更是现代化管理手段的竞争。一个好的宾馆管理系统的使用，将大大提高宾馆领导的决策管理能力和员工的工作效率，增加服务内容，改善服务质量，也将充分挖掘宾馆的潜力，提高宾馆在住客心目中的地位和档次，给住店旅客以良好的感觉和享受，是新型现代化宾馆、旅馆的一个重要标志。宾馆管理系统需要由宾馆管理方面的专家和计算机软件开发的精英运用自己的理论知识共同建立。本系统是宾馆管理系统中的一个子系统客房管理系统。本系统的制作思路简单，建立了两个数据表，其中一个表用于管理员登陆验证身份；另一个表记录的是客房以及顾客的信息。本系统有66个房间，房间及顾客信息有3种状态，即“入住”

10、、“预订”、“退房”，房间类型分为6种，即“商务豪华间”、“单人间”、“标准间”、“豪华套房”、“商务间”、“总统套房”，根据这些状态和类型可以对房间的情况和客人的情况进行统计。本系统主要包括8个窗体，包括MDI主界面、登陆框、用户密码修改、加载框、开房、预订房、退房以及查看信息等。开房、预订房包括姓名、性别、房间类型、身份证号、押金、人数、入住日期（预订日期），并且右方可以看到所选房间类型的房间信息；退房包括姓名、房间、入住日期、退房日期、房价、总计，上方可以看到所退房的房间以及顾客的信息；查看信息包括选择范围、输入查找内容，下方可以看到所选房间或顾客的信息；在第4章里会有各个窗体的界面图，

11、其他的窗体在这里就不一一介绍了。 1.2 研究背景 1、管理软件进入酒店业。2、目前的市场布局。市场虽没有前几年那么增长快，但还是有很大的潜力可挖。3、矛盾：开发-应用/需求-供给。总体而言，国内宾馆IT技术开发的现状是：（1）需求不明确，使宾馆项目工程性强，产品化不足，开发商的总体成本居高不下，研发缺乏原动力。（2）没有行业统一标准，厂商各自为政，市场分化导致产品整合难度大。（3）产品推广依赖行政手段和关系网，抑制了新技术的引进和技术的创新，不利于形成自己的产品特色和质量控制。（4）国外优秀品牌的低价进入，垄断了国内高星级市场，开发商利润空间甚微。4、图谋市场局限突破：联手枕戈，共谋突破！（

12、1）软件商必须居安思危。（2）走连锁经营之路。1.3 系统需求分析该系统需要完成如下功能：1、管理员的正确登陆，登陆时将有一个有FLASH的加载框，用户密码允许修改。2、开房、预订房顾客信息的输入，包括顾客姓名、性别、身份证号、人数、入住时间、所付押金以及房间的型号等。3、退房中可以通过输入房间号码来查找顾客要退的房间，且系统会自动统计出顾客所需付账，结账后顾客的信息将消失，该房间自动变为空闲可供入住。4、信息查找中能够通过顾客姓名或房间号码进行对顾客或房间信息的查找。5、为了合理的分配有利资源，也为了美观，让管理员适时的轻松一下，在顾客查询的右边给出了一个动画FLASH。第2章 Window

13、s下的Visual Basic编程环境简介2.1 Visual Basic集成开发环境VB集成开发环境是提供设计、运行和测试应用程序所需各种工具的一个工作环境。这些工具互相协调、互相补充，大大减少了应用程序的开发难度。集成开发环境主窗口的顶部包含标题栏、主菜单和快捷工具栏；下部有几个子窗口：工具箱、工程窗口、工程管理窗口和属性窗口等。根据需要，主窗口上还会打开不同的子窗口。2.1.1 标题栏启动VB后，标题栏中出现的信息是“工程 1-Microsoft Visual Basic设计Form1(Form)”,表示现在是“工程 1”的“Form1”（窗体）的设计阶段。方括号里的信息内容随着工作状态

14、不同而改变。2.1.2 主菜单主菜单位于标题栏之下，提供一些进行程序设计时必要的功能，VB6是汉化的，所有的菜单命令都以汉字标出。主要有文件菜单、编辑菜单、视图菜单、工程菜单、格式菜单、调试菜单、运行菜单、查询菜单、图表菜单、工具菜单、外接程序菜单、窗口菜单和帮助菜单。还有一些快捷工具栏，这里就不详细讲述。2.1.3 窗体窗口新建一个工程时，VB集成环境中间的工作区出现一个工程窗口。标题显示“工程 1 Form1(Form)”。“工程 1”是当前默认工程名窗体，Form1是当前工程的当前窗体名。VB中，应用程序称为“工程”，工程窗口是浮动的，最大化时它就不见了，充满整个工作区。工程窗口嵌有一个

15、窗体窗口，标题显示窗体名，调整窗体时，在布局窗口看到与屏幕的相对大小。当窗体调到大于工程窗口时，工程窗口将出现滚动条，拖动滚动条可以观察窗体各部分。窗体（Form）是应用程序最终面向用户的窗口，它对应于应用程序的运行结果。所设计的程序主要是围绕窗体展开的。各种图形、图像、数据等都是通过窗体或窗体中的控件显示出来的。当打开一个新的工程文件时，VB建立一个新的窗体，并且自动命名为FormX（X=1，2，3，），用户可以对它进行修改。窗体中布满了小点，是供设计时控件对齐用的，运行时消失。设计应用程序时，窗体就像一块画布，程序员根据界面的要求，从工具箱中选择所需要的工具 “放”在画布上，组成应用程序界

16、面的各个构件，这样就完成了应用程序设计的第一步。2.1.4 工具箱工具箱主要用于界面设计。在设计阶段，首先使用工具箱的工具在窗体上建立各种图形对象（控件），形成界面的外观形象，然后编写程序代码。具体的有PictureBox图片框、TextBox文本框、Label标签、Frame框架、CommandButton命令按钮、CheckBox复选框、OptionButton单选按钮、ListBox列表框、ComboBox组合框、HscrollBar水平滚动条、VscrollBar垂直滚动条、Timer、DriveListBox、DirListBox、FileListBox、Shape形状、Line线型

17、、Image图像、Data、OLE容器和指针按钮。2.1.5 工程管理窗口工程管理窗口是VB一个重要的子窗口，窗口中以树状列表形式显示当前工程的组成，且可使用这棵树打开或切换工程的各文件。2.1.6 属性窗口 属性是用以描述VB窗体和控件特征的数据值，属性列表列出当前所选对象的全部属性名称和相应的取值。有些属性值可以通过程序运行时动态的修改。2.2 Visual Basic中数据库操作VB提供的数据库引擎名叫“Jet”，它位于用户程序与数据库文件之间，功能是把用户程序访问数据库的请求变成对数据库的实际操作，实现“透明”访问。只要是Jet支持的数据库，不管它是什么格式，在用户程序中都使用相同的数

18、据访问对象和编程技术。VB应用程序的用户界面的可视部分是窗体。通过窗体，用户可以查看和更新数据。驱动这些窗体的是应用程序的VB代码，包括用来请求数据库服务的“数据访问对象”的属性和方法。数据库是包含数据库表的一个或多个文件，它包含数据但不对数据做任何操作。数据操作是数据库引擎的任务。2.2.1 Jet中ADO数据访问对象 在Jet之上，VB提供两类数据库访问接口。一类是传统的DAO（Data Access Object）“数据访问对象”模型，另一类是新开发的ADO（Active X Data Object）“数据访问对象”，这里所选用的是ADO，与ADO配套的是ADO Data控件（Micro

19、soft ADO Data Control 6.0(OLEDB)）。第3章 使用Access2000实现关系型数据库3.1 数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库(flat-file)和关系数据库(relational)。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，如记录、域等。3.2 新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程是数据模型设计。1、标识需要的数据。2、收集被标识的字段

20、到表中。3、标识主关键字字段。4、绘制一个简单的数据图表。5、规范数据。6、标识指定字段的信息。7、创建物理表。3.3 修改已建的数据库 数据库的修改分为添加、编辑和删除记录。这三种操作均可由Visual Basic创建的程序来完成。3.4 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：

21、主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Acces

22、s作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。第4章 各个主要模块设计4.1 Visual Basic 的MDI窗体本系统的是以一个MDI（Multiple_Document Interface多文档界面）为主界面的。多文档界面允许创建在单个容器窗体中包含多个窗体的应用程序。MDI应用程序由一个父窗体和若干个子窗体组成，可以同时显示多个文档，每个文档都在自己的窗口中显示。文档的子窗口被包含在父窗口中，父窗口为应用程序中所有的子窗口提供工作空间。4-1 MDI主窗口（具体程序代码请看附录，下同）4.2 登陆框窗体及用户密码修改窗体4-2 登

23、陆框窗口这个窗口的属性修改是用程序运行来实现的，是一种动态的修改。4-3 加载框窗体这个加载框里有FLASH、加载条等。4-4 密码修改框窗体这个窗体的属性也是用程序来实现的动态修改。4.3 开房、预订房4-5 开房窗体这个窗体的属性是直接在属性框中修改实现的。4-6 预订房窗体这个窗体的属性是直接在属性框中修改实现的。4.4 退房4-7 退房窗体这个窗体的属性是直接在属性框中修改实现的。4.5 查看顾客或客房信息窗体4-8 信息查询窗体这个窗体的属性是直接在属性框中修改实现的。第5章 用户使用手册5.1 系统功能简介、运行环境简介5.1.1 系统功能1、管理员的正确登陆，登陆时将有一个有FL

24、ASH的加载框，用户密码允许修改。2、开房、预订房顾客信息的输入，包括顾客姓名、性别、身份证号、人数、入住时间、所付押金以及房间的型号等。3、退房中可以通过输入房间号码来查找顾客要退的房间，且系统会自动统计出顾客所需付账，结账后顾客的信息将消失，该房间自动变为空闲可供入住。4、信息查找中能够通过顾客姓名或房间号码进行对顾客或房间信息的查找。5、为了合理的分配有利资源，也为了美观，让管理员适时的轻松一下，在顾客查询的右边给出了一个动画FLASH。5.1.2 运行环境5.2 系统运行与操作指南1、打开工程1.exe文件，出现一个MDI窗体 2、点击“客房管理”“客户设置”，将会弹出一个登陆框，用户

25、名为xiaoli,密码为0000。可点击“其他”菜单中“修改口令”，来进行密码修改。 3、进入系统后，可以点击“开房”、“订房”以及“退房”。 4、进入开房窗体后，可以将顾客的信息依次输入进去，点击保存则可以将顾客的信息保存在数据库中；点击取消可以将输入的顾客信息全部清空；点击返回可以返回到主界面中。另外开房窗体的右边可以查看到所选客房的信息。5、进入订房窗体后，具体操作与开房类似。6、在退房中，管理员既可以要求顾客报出自己的姓名和房间号码来结账，也可以直接输入房间号码结账。7、在顾客及房间查询中，可以选择查询什么，然后再将其输入就可以查询到顾客或是房间的信息了。结束语经过几个月的设计和开发，

26、客房管理系统基本开发完毕。其功能基本符合用户需求，能够完成客房管理的各项功能。但是由于毕业设计时间较短，并且我又是自学者，所以该系统还有许多不尽如人意的地方，比如用户界面不够美观，出错处理不够等多方面问题。这些都有待进一步改善。致谢在本次毕业论文设计中，我从指导老师身上学到了很多东西。xxx认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高，这对于我以后的工作和学习都有巨大的帮助，在此感谢他耐心的辅导。参考文献刘小伟、蒙坪，新编电脑实用教程，北京，清华大学出版社，2000.10杨永田，计算机专业英语，第三版，哈尔

27、滨，哈尔滨工程大学出版社，2001.6廖望、钟永生、黄国平、刘海珍、黄智成、江慧扬,Visual Basic.NET程序设计案例教程,北京,冶金工业出版社,2004,第248张海藩,软件工程导论，第四版，北京，清华大学出版社，2003黄梯云，管理信息系统，第二版修订本，北京，高等教育出版社，2000施伯乐、丁宝康、汪卫，数据库系统教程，北京，高等教育出版社，2003.8丁宝康、董健全，数据库实用教程，北京，清华大学出版社，2001.9周霭如、官士鸿、林伟健，Visual Basic程序设计，北京，电子工业出版社，2003.1郭瑞军、唐邦民、谢晗昕，Visual Basic数据库开发实例精粹，北

28、京，电子工业出版社，2005.1李存斌、郭晓鹏，Visual Basic高级编程及其项目应用开发，北京，中国水利水电出版社，2003.2本书编写组，Visual Basic 6.0程序设计参考手册，北京，人民邮电出版社，2003.11第一时间工作室，Visual Basic 6.0程序设计技能百练，北京，中国铁道出版社，2004.1李春葆、张植民，Visual Basic数据库系统设计与开发，北京，清华大学出版社，2003.8Bob Reselman、 Richard Peasley、 Wayne Pruchniak，Visual Basic 6.0使用指南，北京，电子工业出版社 Micros

29、oft，Visual Basic 6.0 中文版控件大全，北京，电子工业出版社Craig Eddy、 Timothy Buchanan，中文Access 2000 24学时教程，北京，机械工业出版社附录：模块通用程序代码Public cnn As New ADODB.ConnectionPublic rss As New ADODB.RecordsetPublic Sub cnnser()cnnclosecnn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:VB 作业新建文件夹 (3)xl.mdb;Persi

30、st Security Info=Falsecnn.OpenEnd SubPublic Sub rssser(ByVal SQL As String)Set rss = Nothingrss.CursorLocation = adUseClientrss.Open SQL, cnn, adOpenDynamic, adLockOptimistic, -1End SubPublic Sub cnnclose()If cnn.State = adStateOpen Then cnn.CloseEnd IfEnd Sub4-1在宾馆主界面的程序代码Private Sub MDIForm_Load()

31、menu_1.Enabled = Falsemenu_2.Enabled = Falsemenu_4.Enabled = Falsemenu_5.Enabled = Falsemenu_6.Enabled = Falsemenu_7.Enabled = FalseToolbar1.Enabled = FalseEnd SubPrivate Sub menu_1_1_Click()End SubPrivate Sub menu_1_3_Click()End SubPrivate Sub menu_2_1_Click()End SubPrivate Sub menu_2_3_Click()Load

32、 FrmkfFrmkf.ShowEnd SubPrivate Sub menu_3_1_Click()Load frmdlfrmdl.ShowEnd SubPrivate Sub menu_5_1_Click()Load frmgkfrmgk.ShowEnd SubPrivate Sub menu_7_2_Click()Load FrmpasswordFrmpassword.ShowEnd SubPrivate Sub menu_7_4_Click()Dim a As Integer a = Shell(C:WINDOWSsystem32calc.exe)End SubPrivate Sub

33、Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1: Load Frmkf Frmkf.Show Case 2: Load frmdf frmdf.Show Case 3: Load frmtf frmtf.Show Case 4: Case 5: Case 6: Case 7: Case 8: Case 9:End SelectEnd Sub4-2管理员登陆框程序代码Sub a()Text1.Text = Text2.Text = Text1.SetFocusEnd S

34、ubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Command3_Click()Unload MeLoad MDIForm1MDIForm1.ShowEnd SubPrivate Sub Form_Load()Me.Height = 4000Me.Width = 5700Label1.Caption = 用户名Label2.Caption = 密码Text1.Text = Text2.Text = Text1.MaxLength = 10Text2.MaxLength = 4Text2.PasswordChar = *Command1.C

35、aption = 确定(&Q)Command2.Caption = 退出(&C)Command3.Caption = 返回(&F)Call cnnserEnd SubPrivate Sub Command1_Click()Static z As IntegerIf Text1.Text = Then MsgBox 对不起！用户名不能为空, vbInformation, 系统提示 Call a Exit SubElseDim j As Stringj = select * from table1 where userid= & Trim(Text1.Text) & rssser (j)If rs

36、s.BOF And rss.EOF Then MsgBox 没有相应的用户, vbInformation, 请输入正确用户名 z = z + 1 Call a If z = 3 Then MsgBox 对不起，错误达到3次 goodbye, vbInformation, 系统提示 End End If Exit SubElse j = select * from table1 where userid= & Trim(Text1.Text) & and password= & Trim(Text2.Text) & rssser (j)If rss.BOF And rss.EOF Then Ms

37、gBox 密码错误, vbInformation, 系统提示 z = z + 1 Text2.Text = Text2.SetFocus If z = 3 Then MsgBox 对不起，错误达到3次 goodbye, vbInformation, 系统提示 End End If Else MDIForm1.menu_1.Enabled = True MDIForm1.menu_2.Enabled = True MDIForm1.menu_4.Enabled = True MDIForm1.menu_5.Enabled = True MDIForm1.menu_6.Enabled = True

38、 MDIForm1.menu_7.Enabled = True MDIForm1.Toolbar1.Enabled = True MsgBox 登陆成功, vbInformation, 欢迎光临 Load frmload frmload.Show Me.Hide Text1.Text = Text2.Text = End IfEnd IfEnd IfEnd SubPrivate Sub Text1_Change()End Sub4-3登陆到主界面的加载框的程序代码Private Sub Flash1_OnReadyStateChange(newState As Long)End SubPriv

39、ate Sub Form_Load()Flash1.Movie = & App.Path & 流氓兔吃霸王餐.swfMe.Height = 6500Me.Width = 8500End SubPrivate Sub Timer1_Timer()Static i As Integeri = i + 1If i 100 Then ProgressBar1.Value = i Label1.Caption = 请稍等，正在加载. & i & %ElseUnload MeEnd IfEnd Sub4-4登陆框修改密码程序代码Private Sub Command1_Click()If Text3.Te

40、xt = Then MsgBox 请输入密码, vbInformation, 系统提示 Text3.SetFocusElseIf Text1.Text = Then MsgBox 请输入新密码, vbInformation, 系统提示 Text3.SetFocusElseIf Text2.Text = Then MsgBox 请再次确认新密码, vbInformation, 系统提示 Text3.SetFocusEnd If rssser (select * from table1 where password= & Trim(Frmpassword.Text3.Text) & ) If rs

41、s.BOF And rss.EOF Then MsgBox 密码不正确, vbInformation, 系统提示 Text3.Text = Text1.Text = Text2.Text = Text3.SetFocus Else MsgBox 存在密码 If Val(Text2.Text) = Val(Text1.Text) Then rss.Fields(Password).Value = Text2.Text rss.Update MsgBox 修改成功, vbInformation, 系统提示 Unload Me Else MsgBox 两次输入新密码不同，请重新输入新密码, vbQu

42、estion, 系统提示 Text1.Text = Text2.Text = Text1.SetFocus End If End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Call cnnserLabel1.Caption = 请输入新密码Label2.Caption = 再次输入新密码Label3.Caption = 请输入密码Text1.Text = Text2.Text = Text3.Text = Text1.MaxLength = 4Text2.MaxLength = 4Te

43、xt3.MaxLength = 4Text1.PasswordChar = *Text2.PasswordChar = *Command1.Caption = 确定(&Q)Command2.Caption = 返回(&F)Me.Height = 4000Me.Width = 5500End SubPrivate Sub Text3_Change()End Sub4-5、4-6客房管理的开房以及预定房间的程序代码Private Sub Combo2_Click()Dim i As Stringcnnser Select Case Combo2.Text Case 商务豪华间 Call find

44、Case 单人间 Call find Case 豪华套房 Call find Case 标准间 Call find Case 商务间 Call find Case 总统套房 Call findEnd SelectEnd SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Command2_Click()Load Form1Form1.ShowEnd SubSub find()Dim i As Stringi = select * from room where roomtype= & Trim(Combo2.Text) & rs

45、sser (i)If rss.BOF And rss.EOF Then MsgBox 没有找到该纪录, vbInformation, 系统提示 Exit Sub Else Set DataGrid1.DataSource = rssEnd IfEnd SubPrivate Sub Command3_Click()Text1.Text = Text3.Text = Text4.Text = Text5.Text = Combo1.Text = Combo2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change()End Sub4-5-1、4-6

46、-1开房、预订房时输入房间号的程序代码Private Sub Command1_Click()cnnserDim j As Stringj = select * from room where roomid= & Trim(Text1.Text) & rssser (j)Select Case (frmdf.Combo2.ListIndex) Case 3 If Val(Text1.Text) 313 Then MsgBox 单人间中无此房号！ Exit Sub End If Case 0 If Val(Text1.Text) 413 Then MsgBox 标准间中无此房号！ Exit Su

47、b End If Case 1 If Val(Text1.Text) 613 Then MsgBox 商务间中无此房号！, vbInformation, 系统提示 Exit Sub End If Case 5 If Val(Text1.Text) 713 Then MsgBox 豪华商务间中无此房号！, vbInformation, 系统提示 Exit Sub End If Case 2 If Val(Text1.Text) 513 Then MsgBox 豪华套房中无此房号！, vbInformation, 系统提示 Exit Sub End If Case 4 If Val(Text1.T

48、ext) 801 Then MsgBox 总统套房中无此房号！, vbInformation, 系统提示 Exit Sub End IfEnd SelectIf rss.BOF And rss.EOF ThenMsgBox 无此房间号码, vbInformation, 系统提示ElseIf rss.Fields(roomkf) = 1 ThenMsgBox 此房间已有顾客！, vbInformation, 系统提示Exit SubElseIf rss.Fields(roomdf) = 1 ThenMsgBox 此房间已有人预定！, vbInformation, 系统提示Exit SubElse

49、Call bckfMsgBox 数据保存完成, vbInformation, 系统提示Call cleanEnd IfEnd SubSub bckf()rss.Fields(gkname).Value = frmdf.Text1.Textrss.Fields(gksex).Value = frmdf.Combo1.Textrss.Fields(roomid).Value = Me.Text1.Textrss.Fields(roomsfz).Value = frmdf.Text3.Textrss.Fields(roomyj).Value = frmdf.Text4.Textrss.Fields(

50、roomnum).Value = frmdf.Text5.Textrss.Fields(kfdate).Value = frmdf.DTPicker1.Valuerss.Fields(roomdf).Value = 1rss.UpdateEnd SubSub clean()Load frmdffrmdf.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Text1_Change()End Sub4-7退房程序代码Private Sub Command1_Click()On Error Resume Nextrs

51、s.Fields(roomkf) = rss.Fields(roomdf) = rss.Fields(gkname) = rss.Fields(gksex) = rss.Fields(roomsfz) = rss.Fields(roomyj) = rss.Fields(roomnum) = Update.rssUnload MeEnd SubPrivate Sub Command2_Click()On Error Resume NextDim SQL As StringSQL = select *from room where roomid = & Trim(Text2.Text) & rss

52、ser (SQL)Set DataGrid1.DataSource = rssText1.Text = rss.Fields(gkname)D1.Value = rss.Fields(kfdate)Text5.Text = rss.Fields(price)D2.Value = NowText6.Text = Int(D2.Value - D1.Value) * Val(Text5.Text)End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load()cnnserEnd Sub4-8查找信息的程序代码Private Sub

53、 Combo1_Change()End SubPrivate Sub Command1_Click()If Combo1.Text = Or Text1.Text = ThenMsgBox 不能为空！, vbInformation, 系统提示Exit SubEnd IfcnnserDim SQL As StringIf Combo1.ListIndex = 0 ThenSQL = select *from room where roomtype = & Trim(Text1.Text) & ElseIf Combo1.ListIndex = 1 ThenSQL = select *from room where gkname = & Trim(Text1.Text) & End Ifrssser (SQL)Set DataGrid1.DataSource = rssEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Flash1.Movie = & App.Path & 流氓兔越狱.swfEnd Sub34