服装专卖店管理系统设计文档(1).docx

精品文档就在这里
-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有--------------
--------------------------------------------------------------------------------------------------------------------------------------------

服装专卖店管理系统设计文档
一. 系统目标
本系统支持普通顾客及会员与本服装专卖店进行服装买卖交易，同时本店内管理层人员可以进行对店内各组织严密的管理工作和对普通顾客及会员简洁便利的服务。
二．需求分析
1.业务需求
该系统主要有4类用户角色：普通顾客，会员，管理层人员，管理员。他们各自的主要业务处理需求如下：
① .普通顾客可以依据本管理系统在本店进行服装选购（如在新服饰入库窗口根据新到货的服装款式，面料，颜色，尺寸，价格信息进行筛选；也可根据服装分类窗口预先浏览服装图片进行筛选；最后选购产品之后还可进入顾客评价窗口对本店进行综合评价）。
② .本店会员可以享受本店独有的打折优惠活动（如在会员入口窗口进行登录后，在综合信息界面可以注册会员，选购服装，并进行折扣计算）
③ 管理层人员可以对店内各组织进行管理以及完成与顾客会员的买卖交易以及售后互动活动（如在本店情况表对最近店面销售情况进行分析后可以调整本店的销售及管理战略；根据员工基本表可以对本店员工进行数字化管理；根据财务调整表可以辅助管理人员依据店内资金现状合理进行资金周转；根据销售入库表可以准确得知本店服装库存现状合理进行货物调整）
④ 管理员可以登录本店服装管理系统管理会员注册，和店内各相关信息查看以及更新操作。
2.数据处理数据处理需求
系统涉及的数据源有店员，会员，普通顾客，服装。店员情况表、财务调整表、服饰入库表、服装分类表、服装价格表、员工基本表等。结合业务处理需求，系统数据一层流程图如下：

三、系统总体设计
1. 系统技术方案
前台开发工具：面向所有服装专卖店均采用C/S应用程序。
后台数据库采用Microsoft SQL Server 2005企业版。
2. 系统功能结构
各角色详细功能如表1所示
表1 服装专卖店管理系统主要功能说明
用户主要功能
店员
会员
普通会员
管理员
主要操作
更新查看店里的综合信息并完成会员注册等
查看自己的购买记录，并获得用户优惠、评价等
对店里的情况以及服装等进行评价
维护修改系统
服装管理
入库销售打折等业务
销售购买
销售购买
无
系统管理
无
无
无
维护信息
数据库信息管理
更新
无
无
维护信息

四、 数据库设计
1. 数据库概念设计
系统主要实体有店员工，会员顾客，系统，普通顾客，他们分别通过“查看”、“评价”、“管理”建立联系，分析各实体属性，建立实体联系模型的E-R图如图2所示
服装
评价
顾客
专卖店
销售
员工
雇佣
从属
分类
姓名
性别
消费习惯
编号
地址
经营品种
工号
姓名
级别品种
n
1
m
n
m
n
1
n

图2 ：E-R图

2. 数据库逻辑设计
①将数据库概念模式图转化为关系模式：
本店情况表（店销售排名；店评价水平；店员工排名；店投入水平）
财务调整表（月份；盈利情况；财务补给；顾客取向）
服饰入库表（服装类型；尺码；颜色；面料；价格信息；折扣；使用人群；折扣价）
服装分类表（服装类型；适合人群；主色调；面料）
会员信息表（姓名；性别；年龄；联系电话；联系QQ；联系地址；）
销售库存表（服饰样式；库存量；近七天卖出；近七天进货；）
顾客评价表（用户名；店员服务态度；服装款式质量；店面装横情况）
员工基本表（员工编号；员工姓名；目前职务；基本工资）
顾客回馈表（月份；顾客满意度；顾客消费度；顾客光顾度；）
②数据库的关系图如图3所示

3. 数据库物理设计
①下面给出SQL Sever下的实验室设备管理数据库物理设计的关系模型设计、完整性约束设计
A．本店情况表，用于查看更新店里的基本信息，如表1所示。
表1 本店情况表

字段名称
字段说明
类型定义
属性定义
索引
店销售排名
店销售排名
Varchar（10）
Not null
√
店评价水平
店评价水平
Varchar（10）
Not null

店员工排名
店员工排名
Varchar（10）
Not null

