《客房管理系统论文和代码》由会员分享，可在线阅读，更多相关《客房管理系统论文和代码（11页珍藏版）》请在金锄头文库上搜索。
1、. .工业大学软件学院 软件开发实习VC+类报告册题目：客房管理系统班 级： 0402班学 号： 041201352姓 名：侯雨峰指导王维周数：两周成绩：批阅时间： 年 月 日一、设计题目：客房管理系统 计算器简单设计二、设计要求：客房管理系统 1要求有简单 增 删 改 插入和查询。 2要注意数据库数据的冗余度问题。 3 在删除记录和插入记录时要注意数据之间的 更新级联 和 删除约束。 4 在编写程序时 要尽力提高程序的通用性。 5 同时要注意后台数据库的维护。 6有良好的用户界面三、设计容：如写不下可加附页1设计任务客房管理系统是根据中小型旅店需求的设计要求。要求如客房查询 客房更新 客房预
2、定住客管理 等功能,计算器简单设计是根据平时的简单的数学算法,完成比较简单 常用数学运算应用,从而达到科学计算的目的。2.需求分析:2.1客房管理系统功能分析本人重点介绍本系统的设计过程 本系统主要有四大功能模块, 新增客户 删除客户客户、客房信息查询 退房四大模块。新增客户模块：主要完成客户的新增。 删除客户模块：删除不住的客户信息。客户、客房信息查询模块：按照指定的条件查询符合条件的记录。退房模块：完成退房处理与空房查询等功能。2.2业务流程图2.3 数据流程图2.4 数据字典名称 别名 表结构 描述 客房情况表无房号,客房级别,用房查询 更新 删除 客户信息表无房号,住房天数客户退房时使
3、用2.5 可行性分析 本系统就其开发,应用到维护都可是长期的满足用户的需要: 1技术:采用现在广为流行可视化开发语言VC+ ,为开发工具,后台数据库用了Access数据库技术,这样以来在技术方面已达到了先进的水平. 2财政:本系统在开发的时候就立足于经济实用的角度,所以无论是从开发商到用户在财政上都可以接受,所在财政方面是大众性的. 3时间:本系统在二周完全可以完成,更新时也较为方便快捷. 4资源:本系统无论从开发人员到技术都是相当的专业,同时工作人员也在信息收集方面也查阅了大量的相关资料,使之能够充分的表现其性能的优越性.3数据库设计3.1 数据库概要设计本系统一共设有1个数据库,数据库中有
4、2数据库表,分别为:数据库为 : 客房管理数据库客房情况表:记录客房的基本信息客户信息表:记录客户的基本信息3.3 关系模型客房情况表客户信息表4 详细设计4.1 系统功能设计1本系统是药品查询系统,用户在进入系统时要进行身份合法性验证. 2用户登入成功后,可以根据菜单选项来进行相应的操作.查询 新增 定单 销售等功能 3在系统应用的同时 还维护了数据库的完整性的约束。本系统在人机界面设计时充分考虑到了使用者的方便性,尽量体现人性化的设计,所在不同时不同人使用时都设计了不同的交互方式及一些提示信息提示。4.2 人机界面设计用户注册界面:基本功能界面5 系统实现5.1 系统开发环境VB6.0可视
5、化开发程序,后台数据库是Access 数据库5.2 数据库物理设计 运用的是相对路径存储的数据库,提高了数据库的灵活性。没有配置ODBC数据库,从而提高了程序的可移植性。5.3 查询及视图设计本系统的数据库连接和查询 没有用到ADODB或DATA等控件. 在数据库访问和视图是用到的是代码的连接,大大提高了程序的灵活性. 部分代码如下：Public rst As New ADODB.RecordsetPublicn As New ADODB.ConnectionPublic Sub maincnn.Provider = microsoft.jet.oledb.4.0cnn.ConnectionS
6、tring = App.Path & dataAdm.mdbcnn.Openmainform.ShowEnd Sub5.4 程序设计 本人负责的程序代码是 订货单 和 销售 表单项的设计工作 部分核心代码如下:订货表单处理代码：Private Sub Command13_Click If Trim = Or Trim = Or Trim = Or Trim = Then k = MsgBox Exit Sub End Ifsql = select * from consumer where 订货商编号= & Trim & rst.Open sql,n, 1, 3 If 0 Then k = M
7、sgBox Text28.Text = Text29.Text = Text30.Text = Text31.Text = Text28.SetFocus rst.Close Else rst.AddNew rst = Trim rst = Trim rst = Trim rst = Trim rst.Update rst.Close End If rst.Open select * from consumer,n, 1, 1 Set MSHFlexGrid4.DataSource = rstrst.CloseEnd Sub销售表单处理代码：Private Sub Command11_Clic
8、kDim price As DoubleDim str As StringDim num As Integersql = select * from goods where 货品编号= & Trim & rst.Open sql,n, 1, 1num = rstrst.CloseIf num - ValTrim Then k = MsgBox Text27.Text = Text27.SetFocus Exit SubEnd IfIf Trim = Or Trim = Or Trim = Or Then k = MsgBox Exit SubEnd Ifsql = select * from
9、goods where 货品编号= & Trim & rst.Open sql,n, 1, 1If Then k = MsgBox Text25.Text = Text25.SetFocus rst.Close Exit SubEnd Ifrst.Closesql = select * from consumer where 订货商编号= & Trim & rst.Open sql,n, 1, 3If Thenk = MsgBoxElserst.CloseIf Then sql = select * from goods where 货品编号= & Trim & rst.Open sql,n,
10、 1, 1 price = rst rst.Close str = 零售End IfIf Then sql = select * from goods where 货品编号= & Trim & rst.Open sql,n, 1, 1 price = rst rst.Close str = 批发End Ifprice = price * ValTrimrst.Open select * from sell,n, 1, 3rst.AddNew rst = Trim rst = Trim rst = ValTrim rst = price rst = str rst.Updaterst.Closesql = select * from goods where 货品编号= & Trim & rst.Open sql,n, 1, 3num = rstrst = num - ValTrimrst.Updaterst.Closerst.Open select * from sell,n, 1, 1Set MSHFlexGrid3.DataSource = rstrst.Closek = MsgBoxEnd IfEnd Sub设计说明参考文献：1 书名：数据库教程施伯乐丁宝
