客房管理系统论文和代码

自己做的课程设计 和大家分享

沈阳工业大学 软件学院

题目： 客房管理系统

班 级： 0402班 学 号：姓 名： 侯雨峰 指导教师： 王维

自己做的课程设计 和大家分享

一、设计题目：客房管理系统 设计题目：客房管理系统 计算器简单设计

二、设计要求： 设计要求： 客房管理系统 1 要求有简单 增 删 改 插入和查询。 2 要注意数据库内数据的冗余度问题。 3 在删除记录和插入记录时要注意数据之间的 更新级联 和 删除约束。 4 在编写程序时 要尽力提高程序的通用性。 5 同时要注意后台数据库的维护。 6 有良好的用户界面

自己做的课程设计 和大家分享

(如写不下可加附页 三、设计内容： 如写不下可加附页) 设计内容： 如写不下可加附页) (1.设计任务 . 客房管理系统是根据中小型旅店需求的设计要求。 要求如 客房查询 客房更新 客房预定 住客管理 等功能， 计算器简单设计是根据平时的简单的数学算法， 完成比较简单 常用数学运算应用， 从而 达到科学计算的目的。 2.需求分析 需求分析: 需求分析 2.1 客房管理系统功能分析(本人重点介绍本系统的设计过程) 本系统主要有四大功能模块， 新增客户 删除客户 客户、 客房信息查询 退房 四大模块。 新增客户模块：主要完成客户的新增。 删除客户模块：删除不住的客户信息。 客户、客房信息查询模块：按照指定的条件查询符合条件的记录。 退房模块：完成退房处理与空房查询等功能。 2.2 业务流程图

开始

用户登入

用户注册 F

身份验证

F T

注册是否成 功

T

新增客户

删除客户

客户、客房 信息查询

退房

结束

自己做的课程设计 和大家分享

2.3 数据流程图

2.4 数据字典 名称 客房情况表 客户信息表 别名 无 无 表结构 房号，客房级别,用房…… 房号，姓名，住房天数…… 描述 查询 更新 删除 客户退房时使用

2.5 可行性分析 本系统就其开发,应用到维护都可是长期的满足用户的需要: 1)技术:采用现在广为流行可视化开发语言 VC++ ,为开发工具,后台数据库用了 Access 数据库技术,这样以来在技术方面已达到了先进的水平. 2)财政:本系统在开发的时候就立足于经济实用的角度,所以无论是从开发商到用户在 财政上都可以接受,所在财政方面是大众性的. 3)时间:本系统在二周内完全可以完成,更新时也较为方便快捷. 4)资源:本系统无论从开发人员到技术都是相当的专业,同时工作人员也在信息收集方 面也查阅了大量的相关资料,使之能够充分的表现其性能的优越性. 3 数据库设计 3.1 数据库概要设计 本系统一共设有 1 个数据库,数据库中有 2 张数据库表,分别为: 数据库为 :

客房管理数据库 客房情况表:记录客房的基本信息 客户信息表:记录客户的基本信息 3.3 关系模型 客房情况表(房号,姓名,性别,年龄,国籍,客房级别,用房天数,住店时间,离店时间) 客户信息表() 4 详细设计

自己做的课程设计 和大家分享

4.1 系统功能设计 1)本系统是药品查询系统,用户在进入系统时要进行身份合法性验证. 2)用户登入成功后,可以根据菜单选项来进行相应的操作.查询 新增 定单 销售等功能 3)在系统应用的同时 还维护了数据库的完整性的约束。 本系统在人机界面设计时充分考虑到了使用者的方便性,尽量体现人性化的设计,所在不 同时不同人使用时都设计了不同的交互方式及一些提示信息提示。

自己做的课程设计 和大家分享

4.2 人机界面设计

用户注册界面:

基本功能界面

5 系统实现 5.1 系统开发环境 VB6.0 可视化开发程序,后台数据库是 Access 数据库 5.2 数据库物理设计 运用的是相对路径存储的数据库,提高了数据库的灵活性。 没有配置 ODBC 数据库， 从而 提高了程序的可移植性。 5.3 查询及视图设计 本系统的数据库连接和查询 没有用到 ADODB 或 DATA 等控件. 在数据库访问和视图是用到的是代码的连接,大大提高了程序的灵活性. 部分代码如下：

自己做的课程设计 和大家分享

Public rst As New ADODB.Recordset Public cnn As New ADODB.Connection Public Sub main() cnn.Provider = "microsoft.jet.oledb.4.0" cnn.ConnectionString = App.Path & "\data\Adm.mdb" cnn.Open mainform.Show End Sub 5.4 程序设计 本人负责的程序代码是 订货单 和 销售 表单项的设计工作 部分核心代码如下: 订货表单处理代码： Private Sub Command13_Click() If (Trim(Text28.Text) = "" Or Trim(Text29.Text) = "" Or Trim(Text30.Text) = "" Or Trim(Text31.Text) = "") Then k = MsgBox("请您认真添写每一项", , "提示") Exit Sub End If sql = "select * from consumer where 订货商编号='" & Trim(Text28.Text) & "'" rst.Open sql, cnn, 1, 3 If (rst.RecordCount > 0) Then k = MsgBox("你输入的订货商编号已经存在 请重新输入!", , "提示") Text28.Text = "" Text29.Text = "" Text30.Text = "" Text31.Text = "" Text28.SetFocus rst.Close Else rst.AddNew rst(0) = Trim(Text28.Text) rst(1) = Trim(Text31.Text) rst(2) = Trim(Text30.Text) rst(3) = Trim(Text29.Text) rst.Update rst.Close End If rst.Open "select * from consumer", cnn, 1, 1 Set MSHFlexGrid4.DataSource = rst rst.Close End Sub

自己做的课程设计 和大家分享

销售表单处理代码： Private Sub Command11_Click() Dim price As Double Dim str As String Dim num As Integer sql = "select * from goods where 货品编号='" & Trim(Text25.Text) & "'" rst.Open sql, cnn, 1, 1 num = rst("数量") rst.Close If (num - Val(Trim(Text27.Text)) < 11) Then k = MsgBox("对不起 你输入的订货数量 低于药品的警容线 10", , "提示") Text27.Text = "" Text27.SetFocus Exit Sub End If If ((Trim(Text25.Text) = "" Or Trim(Text26.Text) = "" Or Trim(Text27.Text) = "") Or (Option10.Value = False And Opti

on11.Value = False)) Then k = MsgBox("请你认真填写每一选项", , "提示") Exit Sub End If sql = "select * from goods where 货品编号='" & Trim(Text25.Text) & "'" rst.Open sql, cnn, 1, 1 If (rst.RecordCount = 0) Then k = MsgBox("您输入的药品编号不存在!", , "提示") Text25.Text = "" Text25.SetFocus rst.Close Exit Sub End If rst.Close sql = "select * from consumer where 订货商编号='" & Trim(Text26.Text) & "'" rst.Open sql, cnn, 1, 3 If (rst.RecordCount = 0) Then k = MsgBox("你输入的订货商编号不存在 是否要添加该订货商记录!", vbYesNo, "提示") Else rst.Close If (Option10.Value = True) The …… 此处隐藏：3692字，全部文档内容请下载后查看。喜欢就下载吧 ……