店投入水平
店投入水平
Varchar（10）
Not null

B．财务调整表，用于存储财务调整基本信息，如表2所示
表2 财务调整表

字段名称
字段说明
类型定义
属性定义
索引
月份
月份
Varchar（10）
Not null
√
盈利情况
盈利情况
Varchar（10）
Not null

财务补给
财务补给
Varchar（10）
Not null

顾客取向
顾客取向
Varchar（10）
Not null

C．服饰入库表，用于存储服饰的基本信息，如表3所示
表3 服饰入库表
字段名称
字段说明
类型定义
属性定义
索引
服装类型
服装类型
Varchar（10
Not null
√
尺码
尺码
Varchar（10）
Not null
√
颜色
颜色
Varchar（10）
Not null

面料
面料
Varchar（10）
Not null

价格信息
价格信息
Varchar（10）
Not null

折扣
折扣
Varchar（10）
Not null

使用人群
使用人群
Varchar（10）
Not null

进货价
进货价
Varchar（10）
Not null

D．服装类别表，用于服装类别的基本信息，如表4：
表4 服装分类表
字段名称
字段说明
类型定义
属性定义
索引
服装类别
服装类别
Varchar（10）
Not null
√
适合人群
适合人群
Varchar（10）
Not null
√
主色调
主色调
Varchar（10）
Not null

面料
面料
Varchar（10）
Not null

E．会员信息表，用于存储会员信息的基本情况，如表5所示
表5 会员信息表
字段名称
字段说明
字段类型
属性定义
姓名
姓名
Varchar（10）
Not null
性别
性别
Varchar（10）
Not null
年龄
年龄
Varchar（10）
Not null
联系电话
联系电话
Varchar（10）
Not null
联系QQ
联系QQ
Varchar（10）
Not null
用户地址
用户地址
Varchar（10）
Not null

F．销售库存表，用于存储销售还有库存情况的基本信息，如表6所示
表6 销售库存表
字段名称
字段说明
字段类型
属性定义
索引
服饰样式
服饰样式
Varchar（10）
Not null
√
库存量
库存量
Varchar（10）
Not null

近七天卖出
近七天卖出
Varchar（10）
Not null

近七天进货
近七天进货
Varchar（10）
Not null

G．顾客评价表，用于顾客对本店情况的评价信息，如表7所示
表7 l顾客评价表
字段名称
字段说明
字段类型
属性定义
索引
用户名
用户名
Varchar（10）
Not null
√
店员服务态度
店员服务态度
Varchar（10）
Not null
√
服装款式质量
服装款式质量
Varchar（10）
Not null

店面装横情况
店面装横情况
Varchar（10）
Not null

H．顾客回馈表，用于记录顾客回馈程度的表格，如表8所示
表8 顾客回馈表
字段名称
字段说明
类型定义
属性限定
索引
月份
月份
Varchar（15）
Primary key
√
顾客满意度
顾客满意度
Varchar（10）
Not null

顾客光顾度
顾客光顾度
Varchar（10）
Not null

顾客消费度
顾客消费度
Varchar（10）
Not null

顾客评价度
顾客评价度
Varchar（10）
Not null

I．员工基本表，用于记录查看员工基本信息，如表9所示
表9 员工基本表
字段名称
字段说明
类型定义
属性限定
索引
员工编号
员工编号
Varchar（15）
Primary key
√
员工姓名
员工姓名
Varchar（10）
Not null
√
目前职务
目前职务
Varchar（10）
Not null

基本工资
基本工资
Varchar（10）
Not null

j.服装价格表，主要登记店里各种服装的价格情况信息，如表10所示：
字段名称
字段说明
类型定义
属性限定
索引
类型
类型
Varchar（10）
Not null
√
尺码

尺码
Varchar（10）
Not null
√
颜色
颜色
Varchar（10）
Not null
√
面料
面料
Varchar（10）
Not null

四、数据库应用对象设计
① 视图
a) 本店情况表视图
SELECT 店销售排名, 店评价水平, 店员工排名, 店投入水平
FROM 本店情况表
WHERE (店员工排名 = '水平适中')

b) 财务调整表试图：
SELECT 月份, 盈利情况, 财务补给, 顾客取向
FROM 财务调整表
WHERE (盈利情况 = '盈利')

