某公司产品外协件管理系统开发课程

1、 1 / 40 xxx 本科生毕业设计（论文）课程题目： xxxxxx 系 别： 机电工程系 专 业： 机械设计制造与其自动化 学生： xxx 学 号： xxx 指导教师： xxxx 完成日期 2011 年 5 月 2 / 40 xxxx汇森公司产品外协件管理系统开发Development of Outsourcing Parts Management System forNanyangHuisen Company总 计： 34 页插 图 ：33 幅 3 / 40 xxx汇森公司产品外协件管理系统开发Development of Outsourcing Parts Management Sys

2、tem forNanyangHuisen Company学 院（系）： xx 专 业： xxx 学 生 姓 名：xxx 学 号：xxx 指 导 教 师（职称）：xxxx评 阅 教 师（职称）：完 成 日 期：2011 年 5 月 理工学院 Nanyang Institute of Technology I / 40汇森公司产品外协件管理系统开发xxxxxx摘摘 要要为了进一步提高汇森公司对产品生产过程的信息化管理水平，规各生产管理环节的业务流程，保证各生产环节数据信息的一致性，实现对各类生产数据信息的便捷查询和统计分析，特定制开发本课题软件。本软件利用 Visual Basic6.0 为前台开

3、发语言，以 Access 为数据库存储平台，采用基于三层结构的 C/S 开发模式和 ADO 数据库访问技术，结合 Excel 的 VBA 开发技术，通过模块化设计实现对企业外协件管理信息的集成化和信息化。通过该软件的应用，实现公司在毛坯、外协、库存和销售各业务环节的信息化管理，使各业务管理部门将原来分散的数据进行统一管理，真正实现公司相关管理环节的数据共享，消除公司多年存在的“信息孤岛”问题。通过该软件搭建的生产管理平台，各管理部门的业务处理会更加便捷、有序、规。关键词关键词生产管理；外协件；数据库；报表Development of Outsourcing Parts Management S

4、ystem forNanyangHuisen CompanyMechanical Design, Manufacturing and Automation Major Gao Ke-feiAbstract: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 infor

5、mation of every production link consistency, realize the convenient inquiry and statistical analysis ofall kinds of production data and information, this topic software has been developed specially.Through the application of this software, enterprise canrealize the information management of each bus

6、iness link about blank, outsourcing, inventory and sale, then manage the original dispersion data of business II / 40management departments uniformly, realizedata sharing of relevant management link and eliminate“island of information” which exists many years in the company. Through the production m

7、anagement platform which this software builds, the business processing of each management department will be more convenient, orderly and normal. KeyKey Words:Words:productionmanagement; outsourcing parts; database; report form I / 40目 录1 1 绪论绪论 11.1 课题的研究背景与意义 11.2 国外研究现状 12 2 应用开发关键技术介绍与其运行环境要求应用开

8、发关键技术介绍与其运行环境要求 22.1 VISUAL BASIC程序设计 22.2 数据库技术 22.3 开发运行环境 23 3 系统需求分析与总体设计系统需求分析与总体设计 33.1 需求分析概述 33.2 系统体系结构设计 44 4 系统软件设计系统软件设计 441 用户模块 54.1.1 系统登录模块 54.1.2 权限管理菜单模块 74.2 基础信息模块 94.3 生产管理模块 144.4 销售管理模块 174.5 业务报表模块 184.6 工具模块 204.7 帮助模块 215 5 结论结论 23参考文献参考文献 25附录部分代码附录部分代码 26致致 34 1 / 401 1 绪

9、论绪论1.11.1 课题的研究背景与意义课题的研究背景与意义目前，汇森公司在产品生产管理各环节仍处于分散的手工管理模式，生产管理信息不够规，无法实现信息共享。对在制品、外协件和库存件等产品信息的追踪与对各类信息的统计分析效率底、容易出错。公司各管理层领导不能与时获取公司的各类生产数据，导致公司对当前的快速市场需求机制反应不够迅速。通过对公司前期调研和讨论，拟定制开发一套针对汇森公司实际业务需求的专业生产管理软件。在不改变现有工作模式、不新加管理人员的情况下，以最小的成本、最低的风险，改善目前的生产管理工作状况，提高工作效率。使公司领导能够准确、快速、便捷、实时掌控公司各生产环节的数据信息。为快

