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

1、.：.；目录 TOC o - h z u HYPERLINK l _Toc .开发必要性 PAGEREF _Toc h HYPERLINK l _Toc .系统目的 PAGEREF _Toc h HYPERLINK l _Toc . 系统分析 PAGEREF _Toc h HYPERLINK l _Toc .需求分析 PAGEREF _Toc h HYPERLINK l _Toc .功能需求 PAGEREF _Toc h HYPERLINK l _Toc .运转环境需求 PAGEREF _Toc h HYPERLINK l _Toc . 组织构造 PAGEREF _Toc h HYPERLIN

2、K l _Toc . 业务流程分析 PAGEREF _Toc h HYPERLINK l _Toc . 数据流程图 PAGEREF _Toc h HYPERLINK l _Toc . 数据字典 PAGEREF _Toc h HYPERLINK l _Toc . 数据项定义 PAGEREF _Toc h HYPERLINK l _Toc .数据构造定义 PAGEREF _Toc h HYPERLINK l _Toc .数据流定义 PAGEREF _Toc h HYPERLINK l _Toc . 数据存储 PAGEREF _Toc h HYPERLINK l _Toc .数据处置 PAGEREF

3、 _Toc h HYPERLINK l _Toc . 外部项 PAGEREF _Toc h HYPERLINK l _Toc . 系统设计 PAGEREF _Toc h HYPERLINK l _Toc .总体设计 PAGEREF _Toc h HYPERLINK l _Toc .需求规定 PAGEREF _Toc h HYPERLINK l _Toc . 运转环境 PAGEREF _Toc h HYPERLINK l _Toc .模块构造图 PAGEREF _Toc h HYPERLINK l _Toc .功能构造图 PAGEREF _Toc h HYPERLINK l _Toc . 代码设

4、计 PAGEREF _Toc h HYPERLINK l _Toc . 数据库设计 PAGEREF _Toc h HYPERLINK l _Toc .概念构造设计 PAGEREF _Toc h HYPERLINK l _Toc .逻辑构造设计 PAGEREF _Toc h HYPERLINK l _Toc .物理构造设计 PAGEREF _Toc h HYPERLINK l _Toc . 输入输出及界面设计 PAGEREF _Toc h HYPERLINK l _Toc . 用户部分界面设计 PAGEREF _Toc h HYPERLINK l _Toc . 操作员部分界面部分： PAGERE

5、F _Toc h HYPERLINK l _Toc . 小结 PAGEREF _Toc h HYPERLINK l _Toc . 部分程序设计 PAGEREF _Toc h HYPERLINK l _Toc .系统测试 PAGEREF _Toc h HYPERLINK l _Toc . 反响时间的性能测试 PAGEREF _Toc h HYPERLINK l _Toc . CPU、Memory的性能测试 PAGEREF _Toc h HYPERLINK l _Toc . 可靠性测试 PAGEREF _Toc h HYPERLINK l _Toc .总结&心得 PAGEREF _Toc h .开

6、发必要性一个好的库存管理信息系统有利于对库存物品进展及时、高效、准确的管理。不但可以提高劳动效率，还以提高库存管理人员的积极性和准确度。运用仓库管理系统，有助于企业仓储管理自动化，减少冗余，去除一些多余的步骤和环节，从而提高仓储任务人员的任务效率。本仓库管理系统可以对仓储的各环节实施全过程控制管理，并可对货物进展入库和出库的操作管理，从而实现仓储作业流程全电子化操作。另外还可以根据客户的需求制造多种合理的统计报表。.系统目的本系统将努力建立一个友好的人机交互界面，同时系统还兼具以下方面的内容。 根本信息设置提供货品信息、仓库信息的添加、修正和查询功能。 出入库管理提供货品出入库信息的登记、修正

