图书馆管理系统课程设计目录

第一篇：图书馆管理系统课程设计目录

目录

[摘要] 2

一 系统概述 ………………………………………………………………………2 1系统分析 …………………………………………………………………………2

1.1图书馆管理信息系统的基本任务 ……………………………………………2

二 系统结构与功能分析……………………………………………………… 3

2.1现行业务描述………………………………………………………………3

2.1.1系统组织结构………………………………………………………………3

2.1.2系统业务流程………………………………………………………………4

2.2可行性分析…………………………………………………………………6

2.2.1技术可能性分析：…………………………………………………………7

2.2.2营运可行性分析：…………………………………………………………7

2.2.3经济可行性分析：…………………………………………………………7

2.3数据流程图 ……………………………………………………………………8

2.4详细设计………………………………………………………………………12

三 系统运行分析…………………………………………………………………15

3.1 系统登录界面…………………………………………………………………15

3.1.1用户登陆界面………………………………………………………………16

3.1.2系统主界面 ………………………………………………………………17

3.1.3图书入库界面………………………………………………………………17

3.1.4图示借阅管理………………………………………………………………18

3.1.5图书查询界面 …………………………………………………………18

3.2系统的维护 ……………………………………………………………………19

四 课程学习心得…………………………………………………………………20

第二篇：库存管理系统课程设计

库存管理系统课程设计

一、需求分析...................................................................................................................................2 1.1 编写目的：.......................................................................................................................2 1.2 项目背景：.......................................................................................................................2 1.3系统使用对象：................................................................................................................3 1.4 功能需求：.......................................................................................................................3 1.4.1 业务流程图：.......................................................................................................3 1.4.2 功能模块图：.......................................................................................................4 1.4.3 功能介绍：...........................................................................................................4 1.4.4问题域描述：........................................................................................................5 1.5 性能要求：.......................................................................................................................5 1.6 运行环境：.......................................................................................................................6

二、系统详细设计...........................................................................................................................6 2.1系统总体设计....................................................................................................................6 2.1.1 运行环境...............................................................................................................6 2.1.2 系统流程...............................................................................................................6 2.1.3 系统结构...............................................................................................................7 2.2系统接口的概要设计........................................................................................................8 2.2.1 用户接口...............................................................................................................8 2.3 数据库概要设计...............................................................................................................9 2.3.1 物理结构设计.......................................................................................................9

三、系统实现.................................................................................................................................10 3.1 系统开发环境.................................................................................................................10 3.2 系统实现.........................................................................................................................11 3.2.1 客户端系统实现.................................................................................................11

一、需求分析

1.1 编写目的：

库存管理工作如由人工完成，主要依靠个人经验和厚重的资料簿，查询工作繁琐而且质量不高，容易出错。如果利用计算机的高速计算能力和广泛的普及应用，则能利用判断条件，更快地找出所要查询的库存产品。库存管理系统是一套对货品入库、出库、库存进行全面管理的系统。

1.2 项目背景：

由于市场竞争的需要，如何吸引和留住人才，激发员工的创造行、工作责任感和工作热情已经成为关系企业兴衰的重要因素，人才已成为企业最重要的资产之一。“公正、公平、合理”的企业管理理念和企业管理水平的提高，是社会对库存管理系统有了更高的需求；同时由于个人电脑的普及，数据库技术、客户/服务器技术，特别是Internet/Intranet技术的发展，使的三代库存管理系统的出现才成为必然。库存管理系统的特点是从物品管理的角度出发，用集中的数据库将几乎所有与物品相关的数据统一管理起来，形成了集成的信息源。有好的用户界面，强有力的报表生成工具、分析工具和信息的共享使得物品管理人员得以摆脱繁重的日常工作，集中精力从战略的角度来考虑企业物品规划和政策。

企业的库存物资管理往往是很复杂、很繁琐的。由于所掌握的物资种类众多，订货、管理、发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计报表繁多，因此仓库的库存管理必须编制一套库存管理信息系统，实现计算机化操作，而且必须根据企业的具体情况制定相应的方案。

1.3系统使用对象：

本软件提供了完备的销售业务管理功能，包括销售管理（销售订单、销售出货、销售退货、收款登记）、基本信息（公司基本资料、客户资料、货品资料、员工档案、其他基础设置）、单据查询(订货单查询、收货单查询、付款单查询)、系统维护（操作权限、数据备份及恢复、数据压缩、数据清理）等功能。

1.4 功能需求：

1.4.1 业务流程图：

1.4.2 功能模块图：

1.4.3 功能介绍： 库存管理：包括货品信息管理、货品库存管理、短线货品管理、超储货品管理。

入库管理：包括入库登记管理、货品入库期间统计、供货单位期间供货统计和供货单位期间供货金额统计。