10、速、准确决策提供数据基础，进一步提高公司的市场反应速度。1.21.2 国外研究现状国外研究现状管理信息系统(Management Information System，MIS)一词最早出现在 1970年，由瓦尔特肯尼万下的定义：“以书面或口头的形式，在合适的时间向经理、职员以与外界人员提供过去的、现在的、预测未来的有关企业部与其环境的信息，以帮助他们进行决策。 ”当时由于计算机尚未普与，管理系统提供的信息还停留在书面或口头的方式，其目的是支持决策。直至 1985 年，管理信息系统的创始人美国明尼达大学卡尔森管理学院的教授高登戴维斯给出管理信息系统较完整的定义：它是一个以计算机硬件和软件、手工作

11、业为基础，利用分析、计划、控制和决策模型以与数据库的人机系统，它具有提供信息，支持企业或组织的运行、管理和决策的功能。这个定义强调了管理系统的三个核心问题：计算机工具、信息处理的模型和系统的功能。由于国外管理理论较为成熟，网络信息技术的普与，使得国外的管理信息系统较为完善。而对于国企业，尤其针对中小型企业而言，对于本场的产品与外协产品，仍普遍采用手工的纸、笔式的数据记录，这样不与工作量大，数据记录的与时性和准确性低，数据的更新和保存繁琐，而且使得企业的整体工作效率随之降低，对于一个生机勃勃的企业而言，这样的管理系统无疑是十分落后的，相当缺乏竞争力的。当今社会，随着计算机的日益普与和网络的渐趋发

12、达，生产企业之间，企业部各部门之间都走上了“网络”这一信息高速公路， “无纸办公“已不再是新鲜名词，网络的充分利用使得企业各项工作如虎添翼，工作效率得到极提高。在这一网络化情境下，企业管理系统不可避免地也要发生相应地变革才能适应这一发展潮流。 2 / 402 2 应用开发关键技术介绍与其运行环境要求应用开发关键技术介绍与其运行环境要求2.12.1 VisualVisual BasicBasic 程序设计程序设计程序设计是指使用程序设计语言在开发环境中编写能被计算机自动执行的指令的过程。Visual Basic6.0 是美国微软公司推出的 Windows 应用程序开发平台家族中的一员，它沿用了早

13、期 Basic 语言的一些语法格式，是一个功能强大的应用程序开发工具。Visual Basic 6.0 是一种面向对象(Object Oriented Programming，OOP)的程序设计方法，它强调直接以问题域(即现实世界)中的事物为中心来考虑和认识问题，并按照这些事物的本质特征把它们抽象为对象，作为软件系统的基础。在 OOP 方法中，将对象作为系统中最基本的运行实体，对象中封装了描述该对象的特殊属性(数据)和行为方式(方法)。整个程序即由各种不同类型的对象组成，各对象既是一个独立的实体，又可通过一定的方式相互作用1。Visual Basic6.0 易学易用、功能强大的特点使其得到了广

14、泛的应用。其强大的可视化用户界面设计，是程序员从复杂的界面设计中解脱出来，是编程成为一种享受。Visual Basic 6.0 不但可以开发小型单机数据库管理系统，而且也可以开发集多种应用程序于一体的网络数据库系统。因此使得他成为目前使用最广泛的编程语言之一。2.22.2 数据库技术数据库技术当计算机从早期的计算工具逐步变化成现在的信息处理和管理工具时，它就和数据库建立了密切的关系。在当今信息爆炸的时代，只有通过数据库并结合计算机的高速计算能力才可能实现对大量信息的与时处理和分析。数据库系统主要有三大部分组成：数据库管理系统(DBMS，专门负责组织和管理数据信息的程序)、数据库应用程序(它使我

15、们能够获取、显示和更新由 DBMS 存储的数据)、数据库(按一定结构组织在一起的相关数据的集合)。随着 DBMS 技术的发展，目前的数据库系统正向着客户机服务器模式发展。客户机服务器数据库将 DBMS 和数据库应用程序分开，从而提高了数据库系统的处理能力。数据库应用程序运行在一个或多个用户工作站(客户机)上，并通过网络与运行在其它计算机上(服务器)的一个或多个 DBMS 进行通信。而通信技术就要通过 ADO 技术了。 ADO 是美国微软公司的数据访问技术，它不仅有助于实现对各种数据来源进行高效访问，使用户能够对数据进行复杂的操作和排序，而且形成了一个重要的框架，在这个框架中可以实现应用程序之间

