某公司产品外协件管理系统开发课程(DOC 40页).doc

xxx 本科生毕业设计 论文 课程题目 xxxxxx 系 别 机电工程系 专 业 机械设计制造及其自动化 学生姓名 xxx 学 号 xxx 指导教师 xxxx 完成日期 2011 年 5 月 xxxx 南阳汇森公司产品外协件管理系统开发 Development of Outsourcing Parts Management System for Nanyang Huisen Company 总 计 34 页 插 图 33 幅 xxx 南阳汇森公司产品外协件管理系统开发 Development of Outsourcing Parts Management System for Nanyang Huisen Company 学 院 系 xx 专 业 xxx 学 生 姓 名 xxx 学 号 xxx 指 导 教 师 职称 xxxx 评 阅 教 师 职称 完 成 日 期 2011 年 5 月 南阳理工学院 Nanyang Institute of Technology 南阳汇森公司产品外协件管理系统开发 I 南阳汇森公司产品外协件管理系统开发 xxxxxx 摘摘 要要 为了进一步提高南阳汇森公司对产品生产过程的信息化管理水平 规 范各生产管理环节的业务流程 保证各生产环节数据信息的一致性 实现对各类生产 数据信息的便捷查询和统计分析 特定制开发本课题软件 本软件利用 Visual Basic6 0 为前台开发语言 以 Access 为数据库存储平台 采 用基于三层结构的 C S 开发模式和 ADO 数据库访问技术 结合 Excel 的 VBA 开发技术 通过模块化设计实现对企业外协件管理信息的集成化和信息化 通过该软件的应用 实现公司在毛坯 外协 库存和销售各业务环节的信息化管理 使各业务管理部门将 原来分散的数据进行统一管理 真正实现公司相关管理环节的数据共享 消除公司多 年存在的 信息孤岛 问题 通过该软件搭建的生产管理平台 各管理部门的业务处 理会更加便捷 有序 规范 关键词关键词 生产管理 外协件 数据库 报表 Development of Outsourcing Parts Management System for Nanyang Huisen Company Mechanical Design Manufacturing and Automation Major Gao Ke fei Abstract In order to enhance the information management level of production course for Nanyang Huisen Company regulate the business processes of production and management guarantee the data information of every production link consistency realize the convenient inquiry and statistical analysis of all kinds of production data and information this topic software has been developed specially Through the application of this software enterprise can realize the information management of each business link about blank outsourcing inventory and sale then manage the original dispersion data of business management departments uniformly realize data sharing of relevant management link and eliminate island of information which exists many 南阳汇森公司产品外协件管理系统开发 II years in the company Through the production management platform which this software builds the business processing of each management department will be more convenient orderly and normal Key Words production management outsourcing parts database report form 南阳汇森公司产品外协件管理系统开发 I 目 录 1 1 绪论绪论 1 1 1 课题的研究背景及意义 1 1 2 国内外研究现状 1 2 2 应用开发关键技术介绍及其运行环境要求应用开发关键技术介绍及其运行环境要求 2 2 1 VISUAL BASIC程序设计 2 2 2 数据库技术 2 2 3 开发运行环境 2 3 3 系统需求分析与总体设计系统需求分析与总体设计 3 3 1 需求分析概述 3 3 2 系统体系结构设计 4 4 4 系统软件设计系统软件设计 4 4 1 用户模块 5 4 1 1 系统登录模块 5 4 1 2 权限管理菜单模块 7 4 2 基础信息模块 9 4 3 生产管理模块 14 4 4 销售管理模块 17 4 5 业务报表模块 18 4 6 工具模块 20 4 7 帮助模块 21 5 5 结论结论 23 参考文献参考文献 25 附录附录 部分代码部分代码 26 致致 谢谢 34 南阳汇森公司外协件管理系统开发 1 1 1 绪论绪论 1 11 1 课题的研究背景及意义课题的研究背景及意义 目前 南阳汇森公司在产品生产管理各环节仍处于分散的手工管理模式 生产管理 信息不够规范 无法实现信息共享 对在制品 外协件和库存件等产品信息的追踪及 对各类信息的统计分析效率底 容易出错 公司各管理层领导不能及时获取公司的各 类生产数据 导致公司对当前的快速市场需求机制反应不够迅速 通过对公司前期调研和讨论 拟定制开发一套针对南阳汇森公司实际业务需求的 专业生产管理软件 在不改变现有工作模式 不新加管理人员的情况下 以最小的成 本 最低的风险 改善目前的生产管理工作状况 提高工作效率 使公司领导能够准 确 快速 便捷 实时掌控公司各生产环节的数据信息 为快速 准确决策提供数据 基础 进一步提高公司的市场反应速度 1 21 2 国内外研究现状国内外研究现状 管理信息系统 Management Information System MIS 一词最早出现在 1970 年 由瓦尔特 肯尼万下的定义 以书面或口头的形式 在合适的时间向经理 职 员以及外界人员提供过去的 现在的 预测未来的有关企业内部及其环境的信息 以 帮助他们进行决策 当时由于计算机尚未普及 管理系统提供的信息还停留在书面或 口头的方式 其目的是支持决策 直至 1985 年 管理信息系统的创始人美国明尼苏达 大学卡尔森管理学院的教授高登 戴维斯给出管理信息系统较完整的定义 它是一个 以计算机硬件和软件 手工作业为基础 利用分析 计划 控制和决策模型以及数据 库的人机系统 它具有提供信息 支持企业或组织的运行 管理和决策的功能 这个 定义强调了管理系统的三个核心问题 计算机工具 信息处理的模型和系统的功能 由于国外管理理论较为成熟 网络信息技术的普及 使得国外的管理信息系统较 为完善 而对于国内企业 尤其针对中小型企业而言 对于本场的产品及外协产品 仍普遍采用手工的纸 笔式的数据记录 这样不及工作量大 数据记录的及时性和准 确性低 数据的更新和保存繁琐 而且使得企业的整体工作效率随之降低 对于一个 生机勃勃的企业而言 这样的管理系统无疑是十分落后的 相当缺乏竞争力的 当今社会 随着计算机的日益普及和网络的渐趋发达 生产企业之间 企业内部 各部门之间都走上了 网络 这一信息高速公路 无纸办公 已不再是新鲜名词 网 络的充分利用使得企业各项工作如虎添翼 工作效率得到极大地提高 在这一网络化 情境下 企业管理系统不可避免地也要发生相应地变革才能适应这一发展潮流 南阳汇森公司外协件管理系统开发 2 2 2 应用开发关键技术介绍及其运行环境要求应用开发关键技术介绍及其运行环境要求 2 12 1 VisualVisual BasicBasic 程序设计程序设计 程序设计是指使用程序设计语言在开发环境中编写能被计算机自动执行的指令的 过程 Visual Basic6 0 是美国微软公司推出的 Windows 应用程序开发平台家族中的一 员 它沿用了早期 Basic 语言的一些语法格式 是一个功能强大的应用程序开发工具 Visual Basic 6 0 是一种面向对象 Object Oriented Programming OOP 的程序 设计方法 它强调直接以问题域 即现实世界 中的事物为中心来考虑和认识问题 并 按照这些事物的本质特征把它们抽象为对象 作为软件系统的基础 在 OOP 方法中 将对象作为系统中最基本的运行实体 对象中封装了描述该对象的特殊属性 数据 和 行为方式 方法 整个程序即由各种不同类型的对象组成 各对象既是一个独立的实 体 又可通过一定的方式相互作用 1 Visual Basic6 0 易学易用 功能强大的特点使其得到了广泛的应用 其强大的 可视化用户界面设计 是程序员从复杂的界面设计中解脱出来 是编程成为一种享受 Visual Basic 6 0 不但可以开发小型单机数据库管理系统 而且也可以开发集多种应 用程序于一体的网络数据库系统 因此使得他成为目前使用最广泛的编程语言之一 2 22 2 数据库技术数据库技术 当计算机从早期的计算工具逐步变化成现在的信息处理和管理工具时 它就和数 据库建立了密切的关系 在当今信息爆炸的时代 只有通过数据库并结合计算机的高 速计算能力才可能实现对大量信息的及时处理和分析 数据库系统主要有三大部分组成 数据库管理系统 DBMS 专门负责组织和管理数 据信息的程序 数据库应用程序 它使我们能够获取 显示和更新由 DBMS 存储的数据 数据库 按一定结构组织在一起的相关数据的集合 随着 DBMS 技术的发展 目前的数据库系统正向着客户机 服务器模式发展 客户 机 服务器数据库将 DBMS 和数据库应用程序分开 从而提高了数据库系统的处理能力 数据库应用程序运行在一个或多个用户工作站 客户机 上 并通过网络与运行在其它 计算机上 服务器 的一个或多个 DBMS 进行通信 而通信技术就要通过 ADO 技术了 ADO 是美国微软公司的数据访问技术 它不仅有助于实现对各种数据来源进行高 效访问 使用户能够对数据进行复杂的操作和排序 而且形成了一个重要的框架 在 这个框架中可以实现应用程序之间的通讯和 MLWeb 服务 2 32 3 开发运行环境开发运行环境 南阳汇森公司外协件管理系统开发 3 1 开发环境 1 操作系统 基于 Windows XP 操作系统 2 需求分析工具 Visio 2003 3 数据库服务器 基于 SQL Server2000 2 客户端运行环境 1 软件运行环境 操作系统 Windows XP 操作系统 IDE 环境 Microsoft Yisual Studio 2005 支撑环境 Microsoft NET Framework 2 0 2 硬件运行环境 普通 PC 机 CPU 1 8GHz 以上 内存 1024MB 显卡 128M 以上 网卡 10 100 1000Mbps 硬盘空间 60GB 其他设备 鼠标 键盘 3 服务器运行环境 1 软件运行环境 操作系统 Windows XP WIN7 操作系统 IDE 环境 Microsoft Visual Studio 2005 支撑环境 NET Framework 2 0 数据库 SQL Server 2000 2 服务器配置 CPU 3 4GHz 内存 4GB 硬盘 320GB 显卡 512M 以上 网卡 10 100 1000Mbps 3 3 系统需求分析与总体设计系统需求分析与总体设计 3 13 1 需求分析概述需求分析概述 南阳汇森公司外协件管理系统开发 4 需求分析是指通过详细调查现实世界要处理的对象 明确用户的各种需求 达到 确定新系统的功能的目的 需求分析是数据库结构设计的第一阶段 也是非常重要的 一个阶段 在这个阶段主要是调查 收集与分析用户在数据管理中的信息要求 处理 要求 安全性与完整性要求 信息要求是指用户需要从数据库中获得信息的内容与性 质 由用户的信息要求可以导出数据要求 即在数据库中需要存储哪些数据 处理要 求是指用户要求完成什么处理功能 对处理的响应时间有什么要求 处理方式是批处 理还是联机处理 得到系统所要处理数据的流程图 系统的功能必须能够满足用户的信息要求 处理要求 安全性与完整性要求 需 求分析首先调查清楚用户的实际需求并进行初步分析 与用户达成共识后 再进一步 分析与表达这些需求 需求分析可分为问题分析 需求描述及需求评审三个阶段 问 题分析阶段 分析人员通过对问题及环境的理解 分析和综合 清除用户需求的模糊 性 歧义性和不一致性 需求描述阶段的任务是生成需求规格说明书和初步的用户手 册 需求评审阶段的任务是工作人员在用户和软件设计人员的配合下对生成的需求规 格说明和用户手册进行复核 以确保软件需求的全面性 精确性和一致性 2 3 23 2 系统体系结构设计系统体系结构设计 根据以上对河南汇森公司外协件管理系统的需求分析及目标设计 构造出了该系 统的总体体系结构 如图 3 1 所示 汇森公司外协件管理开发 软件 用 户 销 售 管 理 工 具 帮 助 基 础 信 息 生 产 管 理 业 务 报 表 图 3 1 系统总体结构 4 4 系统软件设计系统软件设计 南阳汇森公司外协件管理系统开发 5 4 1 用户模块 用户模块包括登录 注销 权限管理和退出四个菜单 其中权限管理菜单包括用 户管理与密码修改两个子菜单 登录 注销和退出三个菜单意思和名字一样 登录模 块是一个软件很重要的模块 系统登录模块主要对进入系统的用户进行安全性检 查 防止非法用户进入系统 只有合法的用户在输入正确的用户名和密码后方可进入 3 4 11 系统登录模块 为了保证应用程序的安全 通常要使用系统登录程序束验证登录系统的用 户是否合法 只有合法的用户才可进入系统并进行权限规定之内的操作 登录 模块需要实现咀下目标 1 输入的用户名和密码 下确才能进入学生成绩信息管理系统 设计输入完用 户名和密码后回车即可进入系统 2 用户名错误或密码错误提醒并返回错误点 3 次口令错误 退出系统 3 以系统管理员级别登录的用户可以拥有访问系统的最大权限 包括记录的 删除 修改 其他用户权限的设置等 点击用户登录菜单 进入登录界面 其运行效果如图 4 1 所示 图 4 1 用户登录界面 输入用户名和密码好后点击确认或按回车键后 经过登录模块流程判断就可以进 入 主界面 登录模块开发流程图如图 4 2 所示 南阳汇森公司外协件管理系统开发 6 开始开始 判断是否输入判断是否输入 用户名及密码用户名及密码 传入数据库传入数据库 判断用户名及判断用户名及 密码是否正确密码是否正确 进入系统进入系统 错误超过三次错误超过三次 提示用户名或提示用户名或 密码错误密码错误 退出退出 图 4 2 系统登录程序流程图 跳过登录模块后就进入了软件的主题部分 主程序窗口 主程序窗体界面设计 主要包括菜单设计 工具设计和状态栏设计 菜单设计主要运用菜单编辑器来完成子 菜单的设计 工具栏设计由 Toolbar 控件来创建 状态栏是由 StatusBar 控件来创建 4 根据系统所需功能 将菜单划分为用户 基础信息 生产管理 销售管理 业务 报表 工具 帮助 7 个主菜单 将工具栏设计为登录 外协派单 外协接收 产品管 理 外协报表 销售报表 退出七项 而状态栏主要显示软件的开发单位 登录用户 信息和日期时间信息 主程序的开发流程如图 4 3 所示 南阳汇森公司外协件管理系统开发 7 用户用户 主程序主程序 相应权限相应权限 相应菜单相应菜单 及工具栏及工具栏 状态栏状态栏 用户信息用户信息 等等 图 4 3 系统主程序开发流程 主程序运行结果如图 4 4 所示 图 4 4 程序主界面 4 1 2 权限管理菜单模块 该模块的菜单结构如图 4 5 所示 南阳汇森公司外协件管理系统开发 8 图 4 5 用户管理菜单结构 用户管理主要是上级用户管理下级用户信息 如管理员可以对管理员和普通用户 进行新增 修改 删除的操作 管理员用户可以进行对普通用户进行新增 修改和删 除操作 高级用户之间无权进行该操作 而普通用户则不能使用该菜单 密码修改则 是登录用户修改自己的密码信息 两者的操作界面如下图所示 图 4 6 用户管理菜单操作界面 南阳汇森公司外协件管理系统开发 9 图 4 7 密码修改界面 4 2 基础信息模块 该模块的菜单结构图 4 8 所示 图 4 8 基础信息管理菜单结构 该模块主要完成毛坯 外协厂 客户 员工和车辆这些基本信息的管理 并能对 这些基本信息进行查看 添加 修改和删除等操作 下面详细介绍几个子模块的设计 及运行结果 1 毛坯管理子模块 南阳汇森公司外协件管理系统开发 10 图 4 9 毛坯管理菜单模块 当窗体加载时 数据库中的毛坯库存信息就会显示在 listview 控件中 当在窗体 上方的代码 名称 规格后面的文本框中输入需要查询的毛坯的相应信息后点击查询 按钮 则所需信息就会显示在 listview 控件中 5 当用鼠标点击 listview 中的毛坯 信息 则选中的信息就会显示为蓝色状态 如图 4 9 此时 这条毛坯的相关信息就会 显示在窗体下边的相应的文本框中 此时可以在这些文本框中对信息进行修改 修改 后保存按钮可用 点击保存就可以更新对应的毛坯信息 例如将图中的毛坯 1 信息中 的重量改成 140 件 备注改成加急 则需要用鼠标先选中毛坯 1 信息 然后在窗体下 边的文本框中将 260 改成 140 无 改成 加急 然后点击保存按钮 就可以 将毛坯库存中的毛坯 1 信息修改成功 修改后如图 4 10 所示 南阳汇森公司外协件管理系统开发 11 图 4 10 修改后的毛坯管理菜单模块 当点击添加按钮时窗体下方的这些文本框就会全部显示为空白状态 当输入相应 的毛坯信息后按保存按钮就可以将此条信息存入书库库中 例如 添加一条新资料 代码 HSM5 名称 毛坯 5 规格型号 钢 单位 45 个 仓库 库房 1 备注 无 有效 是 则需要将上述代码添加到对应的文本框中 然后点击保存 就可以将上述 资料添加到毛坯库中 添加后如图所示 南阳汇森公司外协件管理系统开发 12 图 4 11 添加信息后的毛坯管理菜单模块 当选中一条信息后点击删除按钮就可以进行删除操作 点击删除按钮后 会弹出 删除成功提示对话框 将选中的信息从数据库中删除掉 2 外协厂管理模块 客户管理 员工管理和车辆管理这些菜单项和毛坯管理菜单 项基本功能设计的原则和功能项基本相同 下面不再详述 其模块图示分别如下图所 示 图 4 12 外协长管理菜单模块 南阳汇森公司外协件管理系统开发 13 图 4 13 客户信息管理模块菜单结构 图 4 14 员工管理模块菜单结构 南阳汇森公司外协件管理系统开发 14 图 4 15 车辆管理管理模块菜单结构 4 3 生产管理模块 生产管理菜单机构设计模块如图 4 16 所示 图 4 16 生产管理菜单结构 该模块主要实现对毛坯入库 外协件派送和接受 以及产成品的管理 下面就针 对第一个菜单项毛坯入库来进行说明 毛坯入库菜单主要实现毛坯入库派单的生成和打印 窗体加载后如图 4 17 所示 南阳汇森公司外协件管理系统开发 15 图 4 17 毛坯入库菜单模块 窗体左下角显示的是毛坯的库存情况 选中一条信息后它就会以蓝色显示 点击 添加按钮 选中的信息就会北添加到窗体上方的 Listview 控件中 添加上方的数量和 备注是即将添加到上方窗体中的数据 如选中毛坯 2 和毛坯 3 数量填写默认数量 1 备注为空 点击添加后效果如图 4 18 所示 图 4 18 添加毛坯信息后的库存模块 将单号 仓库 入库人和日期等信息填写完后 如上图 点击保存按钮就可以将 入库信息保存 点击导出表单按钮 弹出储存路径如图 4 19 所示 南阳汇森公司外协件管理系统开发 16 图 4 19 选择路径和保存名称后就可以将这两条信息保存到 Excel 数据表中 生成的 Excel 报表格式如图 4 20 所示 图 4 20 Excel 毛坯入库单 在 Excel 表中用户可以查看入库单信息 当需要打印时就可以打印出来 因为一 个菜单下的同一级菜单的设计模型基本一致 所以生产管理菜单项下的其它子菜单再 此就不做说明 南阳汇森公司外协件管理系统开发 17 4 4 销售管理模块 销售管理菜单项包括出货管理和退货管理两个一级菜单 主要对汇森公司的产品 销售和退货进行管理 其结构图如 4 21 所示 图 4 21 销售管理菜单结构 点击出货管理菜单弹出相应窗口 出货管理窗口模块如图 4 22 所示 图 4 22 出货管理菜单模块 点击产品仓库文本框后的按钮 弹出仓库列表 每个仓库对应这一个库管员 选择仓库后 器相应的库存信息就显示在窗体下侧的 Listview 中 如图 4 23 所示 南阳汇森公司外协件管理系统开发 18 图 4 23 选择库存信息 设置出货数量和备注后点击添加按钮 就可以将将要销售的产品 信息添加到窗体上方的 Listview 控件中 填写出货单号 客户 联系人等信息后如图 4 24 所示 图 4 24 点击保存单据按钮就可以将此次出货单保存入库 点击导出单据按钮就可以将此 出货单导出到 Excel 表格中 提供以后的打印数据 6 退货管理窗体与销售管理窗体 类似 再次不再累述 4 5 业务报表模块 业务报表菜单结构如图 4 25 所示 南阳汇森公司外协件管理系统开发 19 图 4 25 业务报表菜单结构 业务报表菜单项主要提供毛坯库存报表 外协件加工报表 产成品库存报表和销 售机退货报表 生成的报表可以随产品流动 也可以供公司相关人员参阅 下面就毛 坯库存报表菜单来进行阐述 载入窗体后如图 4 26 所示 图 4 26 毛坯库存报表 1 窗体下方显示毛坯库存情况 选中后可以将库存信息添加到毛坯库存表中 选择 库存仓库后就可以在窗体上方 listview 中显示需要报表显示的信息 如图 4 27 所示 南阳汇森公司外协件管理系统开发 20 图 4 27 毛坯库存报表 2 点击保存就可以将次信息保存到相应表格中 点击导出报表机袔将报表导出到 Excel 中 共打印备用 库房右侧的显示明细按钮就可以显示相关毛坯信息的明细信息 如入库人 单号 入库日期 制单人等 图示如下 图 4 28 毛坯库存明细 4 6 工具模块 南阳汇森公司外协件管理系统开发 21 图 4 29 工具菜单结构 工具菜单主要提供系统初始化功能 当公司刚把该软件安装调试完后 需要把软 件内附带的表格数据清空 这样就可以选择此菜单 所以为安全起见点击系统初始化 菜单后会先弹出提示对话框 提示用户是否选择系统初始化 防止用户失误的操作导 致数据库内的数据的丢失 用户选择 是 即进行相应操作 选择 否 就会退出 此项 7 4 7 帮助模块 图 4 30 帮助菜单结构 帮助菜单项主要包括软件的相关信息和软件开发人的联系方式等信息 为使用者 提供使用说明 并且当用户使用过程中遇到相应问题后可以电话或发 Email 给开发者 来寻求帮助 相应图示如下 南阳汇森公司外协件管理系统开发 22 图 4 31 软件说明 图 4 32 关于本程序 为了使操作方便 把经常使用到的菜单项单独放到主界面的工具栏上 就构成了 工具栏设计 由于它只是菜单项的快速调用模式 在次不做介绍 状态栏只是软件的 辅助设计功能 并不是该软件的必须部分 因此不在详细介绍其设计过程 南阳汇森公司外协件管理系统开发 23 5 结论 本文以的开发与设计为背景 运用软件工程的思想 采用面向对象的程序设计方 法 立足于数据库的设计原理和方法 设计并实现了公司对软件基本功能的要求 本 课题主要进行了以下工作 1 对河南汇森公司生产信息管理系统进行概述 分析了该行业生产信息管理软件 的研究背景和国内外开发现状 探讨了设计针对河南汇森公司生产信息管理系统的必 要性 确定了系统设计的实用性 先进性 可扩充性 可维护性 安全可靠性及标准 化等原则 2 对数据库系统开发的多种方式进行了比较分析 确定了用 SQL Server2000 设 计数据库系统的总体规划 SQL Server2000 是一个客户机 服务器关系型数据库管理 系统 该体系结构使用户能够为各种环境最优化的设计和布局应用程序 客户程序界 面使应用程序能够运行于不同的客户计算机上 并通过网络与服务器通信 数据库接 口采用 ADO 模式 ADO 可在 断开连接模式 下访问数据库 这样大大减少了因连接过 多对数据库服务器资源的大量占用 数据库的设计本着一致性 完整性 安全性 可 伸缩性和规范化的原则 8 3 系统开发用 Visual Basic 6 0 来完成 VB6 0 采用面向对象的事件驱动编程机 制 程序员只需编写响应用户动作的程序 而不必考虑按精确次序执行的每个步骤 编写代码相对较少 符合人们习惯的思维方式 便于分析复杂多变的问题 易于软件 的维护和功能的扩展 能用继承的方式缩短程序开发的时间 与可视化技术结合 改 善了工作界面 界面及操作都很人性化 能极大地提高开发效率 9 4 在对系统功能及需求进行分析的基础上 确定了系统实施后应达到的目标 强 大的产品管理功能 构架流行 平台先进 数据保密性强 为每个操作员设置权限级 别 系统采用人机对话方式 界面清晰 信息查询方便 数据存储安全可靠 键盘操 作 快速响应 对输入的数据 系统进行严格的数据检验 尽可能排除人为的错误 系统中的每个模块都有它的独立性和整体性 最大限度地实现易安装性 易维护性和 易操作性 系统运行稳定 安全可靠 为管理者和普通员工服务 适于非专业计算机 人员使用 另外还考虑了系统的扩展性 可以在此基础上进行二次开发 满足了系统 将来发展的需要 10 5 根据目标设计 构造出了该系统的总体体系结构 11 该系统主要包括 用户 基础信息 生产管理 销售管理 业务报表等几个模块 用户模块包括登录 注销 权限管理和退出四级子菜单 可以实现用户的登 录和退出的操作 其中权限管理可以实现不同级别用户的相应操作 是软件变得更加 安全和保密 南阳汇森公司外协件管理系统开发 24 基础信息模块包括毛坯 外协件 产品等菜单项 可以实现对相应产品的添 加 删除和修改等操作 生产管理模块包括毛坯 外协件和产成品的入库 出库等管理 并能实现报 表的生成 销售管理模块可实现产成品的销售和退货管理 使公司的产品和次品有效的 区分开来 并能生成相关报表 极大的提高的企业效率 业务报表模块主要实现报表的生成 将经常用到的报表集中到次菜单下 减 小了认为填写报表的负担 6 在完成了系统体系结构设计和数据库体系结构设计后 又进行了编码调试及系 统测试等工作 使得系统更加实用和稳定 系统投入使用后 有效的实现了河南汇森 公司生产信息管理的信息化 解决了传统的产品管理中存在的问题 提高了工作效率 12 南阳汇森公司外协件管理系统开发 25 参考文献 1 刘彬彬 高春艳 Visual basic 程序设计标准教程 M 北京 人民邮电出版社 2008 453 2 卢湘鸿 陈洁等 Access 数据库与程序设计 M 北京 电子工业出版社 2006 97 120 3 王颖 李敏业 Visual Basic SQL Server 数据库应用实例完全解析 J 人民邮电出版社 2006 4 杨富国 Visual Basic 程序开发案例解析 M 北京 清华大学出版社 2003 2 12 5 马维峰 Excel VBA 应用开发从基础到实践 M 北京 电子工业出版社 2002 12 6 刘文涛 Visual Basic Access 数据库开发与实例 M 北京 清华大学出版社 2006 7 16 7 刘爱琴 Visual Basic 程序设计教程 M 北京 航空工业出版社 2003 21 34 8 求是科技 Visual Basic6 0 数据库开发技术与工程实践 M 北京 人民邮电出版社 2002 12 5 9 杨黎丽 学生成绩管理信息系统的设计与实现 硕士学士论文 2009 02 10 曾强聪 Visual Basic 程序设计基础教程 M 北京 北京交通大学出版社 2004 05 11 尹为民等 现代数据库系统及应用教程 J 武汉大学出版社 2005 02 12 邹建 SQL Server2000 开发与管理应用实例 J 人民邮电出版社 2005 08 南阳汇森公司外协件管理系统开发 26 附录附录 部分代码部分代码 1 用户登录窗口设计代码 If txtUserName Then MsgBox 请输入用户名 txtUserName SetFocus Else If txtPassword Then MsgBox 请输入密码 txtPassword SetFocus Else sql Select From 用户表 where 账号 Me txtUserName and 密码 Me txtPassword rs Open sql Conn adOpenForwardOnly adLockReadOnly If Not rs EOF Then CurrUserID rs ID CurrAccount Me txtUserName CurrUserName rs 账号 CurrUserType rs 用户类别 CurrUserPWD Me txtPassword LoginState True Unload Me MDIMain Show If CurrUserType 普通用户 Then MDIMain Mnu Login Enabled False MDIMain Mnu LogOut Enabled True MDIMain Mnu usermain Enabled False MDIMain Mnu RightMan Enabled True 南阳汇森公司外协件管理系统开发 27 MDIMain Mnu BaseInfo Enabled True MDIMain Mnu YeWuMan Enabled True MDIMain Mnu SayMan Enabled False MDIMain Mnu EmpMan Enabled False MDIMain Mnu CustomerMan Enabled False MDIMain Mnu ReportMan Enabled False MDIMain Mnu Tools Enabled False LoginState True MDIMain Toolbar1 Buttons 1 Visible False For i 2 To 7 MDIMain Toolbar1 Buttons i Enabled True Next Else 使 MDImain 主窗口菜单和工具栏按钮有效 MDIMain Mnu Login Enabled False MDIMain Mnu LogOut Enabled True MDIMain Mnu RightMan Enabled True MDIMain Mnu BaseInfo Enabled True MDIMain Mnu YeWuMan Enabled True MDIMain Mnu SayMan Enabled True MDIMain Mnu ReportMan Enabled True MDIMain Mnu Tools Enabled True LoginState True MDIMain Toolbar1 Buttons 1 Visible False For i 2 To 7 MDIMain Toolbar1 Buttons i Enabled True Next End If 初始化主窗口状态栏信息 MDIMain StatusBar1 Panels 2 Text 用户类型 CurrUserType MDIMain StatusBar1 Panels 3 Text 工号 CurrUserName Else MsgBox 用户名或密码错误 请重新输入 vbOKOnly 用户登录 LoginState False 南阳汇森公司外协件管理系统开发 28 try times try times 1 If try times 3 Then MsgBox 您已经三次尝试进入本系统 均不成功 系统将关闭 Unload frmLogin Unload MDIMain End End If End If End If End If End Sub 2 添加毛坯库存信息代码 Private Sub Cmd AddItem Click On Error GoTo Err Cmd AddItem Click Dim itemM As ListItem Dim itemX As ListItem If Me LVMaoPi SelectedItem Is Nothing Then MsgBox 请首先选择要添加到派工单的毛坯 vbOKOnly 添加毛坯 Exit Sub 判断当前待加入 代码 是否 已经存在 For Each itemX In Me ListView1 ListItems itemX Selected False If itemX Text Me LVMaoPi SelectedItem Text Then MsgBox 待添加代码 Me LVMaoPi SelectedItem Text vbCrLf 已经存在 请直接修改数量即可 vbOKOnly 操作提示 Exit Sub Next Set itemM Me LVMaoPi SelectedItem Set itemX Me ListView1 ListItems Add itemX Text itemM Text 代码 itemX SubItems 1 itemM SubItems 1 名称 itemX SubItems 2 itemM SubItems 2 规格型号 itemX SubItems 3 itemM SubItems 3 重量 itemX SubItems 4 itemM SubItems 4 单位 itemX SubItems 5 Val Me txt 数量 数量 南阳汇森公司外协件管理系统开发 29 itemX SubItems 6 Me txt 备注 备注 itemX Selected True Set Me ListView1 SelectedItem itemX Exit Sub Err Cmd AddItem Click MsgBox Err Description End Sub 3 按毛坯或外协厂对外协件进行检索代码 Private Sub Cmd Find Click On Error GoTo Err Cmd Find Click Dim itemX As ListItem 根据当前选择的是毛坯 还是外协厂进行分类查找 检索外协出库单 If Me Combo1 Text 毛坯 Then sql SELECT 外协工单 单号 外协工单 外协厂 ID 外协厂 厂名 外协工单 外协人 外 协工单 日期 外协工单 备注 外协明细 代码 FROM 外协工单 LEFT JOIN 外协明细 ON 外协工单 单号 外协明细 单号 LEFT JOIN 外协厂 ON 外协工单 外协厂 ID 外协厂 代码 Where 外协明细 代码 Me txt 毛坯 Tag and 外协工单 日期 Between Me txtStartDate And Me txtEndDate Order By 外协工单 日期 Else 选择的是厂家 sql SELECT 外协工单 单号 外协工单 外协厂 ID 外协厂 厂名 外协工单 日期 外协 工单 外协人 外协工单 备注 FROM 外协工单 LEFT JOIN 外协厂 ON 外协工单 外协厂 ID 外协 厂 代码 Where 外协工单 外协厂 ID Me txt 毛坯 Tag and 外协工单 日期 Between Me txtStartDate And Me txtEndDate Order By 外协工单 日期 End If If rs State Then rs Close rs Open sql Conn adOpenForwardOnly adLockReadOnly Me LVOutBill ListItems Clear While Not rs EOF 南阳汇森公司外协件管理系统开发 30 Set itemX Me LVOutBill ListItems Add a rs 单号 rs 单号 itemX Tag rs 外协厂 ID itemX SubItems 1 rs 厂名 itemX SubItems 2 rs 日期 itemX SubItems 3 rs 外协人 itemX SubItems 4 rs 备注 rs MoveNext Wend 检索外协入库单 If Me Combo1 Text 毛坯 Then sql SELECT 外协接收单 单号 外协接收单 外协厂 ID 外协厂 厂名 外协接收单 接收 人 外协接收单 日期 外协接收单 备注 外协接收明细 代码 FROM 外协接收单 LEFT JOIN 外协接收明细 ON 外协接收单 单号 外 协接收明细 单号 LEFT JOIN 外协厂 ON 外协接收单 外协厂 ID 外协厂 代码 Where 外协接收明细 代码 Me txt 毛坯 Tag and 外协接收单 日期 Between Me txtStartDate And Me txtEndDate Order By 外协接收单 日期 Else 选择的是厂家 sql SELECT 外协接收单 单号 外协接收单 外协厂 ID 外协厂 厂名 外协接收单 日期 外协接收单 接收人 外协接收单 备注 FROM 外协接收单 LEFT JOIN 外协厂 ON 外协接收单 外协厂 ID 外协厂 代码 Where 外协接收单 外协厂 ID Me txt 毛坯 Tag and 外协接收单 日期 Between Me txtStartDate And Me txtEndDate Order By 外协接收单 日期 End If If rs State Then rs Close rs Open sql Conn adOpenForwardOnly adLockReadOnly Me LVInBill ListItems Clear While Not rs EOF Set itemX Me LVInBill ListItems Add a rs 单号 rs 单号 itemX Tag rs 外协厂 ID itemX SubItems 1 rs 厂名 itemX SubItems 2 rs 日期 itemX SubItems 3 rs 接收人 南阳汇森公司外协件管理系统开发 31 itemX SubItems 4 rs 备注 rs MoveNext Wend Me LVInBOM ListItems Clear Me LVOutBOM ListItems Clear Exit Sub Err Cmd Find Click MsgBox Err Description End Sub 4 导出产品库存管理 Excel 表代码 Private Sub Cmd Export Click On Error GoTo Err Cmd Export Click Dim ExportFileName As String Dim iRow As Long Dim itemX As ListItem Dim ExcelModel As String Dim myRange As String If Me ListView1 SelectedItem Is Nothing Then MsgBox 请首先填写外协明细 然后再导出报 表 vbOKOnly 导出提示 Exit Sub ExportFileName GetExportFileName Me txt 单号 If ExportFileName Then Exit Sub If UCase Right ExportFileName 4 XLS Then 保存的文件名不是电子表格文件 MsgBox 必须保存为电子表格格式的文件 vbOKOnly 错误提示 Exit Sub End If 连接 Excel If Not ConExcel Then MsgBox 不能正确连接 Excel 导出无法完成 vbOKOnly 连接错误 Exit Sub If Dir ExportFileName Then 文件已存在 If MsgBox 文件 ExportFileName vbCrLf 已经存在 是否覆盖 vbYesNo 文件已存在 vbNo Then Exit Sub If Not excelApp ActiveWorkbook Is Nothing Then If excelApp ActiveWorkbook FullName ExportFileName Then MsgBox 文件 ExportFileName vbCrLf 目前正在打开状态 无法覆盖 南阳汇森公司外协件管理系统开发 32 请关闭 vbOKOnly 文件占用 excelApp Visible True Exit Sub End If End If Kill ExportFileName End If ExcelModel App Path Model 产品入库单模板 xls Set xlBook excelApp Workbooks Open ExcelModel Set xlSheet xlBook Worksheets 1 xlBook SaveAs ExportFileName 首先写入表头 信息 sql 单号 Me txt 单号 仓库 Me txt 仓库 Tag Me txt 仓库 库管员 Me txt 库管员 xlSheet Cells 2 1 sql xlSheet Cells 2 7 日期 Me txt 日期 日期 写入明细 iRow 4 For Each itemX In Me ListView1 List