VB529 商品配送中心库存仿真软件设计VB+ACCESS

 本设计任务基于的实际要求，开发出的商品配送中心库存系统，目的是为了提高自动化办公的水平、经过详细的调查分析初步制定了配送中心库存系统。该软件的功能是提高进出货物，商品配送中心库存、销售管理计划管理等办公效率。
    本报告首先介绍了系统的开发背景，意义，要求，接着详细的阐述了子系统的功能模块的划分和说明以及设计，并附有多幅效果图直观地再现了该软件的使用效能。根据现在流行的软件开发手段我们选用了Microsoft Visual Basic 作为前台开发工具，Microsoft Access 作为后台数据库。系统采用的是人机交互方式，界面友好，操作简洁方便，只需按文字提示就可以进行系统操作，完成数据录入，分析，统计等工作。其自身强大的开发功能是我们的软件有很强实用性与智能性，适合当前这种快速原形法的构想。使用起来方便快捷，界面友好功能完善。但由于时间关系及本人的能力有限，报告中一定存在着许多不足之处，恳请老师和同学们多提宝贵意见。

think58.com

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

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

  本系统是为了提高自动化办公的水平、经过详细的调查分析初步制定了商品配送中心库存系统。基于WINDOWS 98 平台，使用Microsoft Access97， 在Visual Basic 6.0编程环境下开发的商品配送中心库存系统。该系统采用交互是人机对话和模块化设计方式，实现对系统管理，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两方面。对于前者要求建立起资料一致性和完整性强、资料安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点此管理系统的开发主要为了满足管理者的需求，使他们的工作量减少，工作难度降低，风险性减小。同时使用这个系统还有利用数据的查询和保存。这个系统的5个主菜单以及若干个子菜单可以满足管理者的所有需求，使其工作满足现代化管理的要求。 think58.com

[资料来源：THINK58.com]

1.2管理者对商品配送中心库存系统的需求
   库房的管理的工作非常复杂烦琐，而且销售情况和仓库档案要记载楚，销售的工作情况及仓库情况管理者要了如指掌，并且进货前还有一个准确的记录，销售后还要返回一些资料妥善保存。这些工作如果要手工操作的话，不仅困难大，还费时费力。所以需要一个专门的程序来进行这些工作。这就需要更好的仓库信息系统满足其经营管理的需要。 内容来自think58

   作为高质量的开发软件，VISUAL BASIC 6.0中文版有如下优点：
    完全的中文化的环境使用户更易于操作，用户在几分钟内，就可以熟悉VISUAL BASIC 6.0的开发环境。
    语句生成器和快速提示帮助使用用户不用记忆成千上万的属性和方法，在较短的时间内就可能开发出功能强大的应用程序。
    在VISUAL BASIC 6.0中，Internet或Intranet访问其他的计算机中的文档和应用程序，可以创建Internet服务器应用程序，包括IIS应用程序，支持动态HTML技术（DHTML）的应用程序，具有Web应用程序发布功能等。
    种类繁多，功能强大的多媒体控件，能帮助用户在很短的时间内用较少的语言编写出声像并茂的多媒体程序。
    VISUAL BASIC 6.0在数据库处理功能上有较大的增强，能对多种数据库进行读写操作。另外它所提供的可视化数据管理器能帮助用户构造多种类型的数据库，同时提供了能自动生成SQL语句的功能和新的Activex数据对象ADO。
    新的语言特性包括：用户自定义类型可以作为参数或可以作为公共属性和方法的返回值，函数可以返回数组变量，动态数组可以赋值，文件系统对象，按名调用（CallByName）,增强的创建对象函数（CreatObject Function Enhancdments），增强的StrConv函数。

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

    应用程序向导能帮助用户自动生成具有一定功能的应用程序，大大加快了程序的开发速度。增强的向导有：安装程序向导，数据窗体向导，应用程序向导和类生成工具。新的向导有：数据对象生成向导和工具条向导。