ｃ）服饰入库表视图：
SELECT 服装类型, 尺码, 颜色, 面料, 价格信息, 折扣, 使用人群, 进货价
FROM 服饰入库表
WHERE (服装类型 = '流行女帽')

c) 服装分类表视图：
SELECT 服装类型, 适合人群, 主色调, 面料, 图片路径
FROM 服装分类表
WHERE (适合人群 = '女士')

E)会员信息表视图
SELECT 姓名, 性别, 年龄, 联系电话, 联系QQ, 用户地址
FROM 会员信息表
WHERE (年龄 = '20')

F)销售库存表视图：
SELECT 服饰样式, 库存量, 近七天卖出, 近七天进货
FROM 销售库存表
WHERE (服饰样式 = '外套')

g)顾客评价表视图：
SELECT 姓名, 店员服务态度, 服装款式质量, 店面装横情况
FROM 顾客评价表
WHERE (店员服务态度 = '2')

H)顾客回馈表视图：
SELECT 月份, 顾客满意度, 顾客光顾度, 顾客消费度, 顾客建议度
FROM 顾客回馈表
WHERE (顾客光顾度 = '较高')

i) 员工基本表视图：
SELECT 员工编号, 员工姓名, 目前职务, 基本工资
FROM 员工基本表
WHERE (目前职务 = '普通店员')

ｊ）服装价格表视图：
SELECT 类型, 尺码, 颜色, 面料
FROM 服装价格表
WHERE (尺码 = '38')
五、 VB程序源码：
1、 allmassage:
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Private Sub Command1_Click()
store.Show 1
End Sub

Private Sub Command10_Click() ' 确定'
MsgBox "韩焕、郭士强制作", vbExclamation, "关于我们"
End Sub

Private Sub Command11_Click()
Dim n As Integer, m As Single, X As Single
n = Text1.Text
m = Text2.Text
X = n * m
Text3.Text = X
Print
End Sub

Private Sub Command12_Click() '增加
Dim txtmsg As String
txtsql = "select * from 服饰入库表"
Set mrc = ExecuteSQL(txtsql, txtmsg)
mrc.AddNew '在数据库表中添加数据行
mrc.Fields(0) = Text4.Text
mrc.Fields(1) = Text5.Text
mrc.Fields(2) = Text6.Text
mrc.Fields(3) = Text7.Text
mrc.Fields(4) = Text15.Text
mrc.Fields(5) = Text8.Text
mrc.Fields(6) = Text16.Text
mrc.Fields(7) = Text17.Text
mrc.Update

MsgBox ("提交成功")

End Sub

Private Sub Command13_Click()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""

Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
SetFocus
End Sub

Private Sub Command14_Click() '增加
Dim txtmsg As String
txtsql = "select * from 会员信息表"
Set mrc = ExecuteSQL(txtsql, txtmsg)
mrc.AddNew '在数据库表中添加数据行
mrc.Fields(0) = Text9.Text
mrc.Fields(1) = Text10.Text
mrc.Fields(2) = Text11.Text
mrc.Fields(3) = Text12.Text
mrc.Fields(4) = Text13.Text
mrc.Fields(5) = Text14.Text
mrc.Update

MsgBox ("会员注册成功")

End Sub
Private Sub Command15_Click()
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
SetFocus
End Sub

Private Sub Command2_Click()
finance.Show 1
End Sub

Private Sub Command3_Click()
clothing.Show 1
End Sub

Private Sub Command4_Click()
client.Show 1
End Sub

Private Sub Command5_Click() ' 确定'
menber.Show 1
MsgBox "欢迎下次登陆，谢谢您的支持"
End Sub

Private Sub Command6_Click()
sell.Show 1
End Sub

Private Sub Command7_Click() '进入
staff.Show 1
End Sub

Private Sub Command8_Click()
clientsay.Show 1
End Sub

Private Sub Command9_Click() ' 确定'
MsgBox "系统有问题请电话联系程序管理部门：021-67792435", vbExclamation, "信息提示"
End Sub
2、 client:
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Private Sub Command1_Click()

