仓库管理信息系统物流管理专业毕业论文

仓库管理信息系统摘 要 随着技术的发展，电脑操作及管理日趋简化，电脑知识日趋普及，同时市场经济的快速多变，竞争激烈，采用计算机管理系统是现代化企业管理的必然趋势。先进的管理技术，很大程度上体现在管理系统的成熟完善上。本文以新生活集团（中国）有限公司徐州分公司为背景，建立了一套计算机管理系统，将公司的复杂手工业务转化到计算机上操作，大大提高了工作的效率。借鉴了其他较为成功的管理系统，通过对实际业务的分析，确定了仓储管理系统的设计思想和运行流程：采用Visual Basic语言编程制作前台和Access数据库做后台相结合的方式，建立了一套计算机管理系统的模型，包括了入库、出库、库存查询、出入库统计等部分。针对系统安全的问题上还做了数据库安全管理的部分。仓库管理系统在运行阶段，效果好，数据准确性高，提高了工作效率，同时也实现了仓库管理计算机化。关键词：仓库管理信息系统； 库存管理； 仓库作业流程；目 录1 绪论11.1选题背景和意义11.2 仓库管理信息系统的发展趋势12 系统运行环境22.1VB 6.0 特点介绍22.3系统运行环境22.3.1软件环境22.3.4硬件环境33 新生活集团（中国）有限公司徐州分公司仓储管理分析33.1新生活集团（中国）有限公司徐州分公司介绍33.2仓储作业流程分析33.2.1入库流程33.2.2出库流程43.2.3在库管理43.3仓储管理存在的问题分析43.4解决问题的方法54 系统分析54.1系统需求分析54.2可行性分析64.2.1技术上可行64.2.2经济上可行64.2.3管理上可行64.3系统功能的模块设计64.3.1总体模块设计64.3.2系统功能设计74.3.3数据库的建立75 系统设计85.1系统登录模块85.2 货品管理模块105.2货品查询模块135.3 数据报表模块145.4系统维护模块155.4.1 操作员管理155.4.2 密码修改185.5 退出系统模块（如图5.14）196 结论19附录错误！未定义书签。英文资料原文：错误！未定义书签。中文译文错误！未定义书签。致 谢22 第22页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+内存：2G以上硬盘空间：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） 仓库破损产品检验不及时，经常是部门领料人员领回部门后，发现有破损再拿回仓库调换。这样不仅易造成产品变质，还容易造成部门与仓库之间产生矛盾，各自都不愿承担造成产品破损的责任。（7） 仓库内经常出现货物在转换新的存放处时，货物损坏的现象。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货品有无异常文本205 系统设计 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 NextDim MPassword As StringIf Text2.Text = mr And Text1.Text = mingrisoft Then 判断是否使用的是超级口令登录 frm_main.StatusBar1.Panels.Item(2).Text = 当前操作员： mr Name1 = Text2.Text Unload Me frm_main.ShowElse 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 IfEnd Sub5.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 = FalseEnd 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_kcgl.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from tb_out 连接出库信息数据表Adodc1.Refresh Me.Left = (Screen.Width - Me.Width) / 2 使窗体居中 Me.Top = (Screen.Height - Me.Height) / 2End Sub 在货品查询下点击出库查询进入出库查询（如图5.7），在最下方“请输入要查询的货品名称”的Text中输入要查询的货品的名称，自动显示出要查询货品的出库记录（如图5.8）。图 5.7 进入出库查询图 5.8 出库信息查询界面5.3 数据报表模块 数据报表中包括出库报表，库存报表。为仓库管理提供报表的打印和导出。方便对仓库的情况进行了解。以库存报表为例，实现代码: Private Sub DataReport_Initialize() rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) 使窗体置前End SubPrivate Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)DataEnvironment1.rsComd_Pkc.Closefrm_main.Enabled = True导出End Sub打印图5.9 库存信息明细表 在库存信息明细表预览里有个打印按钮和导出按钮（如图5.9），点击这两个按钮，分别能实现打印和导出功能。打印报表的功能必须在安装打印机的情况下才能实现；点击导出，出现对话框（如图5.10）选择保存到的文件夹，对文件命名，然后点击保存按钮。图 5.10 “导出”对话框5.4系统维护模块5.4.1 操作员管理包括注册新用户和删除现有用户。（1）注册新用户（如图5.11），在用户管理对话框中选择注册新用户，填写完用户名称，职务，用户密码，确认密码，点击确定，出现,Msgbox提醒“注册成功”。图 5.11 注册新用户界面实现代码： Private Sub Command1_Click() rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现取消窗体置前的功能 If Text1.Text = Or Text2.Text = Or Text3.Text = Then MsgBox 输入的用户注册信息不完全!, , 提示信息 Else Adodc1.RecordSource = select * from tb_enter where M_Name= + Text1 + 判断注册的用户名是否存在 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox 该用户名已经存在,请您更换其他用户名!, 48, 提示信息 Text1.Text = 如果该用户名存在则重新输入 Text2.Text = Text3.Text = Text4.Text = Text1.SetFocus Else If Text3.Text = Text4.Text Then 判断两次输入的密码是否一致 Adodc1.RecordSource = select * from tb_enter order by M_ID Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveLast Text5.Text = Val(Adodc1.Recordset.Fields(M_ID) + 1 Else Text5.Text = 1 End If Call main 保存注册信息 Set adoRs = adoCon.Execute(insert into tb_enter values( & Text5 & , & Text1 & , & Text2 & , & Text3 & ,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) MsgBox 注册成功!, 48, 用户注册信息提示 adoCon.Close Text1.Text = Text2.Text = Text3.Text = Text4.Text = Unload Me Else MsgBox 两次输入的密码不一致,请您确认后重新输入, 48, 用户注册信息提示 Text3.Text = Text4.Text = Text3.SetFocus End If End If End IfEnd Sub删除现有的用户（如图5.12），在用户管理中选择删除现有用户，然后选择要删除的用户名，点击确定按钮，Msgbox提醒“您确认删除该用户吗？”，点击确认则删除，点击取消，则取消删除。图 5.12 删除现有的用户的界面实现代码： Private Sub Command2_Click() rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现取消窗体置前的功能 If Combo1.Text = Name1 Then 如果是当前登录的用户名，则不允许删除 MsgBox 不能删除当前用户名!, 48, 提示信息 Else a = MsgBox(您确认要删除该用户吗?, 17, 删除用户信息提示) If a = vbOK Then Adodc1.RecordSource = select * from tb_enter where M_Name= + Combo1.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.Delete 如果数据库中存在该用户信息，则将其删除 MsgBox 用户信息删除成功, 64, 删除用户信息提示 Unload Me Else MsgBox 当前数据库中没有可删除的用户信息, , 信息提示 End If End If End IfEnd Sub5.4.2 密码修改 为了安全起见，用户可以对自己密码进行修改。用户进入密码修改界面（如图5.13）,输入用户名，旧密码，新密码以及确认新密码，点击确认按钮，Msgbox提醒“密码修改成功！”。图5.13 密码修改界面实现代码： Private Sub Command1_Click()rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3) 运用API函数SetWindowPos，来实现取消窗体置前的功能Call main If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text5.Text = Then MsgBox 输入不能为空!, 48, 提示信息 Else 判断输入的用户名在数据库中是否存在 Adodc1.RecordSource = select * from tb_enter where M_Password = & Text1.Text & and M_name= + Text5.Text + Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then If Text2.Text Text3.Text Then 判断数据的密码是否正确 MsgBox 两次输入的密码不一致,请您确认后重新输入, 48, 提示信息 Text2.Text = Text3.Text = Text2.SetFocus Else 如果输入正确的密码则修改密码 Set adoRs = adoCon.Execute(UPDATE tb_enter SET M_Password= + Text3.Text + where M_name= + Text5.Text + ) Adodc1.Refresh MsgBox 密码修改成功,请您记住新密码, , 信息提示 Unload Me End If Else MsgBox 没有此用户的信息,请您确认后重新输入, 48, 信息提示 Text1.Text = Text2.Text = Text3.Text = Text5.Text = Text5.SetFocus End If End IfadoCon.CloseEnd Sub5.5 退出系统模块（如图5.14） 仓库工作人员从系统中退出的出口，点击确定即可退出系统，点击取消，则继续留系在统中操作系统。图 5.14 退出系统主界面6 结论仓库管理在公司管理中占有极为重要的地位，大力改进仓库管理，可以节省大量的人力物力。仓库管理系统处理数据的流程，与人工处理的思维是一样的，更优于人工处理的是将原本繁琐的业务处理变的更加快捷，有序，错误率下降。我的毕业设计是为新生活集团（中国）有限公司徐州分公司的仓库建立一个仓库管理系统，解决公司仓库管理问题。这个系统，大大提高了工作效率，减少了仓库工作人员的工作量和误差。数据报表和查询统计两个模块的设计，可以使公司事务局的管理人员对公司仓库的库存情况一目了然。这个仓库系统的设计经历了，从创建数据库到系统设计和各个模块的创建、表单的设计、基本功能如查询统计的实现、主程序的编写。一个设计，不仅仅是设计系统，不像我想象的那么简单。系统采用的是Visual Basic做前台，Access作为后台数据库。因为之前对Visual Basic只是简单的了解，只会做一些简单的如添加基本的控件和编写简单的代码，当在做这个毕业设计的时候才发现所了解的这些功能远远不够，只能随学随用。当一个模块做完了，感觉良好，可是在运行的时候才发现诸多的问题，一次次的失败，一次次的修改。经过了这么久好不容易才完成这个系统。现在，我对Visual Basic和Access的应用有了更深的认识，计算机知识又有所增长。从现代物流系统观点来看,仓储是物流的一个重要环节,是物流系统的调运中心,希望在仓储这里对物流进行有效、科学地管理与控制,使物流系统更顺畅、更合理地运行。本文主要从仓储的重要性出发,将理论与实际相结合,通过对一个企业物流公司仓储活动中的“空间”和“货位”进行分析,如何在仓储活动中通过“空间”和“货位”的管理达到提高仓储效率、降低仓储成本的目的。案例背景:某光电科技有限公司的仓储管理。某光电科技有限公司位于广东惠州金源工业区,它成立于1998年,是一家专业照明器与电气装置产品制造商,它是行业的龙头企业。凭借优异的产品品质、卓越的服务精神,获得了客户的广泛认可与赞誉。为了适应新形式下的战略发展需要,公司对现有的客户关系网络进行了整合,在全国各地成立了35个运营中心,完善了公司供应链系统、物流仓储与配送系统以及客户服务系统。该公司总部共有成品仓库3个,分别是成品一组仓库、成品二组仓库和成品三组仓库。他们是按产品的型号不同而将产品分放在不同的仓库:其中成品一组仓库位于一楼,目的是方便进出货,所以它那里存放的货物相对种类比较多一点,如筒灯、灯盘等。并且所有的外销品也存放在一组。成品二组仓库储存的主要是路轨灯、金卤灯、T4灯、T5灯以及光源。公司的几大光源都存放在成品二组仓库。成品三组仓库主要存放特定的格栅灯、吸顶灯、导轨灯以及别的公司的一些产品。1仓库储存空间分析仓库仓储系统的主要构成要素包括储存空间、货品、人员及设备等要素。储存是仓库的核心功能和关键环节,储存区域规划合理与否直接影响到仓库的作业效率和储存能力。因此,储存空间的有效利用成为仓库管理好坏的重要影响因素之一。该公司的产品销量很好。仓库的出入库频率大,货品流量也就很大。该公司的仓库空间布局是上货架存放货物,立体的空间利用率不高,所以他的仓库机械化程度也不是很高,仓库内只有叉车,包括手动叉车和电动叉车。仓库的作业方法,一般都用叉车,很少用人力的,对于货物的收发,它们用的是物资收发卡,每一次的收发货都会在物资收发卡上做登记,这样就很方便我们平时查货等的一些后续工作,从目前的工作结果看来效率还是比较高,作业还是比较方便的。所以整体上看该公司仓库的作业方法还是比较合理的。而仓库平时经常会因为储存空间不够用而将货物存放在作业空间的位置上。特别是在产品的销售旺季时,仓库产品存放特别拥挤,在里面工作起来让人觉得有一点压抑的感觉。所以仓库的作业环境不怎么合理。该公司仓库的储存成本具统计的数据来看还算合理的,因为它的设备费用很少,固定保管费用也不是很高,而储存成本就是由该类费用构成,所以储存成本也就不是很高了。储存空间即仓库中以保管商品为功能的空间。储存空间=物理空间+潜在利用空间+作业空间+无用空间。物理空间即是指货品实际上占有的空间。该公司仓库中,它的物理空间占了整个仓库的75%以上;潜在利用空间占10%左右;作业空间占10%左右,因为该公司的仓库机械化并不高,所以作业空间小点并没有什么影响,它的安全间歇还基本符合要求;他的无用空间占5%左右。从整体上看该仓库的空间利用率很高,还有一点拥挤的现象。分析认为:应该相对的减少一些物理空间的使用,增加一些作业空间中安全间歇等空间的使用。另外