16、的通讯和 (MLWeb)服务。2.32.3 开发运行环境开发运行环境 3 / 40 1开发环境(1)操作系统：基于 Windows XP 操作系统(2)需求分析工具：Visio 2003(3)数据库服务器：基于 SQL Server20002客户端运行环境(1)软件运行环境操作系统：Windows XP 操作系统IDE 环境：Microsoft Yisual Studio 2005支撑环境：MicrosoftNET Framework 20 (2)硬件运行环境普通 PC 机CPU：1.8GHz 以上存：1024MB显卡：128M 以上网卡：10/1001000Mbps硬盘空间：60GB其他设备

17、：鼠标、键盘3服务器运行环境(1)软件运行环境操作系统：Windows XP/WIN7 操作系统IDE 环境：Microsoft Visual Studio 2005支撑环境：NET Framework 20数据库：SQL Server 2000(2)服务器配置CPU： 3.4GHz存：4GB硬盘：320GB显卡：512M 以上网卡：10/1001000Mbps3 3 系统需求分析与总体设计系统需求分析与总体设计3.13.1 需求分析概述需求分析概述 4 / 40需求分析是指通过详细调查现实世界要处理的对象，明确用户的各种需求，达到确定新系统的功能的目的。需求分析是数据库结构设计的第一阶段，也

18、是非常重要的一个阶段。在这个阶段主要是调查、收集与分析用户在数据管理中的信息要求、处理要求、安全性与完整性要求。信息要指用户需要从数据库中获得信息的容与性质。由用户的信息要求可以导出数据要求，即在数据库中需要存储哪些数据。处理要指用户要求完成什么处理功能，对处理的响应时间有什么要求，处理方式是批处理还是联机处理，得到系统所要处理数据的流程图。系统的功能必须能够满足用户的信息要求、处理要求、安全性与完整性要求。需求分析首先调查清楚用户的实际需求并进行初步分析，与用户达成共识后，再进一步分析与表达这些需求。需求分析可分为问题分析、需求描述与需求评审三个阶段。问题分析阶段，分析人员通过对问题与环境的

19、理解、分析和综合，清除用户需求的模糊性、歧义性和不一致性。需求描述阶段的任务是生成需求规格说明书和初步的用户手册。需求评审阶段的任务是工作人员在用户和软件设计人员的配合下对生成的需求规格说明和用户手册进行复核，以确保软件需求的全面性、精确性和一致性2。3.23.2 系统体系结构设计系统体系结构设计根据以上对汇森公司外协件管理系统的需求分析与目标设计，构造出了该系统的总体体系结构，如图 31 所示。汇森公司外协件管理开发软件用户销售管理工具帮助基础信息生产管理业务报表图 31 系统总体结构4 4 系统软件设计系统软件设计 5 / 4041 用户模块用户模块包括登录、注销、权限管理和退出四个菜单，

20、其中权限管理菜单包括用户管理与密码修改两个子菜单。登录、注销和退出三个菜单意思和名字一样，登录模块是一个软件很重要的模块。系统登录模块主要对进入系统的用户进行安全性检查防止非法用户进入系统，只有合法的用户在输入正确的用户名和密码后方可进入3。4.11 系统登录模块为了保证应用程序的安全，通常要使用系统登录程序束验证登录系统的用户是否合法。 ” 。只有合法的用户才可进入系统并进行权限规定之的操作。登录模块需要实现咀下目标：（1） 输入的用户名和密码下确才能进入学生成绩信息管理系统。设计输入完用户名和密码后回车即可进入系统。（2）用户名错误或密码错误提醒并返回错误点，3 次口令错误，退出系统。（3

21、）以系统管理员级别登录的用户可以拥有访问系统的最大权限，包括记录的删除，修改、其他用户权限的设置等。点击用户登录菜单，进入登录界面，其运行效果如图 41 所示。图 4.1 用户登录界面输入用户名和密码好后点击确认或按回车键后，经过登录模块流程判断就可以进入主界面。登录模块开发流程图如图 42 所示。 6 / 40开始开始判断是否输入判断是否输入用户名与密码用户名与密码传入数据库传入数据库判断用户名与判断用户名与密码是否正确密码是否正确进入系统进入系统错误超过三次错误超过三次提示用户名或提示用户名或密码错误密码错误退出退出图 4.2 系统登录程序流程图跳过登录模块后就进入了软件的主题部分主程序窗

