基于SQL和VB的库存管理系统设计

1、库存管理系统设计stock management system design院 系数学与计算机科学系_专 业 信息管理与信息系统 _ 学 生 班 级 2007级_ 组员 # # # _ 学 号 # # # 指导教师单位数学与计算机科学系 _ 指导教师姓名 # _ 指导教师职称 讲师_ 库存管理系统设计摘要随着我国改革开放的深入,企业间的竞争日益加大，为在激烈的国际市场中求生存,如何提高企业的管理水平已成为各行各业共同关心的问题。而库存管理作为企业现代化管理的重要组成部分，是企业进行生产、计划和控制的基础，在企业生产经营活动中,库存管理既必须保证生产车间对原材料零部件需求,又直接影响采购销售部门

2、的购销活动，能否对库存进行科学的管理，将直接影响企业其他各部门的生产运作的好坏。本组的“库存管理系统设计”是基于sql server和visual basic程序语言的基础上实现的。主要有【仓库管理】【入库管理】【填写入库清单】【出库管理】模块，实现了企业仓库、货位、出库与入库信息统计和库存分析、清仓盘库管理的功能，这对全面监控企业商品的进、出、存等各种状况，为计划及决策人员提供实时准确的库存信息，以便及时调整生产，保证企业各项生产经营活动的顺利进行有着重要的意义。关键词: 库存管理， visual basic，sql serverstock management system designa

3、bstractas chinas reform and opening up, in the fierce international market to survive, fight the development of chinese industries have become issues of common concern.as an important part of the modernize management, stock management is the basics of manufacture,plantation and control.stock managem

4、ent must meet the worshop for raw materials,and it is directly affect the daily buying and selling activity of the sales deparment,whether the enterprise can manage the stock scientifically,will directly affect the work of other deparments.stock management is the foundation of enterprises manufactur

5、e ,plan and control,and it is also a component of the modem enterprise management. stock management must ensure the production workshops demand of the spare parts of the raw materials,and derectly affect the activities of the purchasing and sales departments. whether the enterprise can manage the st

6、ock scientifically and effectively. this paper has analyzed the stock management system basic functions and composition of the system ，including requirements analysis，system structure，function modules and system design explanation. stock management monitor all kinds of state of purchase ，shipping an

7、d stock of the enterprisekey words: stock management , visual basic，sql server，目录1 系统概述11.1 系统调查概述 11.2 系统目标 21.3 系统开发工具及计划22 系统分析3 2.1 系统需求分析 3 2.1.1 业务流程分析 3 2.1.2 数据流程分析 4 2.2 系统可行性分析 6 2.2.1经济可行性分析6 2.2.2技术可行性分析72.2.3管理可行性分析7 2.3 系统逻辑模型 83 系统设计 8 3.1 系统总体设计 8 3.2 系统详细设计 8 3.3 系统数据库设计 114 系统实施124

8、.1登陆界面 124.2主界面 124.3仓库管理相关界面 134.4入库管理相关界面 154.5出库管理相关界面 154.6库存管理相关界面 164.7仓库信息查询 174.8入库清单查询 184.9出库清单查询 184.10库位信息查询 195系统调试 19 6 总结与展望 20 致谢 21参考文献 21附录 221 系统概述1.1系统调查概述本小组组员上一次暑假期间在百利公司进行社会实践，通过那次的体验进行了调查了解，对该公司的出库、入库、库存管理环节的流程有了较为详细的了解，同时发现了公司采用传统的库存管理存在的问题。商品入库的过程是，当购入商品到货后，负责进货的人员首先填写入库单，然

9、后经仓库管理人员对商品的质量及数量进行核查后方可入库，并更新商品入库流水账，另外如果是新产品，则还要在库存台账中建立新账页。商品出库管理过程是管理人员根据销售人员提供的商品出库单，经核查后付货，同时登记商品销售流水帐，累计汇总出各种商品当日的累计购入入库量、累计销售出库量和库存结余量等数据，并将这些数据填入库存信息表。作为制造类企业，公司的往来业务较为频繁，库存作业相对较大，平均看来，仓库每天分别要对35笔入库单据和40笔出库单据进行登记汇总并形成库位信息表和库存信息表。产品入库单如表1.1.1所示表1.1. 1产品入库单table1.1.1 storein form机型货号名称单价规格颜色数

