毕业论文-工资管理系统.doc

湖南理工职业技术学院湖南理工职业技术学院 毕业设计说明书毕业设计说明书 题题 目目 工资管理系统 年级专业年级专业 06 级 计算机信息管理 学生姓名学生姓名 张 娟 指导教师指导教师 唐 娟 2009 年 月 日 II 湖南理工职业技术学院 毕业设计任务书 毕业设计题目 酒店管理系统 题目类型 软件开发 题目来源 学生自选题 毕业设计时间从 2009 至 2009 07 01 1 毕业设计内容要求 1 题目类型 1 理论研究 2 实验研究 3 工程设计 4 应用研究 5 软件开发 2 题目来源 1 教师科研题 2 生产实际题 3 模拟或虚构题 4 学生自选题 III 2 主要参考资料 3 毕业设计进度安排 阶段阶 段 内 容起止时间 1 开讲个人选题报告 2 着手收集资料 并报送提纲审定 3 集中指导与个别指导 提交初稿审查 4 修改 经审稿后定稿交稿 5 导师批阅毕业设计 6 答辩与鉴定 指导老师 签名 时间 教研室主任 签名 时间 系主任 签名 时间 IV 摘 要 随着人类社会的进步 计算机技术的飞速发展 计算机在企业管理中应用的普及 利用计算机实现企业工资管理是适应现代企业制度要求 推动企业管理走向科学化 规范化的必要条件 本酒店管理系统是用 VB NET 和 SQL Server 2000 制作而成的 酒店管理是酒店日 常运作的一个重要环节 学习制作酒店管理系统很有必要 同时 它也是服务行业管 理软件的一个综合性代表 本酒店管理系统有登记 订房 退房 查看房间信息 查看客人信息 统计修等 主要功能 系统建立了两个数据表 一个表记录房间信息 第三个表记录客人信息 房间信息有三种状态 即 营业中 预定 和 空闲 客人信息包括有 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期 状态 这些状态可以对房间的情况和客人的情况进行统计 主要介绍了酒店管理在酒店日常运作中的作用 以及酒店管理系统的必要性 第二 章介绍酒店管理系统的功能 第三章介绍了酒店管理系统的数据库设计 第四章介绍 了酒店管理系统模块的实现 数据库结构设计包括数据库概论结构设计和数据库逻辑 结构设计 程序设计为 6 个界面的制作过程包括 主界面 登记界面 等等界 面 并且给出了界面设计的部分主要的源代码 关键词关键词 酒店管理系统 VB NET 数据库设计 程序设计 V 目 录 第一章第一章 概述概述 1 1 1 MIS 系统开发方法 1 1 1 1原型法 1 1 1 2面向对象方法 2 1 2 MIS 系统开发过程 2 第二章第二章 系统分析系统分析 4 2 1 需求分析 4 2 2 系统目标设计 4 2 3 系统功能分析 4 2 4 系统各功能模块设计 5 2 5 数据流程图 7 第三章第三章 数据库设计数据库设计 9 3 1 数据库需求分析 9 3 2 数据库逻辑结构设计 10 第四章第四章 工资管理系统的具体实现工资管理系统的具体实现 10 4 1 VISUAL BASIC NET 开发工具简介 10 4 2 VISUAL BASIC NET 应用程序开发的基本步骤 11 4 3 SQL SERVER 2000 简介 11 4 4 具体窗口的实现 13 4 5 结果分析 23 结束语结束语 25 致致 谢谢 26 参考文献参考文献 27 1 第一章 概述 1 1 MIS 系统开发方法 管理信息系统的开发方法有生命周期法 原型法和面向对象的开发方法等 生命周期法 Life Cycle Method 是 20 世纪 60 年代发展起来的一种应用广泛且 比较成熟的管理系统开发方法 它的基本思想是将系统的开发工作从开始到结束划分 为若干个阶段 每个阶段都有明确的任务 而系统开发出来后 并不意味着生命周期 的结束 而意味着根据组织的需要对系统的修改和重建的开始 1 1 1 原型法 1 原型法产生的原因 运用结构化系统开发生命周期法的前提条件是要求用户在项目开始初期就非常明 确地陈述其需求 需求陈述出现错误 对信息系统开发的影响尤为严重 因此 这种 方法不允许失败 事实上这种要求又难以做到 人们设想 有一种方法 能够迅速发 现需求错误 当图形用户界面 Graphic User Interface GUI 出现后 自 80 年代中 期以来 原型法逐步被接受 并成为一种流行的信息系统开发方法 2 基本思想 原型法 Prototyping Method 是在系统开发初期 凭借系统开发人员对用户需 求的了解和系统主要功能的要求 在强有力的软件环境支持下 迅速构造出系统的初 始原型 然后与用户一起不断对原型进行修改 完善 直到满足用户需求 3 优缺点 优点 对系统需求的认识取得突破 确保用户的要求得到较好的满足 改进了用户和系统开发人员的交流方式 开发的系统更加贴近实际 提高了用户的满意程度 降低了系统开发风险 一定程度上减少了开发费用 缺点 2 开发工具要求高 解决复杂系统和大型系统很困难 对用户的管理水平要求高 1 1 2 面向对象方法 1 面向对象方法 Object Oriented 产生的原因 以前的开发方法 只是单纯地反映管理功能的结构状况 或者只是侧重反映事物 的信息特征和信息流程 只能被动应和实际问题需要的做法 面向对象的方法把数据 和过程包装成为对象 以对象为基础对系统进行分析与设计 为认识事物提供了一种 全新的思路和办法 是一种综合性的开发方法 2 基本思想 客观世界是由各种各样的对象组成的 每种对象都有各自的内部状态和运动规律 不同对象之间的相互作用和联系就构成了各种不同的系统 对象 Object 是客观世界中的任何事物或人们头脑中的各种概念在计算机程序世 界里的抽象表示 是面向对象程序设计的基本元素 1 2 MIS 系统开发过程 一个 MIS 系统的开发过程一般包括如下几个步骤 1 需求分析 需求分析主要是了解用户的需求 需求了解得越详细 程序的后 期开发与维护费用就会越少 一般的开发团队中 需求分析都是由资历较深的系统分 析员或项目经理担当 可见它的重要性 需求分析制订好后 需要反复修改 将最后 的结果交给用户审定 确认无误后 由系统分析员完成需求分析文档 再开始下一步 工作 2 概要设计 概要设计紧跟在需求分析之后 用户需求明确后 将得到的数据 分析后 开始构建数据库的逻辑结构 此时 数据库中的表格还未成形 通过各种分 析工具画出数据流图 最后就可抽象出数据库的具体表结构 这时 由系统分析人员反 复审核 确认所有的需求都考虑在内 没有遗漏后 就可以开始制订概要设计文档 3 概要设计文档形成后 整个程序的逻辑框架也就形成了 3 详细设计 概要设计完成后 根据设计中制订的业务模块 就可以进行详细 分析设计了 详细设计就是将各个业务模块的窗口全部建好 各个窗口控件的处理代 码全部用语言表达出 所以详细设计是整个系统中最繁琐的环节 详细设计完成后 整个程序就确定了 再由编程人员根据详细设计文档将代码完成 整个开发工作就宣 告结束 程序编码 程序编码相对于其他环节来说比较简单 程序员只需要根据详细分析 文档写程序编码 保证代码没有错误即可 程序编码需要注意的是整个程序书写中命 名的规范化与编程风格的规范化 这需要较长时间的培养来形成 需要在不断的实践 中形成自己独特的风格 总的来说 不要过分地追求复杂的算法 因为那可能会导致 后期维护人员无法读懂你的代码而造成维护的困难 4 测试 程序编码完成后 就需要测试 测试有几种类型 主要是测试代码有 无逻辑错误以及在加载数据环境下程序的稳定性问题 测试工作中发现的错误应及时 改正 然后将它记录到测试文档中 5 打包 测试完成 确认无误后 程序就可以打包发行了 打包一般使用工具 如 PWISE 等 以上是一个完整的 MIS 系统开发过程 其实不仅 MIS 系统 其他类型的程序开发 也基本相同 4 第二章 系统分析 2 1 需求分析 随着计算机技术的飞速发展 计算机在企业管理中应用的普及 利用计算机实现 企业管理势在必行 对于大中型企业来说 利用计算机支持企业高效率完成企业工资 管理的日常事务 是适应现代企业制度要求 推动企业管理走向科学化 规范化的必 要条件 计算机管理所无法比拟的优点检索迅速 查找方便 可靠性高 存储量大 保密性好 寿命长 成本低等 这些优点能够极大地提高工资管理的效率 也是企业的 科学化 正规化管理 与世界接轨的重要条件 酒店管理系统是酒店日常运作的一个重要环节 其应用面相当烦人广泛 学习制 作酒店管理系统是很有必要的 同时 它也是服务行业管理类软件的一个综合性代表 本系统使用的后台数据库采用 SQL Server 2000 采用文本框和网格控件同步显示 数据的方式 让用户更清晰的从界面了解重要的信息 也可以让用户快速查看数据 并可以对相应的数据进行相应管理 企业工资管理系统是典型的信息管理系统 MIS 前台程序开发工具采用微软的 Visual Basic 2005 后台数据库采用 SQL Server 2000 数据库 Visual Basic 2005 是一种面向对象的开发工具 具有组件丰富 语言简单 功能强大的优点 SQL Server 2000 数据库具有与 Visual Basic 2005 无缝连接 操作简单 易于使用的优点 2 2 系统目标设计 酒店管理是企业对整个酒店客人 房间等管理的一个重要内容 随着酒店规模的 越来越壮大 需求量也越来越多 同时其管理工作也变的越来越复杂 因此 则需要 5 设计一套酒店管理系统来极大地提高工作效率 节省人力和物力 最终满足企业管理 的需要 同时 这也成为了现代化企业管理的标志 2 3 系统功能分析 根据以上功能 将工资管理系统的数据分为 数据输入部分 主要包括客人入住 预定房间客人信息的录入 工资基本信息的 录入 考勤统计情况的录入 数据输出部分 主要是各种统计查询包括 根据客人入住信息 如职工编号 职 工姓名等 查询客人的基本信息 房间状态的查询以及入住人数营业额等 数据处理部分 主要设计入住客人信息和房间信息的处理 2 4 系统各功能模块设计 通过对客户及酒店需求的分析 我们可以分析出该酒店管理系统大致可以分为六 个模块 开房信息模块 订房信息模块 查看客人信息模块 查看房间信息管块 退 房信息模块 统计信息模块 现在对这五个模块做具体说明 旅客开房信息管理模块 提供不同档次的各类房间供旅客选择 可以对旅客信息进行编辑 包括同房人信息操作 包含以下信息 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期 旅客订房信息管理模块 提供不同档次的各类房间供旅客选择 可以显示查看已定房间信息 可以实现从预定房间到入住房间的状态以及取消预定 同时改变房间的状态 包含以下信息 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期 查看房间信息管理模块 可以查看房间营业状态 包含以下信息 房间的空闲 营业中 预定三种状态 查看客人信息管理模块 根据不同条件查询客人信息 模糊条件查询历史客人信息根据需要可以打印客人的相关信息 包含以下条件信息 当前入住客人信息 预定客人信息以及历史客人信息 退房信息管理模块 可以浏览入住的房间 当办理退房以后及时将房间状态改为空闲 6 结算入住期间的一切费用 包含以下信息 旅客姓名 入住日期 房价 房号 退房日期 总额 6 统计客人信息管理模块 统计入住客人人数 统计营业额 其功能模块图 如图 2 1 所示 酒 店 管 理 系 统 开 房 模 块 查看客人信息模块 订 房 模 块 查看房间信息模块 退 房 模 块 统 计 模 块 保存信息 办理下一个 同房人信息 退房结算 统计月住人数 统计营业额 当前入住人信息 预定客人信息 历史客人信息 保存 办理下一个 预定 取消入住 图 2 1 系统功能模块 建立应用程序时生成有如下项目文件 如图 2 2 所示 7 图 2 2 项目文件图 2 5 数据流程图 说明 数据流程图是描述系统逻辑模型的主要工具 通过几个特定的符号 可以 综合地反映出信息在系统中的使用 加工处理 传递 存储的整体情况 数据流程图是系统结构化分析行之有效的工具 它抽象地描述了系统数据处理的 情况 但却无法表达所有处理的详细内容 因此还要对数据流程图中出现的数据流和 处理等做进一步的补充说明 这就是数据字典和变换逻辑说明 1 入住客人信息的录入 如图 2 3 所示 8 读取数据库 开房界面 运行程序进入 数据库 录入信息 房号选择 Y房号选择 N录入成功 图 2 3 入住客人信息登记流程图 说明 对入住客人基本信息进行保存 按职工编号 职工姓名进行查询 9 第三章 数据库设计 数据库的设计是 MIS 系统的核心部分 设计数据库 首先要进行需求分析 然后 进行数据库的概念结构设计 逻辑结构设计 数据库结构实现等步骤 3 1 数据库需求分析 客户的需求具体体现在各种信息的提供 保存 更新和查询 这就要求数据库结 构能充分满足各种信息的输入和输出 针对酒店管理系统需求 通过对酒店管理工作 过程的内容和数据流程分析 设计如下所示的数据项和数据结构和系统操作流程图 1 房间信息表 包括的数据项有 房号 类型 房价 状态 2 客人信息表 包括的数据项有 姓名 性别 房号 类型 证件类型 证件号 码 押金 人数 入住日期 状态 3 系统运行流程图 如图 3 2 所示 主窗体 MainForm vb 统计窗体 Countent vb 查看房间信息 RoomInf vb 开房窗体 RentRoom vb 退房窗体 QuitRoom vb 查看客人信息 ClientInf vb 订房窗体 BookRoom vb 运行程序 图 3 1 系统运行流程图 10 3 2 数据库逻辑结构设计 工资管理系统数据库中各个表的设计结果如下面几个表格所示 1 房间信息 如表 3 1 说明 房号设为主键 表 3 1 房间表 字段名称数据类型长度必填字段 房号字符 16 是 类型字符 8 否 房价数字 8 否 状态字符 50 否 2 客人信息 如表 3 2 说明 入住日期设为主键 表 3 2 客人信息表 字段名称数据类型字段大小必填字段 姓名字符 16 否 性别字符 4 否 房号字符 16 否 类型字符 16 否 证件类型字符 16 否 证件号码字符 16 否 押金数字 8 否 人数数字 8 否 入住日期时间 8 是 退房日期时间 8 否 状态字符 8 否 11 第四章 工资管理系统的具体实现 4 1 Visual Basic NET 开发工具简介 Visual Basic NET 一改以前版本的 VB Visual Basic 的开发环境风格 注入了新 的开发思想 形成了新的开发界面 功能比以前任何版本都强大 而且更方便开发者 操作 业界又称 VB NET 是复活了的 VB 由此可见 它不是 VB6 0 简单的升级版 Visual Basic 7 也被称作 VB NET 是 Microsoft 公司的 Visual Studio NET 集 成开发软件的成员之一 VB NET 继承了 VB 6 0 简单 易学 易用的特点 同时增加了 新的组件 修改了以前的集成开发环境界面 增强了面向对象的特性 给开发人员带 来更多新鲜 有用的东西 VB NET 不仅是一个单纯的程序编辑器 它还是一个集成开发工具 集中了设计 编译 调试 运行等多个功能 其中每个功能都相对独立 具有自己的界面 4 2 Visual Basic NET 应用程序开发的基本步骤 我们要开发应用程序时 首先要对它进行分析 无论哪种 哪方面的应用程序 都要先建立一个应用对象 下面我们介绍以下 Visual Basic NET 应用程序开发的基本 步骤 1 首先要创建 Visual Basic 项目 并选择 Windows 应用程序 模板 2 创建应用程序的界面 在界面里放置各种控件并编写事件响应的脚本 3 创建用户对象 如果想要重复使用某个控件的功能 可以把窗口上经常放置 的控件定义为用户对象并设置用户界面各对象的属性 5 创建数据窗口 数据窗口可以检索数据库中的数据 可以建立各种报或统计 表 可以修改数据库 6 创建函数 结构 事件 为了能够更好地支持脚本 编写自定义的函数 定 义结构类型变量 也可以为对象和控件定义自己的事件 7 运行与调试 可以在开发环境中随时运行应用程序 发现错误后 可以用调 试工具进行调试 8 最后 保存并生成可执行文件 4 3 SQL SERVER 2000 简介 SQL Server 2000 是 Microsoft 公司推出的 SQL Server 数据库管理系统的新 12 版本 该版本继承了 SQL Server 7 0 版本的优点 同时又比它增加了许多更先进的功 能 具有使用方便 可伸缩性好 与相关软件集成程度高等优点 可跨越从运行 Microsoft Windows 98 的膝上型电脑 到运行 Microsoft Windows 2000 的大型多处 理器的服务器等多种平台使用 SQL 语言是数据库的标准语言 应用非常简单 但是这并不意味着能轻松地掌握 它 SQL 数据库中的数据都存储在数据表中 一般所谓的将信息存储在数据库中 实际 上就是将信息存储在数据表中 当考虑怎样把信息存储在数据库中时 就相当于是在 考虑怎样把它们存储在数据表中 当考虑如何从表中读取这些记录时 一般会想到按照记录的先后顺序来读取它们 例如 假如想从一个数据表中读取特定的记录 也许回尝试通过一个循环 逐个扫描 记录 然后选出符合条件的记录 但是 在 SQL 中 不允许这种读取记录的方式 因 为这样做会降低 SQL 读取记录的效率 使用 SQL 只能按照查询条件来读取记录 例如 想从数据表 user 中读取用户名 为 jack 的记录 如果使用传统的编程语言 也许会构造一个循环 逐个查看表中 的记录 看用户名 UserName 列的值是否为 jack 这种选择记录的方法是可行的 但是效率不高 如果使用 SQL 语言 只要在数据库中执行这条命令 选择所有用户 名列的值等于 jack 的记录 SQL 就会选出所有符合条件的记录 SQL 会确定实现查 询的最佳方法 由于 SQL 不根据位置来读取记录 所以它读取记录的速度是很快的 综上所述 SQL 有两个特点 所有数据存储在数据表中 表中的记录没有顺序 所以在 SQL 中 不能按照传统的方式来读取记录 二 方法和属性的命名 1 方法 无论是函数还是子程序 方法都必须以动词或动词短语命名 无需区分函数和子 程序 也无需指明返回类型 2 属性 原则上 字段 Field 是不能公开的 要访问字段的值 一般使用属性 属性以 13 简洁清晰的名词命名 3 事件 事件是特殊的属性 只能在事件处理上下文中使用 命名的原则一般是动词或动 词的分词 通过时态表明事件发生的时间 4 4 具体窗口的实现 程序设计主要的应用程序对象与窗口界面设计如下 1 酒店管理系统主界面设计 酒店管理工作 主页面 对所有界面的管理 能通过其将所有的界面连接在一起 并能体现其他 界面的功能 操作方法 点击相应的选项 弹出所要使用的功能窗口 主界面窗口名为 酒店管理工作 酒店管理工作窗口界面如图 4 1 所示 图 4 1 酒店管理工作界面 代码分析 添加一个模块定义 MainForm vb 的全局对象 在 Module1 添加以下代码 Module Module1 Public Ob MainForm As New MainForm 14 Sub main Application Run Ob MainForm End Sub End Module 在 MainForm vb 界面设计 开房 按钮 具体代码如下 Private Sub BtRentRoom Click ByVal sender As System Object ByVal e As System EventArgs Handles BtRentRoom Click Dim ob RentRoom As New RentRoom ob RentRoom Show End Sub 订房 按钮 具体代码如下 Private Sub BtBookRoom Click ByVal sender As System Object ByVal e As System EventArgs Handles BtBookRoom Click Dim ob BookRoom As New BookRoom ob BookRoom Show End Sub 退房 按钮 具体代码如下 Private Sub BtQuitRoom Click ByVal sender As System Object ByVal e As System EventArgs Handles BtQuitRoom Click Dim ob QuitRoom As New QuitRoom ob QuitRoom Show End Sub 查看房间信息 按钮 具体代码如下 Private Sub BtViewInf Click ByVal sender As System Object ByVal e As System EventArgs Handles BtViewInf Click Dim ob RoomInf As New RoomInf ob RoomInf Show End Sub 查看客人信息 按钮 具体代码如下 Private Sub BtClientInf Click ByVal sender As System Object ByVal e As System EventArgs Handles BtClientInf Click Dim ob ClientInf As New ClientInf ob ClientInf Show End Sub 统计 按钮 具体代码如下 Private Sub Button1 Click ByVal sender As System Object ByVal e As System EventArgs Handles Button1 Click 15 Dim ob Countent As New countent ob Countent Show End Sub 退出 按钮 具体代码如下 Private Sub BtExit Click ByVal sender As System Object ByVal e As System EventArgs Handles BtExit Click Application Exit End Sub 2 开房界面设计 开房 功能介绍 对入住客人信息进行登记 操作方法 在文本框中输入相应的内容 点击 保存信息 按纽进行客人信息的 保存 点击 办理下一个 按纽进行下一个客人的信息办理 点击 同房人信息 按 纽记录同房人信息 开房窗口名为 RentRoom RentRoom 窗口界面如图 4 2 所示 图 4 2 开房 RentRoom vb 窗体界面 代码分析 RentRoom Load 过程中代码如下 Try SqlDataAdapter1 SelectCommand CommandText select 房号 类型 房价from 房间表where 状态 空闲 SqlDataAdapter1 Fill Ds11 房间表 Me BindingContext Ds11 客人信息表 AddNew Catch ex As Exception 16 MsgBox ex Message End Try 保存信息 按钮的主要代码 Private Sub BtSave Click ByVal sender As System Object ByVal e As System EventArgs Handles BtSave Click Try If TxtRoomNumber Text Then MsgBox 请选择房间 Exit Sub End If Me BindingContext Ds11 客人信息表 EndCurrentEdit SqlDataAdapter2 Update Ds11 客人信息表 Ds11 Tables 客人信息表 Clear Dim comstr As String update 房间表set 状态 营业中 where 房号 Ds11 房间表 Rows DataGrid1 CurrentRowIndex Item 0 Dim sqlcom As New SqlCommand comstr SqlConnection1 SqlConnection1 Open sqlcom ExecuteNonQuery MsgBox 录入成功 BtNext Enabled True BtAddInf Enabled True BtSave Enabled False Catch ex As Exception MsgBox ex Message Finally SqlConnection1 Close End Try End Sub 办理下一个 按钮 代码如下 Private Sub BtNext Click ByVal sender As System Object ByVal e As System EventArgs Handles BtNext Click Me BindingContext Ds11 客人信息表 CancelCurrentEdit Ds11 Clear SqlDataAdapter1 Fill Ds11 房间表 Me BindingContext Ds11 客人信息表 AddNew BtSave Enabled True End Sub 同房人信息 按钮 代码如下 Private Sub BtAddInf Click ByVal sender As System Object ByVal e As System EventArgs Handles BtAddInf Click Me BindingContext Ds11 客人信息表 AddNew 17 TxtRoomNumber Text Ds11 Tables 房间表 Rows DataGrid1 CurrentRowIndex Item 0 BtSave Enabled True End Sub 单击 DataGrid1 控件时 要将所选的房号赋给TxtRoomNumber控件 在DataGrid1 MouseUp过程中添加代码 具体代码如下 Private Sub DataGrid1 MouseUp ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs Handles DataGrid1 MouseUp TxtRoomNumber Text Ds11 Tables 房间表 Rows DataGrid1 CurrentRowIndex Item 0 End Sub 在添加信息的时候 用户单击 TxtDate 入住日期 时 将当前系统的日期赋给这 个文本框 在TxtDate MouseDown过程中添加代码 具体代码如下 Private Sub TxtDate MouseDown ByVal sender As Object ByVal e As System Windows Forms MouseEventArgs Handles TxtDate MouseDown TxtDate Text Now End Sub 3 订房界面设计 订房 功能介绍 对预定房间客人信息进行登记 操作方法 在文本框中输入相应的内容 其 保存信息 按纽和 办理下一个 按纽与 开房 部分的功能相同 取消预定 按钮实现取消已经订了的房间的功能 预定入住 按钮是把订了的房间转为入住的状态 同时把对应的客人信息状态也变 为 入住 订房窗口名为 BookRoom BookRoom 窗口界面如图 4 3 所示 18 图 4 3 订房 BookRoom vb 窗体 取消预定 按钮 代码如下 Try If MsgBox 真的要取消吗 MsgBoxStyle YesNo MsgBoxResult No Then Exit Sub End If Dim comstr1 As String update 房间表set 状态 空闲 where 房号 DataSet221 客人信息表 Rows DataGrid2 CurrentRowIndex Item 1 Dim sqlcom As New SqlCommand comstr1 SqlConnection1 SqlConnection1 Open sqlcom ExecuteNonQuery DataSet221 客人信息表 Rows DataGrid2 CurrentRowIndex Delete SqlDataAdapter3 Update DataSet221 客人信息表 Ds21 Clear SqlDataAdapter1 Fill Ds21 房间表 Catch Finally SqlConnection1 Close End Try 预定入住 按钮 代码如下 Try If MsgBox 真的要办理入住吗 MsgBoxStyle YesNo MsgBoxResult No Then Exit Sub End If 19 Dim comstr1 As String update 房间表set 状态 营业中 where 房号 DataSet221 客人信息表 Rows DataGrid2 CurrentRowIndex Item 1 Dim comstr2 As String update 客人信息表set 状态 入住 入住日期 Now where 入住日期 DataSet221 客人信息表 Rows DataGrid2 CurrentRowIndex Item 3 Dim sqlcom1 As New SqlCommand comstr1 SqlConnection1 Dim sqlcom2 As New SqlCommand comstr2 SqlConnection1 SqlConnection1 Open sqlcom1 ExecuteNonQuery sqlcom2 ExecuteNonQuery DataSet221 客人信息表 Rows DataGrid2 CurrentRowIndex Delete Catch Finally SqlConnection1 Close End Try 4 查看房间信息设计界面 功能介绍 查看房间信息状态 图 4 4 查看房间信息 RoomInf vb 窗体 Private Sub RoomInf Load ByVal sender As System Object ByVal e As System EventArgs Handles MyBase Load Button1 Text A101 vbCrLf 类型 单人房 vbCrLf 房价 30 天 Button2 Text A102 vbCrLf 类型 单人房 vbCrLf 房价 30 天 Button3 Text A103 vbCrLf 类型 单人房 vbCrLf 房价 30 天 Button4 Text A104 vbCrLf 类型 单人房 vbCrLf 房价 30 天 Button5 Text A105 vbCrLf 类型 单人房 vbCrLf 房价 30 天 Button6 Text B201 vbCrLf 类型 双人房 vbCrLf 房价 50 天 Button7 Text B202 vbCrLf 类型 双人房 vbCrLf 房价 50 天 20 Button8 Text B203 vbCrLf 类型 双人房 vbCrLf 房价 50 天 Button9 Text B204 vbCrLf 类型 双人房 vbCrLf 房价 50 天 Button10 Text B205 vbCrLf 类型 双人房 vbCrLf 房价 50 天 Button11 Text C301 vbCrLf 类型 钟点房 vbCrLf 房价 10 小时 Button12 Text C302 vbCrLf 类型 钟点房 vbCrLf 房价 10 小时 Dim Button 11 As Button Button 0 Button1 Button 1 Button2 Button 2 Button3 Button 3 Button4 Button 4 Button5 Button 5 Button6 Button 6 Button7 Button 7 Button8 Button 8 Button9 Button 9 Button10 Button 10 Button11 Button 11 Button12 SqlDataAdapter1 Fill Ds41 Dim i As Short For i 0 To 11 Select Case Ds41 房间表 Rows i Item 状态 Case 营业中 Button i BackColor color Red Case 预订 Button i BackColor color Yellow Case 空闲 Button i BackColor color Green End Select Next End Sub 5 查看客人信息界面设计 功能介绍 分类地查看客人的信息 操作方法 根据需要点击 查看当前入住客人信息 查看预定客人信息 查看历史客人信息 按钮进行条件查询 21 图 4 5 查看客人信息 ClientInf vb 窗体 查看当前入住客人信息 按钮 具体代码如下 Try If RadioButton1 Checked True Then SqlDataAdapter1 SelectCommand CommandText SELECT 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期FROM 客人信息表where 状态 入住 Ds51 Clear SqlDataAdapter1 Fill Ds51 客人信息表 BtFind Enabled False End If Catch ex As Exception MsgBox ex Message End Try 查看预定客人信息 按钮 具体代码如下 Try If RadioButton2 Checked True Then SqlDataAdapter1 SelectCommand CommandText SELECT 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期 退房日期FROM 客人信息表where 状态 预 订 Ds51 Clear SqlDataAdapter1 Fill Ds51 客人信息表 BtFind Enabled False End If Catch ex As Exception MsgBox ex Message End Try 22 查看历史客人信息 按钮 具体代码如下 Try If RadioButton3 Checked True Then BtFind Enabled True SqlDataAdapter1 SelectCommand CommandText SELECT 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期 退房日期FROM 客人信息表where 状态 退 房 Ds51 Clear SqlDataAdapter1 Fill Ds51 客人信息表 End If Catch ex As Exception MsgBox ex Message End Try 查找 按钮 具体代码如下 Try If CmbOperator Text like Then SqlDataAdapter1 SelectCommand CommandText SELECT 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期 退房日期FROM 客人信息表where 状态 退 房 and CmbRange Text Like txtFind Text Else SqlDataAdapter1 SelectCommand CommandText SELECT 姓名 性别 房号 类型 证件类型 证件号码 押金 人数 入住日期 退房日期FROM 客人信息表where 状态 退 房 and CmbRange Text CmbOperator Text txtFind Text End If Ds51 Clear SqlDataAdapter1 Fill Ds51 客人信息表 Catch ex As Exception MsgBox ex Message End Try 6 退房客人信息界面设计 功能介绍 计算退房客人的消费金额 操作方法 首先在窗体初始化时 把所有客人入住的房间查找出来 显示在 DataGrid 控件中 在 DataGrid 控件中点击所要退房的房间信息 单击 退房结算 按钮 计算出所要退房客人的消费金额 23 图 4 6 退房 QuitRoom vb 窗体 添加一个account 过程计算金额 具体代码如下 Private Sub account Try If Ds31 房间表 Rows DataGrid1 CurrentRowIndex Item 类型 钟点房 Then Dim i i Microsoft VisualBasic DateDiff DateInterval Hour Ds31 客人信息表 Rows 0 Item 入住日期 Now TxtSum Text Val TxtRent Text i Else Dim i i Microsoft VisualBasic DateDiff DateInterval Day Ds31 客人信息表 Rows 0 Item 入住日期 Now TxtSum Text Val TxtRent Text i End If Catch End Try End Sub 退房结算 按钮 具体代码如下 Try If MsgBox 真的要退房吗 MsgBoxStyle YesNo MsgBoxResult No Then Exit Sub End If Dim comstr1 As String update 房间表set 状态 空闲 where 房号 Ds31 房间表 Rows DataGrid1 CurrentRowIndex Item 房号 Dim comstr2 As String update 客人信息表set 状态 退房 退房日期 24 Now where 入住日期 Trim TxtInDate Text Dim sqlcom1 As New SqlCommand comstr1 SqlConnection1 Dim sqlcom2 As New SqlCommand comstr2 SqlConnection1 SqlConnection1 Open sqlcom1 ExecuteNonQuery sqlcom2 ExecuteNonQuer