SQLServer酒店管理系统课程设计报告.docx
《SQLServer酒店管理系统课程设计报告.docx》由会员分享，可在线阅读，更多相关《SQLServer酒店管理系统课程设计报告.docx（18页珍藏版）》请在冰豆网上搜索。
SQLServer酒店管理系统课程设计报告
SQLServer酒店管理系统课程设计报告
数据库应用技术课程设计
设计说明书
中环酒店仓库治理系统
起止日期：
2020年12月27日至2020年12月31日
学生姓名
班级
成绩
指导教师（签字）
运算机工程系
2010年12月27日
课程设计任务书
2020—2020学年第1学期
运算机工程系专业班级
课程设计名称：
数据库应用技术课程设
设计题目：
中环酒店仓库治理系统
完成期限：
自2020年12月27日至2020年12月31日共1周
设计依据、要求及要紧内容〔可另加附页〕：
设计依据：
依照«数据库应用技术课程设计大纲»。
要求：
（1）、把握数据库设计（包括六个时期）的差不多方法
（2）、熟练把握SQLServer数据库治理系统
（3）、了解MIS系统的常用的开发模式
（4）、把握一种MIS开发工具（ASP，PB，VC++，Delphi，VB.NET，C#等）
（5）、具体设计与实现一个治理信息系统（MIS）
要紧内容：
严格遵循软件开发的规范与信息系统的开发规程，整个设计过程严格按如下的几个时期要求执行：
（1）、需求分析时期
（2）、数据库概念结构设计时期
（3）、数据库逻辑结构设计时期
（4）、数据库物理设计时期
（5）、数据库应用系统的开发（数据库前端应用开发）
（6）、数据库的实施与爱护
指导教师〔签字〕：
教研室主任〔签字〕：
批准日期：
年月日
课程设计进度打算表
序号
起止日期
打算完成内容
实际完成情形
检查日期
检查人签名
1
12月27日中午至12月27日下午
完成课程设计的说明书、任务书。
2
12月28日上午至12月28日中午
需求分析，了解与分析用户需求，规定打算。
3
12月28日中午至12月29日中午
数据库的结构设计，系统总体功能模块图要求，完成数据库各关系模式的创建。
4
12月29日下午至12月30日上午
编写应用程序，实现各个模块的功能，将各个模块集成，实现一个完整的数据库应用系统。
5
12月30日下午至12月31日中午
数据库的载入，进行应用程序的调试及试运行。
6
12月31日中午只12月31日下午
完成后的爱护和设计报告。
成果提交及课程答辩
7
8
9
指导教师批准，并签名：
2020年月日
摘要
仓库治理系统是针对社会中一些大中型仓库治理使用，从消费者的角度来说，结账时应该准确和快速，如何说时刻就金钱。
由于传统的仓库治理给治理员带来专门多不便，针对这方面的缺陷，开发那个系统能够方便快捷查出商品信息情形，每天的售货情形。
方便了经营方的商品治理、人员治理。
大大提高了仓库治理水平。
进而加速了社会的进展速度，提高了人民的生活水平。
本系统还能够给仓库和顾客节约更多时刻，加快了酒店的运转速度。
关键词：
VB；小型超市收银治理系统；SQLServer2000
第一章产品开发背景
当今，酒店、饭店差不多随处可见，而且集中众多的公共厂所，酒店仓库治理问题也成为了酒店治理者劳心费事的重要内容，为了方便酒店治理者使用，提高办事效率，就设计出一套应用简单，易于操作的后台治理系统，实现对酒店每日进货的治理。
第二章系统需求分析
系统要紧功能：
本项目是仓库治理系统，其中，要紧实现：
仓库物品信息的添加修改查询治理，物资统计查询,供应商添加删除的治理。
方便工作人员进行销售和营业额的统计，也使治理员更快捷的治理酒店仓库的运作。
项目基于SQLserver2000平台，是一个针对后台治理的系统，应用多层框架技术来实现的。
整体数据流图：
第三章系统总体设计
第四章数据库设计
1数据库概念结构设计及E-R图
酒店治理系统是一个针对酒店治理的一个简单系统。
数据库中要紧含有两张表，登陆表中字段有用户名，密码。
商品表中字段有商品号、商品名称、单价、商品类型、库存量、厂商。
2登录表E-R图
3商品表E-R图
4各实体E-R图
5逻辑结构设计
6商品表中的实时数据
7登陆表中的实时数据
8物理设计
选择实施环境，即选择SQLServer2000作为本信息系统的数据库治理系统。
第五章系统详细设计
1功能需要
为了提高物品治理的水平和工作效率，尽可能杜绝商品流通中各环节中可能显现的资金流失不明现象，商品进销存领域迫切需要引入信息系统来加以治理。
而商品销售治理系统是当前应用于酒店等治理系统的典型代表。
本组设计的超市销售治理系统要紧完成的功能有：
商品差不多信息爱护，以及这一系列过程中涉及商品的数据修改、查询统计、删除等多种操作。
此外，ＡＤＯ具有专门多的优点，其中包括易于使用，熟悉的界面，高严谨及较低的内存空间战胜。
本系统的开发使用的是ＡＤＯ方式来开发数据库。
要使用这种访问方式，必须在ＶＢ工程里面引用MicrosoftActiveXDataObjects库。
使用本系统大大提精湛市的运作效率；通过全面的信息采集和处理，辅助提精湛市的决策水平；还能够迅速提升酒店的治理水平。
2数据库中储备过程源码
（1）商品表插入
CREATEPROCEDUREspb_insert
@sphvarchar（50）,@spmcvarchar（50）,@splxvarchar（50）,@djfloat,@kclchar（10）,@csvarchar（50）
as
insertinto商品表（商品号,商品名称,库存量,商品类型,厂商,单价）
values（@sph,@spmc,@kcl,@splx,@cs,@dj）
GO
〔2〕商品表删除
CREATEPROCEDUREspb_delete
@sphvarchar（50）,@flagintoutput
as
ifexists（select*from商品表where商品号=@sphand库存量=0）
begin
deletefrom商品表where商品号=@sphand库存量=0
set@flag=0
end
elseset@flag=1
GO
3VB前台程序设计源码
（1）登陆界面源码
DimcnAsNewADODB.Connection
DimrsAsNewADODB.Recordset
PrivateSubCommand1_Click（）
strsql="select*from登录表where用户名='"&Text1.Text&"'"&"and密码='"&Text2.Text&"'"
rs.Openstrsql,cn,1,3
Ifrs.EOFThen
MsgBox"用户名或密码错了",32,"警告"
Else
Form5.Show
UnloadMe
EndIf
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubImage1_Click（）
EndSub
PrivateSub注册_Click（）
IfText1.Text=""OrText2.Text=""Then
MsgBox"用户名和密码不能为空",16+4,"警告"
Else
DimrsAsNewADODB.Recordset
str1="select*from登录表where用户名='"&Text1.Text&"'"
rs.Openstr1,cn,1,3
rs.AddNew
rs（"用户名"）=Text1.Text
rs（"密码"）=Text2.Text
rs.Update
MsgBox"注册成功",64,"信息提示"
EndIf
EndSub
PrivateSubForm_Load（）
cn.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=超市治理"
cn.Open
EndSub
〔2〕商品表界面源代码
PubliccnAsNewADODB.Connection
PublicrsAsNewADODB.Recordset
PrivateSubCommand1_Click（）
str1="select*from商品表where商品号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
MsgBox"该商品不存在"
Adodc1mandType=adCmdText
Adodc1.RecordSource=str1
Adodc1.Refresh
Else
Text1.Text=rs（"商品号"）
Text2.Text=rs（"商品名称"）
Text3.Text=rs（"库存量"）
Text4.Text=rs（"商品类型"）
Text5.Text=rs（"厂商"）
Text6.Text=rs（"单价"）
EndIf
EndSub
PrivateSubCommand2_Click（）
str1="select*from商品表where商品号='"&Text1.Text&"'"
Ifrs.State=1Then
rs.Close
EndIf
rs.Openstr1,cn,1,3
Ifrs.EOFThen
rs.AddNew
rs（"商品号"）=Text1.Text
rs（"商品名称"）=Text2.Text
rs（"库存量"）=Text3.Text
rs（"商品类型"）=Text4.Text
rs（"厂商"）=Text5.Text
rs（"单价"）=Text6.Text
rs.Update
MsgBox"数据添加成功",64,"信息提示"
Adodc1mandType=adCmdText
Adodc1.RecordSource="select*from商品表"
Adodc1.Refresh
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
Text5.Text=""
Text6.Text=""
Else
MsgBox"该商品差不多存在了",16,"警告"
EndIf
EndSub
PrivateSubCommand3_Click（）
Form5.Show
UnloadMe
EndSub
PrivateSubCommand4_Click（）
DimrsAsNewADODB.Recordset
Dimrs1A
升级会员 