MSHFlexGrid1.Clear
txtsql = "select * from 顾客回馈表"
Set mrc = ExecuteSQL(txtsql, MsgText)
MSHFlexGrid1.Rows = 1
Do While Not mrc.EOF
With MSHFlexGrid1 '将查询内容显示在表格控件中
.Rows = .Rows + 1 '初始设定MSHFlexGrid1属性为1行2列，0固定行0固定列
.TextMatrix(.Rows - 1, 0) = mrc.Fields(0) & ""
.TextMatrix(.Rows - 1, 1) = mrc.Fields(1) & ""
.TextMatrix(.Rows - 1, 2) = mrc.Fields(2) & ""
.TextMatrix(.Rows - 1, 3) = mrc.Fields(3) & ""
.TextMatrix(.Rows - 1, 4) = mrc.Fields(4) & ""
.TextMatrix(0, 0) = "月份"
.TextMatrix(0, 1) = "顾客满意度"
.TextMatrix(0, 2) = "顾客光顾度"
.TextMatrix(0, 3) = "顾客消费度"
.TextMatrix(0, 4) = "顾客建议度"
End With
mrc.MoveNext
Loop

End Sub
Private Sub Command2_Click() '删除

txtsql = "delete from 顾客回馈表 where 月份 = '" + MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 1) + "'"
Set mrc = ExecuteSQL(txtsql, MsgText)
MSHFlexGrid1.RemoveItem MSHFlexGrid1.RowSel

End Sub

Private Sub Command3_Click() '增加

With MSHFlexGrid1 '增加一行并显示
.AddItem "", mrc.RecordCount + 1
.TextMatrix(mrc.RecordCount + 1, 0) = Text1.Text
.TextMatrix(mrc.RecordCount + 1, 1) = Text2.Text
.TextMatrix(mrc.RecordCount + 1, 2) = Text3.Text
.TextMatrix(mrc.RecordCount + 1, 3) = Text4.Text
.TextMatrix(mrc.RecordCount + 1, 4) = Text5.Text
End With

mrc.AddNew '在数据库表中添加数据行
mrc.Fields(0) = Text1.Text
mrc.Fields(1) = Text2.Text
mrc.Fields(2) = Text3.Text
mrc.Fields(3) = Text4.Text
mrc.Fields(4) = Text5.Text
mrc.Update

End Sub
Private Sub Command4_Click() '修改
'修改显示表
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0) = Text1.Text
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 1) = Text2.Text
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 2) = Text3.Text
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 3) = Text4.Text
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 4) = Text5.Text
'修改数据库表
'Text4.Text = MSHFlexGrid1.RowSel
mrc.AbsolutePosition = MSHFlexGrid1.RowSel
mrc.Fields(0) = Text1.Text
mrc.Fields(1) = Text2.Text
mrc.Fields(2) = Text3.Text
mrc.Fields(3) = Text4.Text
mrc.Fields(4) = Text5.Text
mrc.Update
End Sub

Private Sub Text1_Change()

End Sub
3、clientsay:
Dim rs As New ADODB.Recordset
Dim txtsql As String
Dim txtmsg As String
Dim username As String
Dim opt1 As Integer '店员服务态度
Dim opt2 As Integer '服装款式质量
Dim opt3 As Integer '店面装横情况

Private Sub Command1_Click()

Select Case True
Case Option1.Value
opt1 = 4
Case Option2.Value
opt1 = 3
Case Option3.Value
opt1 = 2
Case Option4.Value
opt1 = 1
End Select

Select Case True
Case Option5.Value
opt2 = 4
Case Option6.Value
opt2 = 3
Case Option7.Value
opt2 = 2
Case Option8.Value
opt2 = 1
End Select

Select Case True
Case Option9.Value
opt3 = 4
Case Option10.Value
opt3 = 3
Case Option11.Value
opt3 = 2
Case Option12.Value
opt3 = 1
End Select
Dim txtmsg As String
txtsql = "select * from 顾客评价表"
Set mrc = ExecuteSQL(txtsql, txtmsg)
mrc.AddNew '在数据库表中添加数据行
mrc.Fields(0) = Text1.Text
mrc.Fields(1) = opt1
mrc.Fields(2) = opt2
mrc.Fields(3) = opt3
mrc.Update

MsgBox ("您的评价已成功提交！")

End Sub

Private Sub Command2_Click()
Unload clientsay
End Sub
4、 clothing:
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'Private Sub Command1_Click()
' txtSQL = "select * from 服装分类表"
' Set mrc = ExecuteSQL(txtSQL, MsgText)
' mrc.MoveFirst
' mrc.Move (3)
'' mrc.AbsolutePosition = 4
' Text1.Text = MsgText
' mrc.Delete
' mrc.Update
'End Sub

