焊接钳工冷加工铸造车工实习报告-报告

VBVB宾馆客房管理系统宾馆客房管理系统 数据流图数据流图 ER ER图图 论文论文 VB宾馆客房管理系统 数据流图 ER图 近年来 宾馆业迅猛发展 市场的竞争日趋激烈 全面提高宾馆的软件管理水准 已成为宾馆业发展的当务之急 尤其是对于星级宾馆 既需要完成前台的一些 服务工作 还需要完成后台的管理工作 然而 传统的人工管理模式已经远远不 能满足有效 快捷地处理经营中产生的大量信息数据的需要 从而使得企业决策 层无法及时 准确地掌握一线资料 继而影响对市场进行正确地分析和预测 像 沿海城市三星级以上宾馆引进外方管理 使小部分宾馆管理水准几乎接近或达 到国际水平 但对占80 以上的广大中小型宾馆来说 是难以做到的 因此 欲在 竞争中甩开对手 取得优势 必须在经营 管理 产品 服务等方面具备独到之处 而对宾馆的经营状况起决定作用的是客房的管理 在飞速发展的信息时代 信息已经成为所有企业的关键资源 宾馆客房管理信息 系统是用来收集 处理 存贮和传播客房 顾客 结算信息 以信息管理为核心的 计算机应用系统 利用宾馆客房管理信息系统中合理的数据库结构来保存数据 信息 及时了解各个环节中信息的变更 通过有效的程序结构来支持各种数据操 作的执行 以提高管理效率 实现宾馆服务的系统化 规范化 自动化 通过该项 目的开发与使用 宾馆可以提高其员工的工作效率 增强企业竞争力 同时适应 信息时代管理数字化的要求 提高宾馆的服务水平与质量 从而赢得高信誉 强 实力 好效益 所以 我们觉得宾馆利用手工管理已经明显不能适应当前宾馆高速发展的需要 已意识到使用计算机网络和计算机管理的重要性 决定首先为客房部研发宾馆 客房管理系统 为了提高宾馆管理效率 赢得客户的满意度 其存在一定重要性 所以 以此系 统的研发过程作为我们毕业论文的论题 1 系统逻辑方案 根据用户的需求 新系统应实现如下功能 1 住宿管理 住宿登记 追加押金 调房登记 退房结账 2 客房管理 客房设置 客房查询 房态查看 3 挂账管理 挂账查询 客户结款 4 查询统计 住宿查询 退宿查询 宿费提醒 5 日结 登记预收报表 客房销售报表 客房销售统计 6 系统设置 初始化 操作员设置 密码设置 权限设置 下面分别从数据流图 数据字典 基本加工角度对本系统要实现的功能进行详细 说明 1 1 数据流图描述 数据流图是对组织中信息运动的抽象 是管理信息系统逻辑模型的主要形式 它 不涉及硬件 软件 数据结构与文件组织 是用图形语言及与此相关的注释来表 示系统的逻辑功能 及所开发的系统在管理信息处理方面要做什么 本文中数据 流图的符号解释如下 首先 根据对管理信息系统建设的总体要求 确定系统的外部项 即系统数据的 数据来源和去处 通过分析 掌握本系统的外部项和输入输出数据流 绘制本系 统的关联系图见图1 1 图1 1 系统关联图 从系统关联图 图1 1 中可以看出 客户向本系统提供有关证件 如身份证 军官证 押金等 进行住房登记 可以通 过从本系统获得住宿证 手牌 住宿登记单然后入住 本系统对宿费进行提醒 要求客户进行续费追加押金 顾客进行退宿结帐 本系统通过统计开出结帐凭证 本系统支持经理对营运数据的统计分析功能 1 1 1 系统顶层数据流程图说明 本系统的顶层数据流程图见图1 1 1 客 房 管 理 图1 1 1 顶层数据流程图 在顶层数据流程图 图1 1 1 中 一共有两个主要的加工 P1客房管理 P2综合统计报表管理 P1 客房管理 处理有关顾客登记 退房 入住 续费等操作 主要有 客人住宿信息登 记文件 客房信息表 客房入住表 退房登记表等 P2 综合统计报表 返回给经理的信息 以便经理能够做出更准确更结合实际的决定 1 1 2 客房管理数据流程二层图说明 客房管理数据流程二层图见图1 1 2 图1 1 2 2系统总体结构设计 系统设计阶段包括总体设计和详细设计 这个阶段的主要目的是将系统分析阶 段所提出的反映用户信息需求的系统逻辑方案转换成可以实施的基于计算机与 通信系统的物理 技术 方案 其主要任务是从管理信息系统的总体目标出发 根 据系统分析阶段的逻辑功能的要求 并考虑到经济 技术和运行环境等方面的条 件 确定系统的总体结构和系统各组成部分的技术方案 合理选择计算机和通信 的软硬件设备 提出系统的实施计划 确保总体目标的实现 2 1系统各个模块的设计及源代码的编写 本人主要做的是客房管理这一块所以着重介绍客房客房管理这部分 客房管理 主要有3个部分 客房设置 客房查询 房态查看 1 客房设置的模块设计结构以及代码如下 代码 Private Sub Form Load Data1 DatabaseName App Path KFGL MDB 自动识别数据库路径 End Sub Private Sub Form Unload Cancel As Integer main Enabled Tru842 VB宾馆客房管理系统 数据流图 ER图 End Sub Private Sub Combo1 KeyDown KeyCode As Integer Shift As Integer If KeyCode vbKeyReturn Then Combo2 SetFocus 查询客房信息 Data1 RecordSource select from kf where 房间类型 Combo1 Text Data1 Refresh 赋值给texjg text If 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 Sub Private Sub Combo2 KeyDown KeyCode As Integer Shift As Integer If KeyCode vbKeyReturn Then Texjg SetFocus End Sub Private Sub texjg KeyDown KeyCode As Integer Shift As Integer If KeyCode vbKeyReturn Then DTP1 SetFocus End Sub Private Sub DTP1 KeyDown KeyCode As Integer Shift As Integer If KeyCode vbKeyReturn Then Texsz SetFocus 按回车键Texsz获得焦点 End Sub Private Sub texsz KeyDown KeyCode As Integer Shift As Integer If KeyCode vbKeyReturn Then Texpz SetFocus End Sub Private Sub texpz KeyDown KeyCode As Integer Shift As Integer If KeyCode vbKeyReturn Then Texbz SetFocus End Sub Private Sub texbz KeyDown KeyCode As Integer Shift As Integer If KeyCode vbKeyReturn Then Comsave SetFocus End Sub Private Sub comdj Click 登记 Texfjh Text Texjg Text Texsz Text Texpz Text Texbz Text Comsave Enabled True Comcancel Enabled True Comdj Enabled False Texfjh SetFocus End Sub Private Sub comsave Click 查找客房信息 Data1 Recordset FindFirst 房间号 like Chr 34 Texfjh Text Chr 34 If Data1 Recordset NoMatch Then 添加客房 Data1 Recordset AddNew If Texfjh Text Then Data1 Recordset Fields 房间号 Texfjh Text If Combo1 Text Then Data1 Recordset Fields 房间类型 Combo1 Text If Combo2 Text Then Data1 Recordset Fields 房态 Combo2 Text If Texjg Text Then Data1 Recordset Fields 价格 Texjg Text If DTP1 Value Then Data1 Recordset Fields 营业日期 DTP1 Value If Texsz Text Then Data1 Recordset Fields 使用设置 Texsz Text If Texpz Text Then Data1 Recordset Fields 配置 Texpz Text If Texbz Text Then Data1 Recordset Fields 备注 Texbz Text If Texfjh Text Then Data1 Recordset Fields 标志 0 Data1 Recordset Update 更新记录 Data1 Refresh Else 编辑客房信息 Data1 Recordset Edit If Texfjh Text Then Data1 Recordset Fields 房间号 Texfjh Text If Combo2 Text Then Data1 Recordset Fields 房态 Combo2 Text If Combo1 Text Then Data1 Recordset Fields 房间类型 Combo1 Text If Texjg Text Then Data1 Recordset Fields 价格 Texjg Text If DTP1 Value Then Data1 Recordset Fields 营业日期 DTP1 Value If Texsz Text Then Data1 Recordset Fields 使用设置 Texsz Text If Texpz Text Then Data1 Recordset Fields 配置 Texpz Text If Texbz Text Then Data1 Recordset Fields 备注 Texbz Text If Texfjh Text Then Data1 Recordset Fields 标志 0 Data1 Recordset Update 更新记录 Data1 Refresh End If 设置控件有效或无效 Comsave Enabled False Comcancel Enabled False Comend Enabled True Comdj Enabled True End Sub Private Sub comcancel Click 取消操作 Texfjh Text Texjg Text Texsz Text Texpz Text Texbz Text Comsave Enabled False Comcancel Enabled False Comdj Enabled True End Sub Private Sub comend Click main Enabled True Unload Me End Sub 2 客房查询的界面及代码 代码 Private Sub Form Load 自动识别数据库路径 Data1 DatabaseName App Path KFGL MDB End Sub Private Sub Form Unload Cancel As Integer main Enabled True End Sub Private Sub Text1 Change 查询客房信息 Data1 RecordSource select from kf where kf 房间号 like Chr 34 Text1 Text Chr 34 Data1 Refresh End Sub Private Sub Command1 Click 允许修改客房信息 DBGrid1 AllowUpdate True End Sub Private Sub Command2 Click 删除客房信息 If Data1 Recordset RecordCount 0 Then Data1 Recordset Delete Data1 Refresh End If End Sub Private Sub Command3 Click main Enabled True Unload Me End Sub VB宾馆客房管理系统 数据流图 ER图 3 房态查看的界面及代码 Private Sub Form Activate Dim i As Integer 定义一个整型变量 Dim criteria As String 定义一个字符串变量 Dim mydb1 As Database 定义数据库 Dim myrs1 As Recordset 定义字段 Dim myrs2 As Recordset Dim myrs3 As Recordset Set mydb1 Workspaces 0 OpenDatabase App Path kfgl mdb 定义数据环境 Set myrs1 mydb1 OpenRecordset kf dbOpenSnapshot 定义数据表 入住房间查询 sql select from kf where kf 房态 like Chr 34 入住 Chr 34 Set myrs2 mydb1 OpenRecordset sql 维修房间查询 sql select from kf where kf 房态 like Chr 34 维修 Chr 34 Set myrs3 mydb1 OpenRecordset sql For i 1 To 25 房态显示 criteria 房间号 Command1 i Caption myrs1 FindFirst criteria If myrs1 NoMatch Then Else If myrs1 Fields 房态 空房 Then Command1 i Picture LoadPicture 空房 If myrs1 Fields 房态 入住 Then Command1 i Picture LoadPicture App Path image rz ico If myrs1 Fields 房态 维修 Then Command1 i Picture LoadPicture App Path image wx ico End If Next i If Not myrs2 EOF Then myrs2 MoveLast If Not myrs3 EOF Then myrs3 MoveLast Labsy Caption myrs2 RecordCount 客房入住数 Labwx Caption myrs3 RecordCount 客房维修数 Labkx Caption 25 Val Labwx Caption Val Labsy Caption 客房空闲数 Labsyl Caption Val Labsy Caption 25 100 客房使用率 End Sub Private Sub Form Unload Cancel As Integer main Enabled True End Sub Private Sub Command1 Click Index As Integer 查询住宿信息 main zscx Text2 Text 1 If Index 0 25 Then main zscx Data1 RecordSource select from djb where 标志 1 and 房间号 Command1 Index Caption main zscx Data1 Refresh End If Load main zscx main zscx Show End Sub Private Sub Command2 Click Unload Me main Enabled True End Sub 2 2 数据库设计 概念模型是数据库系统的核心和基础 在系统的数据库设计中 首先要对系统分 析得到的数据字典中的数据结构 数据流和数据储存进行分析 并参照DFD 把 数据抽出来 确定实体的属性以及实体间的关系 这样才能得出系统的关系模式 实体联系图 ER图 是一种用于静态数据结构的概念模型 本系统采用ER图的方 法进地数据结构分析 能过ER图来描述现实世界信息结构的数据库设计方法 2 2 1 数据库设计需求分析 需求分析的目的在于识别用户的数据需求 非形式地描述有关数据对象及其联 系的要作记录的信息 取得如下要作记录信息的非形式描述 1 每个客户登记住 宿时提供的信息 需要提供记录的信息 包括唯一的身份证号 姓名 地址 出差事由 住宿天数 联系电话等等 2 客房信息 关于客房的信息必须包括房间号 房间类型 价格 房态 3 客房预订的有关信 息 需要记录姓名 身份证号 联系电话 详细地址 工作单位 客房类型 房间价格 4 退房时涉及的信息 需要记录凭证号码 姓名 证件号码 联系电话 详细地址 工作单位 房间号 客房类型 房间价格 住宿日期 住宿天数 宿费 折扣 电话费 会议费 存车费 赔偿费 退房日期时间等信息 2 2 2 E R图 ER图可以来描述静态数据结构 实体 联系 实体和联系的属性 其图形符号示 例如下 根据以上分析结果 绘制出本系统的ER图 见图2 2 2 图中没有注明实体和联系的属性 因为属性已在本文中进行了文字说明 VB宾馆客房管理系统 数据流图 ER图 2 2 3数据库设计 本宾馆客房管理系统开始阶段采用了Access数据库 随着宾馆业务的发展 将改 用SQLServer 2000数据库 本系统为Access数据库 数据库名称为kfglo数据库设计包含以下7 个表 登记预收表ys 登记表djb 挂账明细表gzmx 客房基础信息表kf 密码表ma 权 限设置表qxsz 退房登记表tfd 下面分别介绍以上各表的结构 1 登记预收表djys 登记预收表djys用来保存客人在住宿登记时的预收金额等信息 结构见表2 1所示 字段名称 数据类型 字段大小 凭证号码 文本 20 姓名 文本 50 证件名称 文本 20 证件号码 文本 20 出差事由 文本 50 房间号 文本 20 客房类型 文本 10 联系电话 文本 20 客房价格 货币 8 住宿日期 日期 时间 8 住宿时间 日期 时间 8 住宿天数 数字 双精度型 宿费 货币 8 折扣 数字 双精度型 应收宿费 货币 8 预收金额 货币 8 提醒日期 日期 时间 8 退宿日期 日期 时间 8 备注 文本 50 标志 文本 1 日期 日期 时间 8 时间 日期 时间 8 结款方式 文本 1 摘要 文本 200 提醒时间 日期 时间 8 退宿时间 日期 时间 8 2 1表djys的结构 2 登记表djb 登记表djb用来保存客人住宿时的住宿登记信息 结构见表3 2所示 字段名称 数据类型 字段大小 凭证号码 文本 20 姓名 文本 50 证件名称 文本 20 证件号码 文本 20 出差事由 文本 50 房间号 文本 20 客房类型 文本 10 联系电话 文本 20 客房价格 货币 8 住宿日期 日期 时间 8 住宿时间 日期 时间 8 住宿天数 数字 双精度型 宿费 货币 8 折扣 数字 双精度型 应收宿费 货币 8 预收金额 货币 8 提醒日期 日期 时间 8 退宿日期 日期 时间 8 备注 文本 50 标志 文本 1 日期 日期 时间 8 时间 日期 时间 8 结款方式 文本 1 摘要 文本 200 提醒时间 日期 时间 8 退宿时间 日期 时间 8 表2 2表djb的结构 3 挂账明细表gzmx 挂账明细表gzmx用来保存客人住宿挂账信息和客人结账信息 结构见表2 3所示 字段名称 数据类型 字段大小 日期 日期 时间 8 挂帐单位 文本 100 摘要 文本 100 住宿金额 货币 8 欠款金额 货币 8 还款金额 货币 8 金额累计 货币 8 姓名 文本 16 证件号码 文本 50 票号 文本 20 时间 日期 时间 8 序号 数字 整型 房间标准 文本 10 房间价格 文本 10 表2 3表gzmx的结构 4 客房基础信息表kf 客房基础信息表kf用来保存客房的基础信息 结构见表2 4所示 字段名称 数据类型 字段大小 房间号 文本 房间类型 文本 价格 货币 房态 文本 标志 是 否 备注 文本 配置 文本 使用设置 文本 营业日期 日期 时间 表2 4表kf的结构 5 密码表ma 密码表ma用来保存操作员名称和操作员密码 结构见表2 5所示 字段名称 数据类型 字段大小 操作员 文本 10 密码 文本 6 表2 5表ma的结构 6 权限设置表qxsz 权限设置表qxsz用来保存操作员的权限 结构见表2 6所示 字段名称 数据类型 字段大小 编号 文本 50 操作员 文本 50 密码 编号 双精度型 客房预定 是 否 1 住宿登记 是 否 1 退宿登记 是 否 1 追加押金 是 否 1 客房管理 是 否 1 客房查询 是 否 1 预定房查询 是 否 1 住宿查询 是 否 1 退宿查询 是 否 1 宿费提醒 是 否 1 登记预收报表 是 否 1 客房销售报表 是 否 1 操作员设置 是 否 1 密码设置 是 否 1 初始化 是 否 1 权限设置 是 否 1 房态查看 是 否 1 调房登记 是 否 1 挂账查询 是 否 1 客户结款 是 否 1 客房销售统计报表 是 否 1 表2 6表qxsz的结构 7 退房登记表tfd VB宾馆客房管理系统 数据流图 ER图 退房登记表tfd用来保存客人退宿登记信息 结构见表2 7所示 字段名称 数据类型 字段大小 凭证号码 文本 20 姓名 文本 50 证件号码 文本 20 联系电话 文本 20 详细地址 文本 50 工作单位 文本 50 房间号 文本 20 客房类型 文本 10 房间价格 货币 住宿日期 日期 时间 住宿时间 日期 时间 住宿天数 数字 双精度型 宿费 货币 折扣或招待 文本 16 折扣 数字 双精度型 应收宿费 货币 8 杂费 货币 8 电话费 货币 8 会议费 货币 8 存车费 货币 8 赔偿费 货币 8 金额总计 货币 8 预收宿费 货币 8 退还宿费 货币 8 退房日期 日期 时间 8 退房时间 日期 时间 8 日期 日期 时间 8 时间 日期 时间 8 备注 文本 50 联系电话 文本 20 BZ 文本 双精