数据库课设报告曹小聪.docx
《数据库课设报告曹小聪.docx》由会员分享，可在线阅读，更多相关《数据库课设报告曹小聪.docx（20页珍藏版）》请在冰豆网上搜索。
数据库课设报告曹小聪
一、需求分析
系统的研究背景
在科学技术日新月异的今天，计算机已逐步渗入各个领域，无论是学习，工作，还是娱乐都普及了计算机的使用，而随着网络的开通、并与Internet连接更让我们社会成为信息化的时代，人们不再需要浪费太多的时间去手工的获得信息，只要做在家中轻点几下鼠标不但能轻松获得各种信息，而且能够购买到自己需要的商品，既摆脱了时间和空间的限制又节约了大量的时间，因此熟练使用计算机及网络，已成为人们进入现代社会的必备技能。
商品销售管理系统正是在这种情况下诞生并逐渐发展起来的，它已成为我们进行商品交易中不可缺少的部分。
商品销售管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的数据库，而对于后者则要求应用程序功能完备,操作简单等。
本系统是在分析了现行商品管理中存在的问题的基础上，结合信息管理系统开发的概念、结构及系统开发的基本原理和方法，开发的一套商品销售管理系统。
根据实际情况，由目前各功能需求和公司里的情况而设计的这套系统。
全文共分为课题研究的意义、开发环境、系统的实现、性能测试与分析以及结束语等章节，详细地阐述了本系统开发的目的、过程。
商品销售管理系统是一个由人和计算机等组成的能够提供信息以支持一个组织机构内部的作业、管理、分析和决策职能的系统。
商品销售管理系统利用计算机的硬件和软件，手工规程、分析、计划、控制和决策用的模型，以及数据库对信息进行收集、传输、加工、保存、维护和使用。
因此商品销售管理系统是一个信息处理系统。
商品销售管理系统作为各项业务、技术、工作自动化及高水平管理的方法和模式,正在得到越来越广泛的应用。
早期的商品销售管理系统通常是以各单位为主体,独自进行开发和应用。
从技术上看,大体是以局域网或客户机/服务器模式组成应用系统平台,在操作系统和数据库管理系统的平台上开发应用软件系统。
但是,由于技术的发展和进步以及应用、管理和数据共享的需要等诸多原因,把分散开发且分布在各个地域的独立的管理信息系统互相连接起来,实现系统硬件、系统软件、应用软件及数据的共享,已经成为越来越迫切的任务。
系统功能需求分析说明
商品销售管理系统主要是为了实现对商品库存管理，基本信息管理，以及销售管理，具体而言，商品销售管理系统需要实现以下的需求：
第一,能够对商店所拥有的各种商品的基础信息进行维护和管理。
商品的基本信息包括：
商品编号、商品名称、计量单位、产地、单价、库存数量等。
可以对商品进行查询；销售员信息包括：
销售员编号、姓名、性别、出生日期、身份证号、联系电话、联系地址等，可以对销售员进行查询；客户信息包括：
客户编号、客户全称、客户地址等等。
第二,系统需要能够对商品信息进行添加、修改和删除，也可以按照一定的条件来进行查询，而且还需要随时掌握现有商品的数量。
第三，跟踪各种商品的销售信息，商品的销售信息包括：
商品名称、商品编号，规格、产地、单位，单价、销售数量、售出价格。
系统需要对销售信息进行添加、修改和删除，也可按照一定的条件进行查询，在添加销售信息时，不允许无效信息（如销售大于库存）的插入。
第四，系统根据需要能够对管理员进行进行添加，对管理员赋予一定的权限，对系统进行初始化；对系统了解帮助等。
第五，系统根据需要能够对商品进行销售开单，客户结款、退货统计，销售汇总销售查询、退货查询、库存查询等。
第六，基于安全性的考虑，本系统还提供一个管理员登录的功能。
功能的划分
1.输入功能
客户输入要进入的系统（如销售计价系统），通过用户名和密码认证，进入相应系统，执行相关操作。
2.输出功能
根据客户输入进入相应系统，对相关操作执行后输出结果。
3.查询功能
能根据用户需要查询相关信息
4.更新功能
不需用户动手，能进行自动更新信息与功能
5.生成报表功能
能根据需要，自动生成报表
6.身份验证功能
为确保信息安全性，在进入相应系统时需进行身份验证
数据结构的形成
针对销售的一般需求，通过对商品管理工作过程的内容和数据流程分析，设计得到如下的数据项和数据结构：
客户信息，包括的数据项有：
客户编号、客户全称、客户简称、客户地址、开户银行、应收金额。
商品信息：
包括的数据项有：
商品编号、商品名称，规格、产地、单价、数量、库存数量。
销售员信息：
包括的数据项有：
销售员编号、姓名、性别、身份证号、联系电话、联系地址
环境：
奔腾以上计算机，装有WINDOWS或WINDOWSNT/XP、SQLSERVER2005、VisualBasic6.0。
二、概念设计
商品ER图：
库存数量
客户ER图：
客户编号
客户地址
客户全称
客户
电话
应收金额
销售员ER图：
姓名
销售员编号
身份证号
性别
销售员
地址
电话
统计查询ER图：
包含子功能：
销售查询，销售退货查询，应收款查询，库存查询
E-R图：
管理员
N
查询
4
1111
应收款查询
库存查询
退货查询
销售查询
1111
销售信息表
商品信息表
销售信息表
销售信息表
销售的E-R图:
对应
1
m
11
n
1
转换为对应的关系模式为：
商品（商品编号、商品名称、规格、产地、库存数）
销售（客户编号、商品号、销售数量、单价）
客户（客户编号、客户全称、客户简称、客户地址、开户银行、应收金额
）
销售员（销售员编号、姓名、性别、身份证号、联系电话、联系地址
）
库存商品（商品编号、商品名称、规格、产地、库存数量）
商品信息（商品编号、商品名称、商品价格、商品的出产地、）
三、逻辑设计
数据库逻辑结构设计
商品信息表（Commodity）
列名
数据类型
是否主键
是否为空
商品编号
varchar（5）
PM
商品简称
Varchar（20）
商品名称
varchar（100）
单价
decimal（9,2）
产地
varchar（50）
单位
Varchar（6）
库存数量
numeric（18,0）
销售退货信息表（Return1）
列名
数据类型
是否主键
是否为空
商品名称
Varchar（100）
PM
商品编号
Varchar（5）
F
规格
Varchar（40）
产地
Varchar（50）
单位
Varchar（10）
单价
money
数量
numeric（18,0）
金额
money
客户全称
Varchar（50）
销售员
Varchar（10）
日期
datetime
供应商信息表（Supplier）
列名
数据类型
是否主键
是否为空
客户编号
Varchar（30）
PM
客户全称
Varchar（100）
简称
Varchar（30）
电话
Varchar（20）
地址
Varchar（30）
联系人
Varchar（20）
联系人电话
Varchar（20）
银行账号
Varchar（20）
邮箱
Varchar（20）
销售信息表（Sell）
列名
数据类型
是否主键
是否为空
销售编号
varchar（10）
PM
商品编号
varchar（5）
F
数量
Numeric（18,0）
日期
datetime
票号
varchar（30）
销售员
varchar（10）
操作员信息表（Stock）
列名
数据类型
是否主键
是否为空
操作员编号
Varchar（10）
PM
操作员名称
Varchar（10）
F
密码
Varchar（10）
客户账款信息表（Purchase）
列名
数据类型
是否主键
是否为空
日期
Datetime
时间
Datetime
数量
Varchar（10）
单价
money
客户编号
Varchar（10）
F
票号
Varchar（30）
金额小计
money
收款合计
money
四、整体的模块图
启动主程序界面
登陆
帮助
销售报表
系统设置
查询统计
日常业务
基础信息管理
销售退货
客户销售汇总表
销售信息管理
帮助
销售员信息管理
客户信息管理
销售开单
销售收款
销售查询
销售退货查询
应收款查询
库存商品查询
客户信息管理
商品销售汇总表
销售员信息管理
销售员销售汇总表
五、分模块图
客户信息管理
功能描述：
基础信息管理主要根据商品信息表、销售员信息表客户信息表对基础信息进行增加，删除，修改等功能。
销售退货
功能描述：
日常业务主要是根据销售信息表及商品信息表进行销售开单，收款和客户退货等业务。
这是商品销售管理系统中作重要的模块，销售开单是销售的第一个步骤。
销售员销售汇总表
功能描述：
销售报表是提供管理员根据不同条件对客户的销售进行汇总，对不同商品进行汇总、对每个销售员进行销售汇总，汇总表是系统的基本信息表
查询统计
库存商品查询
应收款查询
销售退货查询
销售查询
功能描述：
查询统计主要是根据不同条件进行销售查询，并显示查询结果，对销售退货进行查询，还有应收款查询，库存商品查询。
系统设置
客户信息管理
销售员信息管理
功能描述：
系统设置主要是对销售员及客户的信息进行添加，删除和修改。
帮助
帮助
功能描述：
帮助主要是介绍商品销售管理系统的基本功能和操作。
六、查询统计模块和帮助模块功能的具体实现
系统流程图：
否
界面设计及程序设计
销售查询界面：
代码实现：
PrivateSubForm_Activate（）
'向combo1添加查询项目列表
Combo1.AddItem（"商品编号"）
Combo1.AddItem（"商品名称"）
Combo1.AddItem（"客户全称"）
Combo1.AddItem（"票号"）
Combo1.ListIndex=1
'向combo2中添加查询条件列表
Combo2.AddItem（"like"）
Combo2.AddItem（"="）
Combo2.ListIndex=0
'汇总记录、数量、金额
Adodc2.RecordSource="selectcount（*）as品种,sum（数量）as数量1,sum（金额）as金额1from销售信息表"
Adodc2.Refresh
IfAdodc2.Recordset.Fields（0）<>""ThenLabpz.Caption=Adodc2.Recordset.Fields（0）ElseLabpz.Caption=0
IfAdodc2.Recordset.Fields
（1）<>""ThenLabsl.Caption=Adodc2.Recordset.Fields
（1）ElseLabsl.Caption=0
IfAdodc2.Recordset.Fields
（2）<>""ThenLabje.Caption=Format（Adodc2.Recordset.Fields
（2）,"0.00"）ElseLabje.Caption="0.00"
DTP1.Value=Date-30
DTP2.Value=Date
EndSub
PrivateSubForm_Unload（CancelAsInteger）
frm_main.Enabled=True
EndSub
PrivateSubComfind_Click（）'查询统计商品销售信息
IfCheck1（0）.Value=0AndCheck1
（1）.Value=1Then
SelectCaseCombo2.Text
CaseIs="like"
Adodc1.RecordSource="select*from销售信息表where（销售信息表."&Combo1.Text&"like'%'+'"+Text1.Text+"'+'%'）"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售信息表where（销售信息表."&Combo1.Text&"like+'%'+'"+Text1.Text+"'+'%'）"
Adodc2.Refresh
CaseIs="="
Adodc1.RecordSource="select*from销售信息表where（销售信息表."&Combo1.Text&"='"+Text1.Text+"'）"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售信息表where（销售信息表."&Combo1.Text&"='"+Text1.Text+"'）"
Adodc2.Refresh
EndSelect
EndIf
IfCheck1（0）.Value=1AndCheck1
（1）.Value=0Then
Adodc1.RecordSource="select*from销售信息表where销售信息表.日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售信息表where销售信息表.日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'"
Adodc2.Refresh
EndIf
IfCheck1（0）.Value=1AndCheck1
（1）.Value=1Then
SelectCaseCombo2.Text
CaseIs="like"
Adodc1.RecordSource="select*from销售信息表where（销售信息表."&Combo1.Text&"like'%'+'"+Text1.Text+"'+'%'and销售信息表.日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'）"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售信息表where（销售信息表."&Combo1.Text&"like+'%'+'"+Text1.Text+"'+'%'and销售信息表.日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'）"
Adodc2.Refresh
CaseIs="="
Adodc1.RecordSource="select*from销售信息表where（销售信息表."&Combo1.Text&"='"+Text1.Text+"'and销售信息表.日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'）"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售信息表where（销售信息表."&Combo1.Text&"='"+Text1.Text+"'and销售信息表.日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'）"
Adodc2.Refresh
EndSelect
EndIf
IfAdodc2.Recordset.Fields（0）<>""ThenLabpz.Caption=Adodc2.Recordset.Fields（0）ElseLabpz.Caption=0
IfAdodc2.Recordset.Fields
（1）<>""ThenLabsl.Caption=Adodc2.Recordset.Fields
（1）ElseLabsl.Caption=0
IfAdodc2.Recordset.Fields
（2）<>""ThenLabje.Caption=Format（Adodc2.Recordset.Fields
（2）,"0.00"）ElseLabje.Caption="0.00"
EndSub
PrivateSubComend_Click（）
CallCmdEnd（Me）
EndSub
销售退货查询：
代码实现：
PrivateSubForm_Activate（）
'向combo1添加查询项目列表
Combo1.AddItem（"商品编号"）
Combo1.AddItem（"商品名称"）
Combo1.AddItem（"客户全称"）
Combo1.AddItem（"票号"）
Combo1.ListIndex=1
'向combo2中添加查询条件列表
Combo2.AddItem（"like"）
Combo2.AddItem（"="）
Combo2.ListIndex=0
'汇总记录、数量、金额
Adodc2.RecordSource="selectcount（*）as品种,sum（数量）as数量1,sum（金额）as金额1from销售退货信息表"
Adodc2.Refresh
IfAdodc2.Recordset.Fields（0）<>""ThenLabpz.Caption=Adodc2.Recordset.Fields（0）ElseLabpz.Caption=0
IfAdodc2.Recordset.Fields
（1）<>""ThenLabsl.Caption=Adodc2.Recordset.Fields
（1）ElseLabsl.Caption=0
IfAdodc2.Recordset.Fields
（2）<>""ThenLabje.Caption=Format（Adodc2.Recordset.Fields
（2）,"0.00"）ElseLabje.Caption="0.00"
'Me.Caption=Me.Caption&"操作员：
"&frm_main.St1.Panels（3）.Text
DTP1.Value=Date-30
DTP2.Value=Date
EndSub
PrivateSubForm_Unload（CancelAsInteger）
frm_main.Enabled=True
EndSub
PrivateSubComfind_Click（）'查询统计退货信息
IfCheck1（0）.Value=0AndCheck1
（1）.Value=1Then
SelectCaseCombo2.Text
CaseIs="like"
Adodc1.RecordSource="select*from销售退货信息表where（销售退货信息表."&Combo1.Text&"like'%'+'"+Text1.Text+"'+'%'）"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售退货信息表where（销售退货信息表."&Combo1.Text&"like+'%'+'"+Text1.Text+"'+'%'）"
Adodc2.Refresh
CaseIs="="
Adodc1.RecordSource="select*from销售退货信息表where（销售退货信息表."&Combo1.Text&"='"+Text1.Text+"'）"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售退货信息表where（销售退货信息表."&Combo1.Text&"='"+Text1.Text+"'）"
Adodc2.Refresh
EndSelect
EndIf
IfCheck1（0）.Value=1AndCheck1
（1）.Value=0Then
Adodc1.RecordSource="select*from销售退货信息表where销售退货信息表.退货日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'"
Adodc1.Refresh
Adodc2.RecordSource="selectcount（*）aspz,sum（数量）as数量1,sum（金额）as金额1from销售退货信息表where销售退货信息表.退货日期between'"+Str（DTP1.Value）+"'AND'"+Str（DTP2.Value）+"'"
Adodc2.Refresh
EndIf
IfCheck1（0）.Value=1AndCheck1
（1）.Value=1Then
Selec
升级会员 