宠物用品销售系统资料

2014-2015学年第一学期《数据库原理》

课程设计报告

题目：宠物用品销售系统

专业：计算机科学与技术

班级：12（1）

姓名：

指导教师：

成绩：

计算机与信息工程系

2014年12月1日

目录

1 设计内容及要求 (1)

1.1 设计内容 (1)

1.2 设计要求 (1)

2 需求设计 (1)

2.1 功能描述 (1)

2.2 系统数据流图 (2)

2.3 数据字典 (3)

3 概念设计 (5)

3.1 概念结构设计的方法 (5)

3.2 概念结构设计的步骤 (5)

3.3 数据抽象与E-R图设计 (5)

4 逻辑设计 (7)

4.1 E-R图向关系模型的转换 (7)

4.2 关系模式 (7)

4.3 数据库的结构 (7)

5 物理实施 (9)

5.1 数据库中的表 (9)

5.2 数据库中索引的建立 (11)

5.3 数据库中视图的建立 (12)

6 管理模块 (12)

7 参考文献 (14)

附录A 管理模块部分代码 (15)

宠物用品销售系统

1设计内容及要求

1.1 设计内容

随着人们日常生活的丰富多彩，人们对新事物的不断追求，使得各种各样的个性宠物不断出现。由于这一发展驱趋势，提供给人们各个种类宠物的宠物店则如雨后春笋般涌现。

本系统专门为实体宠物店设计，主要包括了宠物用品销售、宠物店客户管理、宠物货物管理、宠物用品进货管理、宠物用品提供商管理等多种业务管理,解决宠物店进销存繁琐问题，建立丰富的宠物用品资料，顾客资料；还包含了丰富的营业销售汇总报表，让宠物店营业情况一目了然，最终方便管理以及扩大销售。

1.2 设计要求

可对宠物用品类别进行增删改查操作；

可对供货商进行增删改查操作；

可对进货单进行增删改查操作；

可记录每一笔交易；

可对销售情况进行查询统计，如根据月份年份进行销售额，利润额等进行查询统计；

可对某种商品的销售情况进行查询统计；

可对库存情况根据不同种类进行查询统计。

2需求设计

2.1 功能描述

（1）管理员和收银员都可先注册然后再进行相关操作。

（2）管理员可实行客户管理、宠物用品管理、销售管理、供应商管理、进货管理等操作。对客户信息，货品信息，供应商信息进行相应的添加、修改、删除操作。

（3）收银员可实行对客户信息查询、库存管理、销售记录管理等操作。

2.2 系统数据流图

顶层数据流图

图2.1 宠物用品销售系统顶层数据流图

二层数据流图

图2.2 宠物用品销售系统第二层数据流图

2.3 数据字典

3概念设计

3.1 概念结构设计的方法

设计概念结构通常有四类方法：自顶向下，自底向上，逐渐扩张以及混合策略。本教学系统采用的是自底向上的方法。即首先定义全局的概念结构的框架，然后逐步细化。根据自顶向上地进行需求分析然后再自底上上地进行概念设计。

3.2 概念结构设计的步骤

概念结构的设计可分为两步：第一步是抽象数据并设计局部视图。第二步是集成局部视图，得到全局的概念结构。

3.3 数据抽象与E-R图设计

按照宠物用品销售系统数据字典，设计E-R 图。

图3.1 客户信息实体E-R图

图3.2 供应商信息实体E-R图

图3.3 宠物用品销售系统总体概念结构E-R图

4逻辑设计

4.1 E-R图向关系模型的转换

将图3.1 总体概念结构E-R图转化成关系模型。

客户（客户编号，姓名，电话，城市，住址）主键：客户编号

货品（货品编号，货品名，类别，进价，售价，供应商，重量，库存

量）主键：货品编号

销售（销售编号，客户编号，货品编号，货品名，售价，销售数量，总额，销售日期）主键：销售编号外键：客户编号，货品编号

厂商（厂家编号，厂名，生产产品，电话，地址）主键：厂家编号

进货（进货编号，厂商编号，货品编号，货品名，进价，售价，进价数量，总额，进货日期）主键：进货编号外键：厂商编号，货品编号

管理员（用户名密码）主键：用户名

4.2 关系模式

客户（客户编号姓名电话城市住址）

货品（货品编号货品名类别进价售价供应商重量库

存量）

销售（销售编号客户编号货品编号货品名售价销售数

量总额销售日期）

厂商（厂家编号厂名生产产品电话地址）

进货（进货编号厂商编号货品编号货品名进价售价

进价数量总额进货日期）

登录（用户名密码）

其中，波浪线为主键，直线为外键。