出库管理：包括出库登记管理、货品期间出库统计、收货单位期间收货统计和收货单位期间收货金额统计。

盘存管理：包括盘存数据录入和盘存表。综合管理：包括货品出入库期间汇总等。

附项分类：包括经办人员管理、供货单位管理、仓库信息管理及数据处理记录。

历史数据管理：包括历史库存管理、历史入库管理和历史出库管理等。1.4.4问题域描述：

货物是否能被管理员找到，货物必要有唯一的货号;仓库对应唯一管理员，管理员必要有唯一工号，性别，姓名等属性;每个入库货物对应一张入库单，入库单号码必须与货号唯一对应；每个出库货物对应一张出库单，出库单号码必须与货号唯一对应；管理人员存放货物根据存放规则在仓库内存放货物；管理人员根据提货规则从仓库内提取货物。

1.5 性能要求：

全局特征：

系统可用性是：全天候可用、可靠性：除了不可计错误，一般不会崩溃。安全性和保密性：只有专业的工作人员才能运行，可以设置权限。

1.6 运行环境：

硬件环境：PentiumⅡ 或同档次以上微机； 32MB以上内存或更高；4.2G以上硬盘；1.44M

光驱；24速以上光驱；

针打或激光打印机一台

软件环境：中文 WINDOWS95 /

二、系统详细设计

2.1系统总体设计

2.1.1 运行环境 操作系统：Windows All 安装MySQL Tomcat MyEclipse 2.1.2 系统流程 本课题的系统流程图如下

/WE/ 2000操作系统。

2.1.3 系统结构

本课题的功能模块设计图如下

2.2系统接口的概要设计

2.2.1 用户接口 首页（用户登录界面）

用户操作界面（如图）头部和其他部位的内容一样

左侧部分为当用户登录成功后将显示用户操作的功能菜单 右侧部分则根据用户选择的操作显示相应内容

2.3 数据库概要设计

2.3.1 物理结构设计

本课题目前为数据库建立了9 个表 Category：id，name，description；

Goods：id，name，description，inprice，outprice，category_id，supplier;Instock:id,quantity,intime,price,description,goods_id,uear_id;Outstock:id,quantity,outtime,description,price,user_id,goods_id;Privilege:id,name,description Stock:goods_id,quantity,outprice,inprice Supplier:id,name,linkman,cellphone,description User:id,username,password User_privilege:user_id,privilege_id

三、系统实现

3.1 系统开发环境

系统：Microsoft Windows 7 编程环境：MyEclipse 开发语言：Java 数据库：MySQL

3.2 系统实现

3.2.1 客户端系统实现 登录界面（如下图）

库存管理成果信息页面（如图）

用户管理

权限管理

供应商管理

类别管理

商品管理

入库管理

库存管理

出库管理

第三篇：酒店管理系统课程设计

软件开发环境与工具

课程设计

实验题目：酒店管理系统 指导老师：南丽丽

专业班级：计算机科学与技术系1105班 姓 名：陈阿艳（2011100516）

王媛（2011100529）

闫丽颖（2011100503）樊建红（2011100515）2013年 12月13日

目录

第一章…………………………………前言

1.1…………………………………………………选题背景

1.2…………………………………………………课题研究的目的和意义

1.3…………………………………………………本文的研究内容

1.4…………………………………………………国内外现状

第二章…………………………………开发环境及工具介绍 2.1………………………………………………..Visual Basic.NET简介

2.2…………………………………………............SQL Server2005 第三章…………………………………系统分析

3.1…………………………………………………..可行性分析

3.2…………………………………………………...需求分析

3.2.1…………………….酒店管理部分

3.2.1.1……………..客户管理

第四章…………………………………数据库设计

4.1…………………………………………………..数据库设计截图 4.2………………………………………………….权限设置 4.3………………………………………………….客户信息表 4.4………………………………………………….房态表 4.5………………………………………………….结算表

第五章…………………………………系统实现

5.1…………………………………………………登陆

5.2…………………………………………………客户入住

5.3…………………………………………………客户结算退房

5.4…………………………………………………以“老板”为例，展示系统功能

第六章…………………………………主要代码 第七章…………………………………总结

第1章 前 言

1.1 选题背景

酒店业是一个前景广阔而又竞争激烈的行业。改革开放以来，我国的酒店业迅速发展，已经成为一个具有相当规模的产业。由于我国的旅游业迅速发展，通过调查，我国在2020年将成为世界上第四大旅游国家；同时我国加入世界贸易组织，酒店业将完全开放，这个时候，我国的酒店业将面临着前所未有的机遇和挑战。但是，现在甚至还有一些酒店还停留在由人工操作和管理阶段，这样已经无法适应当前的发展趋势。因此，要想使酒店的工作质量和效率提高，采用先进的计算机网络 通信技术改变酒店业务模式，实现酒店业务管理的自动化已经成为一种必然。

