仓储管理系统-白玉凤张强.doc

目录1.开发必要性22.系统目标23. 系统分析23.1需求分析23.1.1功能需求23.1.2运行环境需求23.2 组织结构33.3 业务流程分析43.4 数据流程图53.5 数据字典83.5.1 数据项定义83.5.2数据结构定义113.5.3数据流定义123.5.4 数据存储133.5.5数据处理143.5.6 外部项144. 系统设计154.1总体设计154.1.1需求规定154.1.2 运行环境154.1.3模块结构图164.1.4功能结构图164.2 代码设计174.3 数据库设计194.3.1概念结构设计194.3.2逻辑结构设计194.3.3物理结构设计204.4 输入输出及界面设计204.4.1 用户部分界面设计204.4.2 操作员部分界面部分：244.5 小结314.6 部分程序设计315.系统测试395.1 反应时间的性能测试395.2 CPU、Memory的性能测试395.3 可靠性测试396.总结&心得401.开发必要性一个好的库存管理信息系统有利于对库存物品进行及时、高效、准确的管理。不但可以提高劳动效率，还以提高库存管理人员的积极性和准确度。应用仓库管理系统，有助于企业仓储管理自动化，减少冗余，去除一些多余的步骤和环节，从而提高仓储工作人员的工作效率。本仓库管理系统可以对仓储的各环节实施全过程控制管理，并可对货物进行入库和出库的操作管理，从而实现仓储作业流程全电子化操作。另外还可以根据客户的需求制作多种合理的统计报表。2.系统目标本系统将努力建立一个友好的人机交互界面，同时系统还兼具以下4方面的内容。（1） 基本信息设置提供货品信息、仓库信息的添加、修改和查询功能。（2） 出入库管理提供货品出入库信息的登记、修改和查询功能。（3） 库存数据分析实现货品库存查询、预警等功能，并提供基础资料设置和出入库信息的报表打印等功能。（4） 系统设置应该包括用户修改密码及系统管理员添加权限用户功能。3. 系统分析3.1需求分析3.1.1功能需求(1)基本信息（包括货品信息、仓库信息）的查询、修改和添加。(2)货品入库查询、修改和添加。(3)货品出库查询、修改和添加。(4)货品库存报告及预警查询。(5)仓库财务信息查询。(6）采购方面的相关管理。(7)用户修改密码和系统管理员添加用户。3.1.2运行环境需求（1）软件需求： 1.数据库选择Microsoft Access 2010数据库。 2.操作系统选择Windows XP(Vista或7)操作系统。（2）开发工具 Visual basic 企业版（3） 网络配置表 3.1 网络选择用户每秒数据库并发数据访问记录数稳定性要求维护水平备选网络方案面积在50200的小型仓库1050(条)低差单机模式面积在2001000的中型仓库50500(条)中一般百兆模式面积在10005000的大型仓库50500(条)中一般百兆模式有多个面积在2001000的仓库群5002000(条)较高较好百兆模式总面积在5000以上的大型仓库群2000(条)以上高好千兆模式3.2 组织结构公司的组织结构图如上图所示，共由销售部、采购部、出入库管理科、仓库管理科，财务部五个部门组成。各个部门主要职能为：图 31 公司组织结构图（1）销售部主要负责处理订单和退货单，退回不合格的订单和退货单给客户，将合格的订单和退货单发送给出入库管理科。（2）采购部负责仓库货物的补充工作，及时补充货物，以保证仓库的库存状况保持在正常的水平。（3）出入库管理科负责货品的出入库，根据订单检查、拣选货品，选择适合的工具在仓库中对货品进行运输，保证货品正常出、入库。（4）仓库管理科负责管理货品状态、修改货物信息，负责出入库信息表和产品信息表的修改和维护。（5）财务部只要负责查询和审核发票及退款单。3.3 业务流程分析业务流程图如下： 图 32 系统业务流程图(1)订单业务分析用户提交订单至销售部，由销售部审核；未通过审核的订单返回给用户；通过审核的订单经销售部生成提货单并提交至出入库管理科； (2)退货单业务分析用户提交退货申请单至销售部，由销售部审核；未通过审核的退货单返回到用户；通过的审核的退货单经销售部生成退货单提交至出入库管理科；(3)采购业务分析采购员接受仓库管理科的补货信息；由补货信息开具采购单进行采购；到货后，生成到货单提交至出入库管理科。(4)仓库管理业务分析仓库管理员对仓库货物进行盘点，对库存不足的货物进行补货单生成操作。 (5)出入库管理业务分析出入库管理员根据提货单生成出库单并修改库存；根据退货单生成退货入库单并修改库存；根据到货单生成入库单并修改库存。(6)财务管理业务分析根据出库单生成发票；根据退货入库单生成退款单。3.4 数据流程图（1）顶层数据流程图图 33顶层数据流程图（2）一级分解数据流程图 图 34 一级分解数据流程图（2）二级分解数据流程图订单管理 图 35 订单管理二级分解数据流程图出入库管理 图 36 出入库管理二级分解数据流程图财务管理图 37 财务管理二级分解数据流程图退货管理图 38 退货管理二级分解数据流程图仓库管理图 39 仓库管理二级分解数据流程图采购管理图 310 采购管理二级分解数据流程图3.5 数据字典 3.5.1 数据项定义表3.2 数据项定义编号名称含义类型长度有关数据结构1-001订单编号表明订单唯一性的编码文本（text）255订单，提货单，出库单，发票1-002提货单编号表明提货单唯一性的编码文本（text）255提货单，出库单1-003出库单编号表明出库单单唯一性的编码文本（text）255出库单，发票1-004发票编号表明发票唯一性的编码文本（text）255发票，退货申请单1-005退货申请单编号表明退货申请单唯一性的编码文本（text）255退货申请单，退货单1-006退货单编号表明退款单唯一性的编码文本（text）255退货单，退货入库单1-007退货入库单编号表明退货入库单唯一性的编码文本（text）255退货入库单，退款单1-008退款单编号表明退款单唯一性的编码文本（text）255退款单1-009补货单编号表明补货单唯一性的编码文本（text）255补货单，采购单1-010采购单编号表明采购单唯一性的编码文本（text）255采购单，到货单1-011到货单编号表明到货单唯一性的编码文本（text）255到货单，入库单1-012入库单编号表明入库单唯一性的编码文本（text）255入库单1-013订单日期表明订单生成时的日期文本（text）255订单1-014提货单日期表明提货单生成时的日期日期（date）提货单1-015出库单日期表明出库单生成时的日期日期（date）出库单1-016发票日期表明发票生成时的日期日期（date）发票1-017退货申请单日期表明退货申请单生成时的日期日期（date）退货申请单1-018退货单日期表明退货单生成时的日期日期（date）退货单1-019退货入库单日期表明退货入库单生成时的日期日期（date）退货入库单1-020退款单日期表明退款单单生成时的日期日期（date）退款单1-021补货单日期表明补货单生成时的日期日期（date）补货单1-022采购单日期表明采购单生成时的日期日期（date）采购单1-023到货单日期表明到货单生成时的日期日期（date）到货单1-024入库单日期表明入库单生成时的日期日期（date）入库单1-025商品编号表明商品唯一性的编码文本（text）255系统所有单据，商品信息1-026商品名称表明商品的名称文本（text）255系统所有单据，商品信息1-027商品规格表明商品的计量单位文本（text）255系统所有单据，商品信息1-028商品单价表明商品的出售单价货币（money）系统所有单据，商品信息1-029厂家名称标明商品的生产厂家名文本（text）255系统所有单据，商品信息1-030商品库存量表明商品的现有库存量文本（text）255商品信息，补货单，采购单1-031库存上限仓库可承载的某种商品最大数量文本（text）255商品信息，补货单，采购单1-032库存下限商品数量低于此值时发出补货通知文本（text）255商品信息，补货单，采购单1-033操作员名操作员的编号文本（text）255系统所有单据，员工1-034密码操作员或用户进入系统的密码文本（text）255客户，员工1-035真实姓名操作员或用户的真实姓名文本（text）255客户，员工1-036联系方式操作员或用户的联系方式文本（text）255客户，员工1-037地址操作员或用户的居住地址文本（text）255客户，员工1-038订货数量用户订货的数量文本（text）255订单，提货单，出库单，发票1-039送货地址用户货物所要送达的地点文本（text）255订单，提货单，出库单，发票1-040客户名客户进入系统的名称文本（text）2551-041建议采购量结合上下限及库存量给出的建议文本（text）255补货单，采购单1-042实际采购量采购部结合实际采购的量文本（text）255采购单1-043处理状态各种单据的处理状态文本（text）255所有单据1-044总额客户为订单所支付的总额货币（money）发票1-045备注备注文本（text）255所有单据3.5.2数据结构定义表3.3 数据结构定义编号名称 简介有关数据结构 结构2-001订单用户提交用以采购货物的单据商品信息订单号，客户名，商品编号，商品名称，商品单价，商品数量，订单日期，送货地址，联系方式，处理状态，备注2-002提货单销售部处理订单后生成的单据订单提货单号，操作员，订单号，客户名，商品编号，商品名称，商品单价，商品数量，订单日期，送货地址，联系方式，处理状态，备注2-003出库单货物出库生成的单据提货单，订单出库单号，操作员，订单号，客户名，商品编号，商品名称，商品单价，商品数量，出库时间，送货地址，联系方式，收款状态，备注2-004发票交给客户用以表明交易凭证的单据出库单，订单发票号，操作员，订单号，客户名，商品编号，商品名称，商品单价，商品数量，总额，订货时间，联系方式，备注2-005退货申请单客户退货时提出申请的单据发票退货申请单号，客户名，商品编号，商品名称，商品单价，商品数量，退货原因，申请时间，联系方式，备注，处理状态2-006退货单经销售部审核后的退货的退货申请单退货单号，操作员，退货申请单，客户名，商品编号，商品名称，商品单价，商品数量，退货原因，申请时间，联系方式，备注，处理状态2-007退货入库单所退货物入库后生成的单据退货单退货入库单号，操作员，退货申请单号，客户名，商品编号，商品名称，商品单价，商品数量，退货原因，申请时间，退款状态，备注2-008退款单根据退掉的货物生成的退款凭证退货入库单退款单号，操作员，退货申请单编号，客户名，商品编号，商品名称，商品单价，商品数量，总额，申请时间，联系方式，备注2-009补货单盘点库存发现货物不足生成的补货说明商品信息补货单号，操作员，生成时间，商品编号，商品名称，库存上限，库存下限，当前库存，建议采购量，处理状态，备注2-010采购单根据补货单内容进行采购的单据补货单采购单号，操作员，补货单号，商品编号，商品名称，建议采购量，实际采购量，采购日期，供应商，处理状态，备注2-011到货单货物到达时表明其相关信息的单据采购单到货单号，操作员，采购单号，商品编号，商品名称，到货量，采购单价，到货时间，供应商，入库状态，备注2-012入库单到货入库后生成的单据到货单入库单号，操作员，到货单号，商品编号，商品名称，入库量，商品单价，入库时间，供应商，备注2-013商品信息表明商品个属性商品编号，商品名称，商品规格，商品单价，厂家名称，库存量，库存上限，库存下限，备注2-014员工表名员工各属性操作员名，密码，真实姓名，联系方式，地址3.5.3数据流定义表3.4 数据流定义编号代号名称来源去向组成3-001F1订单用户P1订单3-002F2不合格订单P1用户3-003F3提货单P1P2提货单3-004F4出库单P2P3出库单3-005F5发票P3用户发票3-006F6退货申请单用户P4退货申请单3-007F7不合格申请单P4用户3-008F8退货单P4P2退货单3-009F9退货入库单P2P3退货入库单3-010F10退款单P3用户退款单3-011F11库存信息D1P5商品信息3-012F12补货单P5P6补货单3-013F13到货单P6P2到货单3-014F14修改库存信息D3P63-015F15提取货物信息P2D13-016F16订单信息P1.1D2订单3-017F17合格订单P1.1P1.2订单3-018F18出库信息P2.1D4出库单3-019F19入库信息P2.2D5入库单3-020F20退货入库信息P2.3D6退货入库单3-021F21修改库存信息P2.4D13-022F22发票信息P3.1D7发票3-023F23退款单信息P3.2D8退款单3-024F24退货申请单信息P4.1P4.2退货申请单3-025F25合格退款申请单P4.2P4.3退货申请单3-026F26补货信息P5.1P5.2补货单3-027F27采购单D12P6.2采购单3.5.4 数据存储表3.5 数据存储编号代号名称输入数据流输出数据流组成有关的数据处理过程4-001D1库存信息F15,F21F11,F15商品信息P1,P2，P2.4,P5,P5.14-002D2订单记录F16订单P1.14-003D3提货单记录F3F3提货单P1.24-004D4出库单F18F4，F18出库单P2.1,P2.44-005D5入库单F19F19入库单P2.2,P2.44-006D6退货入库单F20F9,F20退货入库单P2.3,P2.44-007D7发票F22F5发票P3.14-008D8退款单F23F10退款单P3.24-009D9退货申请单F24退货申请单P4.24-010D10退货单F8F8退货单P4.34-011D11补货单F12F12补货单P5.24-012D12采购单F27F27采购单P6.1,P6.24-013D13到货单F13F13到货单P6.23.5.5数据处理表3.6 数据处理编号代号名称输入数据流输出数据流处理过程5-001P1订单管理F1,F15F2,F3处理用户提交的订单5-002P2出入库管理F3,F8,F13F4,F9,F14进行商品出入库的操作5-003P3财务管理F9，F4F5,F10进行生成发票及退款单操作5-004P4退货管理F6F7，F8处理用户退货5-005P5仓库管理F11F12进行库存盘点5-006P6采购管理F12F13进行商品采购5-007P1.1验证订单F1F2,F16，F17验证用户提交的订单是否合理5-008P1.2生成提货单F17F3结合合格订单信息生成提货单5-009P2.1出库管理F3F18进行商品出库操作5-010P2.2入库管理F8F19进行商品入库操作5-011P2.3退货入库管理F13F20进行商品退货入库操作5-012P2.4修改库存信息F18，F19,F20F21修改库存信息5-013P3.1生成发票F4F22生成用户的发票5-014P3.2生成退款单F9F23生成退款单5-015P4.1生成退货申请单F5，F7F6生成退货申请单5-016P4.2检查退货申请单F6F24，F25检查退货申请单是否合理5-017P4.3生成退货单F25F8合格退货申请单生成退货单5-018P5.1库存盘点F11F26盘点商品库存5-019P5.2生成补货单F26F12对库存不足货物进行补货通知5-020P6.1开采购单F12F27结合补货单开局采购单进行采购5-021P6.2采购并到货F27F13商品到货，生成到货单3.5.6 外部项表3.7 外部项定义编号名称 说明 输入数据流 输出数据流6-001用户购买本公司货物的用户F2,F5,F7,F10 F1,F64. 系统设计4.1总体设计4.1.1需求规定 主要功能包括系统管理、订单管理、出入库管理、财务管理、仓库管理和采购管理。4.1.2 运行环境（1） 软件需求：Windows Vista home basic，Internet Explorer(IE)7.0及其以上版本（2） 硬件需求：CPU：PIII 500以上 内存：512M以上硬盘空间：GB以上（3） 开发环境Windows Vista home basic（4） 开发工具Visual Basic（5） 数据库管理系统Microsoft Access 2010 4.1.3模块结构图图4.1-1模块结构图4.1.4功能结构图功能结构图详细描述了本系统的功能模块的划分，如下图：图4.1-2 功能结构图4.2 代码设计系统中各实体包括各类单据，用户，员工，商品等，本小节对各实体的编码设计如下:商品及各表单编码采用混合码，即表意码与顺序码相结合的方式。以商品编码为例：表意码：product+顺序码：1。即组合为商品编号为product-1的商品，该编码由程序自动生成；而员工和用户的编码为自定义的用户名。4.3数据库设计4.3.1概念结构设计数据库中实体为用户，员工和商品，以及传递的这种表单：图4.3-1 ER图注：一张订单只对应一种商品，由一个职工操作，与提货单一对一；一张采购单只对应一种的商品且与一张补货单对应；一张补货单，每一次只对一种商品进行进行补货。4.3.2逻辑结构设计客户信息表（客户名，密码，真实姓名，联系方式，地址）操作员(操作员名，密码，真实姓名，联系方式，地址)商品信息（商品编号，商品名称，商品规格，商品单价，厂家名称，库存量，库存上限，库存下限，备注）订单（订单号，客户名，商品编号，商品名称，商品单价，商品数量，订单日期，送货地址，联系方式，处理状态，备注）提货单（提货单号，操作员，订单号，客户名，商品编号，商品名称，商品单价，商品数量，订单日期，送货地址，联系方式，处理状态，备注）出库单（出库单号，操作员，订单号，客户名，商品编号，商品名称，商品单价，商品数量，出库时间，送货地址，联系方式，收款状态，备注）发票（发票号，操作员，订单号，客户名，商品编号，商品名称，商品单价，商品数量，总额，订货时间，联系方式，备注）退货申请单（退货申请单号，客户名，商品编号，商品名称，商品单价，商品数量，退货原因，申请时间，联系方式，备注，处理状态）退货单（退货单号，操作员，退货申请单，客户名，商品编号，商品名称，商品单价，商品数量，退货原因，申请时间，联系方式，备注，处理状态）退货入库单（退货入库单号，操作员，退货申请单号，客户名，商品编号，商品名称，商品单价，商品数量，退货原因，申请时间，退款状态，备注）退款单（退款单号，操作员，退货申请单编号，客户名，商品编号，商品名称，商品单价，商品数量，总额，申请时间，联系方式，备注）补货单（补货单号，操作员，生成时间，商品编号，商品名称，库存上限，库存下限，当前库存，建议采购量，处理状态，备注）采购单（采购单号，操作员，补货单号，商品编号，商品名称，建议采购量，实际采购量，采购日期，供应商，处理状态，备注）到货单（到货单号，操作员，采购单号，商品编号，商品名称，到货量，采购单价，到货时间，供应商，入库状态，备注）入库单（入库单号，操作员，到货单号，商品编号，商品名称，入库量，商品单价，入库时间，供应商，备注）4.3.3物理结构设计物理结构设计是在已经确定的逻辑结构基础上，权衡各种软件硬软环境和其他要求因素，确定一种高效的物理存储结构的过程。4.4 输入输出及界面设计4.4.1 用户部分界面设计1.登录界面设计主要用于用户登陆，通过身份验证（包括用户名和密码），使得合法用户进入库存管理信息系统中进行下一步操作：图4.4-1 用户登陆界面2.用户功能界面设计当用户成功登陆后，即可进入此页面，进行其权限内的各项操作：图4.4-2 用户功能界面3.用户查看商品信息并提交订单用户进入其界面后，即可进行相关操作，假设用户开始进行采购，生成订单：图4.4-3 用户查询商品图4.4-4 用户查看商品提交订单界面4.用户查看订单状态用户提交订单后，即可实时观察其订单状态，查看订单是否被受理，或者订单被受理后所在的状态，可发现刚提交的订单还未被受理：图4.4-5 用户查看订单状态界面5.用户提交退货申请单用户在发现对所购买获取不满意想进行退货时，可进行由已生成的发票生成退货申请单，进行提交：图4.4-6 用户提交退货申请单界面6.查看退货状态过程同订单状态：图4.4-7 用户查看退货状态界面4.4.2 操作员部分界面部分：1.登录界面设计主要用于操作员登陆，通过身份验证（包括用户名和密码），使得合法操作员进入库存管理信息系统中进行下一步操作：图4.4-8 操作员登陆界面2.操作员功能界面设计当操作员成功登陆后，即可进入此页面，进行其权限内的各项操作：图4.4-9 操作员功能界面注：以下按流程只展示流程部分，查询以及例如用户管理及商品信息管理的系统功能不进行展示。3.生成提货单界面设计操作员审核客户提交的订单，如果订单信息不实，则可取消订单（界面展示略）。审核通过后，即可对其进新生成提货单：图4.4-10 生成提货单界面4.生成出库单界面设计提货单到达出入库管理科后，出入库管理科根据提货单生成出库单：图4.4-11 生成出库单界面5.生成发票界面设计货物出库同时，在收到货款后，财务部进行生成发票的操作：图4.4-12 生成发票界面6.生成退货单设计根据用户提交的退货申请单审核合格后生成退货单： 图4.4-13 生成退货单界面7.生成退货入库单设计根据提交的退货单生成退货入库单：图4.4-14 生成退货入库单界面8.生成退款单设计根据提交的退货入库单生成退款单：图4.4-15 生成退款单界面9.生成补货单设计根据盘点情况对库存不足的货物生成补货单，分两种情况：库存充足时，图4.4-16 库存充足时生成补货单库存不足时：图4.4-17 库存不足时生成补货单10.生成采购单设计根据补货单生成采购单：图4.4-18 生成采购单界面11.生成到货单设计根据采购单生成到货单：图4.4-19 生成到货单界面11.生成入库单设计根据到货单生成入库单：图4.4-20 生成入库单界面4.4.3 系统版权关于界面设计图 4.4-21 系统关于界面4.5 小结本节所示为本系统输入输出设计以及用户界面设计，是库存管理信息系统的主要实现形式。设计时主要以经济，简洁，易操作为原则。4.6 部分程序设计1.用户提交订单：Option ExplicitPublic cn As New ADODB.ConnectionPublic rs1 As New ADODB.RecordsetPublic rs As New ADODB.RecordsetDim a As StringDim b As IntegerPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub Command0_Click()txt(2).Enabled = True rs.Open select * from 订单 order by 订单号 asc, cn, adOpenKeyset, adLockOptimistic If Not rs.EOF Then rs.MoveLast txt(0).Text = CStr(Order- & rs.RecordCount + 1)Else txt(0).Text = Order-1End Iftxt(2).Enabled = Falsers.Closetxt(1).Text = loginusertxt(1).Enabled = FalseEnd SubPrivate Sub cmdEdit_Click() If txt(2).Text = Or txt(3).Text = Then MsgBox 请选择商品！, vbCritical, 警告 Exit Sub Else If txt(0).Text = Or txt(1).Text = Then MsgBox 请输入用户名或订单号, vbCritical, 警告 Exit Sub Else If txt(4).Text = Or txt(6).Text = Or txt(7).Text = Then MsgBox 请输入完整信息, vbCritical, 警告 Exit Sub End If If Val(txt(4).Text) b Then MsgBox 超过可最大购买量 & CStr(b), vbCritical, 警告 Exit Sub End If If MsgBox(确认生成订单吗？, vbYesNo, 提示) = vbYes Then rs.Open 订单, cn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields(0) = txt(0).Text rs.Fields(1) = txt(1).Text rs.Fields(2) = txt(2).Text rs.Fields(3) = txt(3).Text rs.Fields(5) = txt(4).Text rs.Fields(6) = txt(5).Text rs.Fields(7) = txt(6).Text rs.Fields(8) = txt(7).Text rs.Fields(9) = txt(8).Text rs.Fields(4) = rs1.Fields(商品单价) rs.Fields(10) = 未处理 rs.Update rs.Close MsgBox 生成订单成功！, , 谢谢 End If End If End IfEnd SubPrivate Sub DataGrid1_Click() txt(2) = rs1.Fields(0) txt(3) = rs1.Fields(1) txt(5) = Date b = Val(rs1.Fields(5) End SubPrivate Sub Form_Load()txt(0).Enabled = False txt(2).Enabled = False txt(3).Enabled = False txt(5).Enabled = False cn.Open Provider=Microsoft.Jet.oledb.4.0;Data Source= & App.Path & JXC.mdb rs1.CursorLocation = adUseClient rs1.Open 商品信息, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 Combo1.AddItem 商品编号 Combo1.AddItem 商品名称 Combo1.AddItem 商品规格 Combo1.AddItem 商品单价 Combo1.AddItem 厂家名称 Combo1.AddItem 库存量 Icon = LoadPicture(App.Path & PicSX.ico)End SubPrivate Sub Form_Unload(Cancel As Integer) rs1.Close cn.CloseEnd SubPrivate Sub Select_Click() If txt(12).Text = Then On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient rs1.Open Select 商品编号,商品名称, 商品规格,商品单价,厂家名称,库存量 From 商品信息, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 Else On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient rs1.Open Select 商品编号,商品名称, 商品规格,商品单价,厂家名称,库存量 From 商品信息 Where & Combo1.Text & = & txt(12).Text & , cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 End If If rs1.RecordCount = 0 Then MsgBox 无此商品End Sub2.查询提货单：Option ExplicitPublic cn As New ADODB.ConnectionPublic rs1 As New ADODB.RecordsetPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub cmdSearch_Click()If txt_Search.Text = Then On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient rs1.Open Select * From 提货单, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 Else On Error Resume Next rs1.Close rs1.CursorLocation = adUseClient rs1.Open Select * From 提货单 Where & Combo1.Text & = & txt_Search.Text & , cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 End If If rs1.RecordCount = 0 Then MsgBox 无此提货单End SubPrivate Sub DataGrid1_Click()End SubPrivate Sub Form_Load() cn.Open Provider=Microsoft.Jet.oledb.4.0;Data Source= & App.Path & JXC.mdb rs1.CursorLocation = adUseClient rs1.Open 提货单, cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs1 Combo1.AddItem 提货单编号 Combo1.AddItem 操作员 Combo1.AddItem 商品编号 Combo1.AddItem 商品数量 Combo1.AddItem 提货单日期 Icon = LoadPicture(App.Path & PicSX.ico)End SubPrivate Sub Form_Unload(Cancel As Integer) cn.CloseEnd Sub1. 生成发票Option ExplicitPublic cn As New ADODB.ConnectionPublic rs1 As New ADODB.RecordsetPublic rs As New ADODB.RecordsetPublic rs2 As New ADODB.RecordsetDim a As StringDim b As IntegerPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub Command0_Click()txt(0).Enabled = True rs.Open select * from 发票 order by 发票号 asc, cn, adOpenKeyset, adLockOptimistic If Not rs.EOF Then rs.MoveLast txt(0).Text = CStr(Invoince- & rs.RecordCount + 1)Else txt(0).Text = Invoince-1End Iftxt(2).Enabled = Falsers.Closetxt(1).Text = loginusertxt(1).Enabled = FalseEnd SubPrivate Sub cmdEdit_Click() If txt(2).Text = Or txt(3).Text = Then MsgBox 请选择出库单！, vbCritical, 警告 Exit Sub Else If txt(0).Text = Or txt(1).Text = Then MsgBox 请输入操作员名或退款单号, vbCritical, 警告 Exit Sub End If If rs1.Fields(12) = 已收款 Then MsgBox 收款已完成，无需再收款, vbCritical, 警告 Exit Sub End If If MsgBox(确认生成发票吗？, vbYesNo, 提示) = vbYes Then rs1.Fields(12) = 已收款 rs1.Update rs.Open 发票, cn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields(0) = txt(0).Text rs.Fields(1) = txt(1).Text rs.Fields(2) = txt(2).Text rs.Fields(3) = txt(3).Text rs.Fields(4) = txt(4).Text rs.Fields(5) = txt(5).Text rs.Fields(6) = txt(6).Text rs.Fields(7) = txt(7).Text rs.Fields(8) = txt(8).Text rs.Fields(9) = txt(9).Text rs.Fields(10) = txt(10).Text rs.Fields(11) = txt(11).Text rs.Fields(12) = 未退货 rs.Update rs.Close rs2.Open select * from 订单 where 订单号= & txt