Private Sub Command1_Click()

MSHFlexGrid1.Clear
txtsql = "select * from 服装分类表"
Set mrc = ExecuteSQL(txtsql, MsgText)
MSHFlexGrid1.Rows = 1
Do While Not mrc.EOF
With MSHFlexGrid1 '将查询内容显示在表格控件中
.Rows = .Rows + 1 '初始设定MSHFlexGrid1属性为1行2列，0固定行0固定列
.TextMatrix(.Rows - 1, 0) = mrc.Fields(0) & ""
.TextMatrix(.Rows - 1, 1) = mrcFields(1) & ""
.TextMatrix(.Rows - 1, 2) = mrc.Fields(2) & ""
.TextMatrix(.Rows - 1, 3) = mrc.Fields(3) & ""
.TextMatrix(0, 0) = "服装类别"
.TextMatrix(0, 1) = "适合人群"
.TextMatrix(0, 2) = "主色调"
.TextMatrix(0, 3) = "面料"
End With
mrc.MoveNext
Loop

End Sub

Private Sub Form_Load()
'Picture1.Picture = LoadPicture("d:\服装专卖店管理系统\picture\夹克.jpg")

With MSHFlexGrid1
.Rows = 1
.CellAlignment = 2
.ColWidth(0) = 1000
.ColWidth(1) 1000
End With

End Sub
''
Private Sub MSHFlexGrid1_Click()
If MSHFlexGrid1.RowSel <> 0 Then
mrc.AbsolutePosition = MSHFlexGrid1.RowSel
Picture1.Picture = LoadPicture(mrc.Fields(4))
End If
'Picture1.Picture = LoadPicture(mrc.Fields(1))
'Picture1.Picture = LoadPicture(mrc.Fields(2))
'Picture1.Picture = LoadPicture(mrc.Fields(3))
End Sub
5、 finance:
Private Sub Command3_Click() '增加

With MSHFlexGrid1 '增加一行并显示
.AddItem "", mrc.RecordCount + 1
.TextMatrix(mrc.RecordCount + 1, 0) = Text1.Text
.TextMatrix(mrc.RecordCount + 1, 1) = Text2.Text
.TextMatrix(mrc.RecordCount + 1, 2) = Text3.Text
.TextMatrix(mrc.RecordCount + 1, 3) = Text4.Text
End With

mrc.AddNew '在数据库表中添加数据行
mrc.Fields(0) = Text1.Text
mrc.Fields(1) = Text2.Text
mrc.Fields(2) = Text3.Text
mrc.Fields(3) = Text4.Text
mrc.Update

End Sub
Private Sub Command4_Click() '修改
'修改显示表
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0) = Text1.Text
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 1) = Text2.Text
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 2) = Text3.Text
MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 3) = Text4.Text
'修改数据库表
'Text4.Text = MSHFlexGrid1.RowSel
mrc.AbsolutePosition = MSHFlexGrid1.RowSel
mrc.Fields(0) = Text1.Text
mrc.Fields(1) = Text2.Text
mrc.Fields(2) = Text3.Text
mrc.Fields(3) = Text4.Text
mrc.Update
End Sub
6、 login:
Public m As String
Public i As String
Dim txtsql As String
Dim conn As New ADODB.Connection
Dim mrc As New ADODB.Recordset
Public n As Integer

Private Sub Command2_Click()
tbname.Text = ""
tbpas.Text = ""
tbname.SetFocus
End Sub

Private Sub Command1_Click()
If tbname.Text = "123" Then
OK = True
Me.Hide
allmassage.Show 1
Else
MsgBox "用户名有误, 请重新输入!", , "错误提示"
tbname.SetFocus
tbpas.SelStart = 123
tbpas.SelLength = Len(tbpas.Text)
End If
End Sub

Private Sub Command3_Click()
Unload login
End Sub

Private Sub Command4_Click() '进入
allmassage.Show 1
End Sub

Private Sub tbPas_Change()
tbpas.PasswordChar = "*"
End Sub
7、 menber:
Private Sub Command1_Click()
MsgBox "数据更新中，给您带来了不便，请谅解！", vbExclamation, "信息提示"
End Sub
8、 sell：
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Private Sub Command1_Click()

MSHFlexGrid1.Cl