酒店管理系统采用B/S结构。按照按国家星级宾馆标准化业务程序流式设计，会采用主流开发工具来开发，搭建比较稳定可靠安全的服务端来辅佐客户管理，并且还采用数据库mysql，会通过测试用例来达到测试效果，技术支持会采用轻量级框架struts和hibernate持久化来完成，服务器采用tomcat，通过powerdesigner来设计数据模型为最初业务流程的概念设计阶段和详细设计阶段打好基础［1］。

1.2 课题研究的目的和意义

对酒店整个来说，对酒店经营状况起决定作用的是酒店的服务管理水平。如何利用先进的管理手段来提高酒店的管理水平成为酒店业务发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高酒店的管理无疑是一条行之有效的途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的业务管理提供强有力的支持。因此，采用全新的计算机网络和酒店业务管理系统，已成为提高酒店的管理效率，使作业人员与管理系统之间灵活互动，实现流畅的工作流衔接，帮助酒店有效地进行 3 业务管理，释放最大价值。酒店业务管理系统在达到在节省人力资源成本的同时，可以提高业务效率，并能够及时、准确、迅速地满足顾客服务的需求［2］。

1.3 本文的研究内容

课程设计选题《酒店管理系统》主要研究了：酒店业务的管理（划分为，登陆界面部分，查询界面部分，入住界面部分，退房界面部分）。

1.4 国内外现状

随着我国经济体制改革的不断深化和我国经济的快速发展，我国人民的收入不断提高，消费观念也有提高，对服务质量的要求也有很大的提高。各地把旅游业当作本 地经济发展的重要支柱之一。酒店作为人们食宿、娱乐、休闲的场所而得到了快速的发展。社会上也成立了各种类型，不同规模的酒店服务企业。如何为客户提供更 加准确及时的服务，成为各个酒店竞争关键。所以酒店业务信息化建设就成为了客户衡量酒店提供商服务标准的一个准则，信息系统成为了基础。

随着Internet技术的进一步发展和普及，不能很好的适应世界经济发展的形式和我国国民经济建设的需要，市场现有的产品化的酒店业务软件系统在不断发 展中的酒店的需求。基于WEB的酒店管理系统的总体设计目标能够建立完善、高效、可靠的酒店业务信息系统，为酒店提供良好的信息环境［3］。

第2章 开发环境及工具介绍

2．1Visual Basic.NET简介

Visual Basic.NET通常缩写为VB.NET,在某些特定情况下也直接简称VB，比如在.NET这个大话题下或者与其他.NET语言一起讨论的时候。

Visual Basic.NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，有时候你会觉得写VB.NET代码就好像在写英文句子一样，从这个角度来说，VB.NET似乎是最高级的一门编程语言，当然在Basic系语言中VB.NET也确实是迄今为止最强大的一门编程语言。

Visual Basic.NET的应用范围包括windows桌面、web以及当下突然觉醒的正在奋力追赶的第三大移动平台Windows phone。

2.2 SQL Server2005 SQL Server 是一个关系数据库管理系统。它最初是由Microsoft、Sybase 和Ashton-Tate三家公司共同开发的，于1988 年推出了第一个OS/2版本。在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了，Microsoft 将SQL Server移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本。Sybase 则较专注于SQL Server在UNⅨ操作系统上的应用。

Microsoft SQL Server 2005 是一个全面的数据库平台，使用集成的商业智能(BI)工具提供了企业级的数据管理。Microsoft SQL Server 2005数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。

第3章

系统分析

3.1 可行性分析

随着旅游业的发展，酒店、餐饮娱乐行业日趋发达，引入全方位的电脑服务和电脑管理日益流行。同时，酒店和餐厅娱乐业引入电脑服务和管理也取得了优良的经济 效益和社会效益。为此，国家建设部已于最近作出明确规定：凡星级酒店在项目审批时，其设计方案必须包括电脑管理系统，否则不予立项。可见，酒店管理电脑化 势在必行。酒店管理系统将先进的电脑技术与现代酒店服务管理完美地结合起来，实现了住宿、餐饮、娱乐全新概念的服务和管理方式。

一个成熟的酒店管理系统不仅仅是记录酒店客人的信息，提供查询，报表打印等一系列简单的工作，它能让工作人员从烦琐的手工操作中解脱，并且酒店管理系统本 身就代表着一种管理方法。随着它的深入，将带动企业的运做，为管理和决策提供支持。为了达到这个要求，它必须依靠高起点的硬件环境和软件开发工具来保证系 统的稳定和正常运行。酒店电脑系统要求24小时连续运行，数据量大，可靠性要求高，因此整个电脑系统供电采用专线方式，加配UPS（不间断供电系统），并合理接地，以便保障整套系统的正常运行［7］。

