条码报告0930216

1、 条码在物流管理系统中应用 一、系统的概述物流管理系统是一个企事业单位不可缺少的部分，它的内容对于企事业的决策者和管理者来说都至关重要，所以物流管理系统应该能够为用户提供充足的信息和快捷的数据处理手段。物流管理系统是集现代运输、仓储、配送、搬运、包装、产品流通及信息管理于一体的网络系统,它实现了商品从原料供应商、制造商、分销商、 零售商到消费者的各个流通环节的有机结合,以合理费用将确定的商品在需要的时间送达指定位置。其中仓库管理在企业的整个供应链中起着至关重要的作用，随着企业的展，客户的增多，仓库的入库、出库、统计操作越来越频繁，存货的种类也在增多。 但很多企业仓库管理还是停留在手工作业的基础

2、上，仓库的出、入库数据仅靠 仓库管理人员手工记录，部分企业已经使用一般的仓库管理软件，但对仓库的 出、入库数据也只能是逐个录入数据，不但费时费力延误出、入库时间，而且 容易出错，一般的仓库管理软件没有库位管理，仓库管理人员在出库时没有系 统的指导，往往发生无法及时找到物品的现象，延误出库时间，影响工作效率。以上种种情况造成库存不准、信息反馈不及时等问题也接踵而至。这些问 题直接降低仓库存储能力，提高仓库管理成本，严重制约了企业的发展壮大。 如何采用计算机软件技术和先进的条码技术管理进货、库存、销售等诸多 环节也已成为趋势及必然，高效的仓库管理已成为企业亟待解决的关键问题。 今天在仓库中最普遍的

3、技术话题是条码化，鼎道条码仓库管理系统在仓库 管理中引入条码技术，对仓库的到货检验、入库、出库、调拨、移库移位、库 存盘点、库位管理等各个作业环节的数据进行自动化的数据采集，保证仓库管 理各个作业环节数据输入的效率和准确性，确保企业及时准确地掌握库存的真 实数据，合理保持和控制企业库存。不论物流流向那里，我们都可以自动地记 录下物流的流动，条码技术与信息处理技术的结合帮助我们合理地，有效利用 仓库空间，以最快速、最正确、最低成本的方式为客户提供更好的服务。通过科学的编码，还可以方便的进行物品的批次、保质期等进行处理11二、系统实现的目标条码仓库管理系统是对仓库管理工作理解的基础上，制订统一的数

4、据标准和程序，优化资源，实现产品的全程有效管理，对提高全 企业产品及物料资源的共享和统一标准的管理将起到积极的推动作用，并为将来公司建立全面信息化管理奠定基础。条码仓库管理系统的主要应用价值目标：1、在仓库管理中应用条码技术，实现数据的自动化采集，去掉了手工书写 单据再送到仓库输入的步骤，能大大提高工作效率。2、解决库房信息陈旧滞后的弊病。一张单据从填写、收集到键盘输入，需 要一天或更长的时间。这使得生产调度员只能根据前几天甚至一周前的库存信 息，为用户定下交货日期。3、解决手工单据信息不准确的问题（主要是抄写错误，键入错误），从而 达到提高生产率、明显改善服务质量、消除事务处理中的人工操作、

5、减少无效 劳动、消除因信息不准引起的附加库房存量、提高资金利用率等目的。4、将单据所需的大量纸张文字信息转换成电子数据，简化了日后的查询步 骤， 工作人员不用再手工翻阅查找各种登记册和单据本，只需输入查询条件， 计算机在很短的时间内就会查到所需记录，并将内容显示在屏幕上，大大加快 了查询速度。提高生产数据统计的速度和准确性，减轻汇总统计人员的工作难度。3、 系统的功能概述3.1总体功能框图库存台帐收货审核登记数据采集报溢报损管理库存盘点管理审核登记数据采集发货入库管理出库管理客户管理仓库及库位管理系统管理基础数据管理移库管理人员管理货物编码管理运输管理3.2货物编码管理 系统根据实际需要及条码

6、的编码规则制作条码标签，粘贴在货物包装箱上，作为条码识别的依据。这里的条码主要用的是物流条码中的128码和39码。3.3入库管理 仓库管理人员根据入库单要求验收入库商品并完成相应的入库数据的采集，系统根据入库情况自动更新实际库存，保留入库信息，并提供相应入库信息查询功能，为管理人员及时了解每一笔入库情况提供方便。 仓储管理系统中另一个重要管理对象是仓储资源管理，仓储资源除了仓储本身还包括了仓储结构、仓储设备以及仓储作业人员等资源的管理。主要功能体现在仓储设备的合理调配，并通过设备检修计划提高设备完好率；合理配置仓储结构，提高场地利用率；合理组织仓储作业人员，是仓储作业效率能够得到最大化。 其界