10、量备注经办人：产品出库单如表1.1.2所示表1.1.2 产品出库单table1.1.2 storeout form机型货号名称单价规格颜色数量备注编制单位：经办人：库位信息表如表1.1.3所示表1.1.3 库位信息表table1.3 storeroom information form库位代号仓库号位号库位描述库存信息表如表1.1.4所示表1.1.4 库存信息表table1.4 store information form货号名称所在库房所在位置从以上库存管理业务的分析中，本小组成员认为现行库存管理中存在以下问题：（1）不能及时获得库存信息（2）库存信息不够准确（3）无法及时了解进货与发货情况

11、基于该公司库存管理现状及库存管理对整个企业管理的重要性，有必要专门开发一个应用于库存管理的系统，以为计划及决策人员提供实时准确的存货信息，以便及时地调整采购与生产，保证企业的各种管理业务顺利进行。1.2系统目标开发本系统的目标为：有库存管理子系统权限的用户登录进入库存管理子系统后，能够方便地进行仓库管理、入库管理、出库管理、库存管理。仓库管理可用于配置企业的仓库信息；出库、入库管理可以使管理人员管理各种类型的货物进出：库存管理可提供便捷的库存查询管理。同时，用户还可以方便地得到整理后的各种报表，包括仓库信息表、入库清单、出库清单和库存信息表。通过这四个报表的自动生成和格式化，用户可以更为直观地

12、得到库存部门日常所需的各种信息，以做好整个企业的销售工作。1.3 系统开发工具及计划本系统采用visual basic + sql server2000进行开发，开发计划如下（1）5月1日至5月16日：对企业进行调查，准备课程设计的原始资料（2）5月17日至5月23日：分析相关的调查结果（3）5月24日至5月30日：系统分析，系统设计，系统实施（4）5月31日至6月6日：由老师验收、指导系统设计（5）6月7日至6月15日：由老师验收、指导系统文档撰写（6）6月16日：系统论文2 系统分析2.1系统需求分析从企业的库存物资管理方面来说，由于所掌握的物资种类众多，订货、管理、发放的渠道各有差异，各

13、个企业之间的管理体制不尽相同，各类统计报表繁多，若采用人工记账的方式进行管理，很难满足企业库存管理需求。而从企业整体管理的角度上看，一个完整的企业物资供应管理系统应包括采购计划管理、合同托收管理、仓库库存管理、定额管理、统计管理、财务管理等模块。其中的仓库管理是整个物资供应管理系统的核心。因此有必要开发一套独立的库存管理系统来控制合理的库存费用、适时适量的库存数量，是企业生产活动效率最大化。库存管理系统通过对仓库、货位、入出库类型与入出库单据的管理，通过库存分析、清仓盘库管理来实现对企业库存的管理，全面监控企业商品的进、出、存等各种状况。通过分析总结可以得出，企业的库存管理系统需满足以下功能：

14、（1）具有进行起初建账、系统盘点、数据备份等系统初始化功能；（2）能够进行企业物料基础数据的设置（包括仓库、货物、部门、项目设置）（3）可以根据企业实际情况，进行仓库管理。如出库、入库、盘点操作等；（4）对库存货物可进行数据查询，如出入库统计查询、库存信息查询等。2.1.1业务流程分析：系统的业务流程主要包括三个部分：采购、部门领料和库存盘点。（1）采购的业务流程是：采购员持采购订单交货、仓库保管员在系统中对采购订单做送检通知单，并打印一式两份后，到质检部门申请质检；质检员在送检通知单上填写质检结果，一份由质检部存档，一份交采购员办理入库手续 ；仓库保管员凭送检通知单在系统中做物料接收业务，并