3.2 需求分析

系统需对用户登录进行管理。使用各功能模块时，系统应验证用户身份的有效性，否则要求用户登录。另外，允许用户对自己的密码进行修改。

系统应提供客房的分类管理功能，可分类制订客房面积、价格、是否配备空调等客房类型，对不同标准的客房进行有效管理。系统可实现对客房信息的添加、删除以及修改。

在进行入住/退房管理时，系统可以根据客房当前的状态自动提示可用服务(入住/退房)。如果客房没有客人入住，则该客房的可用服务为“入住”；否则，可用服务为“退房”。

系统的客户端在Windows平台下运行，服务器端可在Windows平台或UNIX平台下运行。系统还需要有较好的安全性和可扩展性［8］。

需求分析是从客户的需求中提取出软件系统能够帮助用户解决的业务问题，通过对用户业务问题的分析，规划出系统的功能模块，即定义用例。这个步骤是对理解需求的升华，直接关系到该系统的质量。

整个系统可以分为2大部分。酒店网站部分（客户服务网站）和酒店管理部分（管理员部分）。本系统只做了有关酒店管理的一部分。3.2.1 酒店管理部分

1.客房管理: 预订客房管理、客房查询、退房管理。

前台服务员的主要职能是负责订房和退房，以及查询入住的客户信息。所有该角色只可以使用部分功能，包括预定管理、客户信息查询，入住管理，退房管理功能。

第四章 数据库设计

4.1 数据库设计截图

4.2权限设置

4.3客户信息表

4.4房态表

4.5结算表

第5章 系统实现

5.1登陆

分别用三种身份登陆，所得到的权限也就不同

老板经理员工

5.2客户入住（通过添加客户信息，自动计算应付房费）

5.3客户结算退房

5.4以“老板”为例，展示系统功能

（1）查询房态

住着人的房间有：

通过房间号查某间房的房态

（2）职工管理

添加职工

设置权限

第登陆

Public Class Login

Private Sub Btn_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Login.Click

Data_Access.User_info.LoginUser_info.User_id = Me.Txt_Name.Text

Data_Access.User_info.LoginUser_info.User_pwd = Me.Txt_pwd.Text

Dim s As Integer

s = Business_Logic_Layer.Data_Check.User_Check

If s = 1 Then

