物流管理专业毕业论文.docx

江 苏 省 自 学 考 试
物流管理专业毕业论文

题目： xxxxxxxxxxxxxx

主考院校
姓 名 xxxxxxxxxxxxxx
指导教师 xxxxxxxxxxxxxx

年 月 日
中国矿业大学毕业论文任务书

学院 专业年级 学生姓名

任务下达日期： 年 月 日

毕业论文日期： 年 月 日至 年 月 日

毕业论文题目：

毕业论文专题题目：

毕业论文主要内容和要求：

指导教师签字：
中国矿业大学毕业论文指导教师评阅书

指导教师评语（①基础理论及基本技能的掌握；②独立解决实际问题的能力；③研究内容的理论依据和技术方法；④取得的主要成果及创新点；⑤工作态度及工作量；⑥总体评价及建议成绩；⑦存在问题；⑧是否同意答辩等）：

成 绩： 指导教师签字：
年 月 日
中国矿业大学毕业论文评阅教师评阅书

评阅教师评语（①选题的意义；②基础理论及基本技能的掌握；③综合运用所学知识解决实际问题的能力；④工作量的大小；⑤取得的主要成果及创新点；⑥写作的规范程度；⑦总体评价及建议成绩；⑧存在问题；⑨是否同意答辩等）：

成 绩： 评阅教师签字：
年 月 日
中国矿业大学毕业论文答辩及综合成绩
答 辩 情 况
提 出 问 题
回 答 问 题
正 确
基本
正确
有一般性错误
有原则性错误
没有
回答

答辩委员会评语及建议成绩：

答辩委员会主任签字：
年 月 日
学院领导小组综合评定成绩：

学院领导小组负责人：
年 月 日

摘 要

随着技术的发展，电脑操作及管理日趋简化，电脑知识日趋普及，同时市场经济的快速多变，竞争激烈，采用计算机管理系统是现代化企业管理的必然趋势。先进的管理技术，很大程度上体现在管理系统的成熟完善上。本文以新生活集团（中国）有限公司徐州分公司为背景，建立了一套计算机管理系统，将公司的复杂手工业务转化到计算机上操作，大大提高了工作的效率。
借鉴了其他较为成功的管理系统，通过对实际业务的分析，确定了仓储管理系统的设计思想和运行流程：采用Visual Basic语言编程制作前台和Access数据库做后台相结合的方式，建立了一套计算机管理系统的模型，包括了入库、出库、库存查询、出入库统计等部分。针对系统安全的问题上还做了数据库安全管理的部分。仓库管理系统在运行阶段，效果好，数据准确性高，提高了工作效率，同时也实现了仓库管理计算机化。

关键词：仓库管理信息系统； 库存管理； 仓库作业流程；

ABSTRACT

With the technology, computer operations and management become increasingly simplified, computer literacy has become increasingly popular, while the fast changing market economy, competition, using computer management system is the inevitable trend of modern enterprise management. Advanced management techniques to a large extent reflected in the mature and perfect the management system. In this paper, a new life Group (China) Co., Ltd. Xuzhou Branch as the background, a set of computer management systems, the company's complex business transformation to the computer manual operation, greatly improved work efficiency.
Learn from other more successful management system, through the analysis of actual operations, warehouse management system to determine the design and operation of process: making use of Visual Basic programming and Access database front backing combination, a set of computer management system model, including the storage, a library, inventory check, the storage statistics section. The issue of security for the system also made a part of database security management. Warehouse management system in the operational phase, good results, data and high accuracy, improve efficiency, but also to achieve a computerized warehouse management.

Keywords: Warehouse Management Information System; inventory management; warehouse processes;

目 录

1 绪论 1
1.1选题背景和意义 1
1.2 仓库管理信息系统的发展趋势 1
2 系统运行环境 2
2.1VB 6.0 特点介绍 2
2.3系统运行环境 2
2.3.1软件环境 2
2.3.4硬件环境 3
3 新生活集团（中国）有限公司徐州分公司仓储管理分析 3
3.1新生活集团（中国）有限公司徐州分公司介绍 3
3.2仓储作业流程分析 3
3.2.1入库流程 3
3.2.2出库流程 4
3.2.3在库管理 4
3.3仓储管理存在的问题分析 4
3.4解决问题的方法 5
4 系统分析 6
4.1系统需求分析 6
4.2可行性分析 6
4.2.1技术上可行 6
4.2.2经济上可行 6
4.2.3管理上可行 7
4.3系统功能的模块设计 7
4.3.1总体模块设计 7
4.3.2系统功能设计 7
4.3.3数据库的建立 7
5 系统设计 9
5.1系统登录模块 9
5.2 货品管理模块 11
5.2货品查询模块 13
5.3 数据报表模块 15
5.4系统维护模块 16
5.4.1 操作员管理 16
5.4.2 密码修改 18
5.5 退出系统模块（如图5.14） 20
6 结论 20
附录 21
英文资料原文： 21
中文译文 24
致 谢 27