15、打印百利厂采购单交采购员 ；采购接收业务完成登记 。 物料登录时按照入库单上的实收数量，进货途径，进货价等内容进行。如仓库原有此物料，则在原有库存量上增加入库数量；如仓库没有这种物料，则应在库存总帐上登录新品种。（2）部门领料的流程很简单，各部门主要通过仓库领取物资，只需要填写部门领料单即可。领料业务的基本流程有:领料人员持领料单，到仓库领料,仓库保管员对领料单上的领料用途，根据领料单上的物料编码和数量按照系统发料数量进行实物发料。 领料业务流程完成 。 （3）库存盘点用于登记仓库中物质的养活和增加情况，并使实际库存和数据库中的库存数目保持一致。现行产品库存管理业务流程图如图所示：车间入库单合

16、格入库单检 验仓库出库单出库登记出库清单入库清单仓库清单仓库清单入库记账入库帐图2.1商品入库、出库图fig2.1figure out the library storage of goods2.1.2数据流程分析使用该系统首先登入，随后进行用户信息验证，通过后进入主窗体，然后进入以下任一子模块：系统，仓库管理，入库管理，出库管理，综合管理，盘存管理，附项分类，历史数据管理，打印查询。其中入库管理，综合管理，出库管理。要进入下一模块库存汇总再进入数据备份单元，其他除打印查询模块外，直接进入数据备份单元，然后将备份数据输出。打印查询模块则进入货品入库单，货品出库单，经办人员报表环节。数据流程图如

17、下：登录库存管理系统验证用户信息系统主窗体仓库管理入库管理出库管理综合管理盘存管理附项分类历史数据管理打印、查询货品入库单货品出库单经办人人员报表库存汇总数据备份备份输出密码错误汇总计算图 2.2数据流程图fig.2.2 data flow diagram货品信息管理数据流程为：首先进行货品登记，录入基本信息，然后进行货品基本信息管理，之后进入货品调配汇总单元，随后进入货品其他信息管理单元。入库货品信息管理和出库货品信息管理单元则直接进入货品调配汇总单元再进入货品其他信息管理模块。如下图：货品信息管理数据流程图：入库货品信息管理出库货品信息管理货品其他信息管理货品调配汇总基本信息录入货品登记货

18、品基本信息管理 图1.3货品信息管理数据流程图 fig.1.3 information management data flow of goods2.2 系统可行性分析2.2.1经济可行性分析由于本库存管理系统所要求的硬件（计算机及相关硬件）和软件环境(visual basic+sql server 2000)，市场上都容易购买到或从相关网站下载，系统成本主要集中在本管理系统的开发与维护上，对用户不会造成过重的经济负担。而一旦此系统投入使用,不仅可以减少库存的工作强度，提高工作效率，而且方便了库存对信息的管理，延续了传统的管理模式，极大限度地方便了库存管理人员，而且，目标系统不是很复杂，开发的

19、周期较短，人员经济支出不大，所节省的大量人力、财力产生的效益将远远大于本系统的开发成本，所以从经济方面讲开发此系统是可行的。2.2.2技术可行性分析技术上的可行性分析要考虑现有技术条件能否顺利完成开发工作及将来要采用的硬件和软件技术能否满足用户提出的要求（如计算机的容量、速度等）。本系统采用visual basic作为系统应用程序开发工具，采用sql server 2000建立数据库，并通过visual basic中的ado控件使两者进行连接从而进行系统软件开发。visual basic不仅能帮助软件开发者提高软件开发的质量和效率，缩短开发周期，而且还具备强大的数据库管理功能，完全能够满足本系

20、统的开发需求。 此外，从开发人员的水平考虑，作为信息管理与信息系统专业毕业的学生，大学三年所积累的专业知识使我们从一定程度上具备了开发一个小型系统的能力，而且学校现有的计算机设备也完全能够满足开发的需要。2.2.3管理可行性分析该系统可以提高管理工作的质量和效率，主要表现在以下几个方面：（1）实现库存管理的“动态”化，能及时地提供库存商品动态信息，配以库存报警功能，在库存过高或过低时，都给予提示。（2）强大的统计分析功能，利用计算机工具以各种方式统计出销售等情况，以便于整体营销策略的调整。（3）方便的查询功能，能快速实现对各种商品的入库、销售及库存情况的查询。（4）系统的开发与使用与现行的管理