22、口。主程序窗体界面设计主要包括菜单设计、工具设计和状态栏设计，菜单设计主要运用菜单编辑器来完成子菜单的设计；工具栏设计由 Toolbar 控件来创建；状态栏是由 StatusBar 控件来创建4。根据系统所需功能，将菜单划分为用户、基础信息、生产管理、销售管理、业务报表、工具、帮助 7 个主菜单；将工具栏设计为登录、外协派单、外协接收、产品管理、外协报表、销售报表、退出七项；而状态栏主要显示软件的开发单位、登录用户信息和日期时间信息。主程序的开发流程如图 4.3 所示。 7 / 40用户用户主程序主程序相应权限相应权限相应菜单相应菜单与工具栏与工具栏状态栏状态栏用户信息用户信息等等图 4.3

23、系统主程序开发流程主程序运行结果如图 4 .4 所示。图 4.4 程序主界面4.1.2 权限管理菜单模块该模块的菜单结构如图 4.5 所示。 8 / 40图 4.5 用户管理菜单结构用户管理主要是上级用户管理下级用户信息，如管理员可以对管理员和普通用户进行新增、修改、删除的操作；管理员用户可以进行对普通用户进行新增、修改和删除操作，高级用户之间无权进行该操作；而普通用户则不能使用该菜单。密码修改则是登录用户修改自己的密码信息。两者的操作界面如下图所示。图 4.6 用户管理菜单操作界面 9 / 40图 4.7 密码修改界面4.2 基础信息模块该模块的菜单结构图 4.8 所示。图 4.8 基础信息

24、管理菜单结构该模块主要完成毛坯、外协厂、客户、员工和车辆这些基本信息的管理，并能对这些基本信息进行查看、添加、修改和删除等操作。下面详细介绍几个子模块的设计与运行结果。1.毛坯管理子模块 10 / 40图 4.9 毛坯管理菜单模块当窗体加载时，数据库中的毛坯库存信息就会显示在 listview 控件中，当在窗体上方的代码、名称、规格后面的文本框中输入需要查询的毛坯的相应信息后点击查询按钮，则所需信息就会显示在 listview 控件中5。当用鼠标点击 listview 中的毛坯信息，则选中的信息就会显示为蓝色状态，如图 4.9，此时，这条毛坯的相关信息就会显示在窗体下边的相应的文本框中，此时可

25、以在这些文本框中对信息进行修改，修改后保存按钮可用，点击保存就可以更新对应的毛坯信息。例如将图中的毛坯 1 信息中的重量改成 140 件，备注改成加急。则需要用鼠标先选中毛坯 1 信息，然后在窗体下边的文本框中将“260”改成“140” ， “无”改成“加急”然后点击保存按钮，就可以将毛坯库存中的毛坯 1 信息修改成功，修改后如图 4.10 所示。 11 / 40图 4.10 修改后的毛坯管理菜单模块当点击添加按钮时窗体下方的这些文本框就会全部显示为空白状态，当输入相应的毛坯信息后按保存按钮就可以将此条信息存入书库库中。例如：添加一条新资料：“代码：HSM5，名称：毛坯 5，规格型号：钢，单位

26、：45 个，仓库：库房 1，备注：无，有效：是” ，则需要将上述代码添加到对应的文本框中，然后点击保存，就可以将上述资料添加到毛坯库中，添加后如图所示： 12 / 40图 4.11 添加信息后的毛坯管理菜单模块当选中一条信息后点击删除按钮就可以进行删除操作，点击删除按钮后，会弹出删除成功提示对话框，将选中的信息从数据库中删除掉。 2 .外协厂管理模块、客户管理、员工管理和车辆管理这些菜单项和毛坯管理菜单项基本功能设计的原则和功能项基本一样，下面不再详述。其模块图示分别如下图所示。图 4.12 外协长管理菜单模块 13 / 40图 4.13 客户信息管理模块菜单结构图 4.14 员工管理模块菜单

27、结构 14 / 40图 4.15 车辆管理管理模块菜单结构4.3 生产管理模块 生产管理菜单机构设计模块如图 4.16 所示。图 4.16 生产管理菜单结构该模块主要实现对毛坯入库、外协件派送和接受、以与产成品的管理，下面就针对第一个菜单项毛坯入库来进行说明。毛坯入库菜单主要实现毛坯入库派单的生成和打印，窗体加载后如图 4.17 所示。 15 / 40图 4.17 毛坯入库菜单模块窗体左下角显示的是毛坯的库存情况，选中一条信息后它就会以蓝色显示，点击添加按钮，选中的信息就会北添加到窗体上方的 Listview 控件中，添加上方的数量和备注是即将添加到上方窗体中的数据。如选中毛坯 2 和毛坯 3