编号：
时间：2021年x月x日

书山有路勤为径，学海无涯苦作舟
页码：第26页 共34页

1 绪论
1.1选题背景和意义
中国正在大步跨入信息化社会，人们的生活工作与通信、信息的关系日益紧密，信息化社会在改变着我们的生活方式与工作习惯，同时，也对传统的物流提出了新的挑战。
在我国，很多的企业的仓库作业还没有达到信息化。没有一个符合本企业仓库的仓库管理系统，造成很多业务处理很繁琐，工作效率低下。当今社会是一个高速发展的社会，企业对仓储管理要求不断提高，希望高效率、低成本的完成仓储作业。信息化仓储管理正在企业中蓬勃发展，也将是未来物流业的发展主流，人机结合的方式也将是工作方式的主流。利用仓库管理信息系统可以很好的提高企业的管理水平。
早期运行的仓库管理系统是在DOS环境下开发的单机MIS系统,该系统具有许多不足的地方。主要表现在系统的文档完整性不好,可维护性、可重用性均较差。原系统是应用在DOS 环境下,人机界面差,与Windows 图形界面相比,操作繁琐且性能低下。原系统的各个子系统功能有限，不能满足仓库管理人员对数据的多方位查询。原系统已经不适应新形势下的应用需要了。
新生活集团（中国）有限公司徐州分公司仓库管理系统，是本人经过对公司的考察，了解，为公司建立的一个仓库管理系统，主要是为了减少仓库工作人员的工作量，提高工作效率，并且保证工作质量所建立的。
1.2 仓库管理信息系统的发展趋势
目前随着计算机技术的飞速发展,仓库管理信息系统在仓库管理中得到越来越广泛的应用。仓库各个上级业务部门都开发出适应仓库业务管理需要的信息系统,许多仓库还开发出各种针对仓库管理如仓库业务收发管理、仓库安全管理、仓库人事管理等方面的应用软件。这些应用软件对于全面提高仓库和上级部门对仓库的科学管理水平,减少仓库人员的工作量等方面都起到了非常重要的作用,可以帮助有关人员全面掌握仓库的基本情况, 如库房容量、主要领导、仓库人员编制等,并形成各种统计汇总数据,为仓库管理人员的科学管理提供辅助决策。目前,各种管理信息系统基本上都是基于Windows或Windows NT操作平台上编制的管理软件,它们具有一致的操作界面和操作风格,极好的人机交互功能,大大方便了仓库管理人员的应用。有些管理信息系统还是基于局域网的应用系统,可同时多用户在网上查阅、汇总各种仓库相关数据,网络的开通为各个部门之间的业务交流提供了便利。
2 系统运行环境
2.1VB 6.0 特点介绍
随着Visual Basic 的逐步发展完善和功能的不断括展,很多软件开发人员利用Visual Basic 开发了大量的应用软件。Visual Basic 已经成为使用人数最多，应用领域最广的程序设计语言和软件开发工具。
特点：1．可视化编程
Visual Basic为用户提供了大量的界面元素（在Visual Basic中称为控件），如窗体、菜单、命令按钮等，用户只需要利用鼠标或键盘把这些控件拖动到适当的位置，再设置它们的外观属性等，即可设计出所需的应用程序界面。
Visual Basic还提供了易学易用的集成开发环境，该环境集程序的设计、运行和调试为一体，在本章后面的小节中将对集成开发环境进行详细的介绍。
2．事件驱动机制
Windows操作系统出现以来，图形化的用户界面和多任务多进程的应用程序要求程序设计不能是单一性的，在使用Visual Basic设计应用程序时，必须首先确定应用程序如何同用户进行交互。例如，发生鼠标单击、键盘输入等事件时，用户必须编写代码控制这些事件的响应方法。这就是所谓的事件驱动编程。
3．面向对象的程序设计语言
Visual Basic 6.0是支持面向对象的程序设计语言。它不同于其他面向对象的程序设计语言，且不需要编写描述每个对象的功能特征的代码，因为这些代码都已经被封装到各个控件中了，用户只需调用即可。
4．支持多种数据库访问机制
Visual Basic 6.0具有强大的数据库管理功能。利用其提供的ADO访问机制和ODBC数据库连接机制可以访问多种数据库，如Access、SQL Server、Oracle、MySQL等。
2.2Access介绍
Access是一种关系型数据库管理系统，是Microsoft Office的组成部分之一。Access1.0诞生于20世纪90年代初期，目前广泛使用的是Access2003. Access经历多次的升级改版，其功能越来越强大，但是操作却越发的简单。
Access应用广泛，能操作其他来源的资料，如许多SQL数据库。此外Access还提供Windows操作系统的高级应用程序的开发。Access与其他数据库的开发系统比较有一个明显的区别：用户不用编写一行代码，就可以在很短的时间里开发出一个功能强大且相对专业的数据库应用程序，并且这一过程是完全可视的，如果给它加上一些VBA代码，那么开发出的程序就与专业程序员开发的一样，
2.3系统运行环境
2.3.1软件环境
Windows XP/Windows 2000/Windows Server 2003等Windows操作系统。
2.3.4硬件环境
处理器：赛扬1.7+
内存：256以上
硬盘空间：100M
此配置以上的计算机都可以
3 新生活集团（中国）有限公司徐州分公司仓储管理分析
3.1新生活集团（中国）有限公司徐州分公司介绍
新生活集团是一家中韩合资的企业, 是一家女性直销公司,拥有化妆品,保健品,生活用品的生产线,符合整个中国市场需求,有适合男女老少的健康食品,特别对女性的健康和美丽提 供了安全保障。总部在沈阳,拥有遍布将近80家分公司,覆盖了全国大部分省市。1994年新生活成立时,将自己定位于专业生产和销售化妆品的大型企业集团。1996年，为了满足本地发展,新生活在其总部所在地沈阳设立了第一家工厂,主要生产新生活自己独立研制的符合东方人气质的化妆品产品。为了扩大公司的发展，新生活陆续扩建了沈阳工厂，并引进了国外先进设备和人才，在青岛成立了第二工厂和生物科技研究所。2005年8月，位于青岛崂山区的青岛新生活生物科技有限公司正式成立。2009年。在新生活15周年之际，又在上海建立了第三家工厂。
新生活集团（中国）有限公司徐州分公司是新生活集团在徐州设立的分公司,成立于2003年，七年的历程，现在已经在全国分公司中业务水平居于前列。它是徐州及六县,连云港,安徽淮北等城市的中心枢纽,是徐州和总公司重要的纽带,负责着周边地区的日常经营,学习培训和企业文化传播。新生活徐州分公司坐落于东站广场金凯隆大厦二十四层,其优越的地理条件为公司成员带来了很大的方便,是集办公室,会议室,美容室及仓库为一体的一站式公司.公司会计,出纳,仓库保管员及发货人员组成了事务局,在保障分公司正常运营的同时还会解决员工在销售及市场中遇到的问题,在产品售后方便也提供了一定的保障,给员工的工作带来有效帮助,是分公司的核心部门。
3.2仓储作业流程分析
新生活集团（中国）有限公司徐州分公司仓储作业流程和大多企业一样，包括货品的到货入库，货品的出库，货品在库保管，盘点，查询等。
3.2.1入库流程
新生活集团（中国）有限公司徐州分公司仓库作业的入库流程：首先，由申请人填写入库申请单，入库申请单主要由以下几项：申请入库单位、入库时间、入库货位号、产品的品种、质量、数量（件数、重量）、金额、检验员鉴字、申请人鉴字、仓库主管签字等组成。
申请人持填写好的入库申请单，填写好由检验员检验后鉴字，并由库房人员核实入库数量登记，库房主管鉴字。入库申请单一式四份，第一联、存根，第二联、仓库留存，第三联、财务核算，第四联，申联人留存。入库时要严把质量关，做好各项记录，以备今后查询。
3.2.2出库流程
新生活集团（中国）有限公司徐州分公司的仓库作业出库流程是：客户向公司提出需求，公司销售部门再安排仓库安照客户对产品的要求进行出库。公司销售部门需要填写出库单，出库单，主要有发货单位、发货时间、出库品种、出库数量、金额、出库方式选择、运算结算方式、提货人签字、仓库主管签字。
出库单也是一式四份，第一联、存根；第二联、仓库留存；第三联、财务核算：第四联提单，提货人留存。提货人出示出库单据，在库房人员协调下，按指定的货位、品种、数量搬运货物装到车上。保管人员做好出库质量管理，出库前会对货品进行再次检查，保证发给客户的产品质量，严防破损。
3.2.3在库管理
（1）仓库保管原则：
①面向通道进行保管。为使物品出入库方便，易于仓库内移动，将货物面向通道保管。
②货物有序摆放，同种产品摆放在同一货位上，或者相邻货位。为提高作业效率和保管效率，员工对库内物品放置位置的熟悉程度直接影响着出入库的时间，将类似的物品放在邻近的货位也是提高效率的重要方法。
③根据公司的销售情况选定位置。畅销品的出货和进货频率高，应放在靠近出入口，易于作业的地方；季节性需求的物品则依其季节性选定放置位置。
④货物分类保管，不同性质的产品有不同的存储区域。成箱的货物可以堆码摆放，零散的货物要摆放在货架上。
⑤依据先进先出的原则。先入库的产品先出库。
（2） 盘点
公司货物出入库频繁，为了保证仓库保管质量，仓库工作人员每个月都会对仓库货物进行盘点，包括对货物品种、数量、等进行盘点，并做好记录，存档等。
3.3仓储管理存在的问题分析
任何公司在管理上都会存在这样或那样的问题，在新生活集团（中国）有限公司徐州分公司的仓储管理中，我认为也存在着一些有待解决的问题，如下：
（1） 产品存放位置安排不规范，存放的位置随机安排，有时会造成畅销品存放到了不方便出库的地方，而销量少的产品却摆放到了靠近出口的位置。
（2） 仓库产品摆放混乱，不同性质的产品混乱的摆放在一个货架上，有些不同种类的单件的货品也被放在一个大的箱子里。导致盘点的时候相当麻烦。
（3） 库存数量不明确,仓库缺少一个有效的仓库管理系统，仓库产品的数量统计难度大，所以导致有些时候，畅销的产品货物短缺，而有些销量小的产品货物却积压在仓库，不仅浪费时间和金钱，还占用了仓库空间。
（4） 公司规定每个月对仓库进行一次盘点。我认为这样每次盘点时间相隔太长，可以每周做一次粗略盘点，每个月月末的盘点可以再细致一些。
（5） 仓库部门的管理制度不规范，工作人员工作态度有待提高。有的部门派人去仓库领产品，很多时候都会是部门缺什么，自己到仓库拿什么，甚至连领料单都没拿去，这样造成仓库物品混乱，并且还及有可能造成仓库的物品丢失。
（6） 仓库破损产品检验不及时，经常是部门领料人员领回部门后，发现有破损再拿回仓库调换。这样不仅易造成产品变质，还容易造成部门与仓库之间产生矛盾，各自都不愿承担造成产品破损的责任。
3.4解决问题的方法
从对仓库存在问题的分析发现，公司仓库的改善还是有很大的发掘潜力的。建立和仓库相符的仓库管理系统，采用先进的仓库管理方法，规范作业流程。具体解决问题的方法：。
（1） 针对产品存放位置安排不规范、产品摆放混乱和库存数量不清晰，采用ABC分类法，对所有的产品进行合理的摆放，畅销品摆放在离出口较进的地方，便于出库，做到摆放有序，有多少库存可以较为很方便的看到。
（2） 制定规范的仓库管理制度，特别是仓库进入权限，除了仓库工作人员，其他任何人员不得进入仓库，更不能随意取存物品，这样是防止产品的丢失和仓库管理的混乱。
（3） 仓库管理人员在产品入库时就应该做好产品的检查工作，不可将破损产品入库。仓库作业当中也要注意作业规范，定期检查产品，发现有破损及时处理。
（4） 对于畅销品和销量小的产品的库存数量做出优化，尽量避免畅销品库存不够，销量小的产品又积压在仓库，导致库存量的不合理，影响了销售部门的销售工作。
（5） 建立一个与仓库相符的仓库管理系统，对仓库的所有产品的进出库等业务做到及时处理。充分的利用仓库管理系统的功能。
从上面的问题分析和解决问题可以看出，没有一个和仓库相符合的仓库管理系统，所有的业务处理都变的繁琐，所以我认为有一个好的仓库管理系统支持，对新生活集团（中国）有限公司徐州分公司是很有必要的。