21、制度没有冲突，而且现在员工通过培训可以很容易掌握和使用系统。综上所述，本库存管理系统投资少、收益大，且其运行操作简单易学，具备了开发的可行性。2.3 系统逻辑模型产品出入库单录 入库存台帐统计分析查 询收发存月报报警数据查询条件显示结果根据前面的分析结果，我们提出的系统逻辑模型如下图所示：图2.1系统逻辑图fig.2.1 system logic diagram3 系统设计3.1 系统总体设计系统开发的总体任务是实现企业物资设备管理的系统化、规范化和自动化，从而达到企业仓库库存管理效率的目的。系统功能分析是在系统开发总体任务的基础上完成的。本库存管理系统需要完成的功能有：（1）库存管理的各种信

22、息的输入，包括入库、出库、货品信息的输入等。 （2）库存管理的各种信息的查询、修改和维护。 （3）入库单、出库单的生成，日报表、月报表的生成。 （4）在货品库存中加入所允许的最低库存字段，对所有库存物资实现监控报警。 3.2 系统详细设计进入系统管理子系统之后，用户可进行的操作有主系统初始化设置、主系统用户管理、数据库存配置检查和数据表管理。库存管理子系统功能结构图如仓库管理出库管理库存管理仓库信息查询入库清单查询出库清单查询库存信息查询仓库信息的查询入库管理仓库信息的录入仓库信息的修改仓库信息的查询添加入库信息货物查询库存查询库存转移仓库信息的查询表入库清单出库清单库存信息的查询报表库 存

23、管 理 子 系 统图所示图3.1功能结构图fig.3.1 function chart本应用程序由10个窗体组成，主要的分别是：主窗体，登陆窗体，仓库管理窗体，入库管理窗体，出库管理窗体，库存管理，、仓库信息查询等窗体组成。3.2.1库存管理相关界面设计仓库管理窗体可进行对仓库管理信息的工作，包括浏览所有的仓库管理信息。通过添加、修改、删除等功能键实现对仓库管理信息的工作，以便仓库部门的管理员能够具有一个管理仓库信息的平台。仓库管理信息编辑窗体则具体完成对库位信息的添加和修改工作。如果是添加状态，则在该窗体上可以添加一个新的库位资料。同时当进入窗体为修改状态时，可以方便地在窗体中修改库位资料中

24、的各项信息。3.2.2 入库管理相关界面的设计入库管理窗体可以完成对入库信息的管理工作，包括浏览所有的入库信息。通过添加功能键实现对入库信息的管理工作，以便仓库管理部门的管理员能够具有一个管理入库信息的平台。入库信息编辑窗体则具体完成对入库信息的添加工作。如果是添加状态，则在该窗体上可以添加一个新的入库清单资料。3.2.3 出库管理相关界面设计出库管理窗体可进行对出库信息的管理工作，包括浏览所有的出库信息，通过添加功能键实现对出库信息的管理工作，以使仓库部门的管理员能够具有个管理出库信息的平台。出库信息编辑窗体则具体完成对出库信息的添加工作。如果是添加状态，则在该窗体上可以添加一个新的出库清单

25、资料。3.2.4库存管理相关界面设计库存管理窗体可以完成对库存信息的添加工作，包括浏览所有的库存信息。通过查找等功能键实现对库存信息的管理工作，以便仓库部门的管理员能够具有一个管理库存信息的平台。库存转移管理窗体可以对库存货物进行转移库位的操作。3.3 系统数据库设计根据前一节进行的系统分析可知，本系统的数据主要从库位、库存、入库和出库四个方面获取，为此，我们设计的库存管理子系统涉及4个数据表：库位信息表，库存信息表、入库信息表和出库信息表。库位信息表storeroom用来保存库位信息。表storeroom的结构如表3.1所示。表3.1库位信息表table3.1 storeroom infor

