SQLServer酒店管理系统课程设计报告.docx

1、SQLServer酒店管理系统课程设计报告SQLServer酒店管理系统课程设计报告数据库应用技术课程设计设计说明书中环酒店仓库治理系统起止日期： 2020 年 12 月 27日 至 2020 年 12 月 31 日学生姓名班级成绩指导教师(签字) 运算机工程系2010年12月27日课程设计任务书20202020学年第 1 学期 运算机工程 系 专业 班级课程设计名称： 数据库应用技术课程设 设计题目： 中环酒店仓库治理系统 完成期限：自 2020 年 12 月 27 日至 2020 年 12 月 31 日共 1 周设计依据、要求及要紧内容可另加附页：设计依据：依照数据库应用技术课程设计大纲。

2、要求：(1)、把握数据库设计(包括六个时期)的差不多方法(2)、熟练把握SQL Server数据库治理系统(3)、了解MIS系统的常用的开发模式(4)、把握一种MIS开发工具(ASP，PB，VC+，Delphi，VB.NET，C#等)(5)、具体设计与实现一个治理信息系统(MIS)要紧内容：严格遵循软件开发的规范与信息系统的开发规程，整个设计过程严格按如下的几个时期要求执行：(1)、需求分析时期(2)、数据库概念结构设计时期(3)、数据库逻辑结构设计时期(4)、数据库物理设计时期(5)、数据库应用系统的开发(数据库前端应用开发)(6)、数据库的实施与爱护 指导教师签字： 教研室主任签字： 批准

3、日期： 年 月 日课程设计进度打算表序号起止日期打算完成内容实际完成情形检查日期检查人签名112月27日中午至12月27日下午完成课程设计的说明书、任务书。212月28日上午至12月28日中午需求分析，了解与分析用户需求，规定打算。312月28日中午至12月29日中午数据库的结构设计，系统总体功能模块图要求，完成数据库各关系模式的创建。412月29日下午至12月30日上午编写应用程序，实现各个模块的功能，将各个模块集成，实现一个完整的数据库应用系统。512月30日下午至12月31日中午数据库的载入，进行应用程序的调试及试运行。612月31日中午只12月31日下午完成后的爱护和设计报告。成果提交

4、及课程答辩789指导教师批准，并签名： 2020 年 月 日摘要仓库治理系统是针对社会中一些大中型仓库治理使用，从消费者的角度来说，结账时应该准确和快速，如何说时刻就金钱。由于传统的仓库治理给治理员带来专门多不便，针对这方面的缺陷，开发那个系统能够方便快捷查出商品信息情形，每天的售货情形。方便了经营方的商品治理、人员治理。大大提高了仓库治理水平。进而加速了社会的进展速度，提高了人民的生活水平。本系统还能够给仓库和顾客节约更多时刻，加快了酒店的运转速度。关键词：VB；小型超市收银治理系统；SQL Server 2000第一章 产品开发背景当今，酒店、饭店差不多随处可见，而且集中众多的公共厂所，酒

5、店仓库治理问题也成为了酒店治理者劳心费事的重要内容，为了方便酒店治理者使用，提高办事效率，就设计出一套应用简单，易于操作的后台治理系统，实现对酒店每日进货的治理。第二章 系统需求分析系统要紧功能：本项目是仓库治理系统，其中，要紧实现：仓库物品信息的添加修改查询治理，物资统计查询,供应商添加删除的治理。方便工作人员进行销售和营业额的统计，也使治理员更快捷的治理酒店仓库的运作。项目基于SQL server2000平台，是一个针对后台治理的系统，应用多层框架技术来实现的。整体数据流图：第三章 系统总体设计第四章 数据库设计1数据库概念结构设计及E-R图酒店治理系统是一个针对酒店治理的一个简单系统。数

6、据库中要紧含有两张表，登陆表中字段有用户名，密码。商品表中字段有商品号、商品名称、单价、商品类型、库存量、厂商。2登录表E-R图3商品表E-R图4各实体E-R图5逻辑结构设计6 商品表中的实时数据7登陆表中的实时数据8物理设计选择实施环境，即选择SQLServer2000作为本信息系统的数据库治理系统。第五章 系统详细设计1 功能需要为了提高物品治理的水平和工作效率，尽可能杜绝商品流通中各环节中可能显现的资金流失不明现象，商品进销存领域迫切需要引入信息系统来加以治理。而商品销售治理系统是当前应用于酒店等治理系统的典型代表。本组设计的超市销售治理系统要紧完成的功能有：商品差不多信息爱护，以及这一

7、系列过程中涉及商品的数据修改、查询统计、删除等多种操作。此外，具有专门多的优点，其中包括易于使用，熟悉的界面，高严谨及较低的内存空间战胜。本系统的开发使用的是方式来开发数据库。要使用这种访问方式，必须在工程里面引用Microsoft ActiveX Data Objects库。使用本系统大大提精湛市的运作效率；通过全面的信息采集和处理，辅助提精湛市的决策水平；还能够迅速提升酒店的治理水平。2数据库中储备过程源码（1）商品表插入CREATE PROCEDURE spb_insertsph varchar(50),spmc varchar(50),splx varchar(50),dj float

8、,kcl char(10),cs varchar(50)asinsert into 商品表 (商品号,商品名称,库存量,商品类型,厂商,单价)values (sph,spmc,kcl,splx,cs,dj)GO2商品表删除CREATE PROCEDURE spb_deletesph varchar(50),flag int outputasif exists(select *from 商品表 where 商品号=sph and 库存量=0)begindelete from 商品表 where 商品号=sph and 库存量=0set flag=0endelse set flag=1GO3 VB

9、前台程序设计源码（1）登陆界面源码Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()strsql = select * from 登录表 where 用户名= & Text1.Text & & and 密码= & Text2.Text & rs.Open strsql, cn, 1, 3If rs.EOF ThenMsgBox 用户名或密码错了, 32, 警告ElseForm5.ShowUnload MeEnd IfEnd SubPrivate Sub Command2_

10、Click()EndEnd SubPrivate Sub Image1_Click()End SubPrivate Sub 注册_Click()If Text1.Text = Or Text2.Text = ThenMsgBox 用户名和密码不能为空, 16 + 4, 警告ElseDim rs As New ADODB.Recordsetstr1 = select * from 登录表 where 用户名= & Text1.Text & rs.Open str1, cn, 1, 3rs.AddNewrs(用户名) = Text1.Textrs(密码) = Text2.Textrs.Update

11、MsgBox 注册成功, 64, 信息提示End IfEnd SubPrivate Sub Form_Load()cn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市治理cn.OpenEnd Sub2商品表界面源代码Public cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPrivate Sub Command1_Click()str1 = selec

12、t * from 商品表 where 商品号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF ThenMsgBox 该商品不存在Adodc1 mandType = adCmdTextAdodc1.RecordSource = str1Adodc1.RefreshElseText1.Text = rs(商品号)Text2.Text = rs(商品名称)Text3.Text = rs(库存量)Text4.Text = rs(商品类型)Text5.Text = rs(厂商)Text6.

13、Text = rs(单价)End IfEnd SubPrivate Sub Command2_Click()str1 = select * from 商品表 where 商品号= & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, cn, 1, 3If rs.EOF Thenrs.AddNewrs(商品号) = Text1.Textrs(商品名称) = Text2.Textrs(库存量) = Text3.Textrs(商品类型) = Text4.Textrs(厂商) = Text5.Textrs(单价) = Text6.

14、Textrs.UpdateMsgBox 数据添加成功, 64, 信息提示Adodc1 mandType = adCmdTextAdodc1.RecordSource = select * from 商品表Adodc1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = ElseMsgBox 该商品差不多存在了, 16, 警告End IfEnd SubPrivate Sub Command3_Click()Form5.ShowUnload MeEnd SubPrivate Sub Command4_Click()Dim rs As New ADODB.RecordsetDim rs1 A