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

资源描述

目录 1.开发必要性 2 2.系统目标 2 3. 系统分析 2 3.1需求分析 2 3.1.1功能需求 2 3.1.2运行环境需求 2 3.2 组织结构 3 3.3 业务流程分析 4 3.4 数据流程图 5 3.5 数据字典 8 3.5.1 数据项定义 8 3.5.2数据结构定义 11 3.5.3数据流定义 12 3.5.4 数据存储 13 3.5.5数据处理 14 3.5.6 外部项 14 4. 系统设计 15 4.1总体设计 15 4.1.1需求规定 15 4.1.2 运行环境 15 4.1.3模块结构图 16 4.1.4功能结构图 16 4.2 代码设计 17 4.3 数据库设计 19 4.3.1概念结构设计 19 4.3.2逻辑结构设计 19 4.3.3物理结构设计 20 4.4 输入输出及界面设计 20 4.4.1 用户部分界面设计 20 4.4.2 操作员部分界面部分： 24 4.5 小结 31 4.6 部分程序设计 31 5.系统测试 39 5.1 反应时间的性能测试 39 5.2 CPU、Memory的性能测试 39 5.3 可靠性测试 39 6.总结&心得 40 1.开发必要性一个好的库存管理信息系统有利于对库存物品进行及时、高效、准确的管理。不但可以提高劳动效率，还以提高库存管理人员的积极性和准确度。应用仓库管理系统，有助于企业仓储管理自动化，减少冗余，去除一些多余的步骤和环节，从而提高仓储工作人员的工作效率。本仓库管理系统可以对仓储的各环节实施全过程控制管理，并可对货物进行入库和出库的操作管理，从而实现仓储作业流程全电子化操作。另外还可以根据客户的需求制作多种合理的统计报表。 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 网络选择用户每秒数据库并发数据访问记录数稳定性要求维护水平备选网络方案面积在50～200㎡的小型仓库 10～50(条) 低差单机模式面积在200～1000㎡的中型仓库 50～500(条) 中一般百兆模式面积在1000～5000㎡的大型仓库 50～500(条) 中一般百兆模式有多个面积在200～1000㎡的仓库群 500～2000(条) 较高较好百兆模式总面积在5000㎡以上的大型仓库群 2000(条)以上高好千兆模式 3.2 组织结构公司的组织结构图如上图所示，共由销售部、采购部、出入库管理科、仓库管理科，财务部五个部门组成。各个部门主要职能为：图 3－1 公司组织结构图（1）销售部主要负责处理订单和退货单，退回不合格的订单和退货单给客户，将合格的订单和退货单发送给出入库管理科。（2）采购部负责仓库货物的补充工作，及时补充货物，以保证仓库的库存状况保持在正常的水平。（3）出入库管理科负责货品的出入库，根据订单检查、拣选货品，选择适合的工具在仓库中对货品进行运输，保证货品正常出、入库。（4）仓库管理科负责管理货品状态、修改货物信息，负责出入库信息表和产品信息表的修改和维护。（5）财务部只要负责查询和审核发票及退款单。 3.3 业务流程分析业务流程图如下：图 3－2 系统业务流程图 (1)订单业务分析 ①用户提交订单至销售部，由销售部审核； ②未通过审核的订单返回给用户； ③通过审核的订单经销售部生成提货单并提交至出入库管理科； (2)退货单业务分析 ①用户提交退货申请单至销售部，由销售部审核； ②未通过审核的退货单返回到用户； ③通过的审核的退货单经销售部生成退货单提交至出入库管理科； (3)采购业务分析 ①采购员接受仓库管理科的补货信息； ②由补货信息开具采购单进行采购； ③到货后，生成到货单提交至出入库管理科。 (4)仓库管理业务分析 ①仓库管理员对仓库货物进行盘点，对库存不足的货物进行补货单生成操作。 (5)出入库管理业务分析 ①出入库管理员根据提货单生成出库单并修改库存； ②根据退货单生成退货入库单并修改库存； ③根据到货单生成入库单并修改库存。 (6)财务管理业务分析 ①根据出库单生成发票； ②根据退货入库单生成退款单。 3.4 数据流程图（1）顶层数据流程图图 3－3顶层数据流程图（2）一级分解数据流程图图 3－4 一级分解数据流程图（2）二级分解数据流程图 ①订单管理图 3－5 订单管理二级分解数据流程图②出入库管理图 3－6 出入库管理二级分解数据流程图 ③财务管理图 3－7 财务管理二级分解数据流程图 ④退货管理图 3－8 退货管理二级分解数据流程图 ⑤仓库管理图 3－9 仓库管理二级分解数据流程图 ⑥采购管理图 3－10 采购管理二级分解数据流程图 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） 255 1-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-001 F1 订单用户 P1 {订单} 3-002 F2 不合格订单 P1 用户 3-003 F3 提货单 P1 P2 {提货单} 3-004 F4 出库单 P2 P3 {出库单} 3-005 F5 发票 P3 用户 {发票} 3-006 F6 退货申请单用户 P4 {退货申请单} 3-007 F7 不合格申请单 P4 用户 3-008 F8 退货单 P4 P2 {退货单} 3-009 F9 退货入库单 P2 P3 {退货入库单} 3-010 F10 退款单 P3 用户 {退款单} 3-011 F11 库存信息 D1 P5 {商品信息} 3-012 F12 补货单 P5 P6 {补货单} 3-013 F13 到货单 P6 P2 {到货单} 3-014 F14 修改库存信息 D3 P6 3-015 F15 提取货物信息 P2 D1 3-016 F16 订单信息 P1.1 D2 {订单} 3-017 F17 合格订单 P1.1 P1.2 {订单} 3-018 F18 出库信息 P2.1 D4 {出库单} 3-019 F19 入库信息 P2.2 D5 {入库单} 3-020 F20 退货入库信息 P2.3 D6 {退货入库单} 3-021 F21 修改库存信息 P2.4 D1 3-022 F22 发票信息 P3.1 D7 {发票} 3-023 F23 退款单信息 P3.2 D8 {退款单} 3-024 F24 退货申请单信息 P4.1 P4.2 {退货申请单} 3-025 F25 合格退款申请单 P4.2 P4.3 {退货申请单} 3-026 F26 补货信息 P5.1 P5.2 {补货单} 3-027 F27 采购单 D12 P6.2 {采购单} 3.5.4 数据存储表3.5 数据存储编号代号名称输入数据流输出数据流组成有关的数据处理过程 4-001 D1 库存信息 F15,F21 F11,F15 {商品信息} P1,P2，P2.4,P5,P5.1 4-002 D2 订单记录 F16 {订单} P1.1 4-003 D3 提货单记录 F3 F3 {提货单} P1.2 4-004 D4 出库单 F18 F4，F18 {出库单} P2.1,P2.4 4-005 D5 入库单 F19 F19 {入库单} P2.2,P2.4 4-006 D6 退货入库单 F20 F9,F20 {退货入库单} P2.3,P2.4 4-007 D7 发票 F22 F5 {发票} P3.1 4-008 D8 退款单 F23 F10 {退款单} P3.2 4-009 D9 退货申请单 F24 {退货申请单} P4.2 4-010 D10 退货单 F8 F8 {退货单} P4.3 4-011 D11 补货单 F12 F12 {补货单} P5.2 4-012 D12 采购单 F27 F27 {采购单} P6.1,P6.2 4-013 D13 到货单 F13 F13 {到货单} P6.2 3.5.5数据处理表3.6 数据处理编号代号名称输入数据流输出数据流处理过程 5-001 P1 订单管理 F1,F15 F2,F3 处理用户提交的订单 5-002 P2 出入库管理 F3,F8,F13 F4,F9,F14 进行商品出入库的操作 5-003 P3 财务管理 F9，F4 F5,F10 进行生成发票及退款单操作 5-004 P4 退货管理 F6 F7，F8 处理用户退货 5-005 P5 仓库管理 F11 F12 进行库存盘点 5-006 P6 采购管理 F12 F13 进行商品采购 5-007 P1.1 验证订单 F1 F2,F16，F17 验证用户提交的订单是否合理 5-008 P1.2 生成提货单 F17 F3 结合合格订单信息生成提货单 5-009 P2.1 出库管理 F3 F18 进行商品出库操作 5-010 P2.2 入库管理 F8 F19 进行商品入库操作 5-011 P2.3 退货入库管理 F13 F20 进行商品退货入库操作 5-012 P2.4 修改库存信息 F18，F19,F20 F21 修改库存信息 5-013 P3.1 生成发票 F4 F22 生成用户的发票 5-014 P3.2 生成退款单 F9 F23 生成退款单 5-015 P4.1 生成退货申请单 F5，F7 F6 生成退货申请单 5-016 P4.2 检查退货申请单 F6 F24，F25 检查退货申请单是否合理 5-017 P4.3 生成退货单 F25 F8 合格退货申请单生成退货单 5-018 P5.1 库存盘点 F11 F26 盘点商品库存 5-019 P5.2 生成补货单 F26 F12 对库存不足货物进行补货通知 5-020 P6.1 开采购单 F12 F27 结合补货单开局采购单进行采购 5-021 P6.2 采购并到货 F27 F13 商品到货，生成到货单 3.5.6 外部项表3.7 外部项定义编号名称说明输入数据流输出数据流 6-001 用户购买本公司货物的用户 F2,F5,F7,F10 F1,F6 4. 系统设计 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 Explicit Public cn As New ADODB.Connection Public rs1 As New ADODB.Recordset Public rs As New ADODB.Recordset Dim a As String Dim b As Integer Private Sub cmdCancel_Click() Unload Me End Sub Private 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-1" End If txt(2).Enabled = False rs.Close txt(1).Text = loginuser txt(1).Enabled = False End Sub Private 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 If End Sub Private Sub DataGrid1_Click() txt(2) = rs1.Fields(0) txt(3) = rs1.Fields(1) txt(5) = Date b = Val(rs1.Fields(5)) End Sub Private 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 & "\Pic\SX.ico") End Sub Private Sub Form_Unload(Cancel As Integer) rs1.Close cn.Close End Sub Private 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

展开阅读全文