28、，数量填写默认数量“1” ，备注为空，点击添加后效果如图 4.18 所示。图 4.18 添加毛坯信息后的库存模块 将单号、仓库、入库人和日期等信息填写完后，如上图，点击保存按钮就可以将入库信息保存，点击导出表单按钮，弹出储存路径如图 4.19 所示。 16 / 40图 4.19选择路径和保存名称后就可以将这两条信息保存到 Excel 数据表中。生成的 Excel报表格式如图 4.20 所示。图 4.20 Excel 毛坯入库单在 Excel 表中用户可以查看入库单信息，当需要打印时就可以打印出来。因为一个菜单下的同一级菜单的设计模型基本一致，所以生产管理菜单项下的其它子菜单再此就不做说明。 1

29、7 / 404.4 销售管理模块销售管理菜单项包括出货管理和退货管理两个一级菜单，主要对汇森公司的产品销售和退货进行管理，其结构图如 4.21 所示。图 4.21 销售管理菜单结构点击出货管理菜单弹出相应窗口，出货管理窗口模块如图 4.22 所示。图 4.22 出货管理菜单模块点击产品仓库文本框后的按钮，弹出仓库列表，每个仓库对应这一个库管员，选择仓库后，器相应的库存信息就显示在窗体下侧的 Listview 中，如图 4.23 所示。 18 / 40图 4.23 选择库存信息，设置出货数量和备注后点击添加按钮，就可以将将要销售的产品信息添加到窗体上方的 Listview 控件中，填写出货单号、

30、客户、联系人等信息后如图4.24 所示。图 4.24 点击保存单据按钮就可以将此次出货单保存入库，点击导出单据按钮就可以将此出货单导出到 Excel 表格中，提供以后的打印数据6。退货管理窗体与销售管理窗体类似，再次不再累述。4.5 业务报表模块业务报表菜单结构如图 4.25 所示。 19 / 40图 4.25 业务报表菜单结构业务报表菜单项主要提供毛坯库存报表、外协件加工报表、产成品库存报表和销售机退货报表，生成的报表可以随产品流动，也可以供公司相关人员参阅。下面就毛坯库存报表菜单来进行阐述，载入窗体后如图 4.26 所示。图 4.26 毛坯库存报表 1窗体下方显示毛坯库存情况，选中后可以将

31、库存信息添加到毛坯库存表中，选择库存仓库后就可以在窗体上方 listview 中显示需要报表显示的信息，如图 4.27 所示。 20 / 40图 4.27 毛坯库存报表 2点击保存就可以将次信息保存到相应表格中，点击导出报表机袔将报表导出到Excel 中，共打印备用。库房右侧的显示明细按钮就可以显示相关毛坯信息的明细信息，如入库人、单号、入库日期、制单人等，图示如下。图 4.28 毛坯库存明细4.6 工具模块 21 / 40图 4.29 工具菜单结构工具菜单主要提供系统初始化功能，当公司刚把该软件安装调试完后，需要把软件附带的表格数据清空，这样就可以选择此菜单，所以为安全起见点击系统初始化菜单

32、后会先弹出提示对话框，提示用户是否选择系统初始化，防止用户失误的操作导致数据库的数据的丢失，用户选择“是” ，即进行相应操作，选择“否” ，就会退出此项7。4.7 帮助模块图 4.30 帮助菜单结构 帮助菜单项主要包括软件的相关信息和软件开发人的联系方式等信息，为使用者提供使用说明，并且当用户使用过程中遇到相应问题后可以或发 Email 给开发者，来寻求帮助。相应图示如下。 22 / 40图 4.31 软件说明图 4.32 关于本程序 为了使操作方便，把经常使用到的菜单项单独放到主界面的工具栏上，就构成了工具栏设计。由于它只是菜单项的快速调用模式，在次不做介绍。状态栏只是软件的辅助设计功能，并