7、和查询功能。 库存数据分析实现货品库存查询、预警等功能，并提供根底资料设置和出入库信息的报表打印等功能。 系统设置应该包括用户修正密码及系统管理员添加权限用户功能。. 系统分析.需求分析.功能需求()根本信息包括货品信息、仓库信息的查询、修正和添加。()货品入库查询、修正和添加。()货品出库查询、修正和添加。()货品库存报告及预警查询。()仓库财务信息查询。(采购方面的相关管理。()用户修正密码和系统管理员添加用户。.运转环境需求软件需求： .数据库选择Microsoft Access 数据库。 .操作系统选择Windows XP(Vista或)操作系统。开发工具 Visual basic 企

8、业版 网络配置表 . 网络选择用户每秒数据库并发数据访问记录数稳定性要求维护程度备选网络方案面积在的小型仓库(条)低差单机方式面积在的中型仓库(条)中普通百兆方式面积在的大型仓库(条)中普通百兆方式有多个面积在的仓库群(条)较高较好百兆方式总面积在以上的大型仓库群(条)以上高好千兆方式. 组织构造公司的组织构造图如上图所示，共由销售部、采购部、出入库管文科、仓库管文科，财务部五个部门组成。各个部门主要职能为：图 公司组织构造图销售部主要担任处置订单和退货单，退回不合格的订单和退货单给客户，将合格的订单和退货单发送给出入库管文科。采购部担任仓库货物的补充任务，及时补充货物，以保证仓库的库存情况坚

9、持在正常的程度。出入库管文科担任货品的出入库，根据订单检查、拣选货品，选择适宜的工具在仓库中对货品进展运输，保证货品正常出、入库。仓库管文科担任管理货品形状、修正货物信息，担任出入库信息表和产品信息表的修正和维护。财务部只需担任查询和审核发票及退款单。. 业务流程分析业务流程图如下： 图 系统业务流程图()订单业务分析用户提交订单至销售部，由销售部审核；未经过审核的订单前往给用户；经过审核的订单经销售部生成提货单并提交至出入库管文科； ()退货单业务分析用户提交退货恳求单至销售部，由销售部审核；未经过审核的退货单前往到用户；经过的审核的退货单经销售部生成退货单提交至出入库管文科；()采购业务分

10、析采购员接受仓库管文科的补货信息；由补货信息开具采购单进展采购；到货后，生成到货单提交至出入库管文科。()仓库管理业务分析仓库管理员对仓库货物进展清点，对库存缺乏的货物进展补货单生成操作。 ()出入库管理业务分析出入库管理员根据提货单生成出库单并修正库存；根据退货单生成退货入库单并修正库存；根据到货单生成入库单并修正库存。()财务管理业务分析根据出库单生成发票；根据退货入库单生成退款单。. 数据流程图顶层数据流程图图 顶层数据流程图一级分解数据流程图 图 一级分解数据流程图二级分解数据流程图订单管理 图 订单管理二级分解数据流程图出入库管理 图 出入库管理二级分解数据流程图财务管理图 财务管理

11、二级分解数据流程图退货管理图 退货管理二级分解数据流程图仓库管理图 仓库管理二级分解数据流程图采购管理图 采购管理二级分解数据流程图. 数据字典 . 数据项定义表. 数据项定义编号称号含义类型长度有关数据构造-订单编号阐明订单独一性的编码文本text订单，提货单，出库单，发票-提货单编号阐明提货单独一性的编码文本text提货单，出库单-出库单编号阐明出库单单独一性的编码文本text出库单，发票-发票编号阐明发票独一性的编码文本text发票，退货恳求单-退货恳求单编号阐明退货恳求单独一性的编码文本text退货恳求单，退货单-退货单编号阐明退款单独一性的编码文本text退货单，退货入库单-退货入库

12、单编号阐明退货入库单独一性的编码文本text退货入库单，退款单-退款单编号阐明退款单独一性的编码文本text退款单-补货单编号阐明补货单独一性的编码文本text补货单，采购单-采购单编号阐明采购单独一性的编码文本text采购单，到货单-到货单编号阐明到货单独一性的编码文本text到货单，入库单-入库单编号阐明入库单独一性的编码文本text入库单-订单日期阐明订单生成时的日期文本text订单-提货单日期阐明提货单生成时的日期日期date提货单-出库单日期阐明出库单生成时的日期日期date出库单-发票日期阐明发票生成时的日期日期date发票-退货恳求单日期阐明退货恳求单生成时的日期日期date退货

13、恳求单-退货单日期阐明退货单生成时的日期日期date退货单-退货入库单日期阐明退货入库单生成时的日期日期date退货入库单-退款单日期阐明退款单单生成时的日期日期date退款单-补货单日期阐明补货单生成时的日期日期date补货单-采购单日期阐明采购单生成时的日期日期date采购单-到货单日期阐明到货单生成时的日期日期date到货单-入库单日期阐明入库单生成时的日期日期date入库单-商品编号阐明商品独一性的编码文本text系统一切单据，商品信息-商品称号阐明商品的称号文本text系统一切单据，商品信息-商品规格阐明商品的计量单位文本text系统一切单据，商品信息-商品单价阐明商品的出卖单价货币

14、money系统一切单据，商品信息-厂家称号标明商品的消费厂家名文本text系统一切单据，商品信息-商品库存量阐明商品的现有库存量文本text商品信息，补货单，采购单-库存上限仓库可承载的某种商品最大数量文本text商品信息，补货单，采购单-库存下限商品数量低于此值时发出补货通知文本text商品信息，补货单，采购单-操作员名操作员的编号文本text系统一切单据，员工-密码操作员或用户进入系统的密码文本text客户，员工-真实姓名操作员或用户的真实姓名文本text客户，员工-联络方式操作员或用户的联络方式文本text客户，员工-地址操作员或用户的居住地址文本text客户，员工-订货数量用户订货的数

15、量文本text订单，提货单，出库单，发票-送货地址用户货物所要送达的地点文本text订单，提货单，出库单，发票-客户名客户进入系统的称号文本text-建议采购量结合上下限及库存量给出的建议文本text补货单，采购单-实践采购量采购部结合实践采购的量文本text采购单-处置形状各种单据的处置形状文本text一切单据-总额客户为订单所支付的总额货币money发票-备注备注文本text一切单据.数据构造定义表. 数据构造定义编号称号 简介有关数据构造 构造-订单用户提交用以采购货物的单据商品信息订单号，客户名，商品编号，商品称号，商品单价，商品数量，订单日期，送货地址，联络方式，处置形状，备注-提货

16、单销售部处置订单后生成的单据订单提货单号，操作员，订单号，客户名，商品编号，商品称号，商品单价，商品数量，订单日期，送货地址，联络方式，处置形状，备注-出库单货物出库生成的单据提货单，订单出库单号，操作员，订单号，客户名，商品编号，商品称号，商品单价，商品数量，出库时间，送货地址，联络方式，收款形状，备注-发票交给客户用以阐明买卖凭证的单据出库单，订单发票号，操作员，订单号，客户名，商品编号，商品称号，商品单价，商品数量，总额，订货时间，联络方式，备注-退货恳求单客户退货时提出恳求的单据发票退货恳求单号，客户名，商品编号，商品称号，商品单价，商品数量，退货缘由，恳求时间，联络方式，备注，处置形

17、状-退货单经销售部审核后的退货的退货恳求单退货单号，操作员，退货恳求单，客户名，商品编号，商品称号，商品单价，商品数量，退货缘由，恳求时间，联络方式，备注，处置形状-退货入库单所退货物入库后生成的单据退货单退货入库单号，操作员，退货恳求单号，客户名，商品编号，商品称号，商品单价，商品数量，退货缘由，恳求时间，退款形状，备注-退款单根据退掉的货物生成的退款凭证退货入库单退款单号，操作员，退货恳求单编号，客户名，商品编号，商品称号，商品单价，商品数量，总额，恳求时间，联络方式，备注-补货单清点库存发现货物缺乏生成的补货阐明商品信息补货单号，操作员，生成时间，商品编号，商品名称，库存上限，库存下限，

18、当前库存，建议采购量，处置形状，备注-采购单根据补货单内容进展采购的单据补货单采购单号，操作员，补货单号，商品编号，商品称号，建议采购量，实践采购量，采购日期，供应商，处置形状，备注-到货单货物到达时阐明其相关信息的单据采购单到货单号，操作员，采购单号，商品编号，商品名称，到货量，采购单价，到货时间，供应商，入库形状，备注-入库单到货入库后生成的单据到货单入库单号，操作员，到货单号，商品编号，商品名称，入库量，商品单价，入库时间，供应商，备注-商品信息阐明商品个属性商品编号，商品称号，商品规格，商品单价，厂家称号，库存量，库存上限，库存下限，备注-员工表名员工各属性操作员名，密码，真实姓名，联

19、络方式，地址.数据流定义表. 数据流定义编号代号称号来源去向组成-F订单用户P订单-F不合格订单P用户-F提货单PP提货单-F出库单PP出库单-F发票P用户发票-F退货恳求单用户P退货恳求单-F不合格恳求单P用户-F退货单PP退货单-F退货入库单PP退货入库单-F退款单P用户退款单-F库存信息DP商品信息-F补货单PP补货单-F到货单PP到货单-F修正库存信息DP-F提取货物信息PD-F订单信息P.D订单-F合格订单P.P.订单-F出库信息P.D出库单-F入库信息P.D入库单-F退货入库信息P.D退货入库单-F修正库存信息P.D-F发票信息P.D发票-F退款单信息P.D退款单-F退货恳求单信息

20、P.P.退货恳求单-F合格退款恳求单P.P.退货恳求单-F补货信息P.P.补货单-F采购单DP.采购单. 数据存储表. 数据存储编号代号称号输入数据流输出数据流组成有关的数据处置过程-D库存信息F,FF,F商品信息P,P，P.,P,P.-D订单记录F订单P.-D提货单记录FF提货单P.-D出库单FF，F出库单P.,P.-D入库单FF入库单P.,P.-D退货入库单FF,F退货入库单P.,P.-D发票FF发票P.-D退款单FF退款单P.-D退货恳求单F退货恳求单P.-D退货单FF退货单P.-D补货单FF补货单P.-D采购单FF采购单P.,P.-D到货单FF到货单P.数据处置表. 数据处置编号代号称

21、号输入数据流输出数据流处置过程-P订单管理F,FF,F处置用户提交的订单-P出入库管理F,F,FF,F,F进展商品出入库的操作-P财务管理F，FF,F进展生成发票及退款单操作-P退货管理FF，F处置用户退货-P仓库管理FF进展库存清点-P采购管理FF进展商品采购-P.验证订单FF,F，F验证用户提交的订单能否合理-P.生成提货单FF结合合格订单信息生成提货单-P.出库管理FF进展商品出库操作-P.入库管理FF进展商品入库操作-P.退货入库管理FF进展商品退货入库操作-P.修正库存信息F，F,FF修正库存信息-P.生成发票FF生成用户的发票-P.生成退款单FF生成退款单-P.生成退货恳求单F，F

22、F生成退货恳求单-P.检查退货恳求单FF，F检查退货恳求单能否合理-P.生成退货单FF合格退货恳求单生成退货单-P.库存清点FF清点商品库存-P.生成补货单FF对库存缺乏货物进展补货通知-P.开采购单FF结合补货单开局采购单进展采购-P.采购并到货FF商品到货，生成到货单. 外部项表. 外部项定义编号称号 阐明 输入数据流 输出数据流-用户购买本公司货物的用户F,F,F,F F,F. 系统设计.总体设计.需求规定 主要功能包括系统管理、订单管理、出入库管理、财务管理、仓库管理和采购管理。. 运转环境 软件需求：Windows Vista home basic，Internet Explorer

23、(IE).及其以上版本 硬件需求：CPU：PIII 以上 内存：M以上硬盘空间：GB以上 开发环境Windows Vista home basic 开发工具Visual Basic 数据库管理系统Microsoft Access .模块构造图图.-模块构造图.功能构造图功能构造图详细描画了本系统的功能模块的划分，如以下图：图.- 功能构造图. 代码设计系统中各实体包括各类单据，用户，员工，商品等，本小节对各实体的编码设计如下:商品及各表单编码采用混合码，即表意码与顺序码相结合的方式。以商品编码为例：表意码：product+顺序码：。即组合为商品编号为product-的商品，该编码由程序自动生成

24、；而员工和用户的编码为自定义的用户名。.数据库设计.概念构造设计数据库中实体为用户，员工和商品，以及传送的这种表单：图.- ER图注：一张订单只对应一种商品，由一个职工操作，与提货单一对一；一张采购单只对应一种的商品且与一张补货单对应；一张补货单，每一次只对一种商品进展进展补货。.逻辑构造设计客户信息表客户名，密码，真实姓名，联络方式，地址操作员(操作员名，密码，真实姓名，联络方式，地址)商品信息商品编号，商品称号，商品规格，商品单价，厂家称号，库存量，库存上限，库存下限，备注订单订单号，客户名，商品编号，商品称号，商品单价，商品数量，订单日期，送货地址，联络方式，处置形状，备注提货单提货单号

25、，操作员，订单号，客户名，商品编号，商品称号，商品单价，商品数量，订单日期，送货地址，联络方式，处置形状，备注出库单出库单号，操作员，订单号，客户名，商品编号，商品称号，商品单价，商品数量，出库时间，送货地址，联络方式，收款形状，备注发票发票号，操作员，订单号，客户名，商品编号，商品称号，商品单价，商品数量，总额，订货时间，联络方式，备注退货恳求单退货恳求单号，客户名，商品编号，商品称号，商品单价，商品数量，退货缘由，恳求时间，联络方式，备注，处置形状退货单退货单号，操作员，退货恳求单，客户名，商品编号，商品称号，商品单价，商品数量，退货缘由，恳求时间，联络方式，备注，处置形状退货入库单退货入

26、库单号，操作员，退货恳求单号，客户名，商品编号，商品称号，商品单价，商品数量，退货缘由，恳求时间，退款形状，备注退款单退款单号，操作员，退货恳求单编号，客户名，商品编号，商品称号，商品单价，商品数量，总额，恳求时间，联络方式，备注补货单补货单号，操作员，生成时间，商品编号，商品称号，库存上限，库存下限，当前库存，建议采购量，处置形状，备注采购单采购单号，操作员，补货单号，商品编号，商品称号，建议采购量，实践采购量，采购日期，供应商，处置形状，备注到货单到货单号，操作员，采购单号，商品编号，商品称号，到货量，采购单价，到货时间，供应商，入库形状，备注入库单入库单号，操作员，到货单号，商品编号，商

27、品称号，入库量，商品单价，入库时间，供应商，备注.物理构造设计物理构造设计是在曾经确定的逻辑构造根底上，权衡各种软件硬软环境和其他要求要素，确定一种高效的物理存储构造的过程。. 输入输出及界面设计. 用户部分界面设计.登录界面设计主要用于用户登陆，经过身份验证包括用户名和密码，使得合法用户进入库存管理信息系统中进展下一步操作：图.- 用户登陆界面.用户功能界面设计当用户胜利登陆后，即可进入此页面，进展其权限内的各项操作：图.- 用户功能界面.用户查看商品信息并提交订单用户进入其界面后，即可进展相关操作，假设用户开场进展采购，生成订单：图.- 用户查询商品图.- 用户查看商品提交订单界面.用户查

28、看订单形状用户提交订单后，即可实时察看其订单形状，查看订单能否被受理，或者订单被受理后所在的形状，可发现刚提交的订单还未被受理：图.- 用户查看订单形状界面.用户提交退货恳求单用户在发现对所购买获取不称心想进展退货时，可进展由已生成的发票生成退货恳求单，进展提交：图.- 用户提交退货恳求单界面.查看退货形状过程同订单形状：图.- 用户查看退货形状界面. 操作员部分界面部分：.登录界面设计主要用于操作员登陆，经过身份验证包括用户名和密码，使得合法操作员进入库存管理信息系统中进展下一步操作：图.- 操作员登陆界面.操作员功能界面设计当操作员胜利登陆后，即可进入此页面，进展其权限内的各项操作：图.-

29、 操作员功能界面注：以下按流程只展现流程部分，查询以及例如用户管理及商品信息管理的系统功能不进展展现。.生成提货单界面设计操作员审核客户提交的订单，假设订单信息不实，那么可取消订单界面展现略。审核经过后，即可对其进新生成提货单：图.- 生成提货单界面.生成出库单界面设计提货单到达出入库管文科后，出入库管文科根据提货单生成出库单：图.- 生成出库单界面.生成发票界面设计货物出库同时，在收到货款后，财务部进展生成发票的操作：图.- 生成发票界面.生成退货单设计根据用户提交的退货恳求单审核合格后生成退货单： 图.- 生成退货单界面.生成退货入库单设计根据提交的退货单生成退货入库单：图.- 生成退货入

30、库单界面.生成退款单设计根据提交的退货入库单生成退款单：图.- 生成退款单界面.生成补货单设计根据清点情况对库存缺乏的货物生成补货单，分两种情况：库存充足时，图.- 库存充足时生成补货单库存缺乏时：图.- 库存缺乏时生成补货单.生成采购单设计根据补货单生成采购单：图.- 生成采购单界面.生成到货单设计根据采购单生成到货单：图.- 生成到货单界面.生成入库单设计根据到货单生成入库单：图.- 生成入库单界面. 系统版权关于界面设计图 .- 系统关于界面. 小结本节所示为本系统输入输出设计以及用户界面设计，是库存管理信息系统的主要实现方式。设计时主要以经济，简约，易操作为原那么。. 部分程序设计.用

31、户提交订单：Option ExplicitPublic cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic rs As New ADODB.RecordsetDim a As StringDim b As IntegerPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub Command_Click()txt().Enabled = True rs.Open select * from 订单 order by 订单号 asc, cn, adOpenKeyse

32、t, adLockOptimistic If Not rs.EOF Then rs.MoveLast txt().Text = CStr(Order- & rs.RecordCount + )Else txt().Text = Order-End Iftxt().Enabled = Falsers.Closetxt().Text = loginusertxt().Enabled = FalseEnd SubPrivate Sub cmdEdit_Click() If txt().Text = Or txt().Text = Then MsgBox 请选择商品！, vbCritical, 警告

33、Exit Sub Else If txt().Text = Or txt().Text = Then MsgBox 请输入用户名或订单号, vbCritical, 警告 Exit Sub Else If txt().Text = Or txt().Text = Or txt().Text = Then MsgBox 请输入完好信息, vbCritical, 警告 Exit Sub End If If Val(txt().Text) b Then MsgBox 超越可最大购买量 & CStr(b), vbCritical, 警告 Exit Sub End If If MsgBox(确认生成订单吗

34、？, vbYesNo, 提示) = vbYes Then rs.Open 订单, cn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() =

35、txt().Text rs.Fields() = rs.Fields(商品单价) rs.Fields() = 未处置 rs.Update rs.Close MsgBox 生成订单胜利！, , 谢谢 End If End If End IfEnd SubPrivate Sub DataGrid_Click() txt() = rs.Fields() txt() = rs.Fields() txt() = Date b = Val(rs.Fields() End SubPrivate Sub Form_Load()txt().Enabled = False txt().Enabled = Fals

36、e txt().Enabled = False txt().Enabled = False cn.Open Provider=Microsoft.Jet.oledb.;Data Source= & App.Path & JXC.mdb rs.CursorLocation = adUseClient rs.Open 商品信息, cn, adOpenKeyset, adLockOptimistic Set DataGrid.DataSource = rs Combo.AddItem 商品编号 Combo.AddItem 商品称号 Combo.AddItem 商品规格 Combo.AddItem 商

37、品单价 Combo.AddItem 厂家称号 Combo.AddItem 库存量 Icon = LoadPicture(App.Path & PicSX.ico)End SubPrivate Sub Form_Unload(Cancel As Integer) rs.Close cn.CloseEnd SubPrivate Sub Select_Click() If txt().Text = Then On Error Resume Next rs.Close rs.CursorLocation = adUseClient rs.Open Select 商品编号,商品称号, 商品规格,商品单价

38、,厂家称号,库存量 From 商品信息, cn, adOpenKeyset, adLockOptimistic Set DataGrid.DataSource = rs Else On Error Resume Next rs.Close rs.CursorLocation = adUseClient rs.Open Select 商品编号,商品称号, 商品规格,商品单价,厂家称号,库存量 From 商品信息 Where & Combo.Text & = & txt().Text & , cn, adOpenKeyset, adLockOptimistic Set DataGrid.DataS

39、ource = rs End If If rs.RecordCount = Then MsgBox 无此商品End Sub.查询提货单：Option ExplicitPublic cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPrivate Sub Command_Click()Unload MeEnd SubPrivate Sub cmdSearch_Click()If txt_Search.Text = Then On Error Resume Next rs.Close rs.CursorLocation = adUs

40、eClient rs.Open Select * From 提货单, cn, adOpenKeyset, adLockOptimistic Set DataGrid.DataSource = rs Else On Error Resume Next rs.Close rs.CursorLocation = adUseClient rs.Open Select * From 提货单 Where & Combo.Text & = & txt_Search.Text & , cn, adOpenKeyset, adLockOptimistic Set DataGrid.DataSource = rs

41、 End If If rs.RecordCount = Then MsgBox 无此提货单End SubPrivate Sub DataGrid_Click()End SubPrivate Sub Form_Load() cn.Open Provider=Microsoft.Jet.oledb.;Data Source= & App.Path & JXC.mdb rs.CursorLocation = adUseClient rs.Open 提货单, cn, adOpenKeyset, adLockOptimistic Set DataGrid.DataSource = rs Combo.Ad

42、dItem 提货单编号 Combo.AddItem 操作员 Combo.AddItem 商品编号 Combo.AddItem 商品数量 Combo.AddItem 提货单日期 Icon = LoadPicture(App.Path & PicSX.ico)End SubPrivate Sub Form_Unload(Cancel As Integer) cn.CloseEnd Sub生成发票Option ExplicitPublic cn As New ADODB.ConnectionPublic rs As New ADODB.RecordsetPublic rs As New ADODB.

43、RecordsetPublic rs As New ADODB.RecordsetDim a As StringDim b As IntegerPrivate Sub cmdCancel_Click()Unload MeEnd SubPrivate Sub Command_Click()txt().Enabled = True rs.Open select * from 发票 order by 发票号 asc, cn, adOpenKeyset, adLockOptimistic If Not rs.EOF Then rs.MoveLast txt().Text = CStr(Invoince

44、- & rs.RecordCount + )Else txt().Text = Invoince-End Iftxt().Enabled = Falsers.Closetxt().Text = loginusertxt().Enabled = FalseEnd SubPrivate Sub cmdEdit_Click() If txt().Text = Or txt().Text = Then MsgBox 请选择出库单！, vbCritical, 警告 Exit Sub Else If txt().Text = Or txt().Text = Then MsgBox 请输入操作员名或退款单号

45、, vbCritical, 警告 Exit Sub End If If rs.Fields() = 已收款 Then MsgBox 收款已完成，无需再收款, vbCritical, 警告 Exit Sub End If If MsgBox(确认生成发票吗？, vbYesNo, 提示) = vbYes Then rs.Fields() = 已收款 rs.Update rs.Open 发票, cn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields

46、() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = txt().Text rs.Fields() = 未退货 rs.Update rs.Close rs.Open select * from

47、订单 where 订单号= & txt().Text & , cn, adOpenKeyset, adLockOptimistic rs.Fields(处置形状) = 处置终了 rs.Update rs.Close MsgBox 生成发票胜利！, , 谢谢 End If End If End SubPrivate Sub DataGrid_Click() txt() = rs.Fields() txt() = rs.Fields() txt() = rs.Fields() txt() = rs.Fields() txt() = rs.Fields() txt() = rs.Fields() t

48、xt() = Val(rs.Fields() * Val(rs.Fields() txt() = Date txt() = rs.Fields() End SubPrivate Sub Form_Load() txt().Enabled = False txt().Enabled = False txt().Enabled = False txt().Enabled = False txt().Enabled = False txt().Enabled = False txt().Enabled = False txt().Enabled = False txt().Enabled = False txt().Enabled = False cn.Open Provider=Microsoft.Je