4 系统分析
4.1系统需求分析
本套应用程序名称为“新生活集团（中国）有限公司徐州分公司仓库管理系统”，主要用于公司仓库货品信息的管理，系统包括货品在库管理、入库、出库、一些统计查询和报表等几部分组成。
仓库管理系统需满足仓库管理员及工作人员的需求，他们具有登陆应用系统的权限，所以需要对工作人员的登录本模块进行更多的考虑，设计不同用户的操作权限和登录方法。
对于一个仓库来说，最大的功能就是存储货品，所以仓库管理就是对货品信息，仓库信息的管理，用户可以根据实际情况对各种货品信息进行分类管理，包括添加、删除更新数据库等。
仓库中货品的入库管理操作就是对于货品入库情况的管理，当有货品到货需要入库保管，用户可以方便的输入货品的名称、数量等信息。
仓库中货品的出库，这部分功能与入库操作流程差不多，区别在于只是对出库货品进行管理，货品信息数据的输入。
仓库货品的信息量大，数据安全性和保密性要求高。本系统实现对货品信息的管理和总体的统计等，仓库信息，供货单位和经办人员信息的查看及维护。仓库管理人员可以浏览、查询、添加、删除等货品的基本信息等。
报表是一个数据库中最重要的功能之一，有了报表才能清楚地知道货品的出入库情况，在数据报表功能中包括出库报表，仓库报表及经办人员报表等一些基本信息的打印，方便简洁。
本系统基本包含了仓库管理的主要需求，具有完善细致的功能、友好的用户界面、较强的数据处理功能和完备的安全机制；随心所欲的查询和所见即所得的打印功能，并全面支持分析和决策的功能。
4.2可行性分析
4.2.1技术上可行
该系统所需的硬件设备，市场上就有销售，并且价格较低。所需的软件，操作系统采用Windows系列操作系统，数据库管理系统采用Visual Basic与Access相结合，这些软件都是很常见，在系统开发中被大量应用的，技术也都达到了比较成熟的阶段。因此，在技术上可较容易实现的。
4.2.2经济上可行
本系统需要的硬件，软件支持都比较容易得到，公司也急需改变原来的仓库作业方式。因此对开发库存系统大力支持，开发经费没有问题。
4.2.3管理上可行
库存有很多的管理体制，每件入库物品都有相应的记录，出库也要对相应的物品进行删减，同时入库和出库必须对每个物品的相应数量和单价进行录入。因此管理上是可行的。
另外，要将开发系统运用到仓库作业中，仓库作业方式区别与过去，所以，需要对仓库管理员进行一个系统运用前的培训，仓库的工作人员也都很乐意接受培训。
4.3系统功能的模块设计
4.3.1总体模块设计（如图4.1）
系统登录
货品管理
货品查询
数据报表
系统维护
仓库管理系统
退出系统