33、不是该软件的必须部分，因此不在详细介绍其设计过程。 23 / 405 结论本文以的开发与设计为背景，运用软件工程的思想，采用面向对象的程序设计方法，立足于数据库的设计原理和方法，设计并实现了公司对软件基本功能的要求。本课题主要进行了以下工作：1对汇森公司生产信息管理系统进行概述，分析了该行业生产信息管理软件的研究背景和国外开发现状，探讨了设计针对汇森公司生产信息管理系统的必要性，确定了系统设计的实用性、先进性、可扩充性、可维护性、安全可靠性与标准化等原则。2对数据库系统开发的多种方式进行了比较分析，确定了用 SQL Server2000 设计数据库系统的总体规划。SQL Server2000

34、是一个客户机服务器关系型数据库管理系统，该体系结构使用户能够为各种环境最优化的设计和布局应用程序，客户程序界面使应用程序能够运行于不同的客户计算机上，并通过网络与服务器通信。数据库接口采用 ADO 模式，ADO 可在“断开连接模式下访问数据库，这样大大减少了因连接过多对数据库服务器资源的大量占用。数据库的设计本着一致性、完整性、安全性、可伸缩性和规化的原则8。3系统开发用 Visual Basic 6.0 来完成，VB6.0 采用面向对象的事件驱动编程机制，程序员只需编写响应用户动作的程序，而不必考虑按精确次序执行的每个步骤，编写代码相对较少；符合人们习惯的思维方式，便于分析复杂多变的问题；易

35、于软件的维护和功能的扩展；能用继承的方式缩短程序开发的时间；与可视化技术结合，改善了工作界面，界面与操作都很人性化，能极提高开发效率9。4在对系统功能与需求进行分析的基础上，确定了系统实施后应达到的目标：强大的产品管理功能；构架流行，平台先进、数据性强，为每个操作员设置权限级别；系统采用人机对话方式，界面清晰，信息查询方便，数据存储安全可靠：键盘操作，快速响应；对输入的数据，系统进行严格的数据检验，尽可能排除人为的错误；系统中的每个模块都有它的独立性和整体性，最大限度地实现易安装性、易维护性和易操作性；系统运行稳定、安全可靠；为管理者和普通员工服务、适于非专业计算机人员使用；另外还考虑了系统的

36、扩展性，可以在此基础上进行二次开发，满足了系统将来发展的需要10。5根据目标设计，构造出了该系统的总体体系结构11。该系统主要包括：用户、基础信息、生产管理、销售管理、业务报表等几个模块。 用户模块包括登录、注销、权限管理和退出四级子菜单，可以实现用户的登录和退出的操作，其中权限管理可以实现不同级别用户的相应操作，是软件变得更加安全和。 基础信息模块包括毛坯、外协件、产品等菜单项，可以实现对相应产品的添 24 / 40加、删除和修改等操作。 生产管理模块包括毛坯、外协件和产成品的入库、出库等管理，并能实现报表的生成。 销售管理模块可实现产成品的销售和退货管理，使公司的产品和次品有效的区分开来，

37、并能生成相关报表，极大的提高的企业效率。 业务报表模块主要实现报表的生成，将经常用到的报表集中到次菜单下，减小了认为填写报表的负担。6在完成了系统体系结构设计和数据库体系结构设计后，又进行了编码调试与系统测试等工作，使得系统更加实用和稳定。系统投入使用后，有效的实现了汇森公司生产信息管理的信息化，解决了传统的产品管理中存在的问题，提高了工作效率12。 25 / 40参考文献1 彬彬、高春艳.Visual basic 程序设计标准教程M.：人民邮电 2008,4532 卢湘鸿、洁等. Access 数据库与程序设计M.：电子工业 2006，97-1203 王颖、敏业.Visual Basic +

38、 SQL Server 数据库应用实例完全解析J.人民邮电 20064 富国. Visual Basic 程序开发案例解析 M.：清华大学 2003，2-125 马维峰. Excel VBA 应用开发从基础到实践M.：电子工业 2002.126 文涛. Visual Basic + Access 数据库开发与实例 M.： 清华大学 2006.7-167 爱琴. Visual Basic 程序设计教程M.：航空工业 2003，21-34 8 科技. Visual Basic6.0 数据库开发技术与工程实践 M.：人民邮电 2002.12.59 黎丽.学生成绩管理信息系统的设计与实现 硕士学士论文