7、面如下图所示对应代码如下Private Sub Command1_Click()If flag = 1 Then 添加操作 recs = recs + 1 Adodc1.Recordset.AddNew 添加一个记录 Adodc1.Refresh End IfEnd SubPrivate Sub Command2_Click() Adodc1.Recordset.Delete 删除当前记录 recs = recs - 1 记录数减1 Adodc1.Recordset.Update 保存当前操作到表中 End SubPrivate Sub Command3_Click()Unload MeEnd

8、 Sub具体操作步骤 1、如果原包装商品没有条码，要准备好内部条码，货到后先将内部条码标贴到没有原条码的相应商品包装上。2、货物入库后按照其分类和属性将其安排到相应库位上，用手持终端扫描要放置商品的条码后再扫描一下货架上的位置条码（或直接输入库位号），再输入相关信息，如：单据号、捆包号、实际重量等等。3、所有该次到货商品安排完后，将手持终端放到与计算机系统相连的通讯座上，就能够将商品的到货和库存位置数据传送给计算机。3.4出库管理仓库管理人员根据出库单要求完成相应的出库数据的采集，系统根据出库情况自动更新实际库存，保留出库信息，辅助仓库管理员的台帐管理，并提供相应出库信息查询功能主要功能界面如

9、下图所示。对应程序代码 Private Sub Command1_Click()If Adodc1.Recordset.Fields(订单号) = ThenMsgBox (订单号不能为空)Else: Adodc1.Recordset.AddNew End IfEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command3_Click()Unload MeEnd Sub具体操作步骤（一）1、仓库管理人员根据提货单生成出库单，打印后交给发货员。2、把出库单数据下载到手持式扫描终端上。3、发货

10、时，如果一次下载了多个出库单，先输入准备发货的出库单号，然后用手持终端扫描准备发货的商品条码，如果不正确，给予提示报警信息。具体操作步骤（二）1、仓库管理人员根据提货单生成出库单，打印出库单时同时生成出库单号及其商品条码。2、出库单打印后交给提货员，提货员拿到现场交给发货员。发货员先扫描准备发货的出库单号及其单据上商品条码，可扫描多个出库单（代替数据下载）。3、发货时，先扫描出库单号，然后用手持终端扫描准备发货的商品条码，如果不正确，给予提示报警信息。3.5库存盘点管理 仓库管理人员利用手持式扫描终端到仓库现场进行实物盘点，系统提供库存盘点管理功能，辅助仓库管理人员根据实际库存登记实际盘点的实

11、物信息，系统根据实际盘点情况产生盘盈、盘亏信息，并打印相应的盘库报表及盈损报表，从而做相应的移库和报溢报损处理。 按日期查询界面 按日期查询界面 按日期和订单号查询界面对应程序 Private Sub Command1_Click()condstr = If Trim(Text1.Text) Then If condstr = Then condstr = 订单号 LIKE + Trim(Text1.Text) + % End IfEnd IfIf condstr Then Adodc1.RecordSource = SELECT * FROM ruku WHERE + condstr Ado

12、dc1.RefreshElse Adodc1.RecordSource = SELECT * FROM ruku Adodc1.RefreshEnd Ifrecs = Adodc1.Recordset.RecordCountIf recs = 0 Then MsgBox 没有任何满足条件的记录, vbOKOnly, 信息提示End IfEnd SubPrivate Sub Command2_Click()Unload Me3.6 系统维护 工作人员可以进行对应用系统的维护与管理，可以实现多级管理，添加用户信息，删除等操作，还可以对自己的密码进行修改等，以方便系统可以更方便快捷的工作人员的使用，

13、组要实现功能如下图所示。 Private Sub Command1_Click()Adodc1.Recordset.AddNewAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd Sub 用户的添加与删除 修改密码界面对应程序如下 Private Sub Command1_Click()Dim i As IntegerIf yhqx = 0 ThenAdodc1.RecordSource = select * from 用户信息 where 用户名= & Text1.Text & Adodc1.

14、Refresh If Adodc1.Recordset.EOF Then MsgBox 没有这个用户，请重新输入正确的用户名, , 错误提示 Text1.Text = Text2.Text = Text3.Text = Else If Text2.Text = Trim$(Adodc1.Recordset.Fields(密码) Then Adodc1.Recordset.Fields(密码) = Trim(Text3.Text) Adodc1.Recordset.Update MsgBox 数据已保存, , 修改成功 Exit Sub Else i = MsgBox(你的密码错误,请输入正确的用户密码！, vbCritical + vbRetryCancel + vbDefaultButton1, 错误) Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = End IfEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 四 总结 该应用系统总体可以实现物流管理中简单的货物录入查询等功能，基本可以满足中小型物流公司的需求。在本次系统的设计过程中我两见到了物流管理系统的主要功能，学习到设计系统的基本方法，也