VB078服装专卖店管理系统ACCESS

服装专卖店店管理系统的目标
通过仓库服装专卖店店管理，实现仓库管理工作系统化、规范化、自动化，正确的进货和库存控制及发货，减少管理费用，从而提高影响企业的竞争力。
服装专卖店店管理系统是对经销商的进货、销售和库存统计进行全面管理，满足如下要求：
1． 基本销售商品维护
2． 商品入库、销售
3． 库存查询
4． 销售情况查询统计

第三章 服装专卖店店管理系统的设计
3.1、服装专卖店店管理系统的开发工具的确定
本系统采用Visual Basic为主要开发工具，结合Access数据库管理系统与98操作系统。既考虑了系统的需求，又兼顾了运行的效率，以及今后系统的功能拓展等。具有运行效率、开发周期短、扩展能力强、技术规范等特点。
3.2、服装专卖店店管理系统的开发设计思想
1． 尽量采用仓库现有的软硬件环境，及先进的管理系统开发方案，从而达到充分利用现有资源，提高系统开发水平和应用效果的目的；
2． 系统应符合仓库管理的规定，满足仓库货物日常的服装专卖店店的需要，并达到操作过程的直观、方便、实用、安全等要求；
3． 系统采用模块化的程序设计方法，既便于系统功能模块的组合，又便于未参与开发的技术人员补充、维护；

系统应具备数据库维护功能，能及时根据用户需求进行数据的添加、删除、修改、备份等操作。
3.3、服装专卖店店管理系统的功能
3.3.1系统功能分析
服装专卖店店管理系统大致上需要：员工数据管理、供应管理、客户管理、产品分类管理、产品管理、入库管理、出库管理等几个主要的功能。
3.3.2、系统模块设计
根据系统功能分析，得到如图3-3所示的系统功能模块结构图。（详见附录） think58好，好think58