39、. 2009.0210 曾强聪.Visual Basic 程序设计基础教程M.：交通大学 2004.0511 为民等 现代数据库系统与应用教程J大学，2005，0212 邹建 SQL Server2000 开发与管理应用实例J人民邮电，2005，08 26 / 40附录附录 部分代码部分代码1 用户登录窗口设计代码If txtUserName = Then MsgBox 请输入用户名！txtUserName.SetFocusElseIf txtPassword = Then MsgBox 请输入密码！txtPassword.SetFocusElsesql = Select * From 用户表

40、 where 账号 = & Me.txtUserName & and 密码 = & Me.txtPassword & rs.Open sql, Conn, adOpenForwardOnly, adLockReadOnlyIf Not rs.EOF Then CurrUserID = rs(ID) CurrAccount = Me.txtUserName CurrUserName = rs(账号) CurrUserType = rs(用户类别) CurrUserPWD = Me.txtPassword LoginState = TrueUnload Me: MD

41、IMain.Show If CurrUserType = 普通用户 Then MDIMain.Mnu_Login.Enabled = False MDIMain.Mnu_LogOut.Enabled = True MDIMain.Mnu_usermain.Enabled = False MDIMain.Mnu_RightMan.Enabled = True MDIMain.Mnu_BaseInfo.Enabled = True MDIMain.Mnu_YeWuMan.Enabled = True MDIMain.Mnu_SayMan.Enabled = False MDIMain.Mnu_Em

42、pMan.Enabled = False 27 / 40 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 主窗口菜单和工具栏按钮有效 MDIMa

43、in.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.

44、Toolbar1.Buttons(1).Visible = False For i = 2 To 7 MDIMain.Toolbar1.Buttons(i).Enabled = True NextEnd If 初始化主窗口状态栏信息 MDIMain.StatusBar1.Panels(2).Text = 用户类型： & CurrUserType MDIMain.StatusBar1.Panels(3).Text = 工号： & CurrUserNameElse MsgBox 用户名或密码错误,请重新输入。, vbOKOnly, 用户登录 LoginState = Falsetr

45、y_times = try_times + 1 If try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭！ Unload frmLogin 28 / 40 Unload MDIMain EndEnd IfEnd IfEnd IfEnd IfEnd Sub2 添加毛坯库存信息代码Private Sub Cmd_AddItem_Click()On Error GoTo Err_Cmd_AddItem_ClickDim itemM As ListItemDim itemX As ListItemIf Me.LVMaoPi.SelectedItem Is

46、 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

47、 SubNextSet itemM = Me.LVMaoPi.SelectedItemSet 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(M

48、e.txt 数量) 数量 itemX.SubItems(6) = Me.txt 备注 备注 itemX.Selected = True Set Me.ListView1.SelectedItem = itemXExit Sub 29 / 40Err_Cmd_AddItem_Click: MsgBox Err.DescriptionEnd Sub3 按毛坯或外协厂对外协件进行检索代码Private Sub Cmd_Find_Click()On Error GoTo Err_Cmd_Find_ClickDim itemX As ListItem根据当前选择的是毛坯 ，还是外协厂进行分类查找检索外协

49、出库单If Me bo1.Text = 毛坯 Then sql = SELECT 外协工单.单号, 外协工单.外协厂 ID, 外协厂.厂名, 外协工单.外协人, 外协工单.日期, 外协工单.备注, & _ 外协明细.代码 FROM (外协工单 LEFT JOIN 外协明细 ON 外协工单.单号 = 外协明细.单号) LEFT JOIN 外协厂 ON & _ 外协工单.外协厂 ID = 外协厂.代码 Where 外协明细.代码 = & Me.txt 毛坯.Tag & and 外协工单.日期 Between # & _ Me.txtStartDate &am

50、p; # And # & Me.txtEndDate & # Order By 外协工单.日期 Else 选择的是厂家 sql = SELECT 外协工单.单号, 外协工单.外协厂 ID, 外协厂.厂名, 外协工单.日期, 外协工单.外协人, 外协工单.备注 FROM 外协工单 LEFT JOIN 外协厂 ON 外协工单.外协厂 ID = 外协厂.代码 & _ Where 外协工单.外协厂 ID = & Me.txt 毛坯.Tag & and 外协工单.日期 Between # & _ Me.txtStartDate & # And #