图 4.1 总体模块
4.3.2系统功能设计
（1）货品管理（货品入库，货品出库，货品盘点）；该模块用于实现货品的入库，出库，盘点功能。
（2）货品查询（入库查询，出库查询，库存查询）；该模块用于货品入库，出库，库存的查询。
（3）数据报表（出库报表，库存报表）；该模块提供货品出库及库存报表，并且可以实现报表的打印及导出。
（4）系统维护（操作员管理，密码修改）；该模块可以注册新用户，删除现有的用户，现有用户密码的修改。
（5）退出系统
4.3.3数据库的建立
后台数据库的表设计如表4.1至表4.5：
表 4.1 tb_enter(用户信息表)
字段名
数据类型
字段大小
操作员姓名
文本
20
职务
文本
20
密码
文本
20

表 4.2 tb_KCXX(库存信息表)
字段名
数据类型
字段大小
库存编号
数字
长整型
货品编号
文本
30
货品名称
文本
50
货品规格
文本
30
记量单位
文本
20
数量
数字
长整型
单价
货币

入库日期
日期∕时间

备注
备注

表 4.3 tb_OUT(货品出库数据表)
字段名
数据类型
字段大小
出库编号
文本
30
货品编号
文本
50
货品名称
文本
30
计量单位
文本
20
数量
数字
长整型
单价
货币

