数据库课设报告沈理工Word下载.docx
《数据库课设报告沈理工Word下载.docx》由会员分享，可在线阅读，更多相关《数据库课设报告沈理工Word下载.docx（15页珍藏版）》请在冰豆网上搜索。
主要功能是新增、修改、删除销售记录。
（4）．新商品入库登记以及库存查询：
主要功能是登记尚未进入库存的商品的初始库存数量，查询制定商品的库存数量，给出库存达到警戒数量的商品。
（5）．商品消费排行榜窗体：
按顺序分别显示当月商品的销售数量和销售金额排行榜。
（6）．商品销售统计：
给出各类商品的销售总额。
1.2系统层次图
图1.1系统层次图
第2章数据库设计
2.1需求分析
本系统运用VB6.0及SQLServer2008实现，拥有1个登录窗体、1个主窗体、
8个子窗体、2个数据环境设计器。
登录窗体可以登录到主窗体，点击主窗体的菜单按钮，可以选择具体功能。
1.系统设计管理：
包括商品目录管理、用户管理和退出，3项子菜单。
进销管理：
进销有2个子菜单，进货和销售。
2.数据查询：
数据查询包括：
查询旅游团信息、查询导游信息、查询游客信息。
3.库存管理：
直接跳入窗体中。
4.查询统计管理：
包含销售统计和商品销售排行
以上内容需要四个表分别是：
包含以下实体及其属性：
（1）．商品表（商品编号、分类、商品名称、规格、进货价、零售价）
（2）．进货表（进货时间、商品编号、进货数量、进货价格、进货地点）
（3）．销售表（商品编号、销售数量、销售单价、销售时间）
（4）．库存表（商品编号、月初库存、月末库存、本月销售、警戒库存）
（5）．用户表（用户名、密码）
2.2E-R模型
1.用户实体：
图2.1用户实体及其属性
2.3关系模型
本系统只有一个实体，管理员，管理员通过登录，使用各种功能。
2.4表结构设计
本系统在SQLServer2008数据库里共设计了5个数据表来记录数据：
商品表、进货表、销售表、库存表、用户表
1.用户表：
用户表（用户名、密码）
图2.2用户表
2.商品表：
商品表（商品编号、分类、商品名称、规格、进货价、零售价）
图2.3商品表
3.进货表：
进货表（进货时间、商品编号、进货数量、进货价格、进货地点）
图2.4进货表
4.销售表：
销售表（商品编号、销售数量、销售单价、销售时间）
图2.5销售表
5.库存表：
库存表（商品编号、月初库存、月末库存、本月销售、警戒库存）
图2.6库存表
以上图片包含以下实体及其属性：
以上表用以支持系统功能的实现，对系统各种操作表进行储存。
第3章系统各功能模块的详细设计
3.1主窗体
主窗体设计了一个菜单栏，包括四个功能系统设计管理，进销管理，库存管理、查询统计管理
图3.1系统主窗体
3.2登录模块
在正确输入用户表里的用户名以及对应的密码后，点击“登录”，才能进入主
窗体，否则会提示相关的警告信息；
按“取消”则退回系统界面。
图3.2用户登录窗体
主要代码：
PrivateSubCommand1_Click（）
DimstrAsString,stt1AsString
StaticmicountAsInteger
str="
Select*fromuserswhereuserid='
"
&
Text1&
"
'
Adodc1.RecordSource=str
Adodc1.Refresh
IfAdodc1.Recordset.EOFThen
MsgBox"
用户名错误，请重新输入！
vbExclamation,"
警告！
Text1.Text="
Text1.SetFocus
Else
IfAdodc1.Recordset.Fields（"
pwd"
）=Text2Then
Login1.Hide
MainForm.Show
stt1="
密码错误，请重新输入！
还有"
（5-micount）
stt1=stt1&
次机会"
MsgBoxstt1,vbExclamation,"
警告"
Text2.Text="
Text2.SetFocus
EndIf
EndIf
micount=micount+1
Ifmicount=6ThenUnloadMe
EndSub
3.3用户注册模块
本模块提供用户注册功能，并把文本框里的用户名、密码和姓名录入
登陆表里。
图3.3用户注册窗体
DimstrAsString
IfText1="
Then
MsgBox"
请输入用户名！
Text1.SetFocus
ExitSub
str="
select*fromuserswhereuserid='
Adodc1.RecordSource=str
Adodc1.Refresh
IfAdodc1.Recordset.BOF=FalseThen
用户名存在，请重新输入！
IfText2="
密码不能为空！
ElseIfText2<
>
Text3Then
密码不一致，请重新输入！
Text3.SetFocus
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"
userid"
）=Trim（Text1）
）=Trim（Text2）
Adodc1.Recordset.Update
Me.Hide
注册成功"
vbInformation,"
添加用户"
Login1.Show
3.4商品目录管理模块
本模块对商品目录进行新增修改删除表格显示灯操作。
图3.4商品目录管理窗体
主要操作：
添加ADODATA控件，设置odbc数据资源名称为szd，在记录源选项卡中选择命令类型为2-adcmdtable，表或储存过程名称设置为商品目录表。
PrivateSubcmdadd_Click（IndexAsInteger）
Text1（0）.Locked=False
Text2
（1）.Locked=False
Text3
（2）.Locked=False
Text4（3）.Locked=False
Text5（4）.Locked=False
cmdadd（8）.Enabled=False
cmdupdate（9）.Enabled=False
cmddel（10）.Enabled=False
cmdok（11）.Enabled=True
cmdesc（12）.Enabled=True
cmdfirst（0）.Enabled=False
cmdpre
（1）.Enabled=False
cmdnext
（2）.Enabled=False
cmdlast（3）.Enabled=False
Text1（0）.SetFocus
cmdok（11）.Caption="
确认添加"
Label6.Caption="
记录：
Adodc1.Recordset.AbsolutePosition&
/"
Adodc1.Recordset.RecordCount
PrivateSubcmddel_Click（IndexAsInteger）
X=MsgBox（"
确认要删除当前记录吗？
vbYesNo+vbQuestion,"
确认"
）
IfX=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
Label6.Caption="
PrivateSubcmdesc_Click（IndexAsInteger）
cmdfirst（0）.Enabled=True
cmdpre
（1）.Enabled=True
cmdnext
（2）.Enabled=True
cmdlast（3）.Enabled=True
cmdadd（8）.Enabled=True
cmdupdate（9）.Enabled=True
cmddel（10）.Enabled=True
cmdok（11）.Enabled=False
cmdesc（12）.Enabled=False
Text1（0）.Locked=True
Text2
（1）.Locked=True
Text3
（2）.Locked=True
Text4（3）.Locked=True
Text5（4）.Locked=True
3.5库存管理模块
本模块用于对新商品录入、库存查询。
查询主要实现的功能是：
●按商品编号查询该商品的库存量，与警戒库存进行对比。
图3.5旅游团信息查询窗体
PrivateSubcmdadd_Click（）
Adodc1.Recordset.AddNew
cmdadd.Enabled=False
cmdupdate.Enabled=False
cmddel.Enabled=False
cmdok.Enabled=True
cmdesc.Enabled=True
cmdsel.Enabled=False
cmdselesc.Enabled=False
cmdok.Caption="
PrivateSubcmddel_Click（）
PrivateSubcmdesc_Click（）
cmdadd.Enabled=True
cmdupdate.Enabled=True
cmddel.Enabled=True
cmdok.Enabled=False
cmdesc.Enabled=False
cmdsel.Enabled=True
PrivateSubcmdok_Click（）
goodsid"
）=Val（Text1）
mothend"
goodsout"
）=Trim（Text5）
metion"
）=Trim（Text3）
cmdadd.Enabled=True
参考文献
[1]刘志妩，张焕君，马秀丽等著.基于VB和SQL的数据库编程技术.
北京:
清华大学出版社.2008
[2]杨志强著.VisualBasic6.0程序设计教程.北京:
高等教育出版社.2008
[3]赵斯思著.VisualBasic数据库编程与实例.北京:
人民教育出版社.2009
升级会员 