[资料来源：http://www.THINK58.com]

think58.com [资料来源：http://THINK58.com]

think58.com [版权所有：http://think58.com]

[资料来源：http://think58.com]

think58.com

本文来自think58

[资料来源：THINK58.com]

3.4、服装专卖店店管理系统数据库的设计
3.4.1 绘制系统数据流图
根据系统功能模块图和管理流程，绘制出如图3-4所示的系统数据流程图。根据数据流程图以及一般服装专卖店店管理系统的需求，总结出下面的数据字典(详见附录)： 本文来自think58

[来源：http://www.think58.com]

copyright think58

[来源：http://www.think58.com]

think58.com

copyright think58

[资料来源：THINK58.com]

copyright think58

[资料来源：http://THINK58.com]

think58好，好think58

[来源：http://www.think58.com]

本文来自think58 [资料来源：THINK58.com]

[资料来源：http://think58.com]

内容来自think58 [版权所有：http://think58.com]

[资料来源：http://THINK58.com]

3.4.2数据库结构设计
数据库中的各个数据表名称和结构分别如下所示：（具体的数据字典因篇幅较大，将在附录中详细列出。）
（1） 员工管理数据表。见附录图1所示
（2） 供应管理数据表。见附录图3所示
（3） 客户管理数据表。见附录图2所示
（4） 产品分类数据表。见附录图5所示
（5） 产品管理数据表。见附录图4所示
（6） 入库管理数据表。见附录图6所示
（7） 出为管理数据表。见附录图7所示
第四章 服装专卖店店管理系统的实现
4.1、系统主窗体的实现
本系统主界面作为其他所有打开窗口的父窗口，其类型应该是多文档的窗口（MDI）。利用集成菜单实现系统主要功能。
4.2、实现系统设置功能
本窗口包含员工管理、供应管理、客户管理、产品分类管理、产品管理五个主要功能模块。其窗口布局及具体实现过程如所示：

think58.com

[来源：http://www.think58.com]

[资料来源：www.THINK58.com]

think58好，好think58

内容来自think58

[资料来源：THINK58.com]

[来源：http://think58.com]

think58好，好think58

[来源：http://www.think58.com]

[资料来源：http://think58.com]

4.2.1、实现员工管理功能
本窗口的具体实现过程及源代码如下所示：

Option Explicit
Private oClass As New Cclassic
Private Sub asPopup1_Click(Cancel As Boolean)
asPopup5.BackColor = &H8000000F
asPopup4.BackColor = &H8000000F
asPopup2.BackColor = &H8000000F
asPopup1.BackColor = &HFFC0C0
asPopup6.BackColor = &H8000000F
SSTab1.Tab = 3

think58

[来源：http://think58.com]

oClass.RetriveByID
Set adcClassic.Recordset = oClass.Rs
dcbClassic.BoundColumn = "ClassicID" [来源：http://www.think58.com]

End Sub
Private Sub Form_Load()
MakeWindow Me
' AlwaysOnTop Me, True

[版权所有：http://think58.com]

Me.Top = MDIFrmMain.Height / 2 - Me.Height / 2 - 1000
Me.Left = MDIFrmMain.Width / 2 - Me.Width / 2
asPopup5.BackColor = &HFFC0C0
SSTab1.Tab = 0
Combo1.AddItem "员工"
Combo1.AddItem "经理"
Combo1.AddItem "采购"
Combo1.AddItem "库管"

cmbUnit.AddItem "个"
cmbUnit.AddItem "只"
cmbUnit.AddItem "支"
cmbUnit.AddItem "盒"
cmbUnit.AddItem "本"
cmbUnit.AddItem "条"
cmbUnit.AddItem "瓶"
cmbUnit.AddItem "张"
cmbUnit.AddItem "台"
cmbUnit.AddItem "块"
cmbUnit.AddItem "捆"
cmbUnit.AddItem "卷"
cmbUnit.AddItem "打"
cmbUnit.AddItem "双"
cmbUnit.AddItem "对"
cmbUnit.AddItem "米"
cmbUnit.AddItem "厘米"
cmbUnit.AddItem "斤"
cmbUnit.AddItem "公斤"
cmbUnit.AddItem "克"
cmbUnit.AddItem "吨" copyright think58

Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False

copyright think58 [资料来源：http://www.THINK58.com]

Call asPopup5_Click(False)
End Sub
Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub copyright think58 [资料来源：http://think58.com]

Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub

[资料来源：www.THINK58.com]

Private Sub imgTitleMinimize_Click()
Me.WindowState = 1
End Sub
Private Sub
imgTitleRight_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub 内容来自think58

[资料来源：http://think58.com]

Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
DoDrag Me
End Sub

copyright think58 [资料来源：www.THINK58.com]

[版权所有：http://think58.com]

Private Sub imgTitleClose_Click()
Unload Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
adcEmployee.Recordset.MovePrevious
If adcEmployee.Recordset.BOF = True Then
adcEmployee.Recordset.MoveFirst
End If think58好，好think58

Case 2 ''后退
adcEmployee.Recordset.MoveNext
If adcEmployee.Recordset.EOF = True Then
adcEmployee.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
adcEmployee.Recordset.AddNew
add_error:
If Err.Number = 3426 Then
MsgBox "已经使用过添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
Toolbar1.Buttons(1).Visible = False
Toolbar1.Buttons(2).Visible = False
Toolbar1.Buttons(4).Visible = False
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
adcEmployee.Recordset.Update
update_error:
If Err.Number = 3020 Then
MsgBox "请先添加记录！ 错误：" & Err & "，" & Err.Description, 0, "提示" think58

Unload Me
End If
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr
adcEmployee.Recordset.CancelUpdate
Toolbar1.Buttons(1).Visible = True
Toolbar1.Buttons(2).Visible = True
Toolbar1.Buttons(4).Visible = True
Toolbar1.Buttons(5).Visible = True
Toolbar1.Buttons(6).Visible = True
Toolbar1.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
MsgBox "没有记录！ 错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error
Dim a
a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
adcEmployee.Recordset.Delete
adcEmployee.Recordset.MoveLast think58好，好think58 [资料来源：THINK58.com]
End If
If a = 2 Then Exit Sub
del_error:
If Err.Number = 3426 Then
MsgBox "已经全部删除！ 错误：" & Err & "，" & Err.Description, 0, "提示"
Unload Me
End If
End Select
End Sub 本文来自think58 [来源：http://www.think58.com]

本系统虽然数据字典复杂，页面窗口众多，但是各窗口都基本包括添加、删除、保存、取消等主要功能结构。在以上的篇幅中，已经对员工管理的功能结构和数据窗口用法进行了详细的叙述，为了避免重复和篇幅的限制，在以下的篇幅中，就不再一一细述其他的页面具体功能的实现。其供应管理、客户管理、产品分类管理、产品管理等四个主要功能模块的布局与实现过程与员工管理模块相似，所以就不再详细叙述。
4.3、实现入库操作
入库管理窗口主要实现产品的入库管理及入库单据的打印等操作。具体实现过程及源代码略。
4.4、实现出库操作
出库管理窗口主要实现产品的出库管理及出库单据的打印等操作。具体实现过程及源代码略。
4.5、实现报表打印输出
本窗口主要实现数据报表检索的打印与执行功能，其具体实现过程及源代码略。
4.6、程序调试、编译与发行