金额
货币

出库日期
日期∕时间

提货单位
文本
50
提货人
文本
20
经手人
文本
20
备注
备注

表 4.4 tb_IN(货品入库数据表)
字段名
数据类型
字段大小
货品编号
文本
30
货品名称
文本
50
货品规格
文本
30
计量单位
文本
20
数量
数字
长整型
单价
货币

金额
货币

入库日期
日期∕时间

经手人
文本
20
备注
备注

表 4.5 tb_kcpd(货品盘点表)
字段名
数据类型
字段大小
盘点编号
数字
长整型
盘点货品
文本
50
货品规格
文本
30
计量单位
文本
20
数量
数字
长整型
盘点日期
日期∕时间

盘点员
文本
20
货品有无异常
文本
20

5 系统设计
5.1系统登录模块

图5.1 系统登录界面
（1） 功能分析
这是用户登录系统的入口，用户输入用户名及密码，如果密码正确，点击登录按钮，则成功登录，进入仓库管理系统主界面（如图5.2）；如果用户名输入错误，Msgbox则会提醒“对不起，没有此用户的信息”；如果密码错误，Msgbox则会提醒“密码不正确，请您确认后重新输入”（如图5.2）；

图 5.2 仓库管理系统主界面

图5.3系统登录密码错误
（1）实现代码：
Private Sub Command1_Click()
rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现取消窗体置前的功能
On Error Resume Next
Dim MPassword As String
If Text2.Text = "mr" And Text1.Text = "mingrisoft" Then '判断是否使用的是超级口令登录
frm_main.StatusBar1.Panels.Item(2).Text = "当前操作员： mr"
Name1 = Text2.Text
Unload Me
frm_main.Show
Else
Adodc1.RecordSource = "select * from tb_enter where M_Name ='" & Text2.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
MPassword = Adodc1.Recordset.Fields("M_Password")
If Text1.Text = MPassword Then '判断数据的密码是否正确
frm_main.StatusBar1.Panels.Item(2).Text = "当前操作员： " + Adodc1.Recordset.Fields("M_Name")
Name1 = Text2.Text
frm_main.Show
'添加登录日志
Open (App.Path & "\系统日志.ini") For Input As #1
Do While Not EOF(1)
Line Input #1, Intext
TStr = TStr + Intext + Chr(13) + Chr(10)
Loop
Close #1
TStr = TStr + " " + Name1 + " " + Format(Now, "yyyy-mm-dd hh:mm:ss") + " " + "系统登录" + Chr(13) + Chr(10)
Open (App.Path & "\系统日志.ini") For Output As #1
Print #1, TStr
Close #1
Unload Me
Else
MsgBox "密码不正确,请您确认后重新输入", , "库存管理系统"
Text1.Text = ""
Text1.SetFocus
End If
Else
MsgBox "对不起 没有此用户的信息", , "仓储信息管理系统"
Text2.Text = ""
Text1.Text = ""
End If
End If
End Sub
5.2 货品管理模块
在货品管理模块中，货品入库，货品出库和货品盘点三个模块是相似的模块，有着相似的操作过程。以货品入库做为说明，实现代码：
Private Sub Cmd_Add_Click()
For i = 0 To 5 '单击“添加”按钮之后，清空文本框中的内容
Text1(i).Text = ""
Next i
Adodc1.RecordSource = "select * from tb_in order by ID"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast '将数据库记录移向最后一条
StrNum = Val(Adodc1.Recordset.Fields("ID")) + 1 '将入库编号加1
Select Case Len(Trim(StrNum)) '位数不足则补0
Case 1
StrTemp = "00000"
Case 2
StrTemp = "0000"
Case 3
StrTemp = "000"
Case 4
StrTemp = "00"
Case 5
StrTemp = "0"
Case 6
StrTemp = ""
End Select
Text1(0).Text = "J" & Trim(StrTemp) & Trim(Str(StrNum))
Else
Text1(0).Text = "J000001" 'Join的缩写 "加入的意思"，给入库编号赋一个初值
StrNum = 1
End If
Cmd_Save.Enabled = True
Cmd_Del.Enabled = False
End Sub
进入货品入库（如图5.4），然后点击添加按钮，自动生成入库编号，输入货品名称、货品规格、数量单价及备注，选择计量单位，入库日期，点击保存，出现Msgbox 提醒“您确认要保存该信息吗？”（如图5.5），点击确定，出现Msgbox 提醒“信息保存成功”，点击取消，则放弃入库。

图 5.4 进入货品入库

图5.5 货品入库界面
在货品入库的信息录入中，如果信息输入不完整，则无法完成入库，会出现Msgbox提醒“货品数量、单价或名称不能为空值！”（如图5.6）

图 5.6 货品入库输入信息不完整
5.2货品查询模块
在货品查询模块中，包括入库查询，出库查询和库存查询三个模块。这三个模块也是相似的，以出库查询作为说明，实现代码：

Private Sub Form_Load()
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) '运用API函数SetWindowPos，来实现使窗体置前的功能
'利用代码连接数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_