⑴ ADO技术
ADO (ACTIVE DATA OBJECTS) 即ActiveX数据对象,它实际是一种提供访问各种数据类型的连接机制。ADO的设计为一种极简单的格式，通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源，即不仅适合于SQL Server、Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE-DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。
⑵ ADO技术
ADO虽然集成在VISUAL BASIC 6.0中，但只是可选项。因此在创建项目后，需要为项目添加ADO。单击[工程]菜单中的[引用]菜单项，打开“引用“对话框。在“引用”选项卡中向下滚动列表项，找到“Microsoft ActiveX Data Objects 2.0 Library” 列表项,单击该列表项左边的复选框。单击“确定”按钮，这样在程序中使用ADO时就不会出现编译错误了。
Connection对象：通过Connection对象指定程序中要用到的数据库。
Recordset对象：表示查询结果集。Recordset对象将一个查询字符串传递给由Connection对象指定的数据库，该数据库执行此查询，然后将查询结果返回给Recordset对象。 think58好，好think58

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

⑶ 应用ADO连库方法
① 使用Connection ：
声明变量Public Conn AS ADODB.Connection
使用Set Connection 对象的一个实例, 并赋给变量。
Conn ：Set Conn=New ADODB.Connection
使用Connection 对象的Open方法连接到指定的数据库。
Conn.Open "driver={Microsoft Access Driver (*.mdb)}；dbq=" & DbPath，"sa"， "Liu Yang”
② 使用Recordset 对象:
先声明变量
Dim RS AS ADODB.Recordset
使用Set 语句生成Recordset对象的一个实例,并赋值给变量RS：
Set RS=New ADODB.Recordset
使用Recordset 对象的Open 方法,将查询字符串传递给Connection 对象指定的数据库。数据库服务器接收到这个查询字符串后,将查询结果返回到RS对象。
6.2系统主要功能的具体设计
商品配送中心库存系统共有1个界面，5个窗体，包括5个主菜单。现具体介绍如下；
①系统主界面如下图所示： 内容来自think58

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

项目设置代码设计：
Private Sub Toolbar5_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 ''前进
Data5.Recordset.MovePrevious
If Data5.Recordset.BOF = True Then
Data5.Recordset.MoveFirst
End If copyright think58 [资料来源：THINK58.com]

Case 2 ''后退
Data5.Recordset.MoveNext
If Data5.Recordset.EOF = True Then
Data5.Recordset.MoveLast
End If
Case 4 ''增加
On Error GoTo add_error
 Data5.Recordset.AddNew
 'Data1.Recordset("建户时间") = Date
add_error:
   If Err.Number = 3426 Then
    MsgBox "已经使用过添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Text21.Visible = False
Toolbar5.Buttons(1).Visible = False
Toolbar5.Buttons(2).Visible = False
Toolbar5.Buttons(4).Visible = False
Toolbar5.Buttons(5).Visible = True
Toolbar5.Buttons(6).Visible = True
Toolbar5.Buttons(7).Visible = False
Case 5 ''确定
On Error GoTo update_error
If Text3.Text = "" Then
MsgBox "必须填写售电员！", 0, "提示"
Exit Sub
End If
  Data5.Recordset("分类") = DBCombo1.Text
  Data5.UpdateRecord
  Data5.Recordset.Bookmark = Data1.Recordset.LastModified

本文来自think58

update_error:
   If Err.Number = 3020 Then
    MsgBox "请先添加记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
    Unload Me
    End If
Text21.Visible = True
Toolbar5.Buttons(1).Visible = True
Toolbar5.Buttons(2).Visible = True
Toolbar5.Buttons(4).Visible = True
Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False
Toolbar5.Buttons(7).Visible = True
Case 6 ''取消
On Error GoTo CanceErr
Data5.Recordset.Edit
Data5.Recordset.CancelUpdate
Text21.Visible = True
Toolbar5.Buttons(1).Visible = True
Toolbar5.Buttons(2).Visible = True
Toolbar5.Buttons(4).Visible = True
Toolbar5.Buttons(5).Visible = False
Toolbar5.Buttons(6).Visible = False
Toolbar5.Buttons(7).Visible = True
CanceErr:
If Err.Number = 3021 Then
 MsgBox "没有记录！   错误：" & Err & "，" & Err.Description, 0, "提示"
End If
Case 7 ''删除
On Error GoTo del_error

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

   a = MsgBox("真的删除吗？", vbExclamation + vbOKCancel + vbApplicationModal, "删除记录")
If a = 1 Then
    Data5.Recordset.Delete
  Data5.Recordset.MoveLast
   End If
If a = 2 Then Exit Sub
del_error:
   If Err.Number = 3426 Then
内容来自think58