51、& Me.txtEndDate & # Order By 外协工单.日期 End IfIf rs.State Then rs.Closers.Open sql, Conn, adOpenForwardOnly, adLockReadOnlyMe.LVOutBill.ListItems.ClearWhile Not rs.EOF Set itemX = Me.LVOutBill.ListItems.Add(, a & rs(单号), rs(单号) itemX.Tag = rs(外协厂 ID) itemX.SubItems(1) = rs(厂名) itemX.SubItem

52、s(2) = rs(日期) 30 / 40 itemX.SubItems(3) = rs(外协人) itemX.SubItems(4) = rs(备注) rs.MoveNextWend检索外协入库单If Me bo1.Text = 毛坯 Then sql = SELECT 外协接收单.单号, 外协接收单.外协厂 ID, 外协厂.厂名, 外协接收单.接收人, 外协接收单.日期, 外协接收单.备注, & _ 外协接收明细.代码 FROM (外协接收单 LEFT JOIN 外协接收明细 ON 外协接收单.单号 = 外协接收明细.单号) LEFT JOIN 外协厂 ON & _ 外协接

53、收单.外协厂 ID = 外协厂.代码 Where 外协接收明细.代码 = & Me.txt 毛坯.Tag & and 外协接收单.日期 Between # & _ Me.txtStartDate & # And # & Me.txtEndDate & # Order By 外协接收单.日期 Else 选择的是厂家 sql = SELECT 外协接收单.单号, 外协接收单.外协厂 ID, 外协厂.厂名, 外协接收单.日期, 外协接收单.接收人, 外协接收单.备注 FROM 外协接收单 LEFT JOIN 外协厂 ON 外协接收单.外协厂 ID =

54、外协厂.代码 & _ Where 外协接收单.外协厂 ID = & Me.txt 毛坯.Tag & and 外协接收单.日期 Between # & _ Me.txtStartDate & # And # & Me.txtEndDate & # Order By 外协接收单.日期 End IfIf rs.State Then rs.Closers.Open sql, Conn, adOpenForwardOnly, adLockReadOnlyMe.LVInBill.ListItems.ClearWhile Not rs.EOF Set

55、itemX = Me.LVInBill.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.MoveNextWendMe.LVInBOM.ListItems.Clear 31 / 40Me.LVOutBOM.ListItems.ClearExit SubErr_Cmd_Find_Click: MsgBo

56、x Err.DescriptionEnd Sub4 导出产品库存管理 Excel 表代码Private Sub Cmd_Export_Click()On Error GoTo Err_Cmd_Export_ClickDim ExportFileName As StringDim iRow As LongDim itemX As ListItemDim ExcelModel As StringDim myRange As StringIf Me.ListView1.SelectedItem Is Nothing Then MsgBox 请首先填写外协明细，然后再导出报表。, vbOKOnly,

57、导出提示: Exit SubExportFileName = GetExportFileName(Me.txt 单号)If ExportFileName = Then Exit SubIf UCase(Right(ExportFileName, 4) .XLS Then 保存的文件名不是电子表格文件 MsgBox 必须保存为电子表格格式的文件。, vbOKOnly, 错误提示: Exit SubEnd If连接 ExcelIf Not ConExcel Then MsgBox 不能正确连接 Excel，导出无法完成。, vbOKOnly, 连接错误: Exit SubIf Dir(Export

58、FileName) 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 & 目前正在打开状态，无法覆盖，请关闭。？,

59、 vbOKOnly, 文件占用 excelApp.Visible = True Exit SubEnd If 32 / 40 End If Kill ExportFileNameEnd IfExcelModel = App.Path & Model产品入库单模板.xlsSet xlBook = excelApp.Workbooks.Open(ExcelModel)Set xlSheet = xlBook.Worksheets(1)xlBook.SaveAs ExportFileName首先写入表头 信息sql = 单号： & Me.txt 单号 & 仓库： &

60、Me.txt 仓库.Tag & （ & Me.txt 仓库 & ） & 库管员： & Me.txt 库管员xlSheet.Cells(2, 1) = sqlxlSheet.Cells(2, 7) = 日期： & Me.txt 日期 & 日期写入明细iRow = 4For Each itemX In Me.ListView1.ListItems xlSheet.Cells(iRow, 1) = itemX.Index 序号 xlSheet.Cells(iRow, 2) = itemX.Text 代码 xlSheet.Cells(iRow, 3) = itemX.SubItems(1) 名称 xlSheet.Cells(iRow, 4) = itemX.SubItems(2) 规格型号 xlSheet.Cells(iRo