以上产生的范式均是三范式，所以基本满足了设计需要。

4.3 数据库的结构

5物理实施

5.1 数据库中的表

图5.1 宠物用品销售系统客户信息表（CUSTOMER_INFO）

图5.2 宠物用品销售系统货品信息表（GOOD_INFO）

图5.3 宠物用品销售系统销售信息表（SALE_INFO）

图5.4 宠物用品销售系统供应厂商信息表（VENDOR_INFO）

图5.5 宠物用品销售系统进货信息表（REPLENISH _INFO）

图5.6 宠物用品销售系统管理员信息表（LOGIN_INFO）

5.2 数据库中索引的建立

CREATE CLUSETER INDEX Cuscno ON CUSTOMER_INFO(Cno)

/*CUSTOMER_INFO中建立的索引*/

CREATE UNIQUE INDEX Gogno ON GOOD_INFO(Gno)

/*GOOD_INFO中建立的索引*/

CREATE CLUSETER INDEX Salsno ON SALE_INFO(Sno)

/*SALE_INFO中建立的索引*/

CREATE UNIQUE INDEX Venvnum ON VENDOR_INFO(Vnumber)

/*VENDOR_INFO中建立的索引*/

CREATE CLUSETER INDEX Reprnum ON REPLENLISH_INFO(Rnum)

/*REPLENLISH_INFO中建立的索引*/

5.3 数据库中视图的建立

CREATE VIEW SALE_SIMPLE

AS

SELECT Sname,Sal,Scou,Samount,Sdate

FROM SALE_INFO

CREATE VIEW GOOD_SIMPLE

AS

SELECT Gcat,Gsup,Gwei,Ginv

FROM GOOD_INFO

6管理模块

图6.1 销售情况查询

图6.2 根据销售日期查询销售记录

图6.3 添加供应厂商信息

图6.4 宠物用品店货品信息展示界面

7参考文献

[1]施伯乐,丁宝康,汪卫.数据库系统教程(第3版).2008

[2]徐洁磐,王银根.数据库系统引论.1996

[3]萨师煊,王珊.数据库系统概论.2000

[4]萨师煊.实用数据库系统.1990

[5]冯友才.数据库基础.1993

[6]郑振楣,于戈,郭敏.分布式数据库.1998

[7]Raghu Ramakrishnan.数据库管理系统（第2版）.2002

[8]徐洁磐.面向对象数据库系统及其应用.2003

[9]汤庸,叶小平.数据库理论及应用基础.2000

[10]Ramez Elmasri.数据库系统基础（第三版）.2002

附录A 管理模块部分代码

管理员登录页面

Private Sub customer_Click()

Unload Me

show_product.Show

End Sub

Private Sub manager_Click()

Unload Me

user_login.Show

End Sub

Private Sub exit_Click()

Unload Me

initialFrame.Show

End Sub

Private Sub login_Click()

Set cn1 = New ADODB.Connection

Set rs1 = New ADODB.Recordset

Set cm1 = New https://www.360docs.net/doc/ab15319633.html,mand

Dim strcnn As String

strcnn = "driver={sql server};server=(local);database=CW;"

cn1.Open strcnn

cm1.ActiveConnection = cn1

strsql = "select * from managers where mngId='" + idField.Text + "'and psd='" + psdField.Text + "'" Set rs1 = cn1.Execute(strsql)

If rs1.EOF = False Then

mngMainFrame.Show

Unload Me

Else

MsgBox ("用户名或密码错误,请重新登录!")

End If

End Sub

Private Sub register_Click()

Unload Me

mngRegister.Show

End Sub

管理主界面

Private Sub customer_Click()

Unload Me

cusFrame.Show

End Sub

Private Sub inport_Click()

Unload Me

orderFrame.Show

End Sub

Private Sub product_Click()

Unload Me

productFrame.Show

End Sub

Private Sub provider_Click() Unload Me

proFrame.Show

End Sub

Private Sub return_Click() Unload Me managerFrame.Show

End Sub

Private Sub sale_Click() Unload Me

saleFrame.Show

End Sub

客户信息管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me mngMainFrame.Show

End Sub

货品信息管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me mngMainFrame.Show

End Sub

销售信息管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete

End Sub

Private Sub return_Click() Unload Me mngMainFrame.Show

End Sub

厂商信息管理页面

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me mngMainFrame.Show

End Sub

Private Sub Titel_Click()

End Sub

进货信息管理页面

Private Sub DataGrid1_Click() 'Set DataGrid1.DataSource = rs End Sub

Private Sub delete_Click() Me.Adodc1.Recordset.delete End Sub

Private Sub return_Click() Unload Me mngMainFrame.Show

End Sub