MsgBox(“欢迎使用假日酒店管理系统”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Main_Form.Show()

Me.Close()

Else

If s =-1 Then

MsgBox(“用户名错误！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Else

MsgBox(“密码错误！”, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End If

End If

End Sub

6章 主要代码

Private Sub Btn_Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Cancel.Click

Me.Close()

End Sub

Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

End Sub End Class

主界面

Public Class Main_Form

Private Sub Main_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Call Init_Tree()

End Sub

Public Sub Init_Tree()

Me.TreeV.Nodes.Clear()

Dim s As String

s = “select * from gg_Menu where isStop='0'”

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

Dim myNode As TreeNode

While dr.Read

myNode = New TreeNode

myNode.Text = dr.Item(“MenuName”)

If Business_logic_layer.Judge.Judge_Auth(dr.Item(“Typeid”))= False Then

Continue While

End If

myNode.Name = dr.Item(“Typeid”)

If dr.Item(“isGroup”)= “0” Then

myNode.Tag = dr.Item(“Form”)

Else

myNode.Tag = “"

End If

If dr.Item(”Parid“)= ”0“ Then

Me.TreeV.Nodes.Add(myNode)

Else

If Me.TreeV.Nodes.Find(dr.Item(”Parid“), True).Length > 0 Then

Me.TreeV.Nodes.Find(dr.Item(”Parid“), True)(0).Nodes.Add(myNode)

End If

End If

End While

dr.Close()

End Sub

Private Sub TreeV_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)Handles TreeV.AfterSelect

If e.Node.Tag = ”“ Then Exit Sub

Dim formName As String

formName = ”Hotel_Manager.“ & e.Node.Tag

Dim f As Form

'

f = CType(Activator.CreateInstance(Type.GetType(formName)), Form)

f.Show()

f.MdiParent = Me

f.WindowState = FormWindowState.Maximized

End Sub

Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 注Á¡é销¨²ToolStripMenuItem.Click

Data_Access.User_info.LoginUser_info.User_id = ”“

Data_Access.User_info.LoginUser_info.User_name = ”“

Data_Access.User_info.LoginUser_info.User_pwd = ”“

Login.Show()

Me.Close()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Timer1.Tick

Me.Tool_lb_name.Text = ”登陆者“ & Data_Access.User_info.LoginUser_info.User_name

Me.Tool_lb_date.Text = ”日期“ & Format(Now, ”yyyy-MM-dd“)

Me.Tool_lb_time.Text = ”时间“ & Format(Now, ”long time“)

End Sub

Private Sub 退出ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles 退出ToolStripMenuItem1.Click

Me.Close()

End Sub End Class 入住

Public Class Ruzhu_login

Private Sub Ruzhu_login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Me.Txt_no.Text = myCommon.getNewCode.get_NewCode

Call Init_Cbox()

End Sub

Private Sub Cbox_type_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Cbox_type.SelectedIndexChanged

Dim s As String

s = ”select * from Fang where Fang_state='空' and Fang_type='“ & Me.Cbox_type.Text & ”'“

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

Cbox_fang_no.Items.Clear()

While dr.Read

Cbox_fang_no.Items.Add(dr!Fang_num)

Txt_yajin.Text = dr!Fang_yajin

Txt_danjia.Text = dr!Fang_price

End While

dr.Close()

End Sub

Private Sub Btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_ok.Click

Dim s As String

Dim ID_Card As String

ID_Card = Me.Txt_ID.Text

Dim cAge As Integer

cAge = myCommon.getAge.get_age(ID_Card)

Dim stoptime As String

stoptime = ”0000/00/00 00:00:00“

s = ”insert into Customer values('“ & Txt_no.Text & ”','“ & Txt_name.Text & ”','“ & Cbox_sex.Text & ”','“ & cAge.ToString & ”','“ & Txt_ID.Text _

& ”','“ & Cbox_type.Text & ”','“ & Cbox_fang_no.Text & ”','“ & Now & ”','“ & stoptime & ”','“ & Txt_yajin.Text _

& ”','“ & Txt_days.Text & ”','“ & Txt_yingjiao.Text & ”','“ & Txt_yijiao.Text & ”')“

Dim s2 As String

s2 = ”update Fang set Fang_state='满' where Fang_num='“ & Cbox_fang_no.Text & ”'“

Try

myCommon.getData.cmd_ex(s)

myCommon.getData.cmd_ex(s2)

MsgBox(”添加成功！“, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

myCommon.getNewCode.getNewSaveCode()

Catch ex As Exception

MsgBox(”添加失败！“ & ex.Message, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)15

End Try

End Sub

Private Sub Btn_jisuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jisuan.Click

Me.Txt_yingjiao.Text = Txt_danjia.Text * Txt_days.Text + Txt_yajin.Text

End Sub

Private Sub Btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_add.Click

Me.Txt_no.Text = myCommon.getNewCode.get_NewCode

Txt_name.Text = ”“

Cbox_sex.Items.Clear()

Txt_ID.Text = ”“

Cbox_type.Items.Clear()

Cbox_fang_no.Items.Clear()

Txt_yajin.Text = ”“

Txt_days.Text = ”“

Txt_yingjiao.Text = ”“

Txt_yijiao.Text = ”“

Txt_address.Text = ”“

Txt_danjia.Text = ”“

Call Init_Cbox()

End Sub

Sub Init_Cbox()'为性别和房间类型进行添加

Cbox_sex.Items.Add(”男“)

Cbox_sex.Items.Add(”女“)

Cbox_type.Items.Add(”单人间“)

Cbox_type.Items.Add(”双人间“)

End Sub End Class 结算

Public Class Jiesuan

Dim str As String

Private Sub Jiesuan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Call Btn_show_Click(sender, e)

End Sub

Private Sub Btn_jiesuan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jiesuan.Click

Dim s As String

Dim yajin As String

Dim yijiao As String

Dim str As String

str = Now

str = Mid(str, 1, 10)

s = ”select yajin,yijiao from Customer where Start_time like '“ & str & ”%' “

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

While dr.Read

yajin = dr!yajin + yajin

yijiao = dr!yijiao + yijiao

End While

dr.Close()

s = ”select count(*)from Jiesuan where Riqi like '“ & str & ”%' “

Dim conn As New SqlClient.SqlConnection

conn.ConnectionString = myCommon.getstrconn.get_strconn

Dim cmd As New SqlClient.SqlCommand

cmd.Connection = conn

cmd.CommandType = CommandType.Text

cmd.CommandText = s

conn.Open()

If CType(cmd.ExecuteScalar(), Integer)= 0 Then

Try

s = ”insert into Jiesuan values('“ & str & ”','“ & yijiao & ”','“ & yajin & ”','“ & yijiaoyajin & ”' where Riqi='“ & str & ”'“

myCommon.getData.cmd_ex(s)

Catch ex As Exception

MsgBox(”结算时出错误！“)

End Try

End If

End If

s = ”select * from Jiesuan where Riqi='“ & str & ”'“

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_jiesuan.DataSource = ds.Tables(0)

End Sub

Private Sub Btn_show_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_show.Click

Dim s As String

s = ”select * from Jiesuan“

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_jiesuan.DataSource = ds.Tables(0)

End Sub

Private Sub Btn_jingli_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_jingli.Click

Dim str As String

str = Now

str = Mid(str, 1, 10)

If Data_Access.User_info.LoginUser_info.User_job = ”经理“ Then

Dim s As String

s = ”update Jiesuan set jinglishenhe='“ & Data_Access.User_info.LoginUser_info.User_name & ”' where Riqi='“ & str & ”'“

Try

myCommon.getData.cmd_ex(s)

Call Btn_show_Click(sender, e)

Catch ex As Exception

MsgBox(”审核失败！“)

End Try

Else

MsgBox(”你没有权限！“)

End If

End Sub

Private Sub Btn_laoban_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_laoban.Click

Dim str As String

str = Now

str = Mid(str, 1, 10)

If Data_Access.User_info.LoginUser_info.User_job = ”老板“ Then

Dim s As String

s = ”update Jiesuan set laobanshenhe='“ & Data_Access.User_info.LoginUser_info.User_name & ”' where Riqi='“ & str & ”'“

Try

myCommon.getData.cmd_ex(s)

Call Btn_show_Click(sender, e)

Catch ex As Exception

MsgBox(”审¦核失败！“)

End Try

Else

MsgBox(”你没有权限！“)

End If

End Sub End Class

退房

Public Class Tuifang_login

Dim dv As DataView

Private Sub Btn_chaxun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_chaxun.Click

Dim str As String

str = ”select * from Customer_Fang where Fang_no='“ & Me.Txt_fang_no.Text & ”'“

Dim ds As DataSet

ds = myCommon.getData.get_ds(str)

dv = ds.Tables(”temp“).DefaultView

DGView_tuifang.DataSource = dv

End Sub

Private Sub Btn_Tuifang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Tuifang.Click

Dim s As String

s = ”update Fang set Fang_state='空?' where Fang_num='“ & dv.Item(0).Item(”Fang_no“).ToString & ”'“

Dim s2 As String

s2 = ”update Customer set yingjiao='“ & dv.Item(0).Item(”yingjiao“)dv.Item(0).Item(”yajin“)& ”' where Customer_no='“ & dv.Item(0).Item(”Customer_no“)& ”'“

Try

myCommon.getData.cmd_ex(s)

myCommon.getData.cmd_ex(s2)

MsgBox(”退房成功！“, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Catch ex As Exception

MsgBox(”退房失败！“ & ex.Message, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End Try

End Sub

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)Handles Panel2.Paint

End Sub

查询

Private Sub Btn_Customer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Customer.Click

Show_all_coustomer()

End Sub

Private Sub Btn_Chaxun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_Chaxun.Click

Dim str As String

If Chaxun_Fang.Text <> ”“ And Chaxun_name.Text <> ”“ Then

str = ”Fang_no='“ & Chaxun_Fang.Text & ”' and Customer_name='“ & Chaxun_name.Text & ”'“

ElseIf Chaxun_Fang.Text <> ”“ And Chaxun_name.Text = ”“ Then

str = ”Fang_no='“ & Chaxun_Fang.Text & ”'“

ElseIf Chaxun_Fang.Text = ”“ And Chaxun_name.Text <> ”“ Then

str = ” Customer_name='“ & Chaxun_name.Text & ”'“

End If

Call Show_all(str)

End Sub

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)Handles Panel2.Paint

End Sub End Class

管理

Public Class cManager

Sub show_Role_Auth()

Dim s As String

s = ”select * from Role_Auth_V where Role_Name<>'老板'“

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_Role_Auth.DataSource = ds.Tables(”temp“)

End Sub

Private Sub cManager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Dim s As String

s = ”select * from Role_Auth_V where Role_Name<>'老板'“

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_Role_Auth.DataSource = ds.Tables(”temp“)

Dim dr As SqlClient.SqlDataReader

s = ”select * from gg_Menu where MenuName<>'权限T'and MenuName<>'权限管理'“

dr = myCommon.getData.get_dr(s)

While dr.Read

Cbox_Auth.Items.Add(dr.Item(”MenuName“))

End While

dr.Close()

s = ”select * from Role where Role_Name<>'老板'“

dr = myCommon.getData.get_dr(s)

While dr.Read

Cbox_Role.Items.Add(dr.Item(”Role_Name“))

End While

dr.Close()

End Sub

Private Sub DGView_Role_Auth_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DGView_Role_Auth.CellClick

Me.Cbox_Role.Text = DGView_Role_Auth.CurrentRow.Cells.Item(0).Value.ToString

Me.Cbox_Auth.Text = DGView_Role_Auth.CurrentRow.Cells.Item(1).Value.ToString

End Sub

Private Sub Btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_add.Click

Dim s As String

Dim RoleID As String

Dim TypeID As String

s = ”select Role_id from Role where Role_name='“ & Cbox_Role.Text & ”'“

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

While dr.Read

RoleID = dr!Role_ID

End While

dr.Close()

s = ”select TypeId from gg_Menu where MenuName='“ & Cbox_Auth.Text & ”'“

dr = myCommon.getData.get_dr(s)

While dr.Read

TypeID = dr!TypeId

End While

dr.Close()

s = ”insert into Role_Auth values('“ & RoleID & ”','“ & TypeID & ”')“

Try

myCommon.getData.cmd_ex(s)

MsgBox(”添加成功！“, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Catch ex As Exception

MsgBox(”添加失败！“ & ex.Message, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End Try

Call show_Role_Auth()

End Sub

Private Sub Btn_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_del.Click

Dim s As String

Dim RoleID As String

Dim TypeID As String

s = ”select Role_id from Role where Role_name='“ & Cbox_Role.Text & ”'“

Dim dr As SqlClient.SqlDataReader

dr = myCommon.getData.get_dr(s)

While dr.Read

RoleID = dr!Role_id

End While

dr.Close()

s = ”select TypeId from gg_Menu where MenuName='“ & Cbox_Auth.Text & ”'“

dr = myCommon.getData.get_dr(s)

While dr.Read

TypeID = dr!TypeId

End While

dr.Close()

s = ”delete from Role_Auth where Role_ID='“ & RoleID & ”'and Type_Id='“ & TypeID & ”' “

Try

myCommon.getData.cmd_ex(s)

MsgBox(”删除成功！“, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

Catch ex As Exception

MsgBox(”删除失败！“ & ex.Message, MsgBoxStyle.Information + MsgBoxStyle.OkOnly)

End Try

Call show_Role_Auth()

End Sub

Private Sub DGView_Role_Auth_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DGView_Role_Auth.CellContentClick

End Sub End Class 22

员工管理

Public Class Staff_Manager

Private Sub Btn_show_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_show.Click

Dim s As String

s = ”select * from Staff where Staff_job='职员“

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_staff.DataSource = ds.Tables(0)

End Sub

Private Sub Btn_add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_add.Click

Dim s As String

s = ”insert into Staff values('“ & Txt_no.Text & ”','“ & Txt_name.Text & ”','“ & Cbox_sex.Text & ”','“ & Txt_pwd.Text _

& ”','职员'“ & Txt_address.Text & ”','“ & Txt_tel_no.Text & ”')“

Try

myCommon.getData.cmd_ex(s)

MsgBox(”添加成功！“)

Catch ex As Exception

MsgBox(”添加失败“ & ex.Message)

End Try

End Sub

Private Sub Btn_del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_del.Click

Dim s As String

s = ”delete from Staff where Staff_no='“ & Txt_no.Text & ”'“

Try

myCommon.getData.cmd_ex(s)

MsgBox(”删除成功！“)

Catch ex As Exception

MsgBox(”删除失败“ & ex.Message)

End Try

End Sub

Private Sub Btn_chaxun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Btn_chaxun.Click 23

Dim s As String

s = ”select * from Staff where Staff_no='“ & Txt_chaxun_no.Text & ”' and Staff_job='职员'"

Dim ds As DataSet

ds = myCommon.getData.get_ds(s)

DGView_staff.DataSource = ds.Tables(0)

End Sub

Private Sub Staff_Manager_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load

Call Btn_show_Click(sender, e)

End Sub

Private Sub DGView_staff_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)Handles DGView_staff.CellClick

Txt_no.Text = DGView_staff.CurrentRow.Cells.Item(0).Value.ToString

Txt_name.Text = DGView_staff.CurrentRow.Cells.Item(1).Value.ToString

Cbox_sex.Text = DGView_staff.CurrentRow.Cells.Item(2).Value.ToString

Txt_address.Text = DGView_staff.CurrentRow.Cells.Item(5).Value.ToString

Txt_tel_no.Text = DGView_staff.CurrentRow.Cells.Item(6).Value.ToString

End Sub

Private Sub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)Handles Panel2.Paint

End Sub End Class

第7章 总 结

经过这段时间的精心设计，系统的基本功能已经实现，并能实践于一些业务管理过程中，但酒店业务管理系统是一个庞大的工程，要使网络交互功能的实现，脚本的设计，网页的构架，网页的美工，文字的编辑，非一朝一夕可尽善尽美的，这需要一个长期的摸索与完善过程，同时还要在实践中发现与操作者使用要求不相符合的 地方还要修改。子系统功能虽已基本实现，但仍有诸多地方需要修改。随着酒店业务的扩展，服务的增加，酒店业务管理系统也逐渐发展、完善。如果没有一套可靠的酒店业务管理系统,但凭手工操作,不仅效率低下,而且会极大地形象到酒店的服务质量。要在酒店服务中选择好适合自己酒店实际情况的业务管理系统不仅 要考虑该系统在酒店的实用性，还要考虑酒店对该系统所能够承担费用的能力，以及这个系统对操作员来说的操作难易程度。通过本次课程设计中，我们掌握了VB.NET编程技能，SQL以及JDBC连接数据库和动态页面的用法。比较全面的巩固了下面向对象的编程思想。在本次课程设计中，我们懂得了谨慎和团结的重要性，明确分工也使我们提高了实验的效率，这对我们以后的学习工作都有很大的帮助。

第四篇：课程设计--成绩管理系统

“成绩管理系统”课程设计指导书

课题名称：学生成绩管理系统

设计目标：按照软件工程的规范，以SQL Server或Oracle为后台数据库，以Visual C++、Delphi等为前端开发工具，设计并实现一个能模拟高等学校学生成绩管理的系统。

需求描述：

学生成绩管理系统中：

1．系统用户

系统的用户是学校的学生、教师和管理员。学生使用本系统查询自己的成绩。教师使用本系统录入和查询自己所授课程的考试成绩。教学管理员可以查询所有课程成绩，并使用本系统进行成绩的统计和生成报表。

2．系统功能

(1)成绩录入：

教师可以查询自己本学期所授课程，并录入学生的考试成绩。录入过

程中，可以暂存已录入的成绩，当录入完成后提交。

(2)成绩维护：

教师在提交前，可以修改已录入或暂存的学生成绩；但提交后，则只

能查询不能再进行任何修改。

教学管理员可以清除教师已提交的成绩。

(3)成绩查询：

教师、教学管理员可以查询学生考试成绩。学生只允许查询自己的考

试成绩，教师只允许查询自己所授课程的成绩。

(4)成绩统计：

教学管理员可以按课程、按学生、按班级等进行成绩统计。

教学管理员根据核算出的总评成绩统计处于优、良、中、及格、不及

格的学生人数以及占总人数的百分比。其中100-90为优，89-80为良，79-70为中，69-60为及格，60分以下为不及格。

按要求输出成绩在优、良、中、及格、不及格各区间的学生学号。

结果形式：

提交课程设计报告、源程序和可演示的软件

课程设计报告要求：详见课程设计模板

课程设计参考思路：

(1)熟悉数据库和开发工具，掌握开发工具与本地数据库的连接方法。

(2)理解系统的信息需求，进行合理的数据库设计，建立各数据库表。

(3)理解系统的功能需求，设计应用软件。结合Delphi 或VC++进行系统界面

（窗体、菜单以及相应控制按钮）的设计、连接与操纵数据库方案的设计，编写程序。

(4)系统运行、调试并完善。

(5)撰写设计报告。

第五篇：纸质图书馆管理系统

纸质图书馆管理系统V3.0

纸质图书馆管理系统V3.0经过严格的软、硬件测试和大规模应用测试过程，是一款功能性强、易用性好、兼容性强、稳定性高于一身的图书管理软件。科迅纸质图书馆管理系统V3.0是专门针对各中小学图书馆自动化管理而研发的,适用于各中小学、高中及企事业单位的中小型图书馆，支持图书馆藏量50万册以上。

使用纸质图书馆管理系统V3.0这个系统的用户不需要购买服务器、不需要系统维护、不用需要担心数据安全，只要有一台能上网的电脑安装本系统后，就能实现图书馆图书采购，编目，典藏，流通，借阅，归还，报表统计馆藏查询等的计算机自动化管理。

纸质图书馆管理系统V3.0有以下特点：

1、专业与适用性相结合，可操作性强：系统既遵照国家相关标准，同时将标准进行精简和固化到系统模块，使图书管理员不需要太强的专业知识即可迅速适应和使用，后期图书室的扩建都显得简单易行。

2、安全性及可扩展性强：系统核心采用目前最先进的前端开发工具Visual C++开发，所有软件部件全部为本地代码，不采用任何其他外部构件，从而保证了稳定性和可靠性，系统提供手动及自动定时数据备份功能。系统支持条码、IC卡、ID卡，也可与学校一卡通无缝兼容。

3、图书编目、上架效率高：提供近100万条编目数据支持，支持Z39.50协议，可从国家图书馆网络数据库免费下载图书信息，编目速度高，从而极大地减轻编目工作量。

4、强大的报表统计和打印功能：系统提供了多个图书馆管理常用报表，亦可根据需要自定义报表，方便随时查看和打印图书基本信息及流通。

5、造价低：对运行环境要求不高，支持Windows 98以上所有操作系统。自带读者证、书标、条形码、目录卡片等的制作系统，节约外购成本。