26、mation form字段名称数据类型大小必填字段说明storeid文本30是库位代号storeroom文本30是仓库location文本30是位置dercription文本30是库位描述库存信息表store用来保存成为库存信息表。表store的结构如表3.2所示。 表3.2 库存信息表 table3.2 store information form字段名称数据类型大小必填字段说明item文本30是存货货号qty文本30是存货数量storeroom文本30是仓库号location文本30是位置号入库信息表storein用存储产品入库信息。表storein的结构如表3.2所示。表3.3 入库信息

27、表 table3.3 storein infromation form字段名称数据类型大小必填字段说明storeinid文本30是产品入库编号storeintype文本30是入库类型item文本30是货号unitprice文本30是单价currency1文本30是货币qty文本30是入库数量storeroom文本30是仓库location文本30是位置fillinperson文本30是经办人fillintime文本30是入库时间 出库信息表takeout用来保存产品出库信息。表takeout的结构如表3.4所示表3.4 出库时间表 table3.3 takeout time from字段名称数

28、据类型大小必填字段说明takeoutid文本30是产品出库编号takeouttype文本30是出库类型item文本30是货号unitprice文本30是单价currency1文本30是货币qty文本30是出库数量storeroom文本30是仓库location文本30是位置fillinperson文本30是经办人fillintime文本30是入库时间4.系统实施实现各个功能模块后，将程序连接编译成系统的可执行文件，并运行系统进行总体测试通过运行程序首先进入登陆窗体，通过输入密码，验证身份后进入主窗体，在主窗体上有8个菜单项，分别对应各自的功能模块窗体，包括系统，库存管理，入库管理，出库管理，盘

29、存管理，综合管理，附项管理，历史数据管理，打印和查询。需要哪个功能的时候就点哪个菜单，相对应的窗体会自动弹出：以下是本系统部分窗体的运行结果：4.1登录界面运行系统打来登陆窗口，在登录窗口用户名中输入“ssh”，初始密码是“123456”单击“登录”按钮进入库存管理系统，单击“取消”退出登录。如图4.1包含的控件有label1，label2，text1，text2 ，command1，command2，text控件用于录入信息，command是按钮控件图4.1登录界面fig4.1 login4.2主界面登录成功后进入系统主界面，单击各模块按钮就可进入相关窗口。如图4.2用到的控件主要是labe

30、l，用这一连接相关窗体，还有一button按钮控件用于退出系统图4.2主界面fig4.2 the main interface4.3仓库管理相关界面：在主界面上单击【仓库管理】按钮进入仓库管理界面，在仓库管理界面上单击【添加】按钮将进入库位信息编辑界面。如图4.3这里使用到datagrid控件来显示库位信息记录图4.3仓库管理界面fig4.3 storage management interface在仓库管理界面上单击【添加】按钮进入库位信息编辑界面，如图4.4所示这一窗体主要用到的控件是textbox，和button图4.4仓库管理界面fig4.4 storage management in

31、terface同样在仓库管理界面上单击【修改】按钮也将进入库位编辑界面，不同之处在于修改时窗口自动载入已有信息。在修改id是不可修改。在仓库管理界面上单击删除，将出现删除提示，确认后将删除选定仓库信息。4.4入库管理相关界面：在主界面上单击【入库管理】按钮进入入库管理界面，如下图4.4所示使用到的主要控件有label，dtpicker，combobox，datagrid，image，adodc1dtpicker是显示要选择的日期，combobox是用于选择入库类型，adodc1控件连接数据库，所连接到的数据库将在datagrid中显示出来图4.5入库管理界面fig4.5 storage man

32、agement interface在入库界面上单击【填写入库清单】按钮将进入入库编辑界面，如图4.5所示主要控件有label， datagrid， adodc，combobox，textbox入库记录通过datagrid显示图4.6入库清单界面fig4.6 warehouse inventory interface4.5出库管理相关界面：在主界面上单击【出库管理】按钮进入出库管理界面，如图4.6所示所使用到的主要控件有label，dtpicker，combobox，datagrid，image，adodc1图4.6 出库管理fig.4.6 takeoutmanage diagram在出库管理界

