《浅谈客房管理系统样本.doc》由会员分享，可在线阅读，更多相关《浅谈客房管理系统样本.doc（29页珍藏版）》请在金锄头文库上搜索。
1、浅谈客房管理系统 摘要： 21世纪是一种”知识经济”时代，信息爆炸是这个时代特性。因而，信息时代对公司信息管理和应用提出了更高规定，这重要体当前两个方面：一是由于咱们所处这个世界已经成为知识信息海洋，公司必要具备从公司环境中获取、解决和应用这些信息能力；二是公司还必要具备管理和应用公司自身不断产生反映公司状态数据信息和描述管理活动控制信息。毋庸讳言，Visual Basic是近年来发展最快一种计算机语言，其简洁与实用性受到众多计算机顾客和程序员青睐。通过Microsoft 概念化，Visual Basic创立者以一种广为人知Basic语言为基本，并赋予这个语言以便地建立windows 应用能力
2、，从而提供了开发各种公司系统所需多任务和高性能。核心词： Database Databasename Recordsource Recordset Field Connect DatasourceData Dao Select系统设计目在当代宾馆服务行业中，由于客流量巨增，老式管理办法已经不适合当代社会需要，因而客房管理系统是各大中小型宾馆所需要使用一种管理系统。由于客房系统往往是一种大型信息管理系统，她需要专业开发人员才干完毕复杂功能，并且每一种宾馆管理内容和服务方式均有所区别，本文只是制作了一种有一定代表意义小型客房管理系统。系统架构本系统是一种小型客房管理系统,适合25人左右非大量并发数
3、据库操作访问,采用桌面DBMS access作为底层平台,通过data进行连接访问,界面实现采用visual basic开发,单机运营,数据库平台和程序可以运营windows 操作系统上. 数据库访问办法采用DAO对象访问ODBC或者直接访问.功能分析 本系统为采用三层构造体系,以低层access数据库作为数据库系统,通过一种通用数据访问接口层来统一操作,如果更改了数据源平台,只需前换该层即可,业务逻辑层是某些可以完毕客房操作业务接口,本系统逻辑层在数据查询构导致果返回方面,采用DAO访问技术,对数据集进行浏览,更新,删除等操作.系统功能设计在本系统中，将实现如下某些功能：1. 顾客权限管理2
4、. 客户住宿管理3. 客户退房管理4. 客户综合查询管理本系统将基本实现小型原则客房管理某些功能。数据库及数据表设计 数据库设计是整个软件重中之重,数据库设计包括了对系统实体划分,核心是逻辑设计和运营平台设计,通过对数据库设计可以清晰地划分软件中所有实体和关系,也可以中抽象出系统所有对象. 在该数据库中，创立一种客户信息数据表,系统顾客权限表,客房状况表。客房管理数据库建立数据库是数据表集合，系统开发一方面应当开发一种数据库，用于存储系统中数据表。在visual basic集成开发环境中制作客房管理数据库环节如下：（1） 启动vb应用系统，浮现vb应用系统开发主界面。（2） 在vb主菜单中单击
5、外接程序|可视化数据管理器菜单项，浮现可视化数据管理器界面。（3） 单击文献|新建|Microsoft access(m)|version 7.0 mdb(7)菜单项，vb默认数据库类型为Microsoft access数据库类型，它与Microsoft office 基本数据库类型一致，并且在Microsoft access数据库类型中，version 7.0 mdb为最新版本数据库类型。选取该类型数据库，数据库文献扩展名为.mdb，在创立数据库时不必输入扩展名，可视化数据管理器将自动为数据库生成扩展名。（4） 再单击菜单后浮现文献保存对话框，在对话框中选取磁盘驱动器和文献夹名称，此处选取文
6、献夹，并将数据库命名为客房管理数据库，随后将浮现数据库窗口。客户信息数据表创立 数据库只是一种容器，它是数据表集合。数据库一经创立，顾客就可以在数据库中创立应用系统开发制作所需要数据表。其环节如下：（1） 在可视化数据管理器中打开数据库（2） 在数据管理器中选取数据库文献（3） 右击数据库文献客房管理数据库，浮现一种弹出式菜单（4） 在弹出式菜单中单击新建表菜单项，浮现数据表构造设计器对话框.数据表构造就是对一种数据表中字段名称,类型,大小定义,在数据表构造创立对话框中,不但可以制定表构造,还可以对数据表进行各种操作,如显示每一种字段构造信息,增长或删除字段,建立索引,对每一字段进行有效性输入
7、规则定制等.在客房管理数据库中咱们将创立”客房信息数据表”,其构造参数定义如下:字段名称字段类型字段大小索引忽视空值房号singledefault惟一 主索引No姓名Text20No性别Text2No年龄SingledefaultNo国籍Text20No身份证号Text50No客房级别Text20No用房天数SingledefaultNo住店日期Date/timedefaultNo离店日期Date/timedefaultNo系统顾客权限表设计与创立,在整个系统中,使用系统均要通过权限认证,她涉及系统准入认证,权限修改认证等,因而需要创立一种顾客权限表,其构造如下所示:字段名称字段类型字段大小索
8、引忽视空值操作员Text20No密码single4核心No 客房状况表设计和创立她用于整个客房所有房间信息,以及已经住宿状况和未住宿状况其构造如下表所示： 字段名称字段类型字段大小索引忽视空值房号Singledefault惟一 主索引No客房级别Text10No用房标志Text1No创立系统启动界面 系统启动封面是一种应用系统开始界面，普通是系统登录界面进入该界面后，通过顾客权限认证，判断使用本程序顾客是是合法顾客.然后进入系统主窗体。创立系统启动界面也就意味着创立系统开始，本文采用数据工程办法创立。创立过程如下：1. 启动vb应用系统，进入开发平台主界面2. 在开发平台中，创立一种新工程，此
9、处创立数据工程3. 在工程类型中选取数据工程4. 单击打开按钮，浮现一种数据工程，其中涉及一种数据工程窗体，一种数据源环境和数据报表设计器数据工程核心在于使用数据源，创立数据源办法如下：1. 单击数据设计器/数据环境条目，浮现一种数据环境中连接界面2. 右击连接条目connection1,浮现一种弹出式菜单，单击属性，浮现数据源驱动程序类型3. 选取microsoft access,单击next按钮，浮现数据库设立对话框，选取数据库4. 单击拟定按钮，成功引入数据源接下来，创立系统启动界面，在工程管理器中打开数据工程已经创立第一种窗体form1保存该工程和该窗体接下来设计form1其制作过程如
10、下：1. 设立窗体基本属性如表所示：属性项名属性设立内容Startuupposition2-屏幕中心Windowsstate2-maxmizedpicture图片文献2. 在窗体中放置一种数据控件data1，该控件重要作为登录系统顾客权限表数据源控件，设立她基本属性如表所示：属性项名属性设立内容DatabasenameConnectaccessRecordsourceklvisibleFalse3. 在窗体中放入两个按纽控件，分别设立其caption属性为登录和退出,并为这两个赋予过程代码，其过程代码如下：Dim TIM As Integer 定义一种整型变量Dim myval As Stri
11、ng 定义一种字符串变量Private Sub Command1_Click()Data1.Recordset.CloseEndEnd SubPrivate Sub combo1_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode = vbKeyReturn Then Text2.SetFocus 按回车键，text2获得焦点 End IfEnd SubPrivate Sub Form_Activate()Data1.RefreshData1.Recordset.MoveLastIf Data1.Recordset.RecordCou
12、nt = 0 Then MsgBox (请先设立操作员和密码权限!) From2.Show Unload Me Data1.Recordset.CloseElse Combo1.SetFocusEnd IfEnd SubPrivate Sub Form_Load() Data1.DatabaseName = App.Path & kl.mdb Data1.RefreshEnd SubPrivate Sub text2_KeyDown(KeyCode As Integer，Shift As Integer)If KeyCode = vbKeyReturn Then Command1.SetFoc
13、us 按回车键cmd1获得焦点If KeyCode = vbKeyUp Then combol1.SetFocusIf KeyCode = vbKeyDown Then Command1.SetFocusEnd SubPrivate Sub command2_Click()With Data1.RecordsetDim mmmm = .BookmarkIf .BOF = False Then .MoveFirstEnd IfIf Combo1.Text = Then MsgBox 请输入顾客名 Combo1.SetFocus Exit SubElse.FindFirst 操作员 like +
14、Chr(34) + Combo1.Text + Chr(34) + If .NoMatch Then MsgBox (操作员输入错误,请重新输入!) .Bookmark = mm Combo1.SetFocus Exit Sub Else Data1.RecordSource = select * from kl where 操作员= & Combo1.Text & Data1.Refresh If Text2.Text = Then MsgBox (请输入顾客密码!) Text2.SetFocus Exit Sub Else mm = .Bookmark .FindFirst 密码 like + Chr(34) + Text2.Text + Chr(34) + If TIM 2 Then MsgBox 你无权使用本系统,请向系统管理员查询! End Else If .NoMatch Then MsgBox (密码输入错误,请重新输入!) TIM