33、面上单击【填写出库单】按钮将进入出库单编辑界面，如图4.7所示使用到的主要控件有label， datagrid， adodc，combobox，textbox图4.7 填写出库单figure 4.7 fill chu kudan4.6库存管理相关界面在主界面上单击【库存管理】按钮将进入库存管理界面，如图4.8所示所使用到的主要控件有label， datagrid， adodc，combobox，textbox图4.8库存信息fig.4.8 stock information在库存管理界面中可以按库位查询也可以按货号查询。在查询出相应的货物后可以对其进行库位转移。进入库位转移界面，如图4.9所示

34、所使用到的主要控件有label， adodc，combobox，textbox，image图4.9 库存转移fig 4.9 stock transfer4.7 仓库信息查询在主界面上单击【仓库信息查询】按钮进入仓库信息报表，如图4.10所示，仓库查询报表是通过数据环境设计来实现的，添加一个data environment图 4.10 仓库清单fig 4.10 warehouse inventory4.8入库清单查询在主界面上单击【入库清单查询】按钮进入入库信息查询选择界面，如图4.11所示 使用到的主要控件有label，dtpicker，combobox，datagrid，image，图4.1

35、1 入库查询fig 4.11 query storage确定选择项目后单击【确定】按钮进入入库清单，如图4.12所示图4.12仓库清单界面fig4.12 warehouse inventory interface4.9出库清单查询在主界面单击【出库清单查询】按钮进入出库查询选择界面，如图4.13所示，所使用到的主要控件有label，dtpicker，combobox，datagrid，image，图4.13出库查询figure 4.13 library check确定选择项目后单击【确定】按钮进入出库清单，如图4.14所示图4.14 出库清单figure 4.14 library list4.

36、10 库位信息查询在主界面上单击【库存信息查询】按钮进入清单。如图4.15所示图4.15 库存清单fig 4.15 inventory5系统调试 实现各个功能模块后，将程序连接编译生成系统的可执行文件，并运行系统进行总体测试，如有错误将会自动中断运行，跳出调试窗口， 点击“调试”，如代码错误，光标会显示在出错的地方，这时就可以进行相应的调试，纠正错误，调试完再次运行测试是否调试正确。通过多次系统调试处理一些错误命令后才可使系统正常运行。6 总结与展望本系统采用visual basic 6.0开发工具,开发erp系统中的库存管理子系统，它将完成出库部门日常信息的整理。至此，经过系统分析，设计和编

37、码等过程，整个库存管理系统的开发已经完成。用户可以方便的得到整理后的报表，通过报表，可以直观地得到库存部门日常所需的各种信息，辅助做好整个企业的销售工作。但是各部门使用的管理信息系统各不相同，在数据共享方面的业务上出现很多复杂性的工作，所以在这一方面还有开发的空间。如果经过更周密的调查制定详细的企业信息化发展战略，在企业信息化道路上的投入将能满足erp系统的实施致谢由于以前对visual basic的接触并不是很多，对它的开发环境不是非常了解，所以在程序的开发过程中遇到了很多的困难，但经过指导老师和同学的帮助，一一化解了困难，并从中学到了很多编程方面的知识。但是由于经验方面的原因，以及对库存方

38、面的操作流程了解不足，该系统还有许多不尽如人意的地方和功能上的缺陷，这些都有待于进一步改善。本组能够顺利地完成本次课程设计，首先要感谢陈开慧老师对我们的悉心培养和指导。其中，无论在理论上还是实践中，都给予我们组员很大的收获，使我们得到不小的提高。参考文献1 陈华. 库存管理系统中数据库的设计与实现j. 电脑开发与应用, 2009, (01)：58-69 .2 戴小波. 基于大型超市库存管理系统的设计方法j. 物流科技, 2007, (04)：125-178 .3 张莉萍. 库存管理系统j. 考试周刊, 2008, (01):45-85 .4 于艳秋. 库存管理系统的开发与设计j. 电大理工,

39、2004, (04) :458-462.5 叶绍松,阮祥发,赵燕. 基于sqlserver2000数据库的库存管理系统的设计与研究j. 机械设计与制造, 2006, (02) :236-258. 6 卢圣晶. 企业库存管理系统j. 科技广场, 2007, (11):147-189 . 7 薛惠,何栋. 企业库存管理信息系统的设计与实现j. 中小企业管理与科技(上旬刊), 2009, (01):364-382 . 8 陈园. 中小型民营企业的库存管理系统的设计j. 华商, 2008, (15) :201-232. 9 朱赟花. 零售企业商品库存管理j. 中外物流, 2006, (05):18-3

40、4 . 10 杨少东,刘喜双. 物流库存管理系统j. 中国高新技术企业, 2007, (09):104-137 .11 kemp, z.,meaden, g. visualization for fisheries management from a spatiotemporal perspective. academic journal,2009,(2):165-19812 gattulli, vincenzo, condition assessment by visual inspection for a bridge management system. academic journal

41、,2008,(5):15-3213 chvez, ernesto a. policy design for spiny lobster (panulirus argus) management at the meso-american barrier reef system. academic journal,2007,(2):236-25614 wolfe, joseph, a study of business game stock price algorithms. academic journal,2007,(3):348-36415 george,dallery, base stoc

42、k versus wip cap in single-stage make-to-stock production-inventory systems.2010,(6):254-298附录1.登录窗口：private sub command1_click()dim sjy as adodb.recordsettxtsql = select * from admin where yhm= & trim(text1.text) & set sjy = exesql(txtsql)if sjy.recordcount = 0 thenmsgbox 没有这个用户, vbokonly + vbexcla

43、mation, 信息提示text1.text = text2.text = text1.setfocussjy.closeexit subend ifif trim(text2.text) trim(sjy.fields(mm) thenmsgbox 密码不正确！, vbokonly + vbexclamation, 信息提示text2.text = text2.setfocussjy.closeexit subend ifunload mefrmmanstocks.showend sub2.frmmanstocks为系统主界面:响应【仓库管理】按钮单击事件: private sub lbls

44、toreroomset_click()frmstoreroom.showend sub响应【入库管理】按钮单击事件: private sub lblstoreinset_click()frmstoreinman.showend sub响应【出库管理】按钮单击事件 : private sub lbltakeoutset_click()frmtakeoutman.showend sub响应【库存管理】按钮单击事件:private sub lblstoreroomset_click()frmstoreroom.showend sub响应【仓库信息查询】按钮单击事件 private sub lblst

45、orequry_click()datareportstore.show 1dataenvironmentstore.rscmdstoreroom.closeend sub响应【入库清单查询】按钮单击事件 private sub lblstoreinqury_click()frmstoreinqury.showend sub响应【出库清单查询】按钮单击事件 private sub lbltakeoutqury_click()frmtakeoutqury.showend sub响应【库存信息查询】按钮单击事件private sub lblstorequry_click()datareportsto

46、re.show 1dataenvironmentstore.rscmdstore.closeend sub3.仓库管理窗体加载过程private sub form_load()adodc1.connectionstring = driver=sql server;server= + trim(server) + ;uid= + trim(user) + ;pwd= + trim(password) + ;database=erpadodc1.recordsource = select * from storeroomset datagrid1.datasource = adodc1set da

47、tagrid1.datasource = adodc1refresh_storeroomend sub【添加】按钮单击事件：private sub lbladd_click()frmstoreroomedit.caption = 添加库位frmstoreroomedit.modify = falsefrmstoreroomedit.show 1refresh_storeroomend sub【修改】按钮单击事件：private sub lblmodify_click()保存待修改记录的原始idfrmstoreroomedit.oristoreid = trim(adodc1.recordset

48、.fields(0)把待修改信息添加到编辑窗口frmstoreroomedit.txtstoreid = trim(adodc1.recordset.fields(0)frmstoreroomedit.txtstoreroom = trim(adodc1.recordset.fields(1)frmstoreroomedit.txtlocation = trim(adodc1.recordset.fields(2)frmstoreroomedit.txtdescription = trim(adodc1.recordset.fields(3)frmstoreroomedit.txtstoreid.enabled = falsefrmstoreroomedit.caption = 修改库位信息frmstoreroomedit.modify = truefrmstoreroomedit.show 1refresh_storeroomend sub【删除】按钮单击事件：private sub lbldelete_click()dim