《某公司产品外协件管理系统开发课程.docx》由会员分享，可在线阅读，更多相关《某公司产品外协件管理系统开发课程.docx（40页珍藏版）》请在三一办公上搜索。
1、xxx 本科生毕业设计（论文）课程题目： xxxxxx 系 别： 机电工程系 专 业： 机械设计制造及其自动化 学生姓名： xxx 学 号： xxx 指导教师： xxxx 完成日期 2011 年 5 月xxxx南阳汇森公司产品外协件管理系统开发Development of Outsourcing Parts Management System forNanyang Huisen Company总 计： 34 页插 图 ：33 幅xxx南阳汇森公司产品外协件管理系统开发Development of Outsourcing Parts Management System forNanyang Hu
2、isen Company学 院（系）： xx 专 业： xxx 学 生 姓 名： xxx 学 号： xxx 指 导 教 师（职称）：xxxx 评 阅 教 师（职称）： 完 成 日 期： 2011年5月 南阳理工学院 Nanyang Institute of Technology 南阳汇森公司产品外协件管理系统开发南阳汇森公司产品外协件管理系统开发xxxxxx【摘 要】为了进一步提高南阳汇森公司对产品生产过程的信息化管理水平，规范各生产管理环节的业务流程，保证各生产环节数据信息的一致性，实现对各类生产数据信息的便捷查询和统计分析，特定制开发本课题软件。本软件利用Visual Basic6.0为前
3、台开发语言，以Access为数据库存储平台，采用基于三层结构的C/S开发模式和ADO数据库访问技术，结合Excel的VBA开发技术，通过模块化设计实现对企业外协件管理信息的集成化和信息化。通过该软件的应用，实现公司在毛坯、外协、库存和销售各业务环节的信息化管理，使各业务管理部门将原来分散的数据进行统一管理，真正实现公司相关管理环节的数据共享，消除公司多年存在的“信息孤岛”问题。通过该软件搭建的生产管理平台，各管理部门的业务处理会更加便捷、有序、规范。【关键词】生产管理；外协件；数据库；报表Development of Outsourcing Parts Management System fo
4、rNanyang Huisen Company Mechanical Design, Manufacturing and Automation Major Gao Ke-feiAbstract: 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 ever
5、y 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
6、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 years in the company. Through the production management platfo
7、rm 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 绪论11.1 课题的研究背景及意义11.2 国内外研究现状12 应用开发关键技术介绍及其运行环境要求22.1 Visual Basic程序设计22.2 数据库技术22.3
8、开发运行环境23 系统需求分析与总体设计33.1 需求分析概述33.2 系统体系结构设计44 系统软件设计441用户模块54.1.1系统登录模块54.1.2 权限管理菜单模块74.2基础信息模块94.3 生产管理模块144.4 销售管理模块174.5业务报表模块184.6工具模块204.7 帮助模块215 结论23参考文献25附录 部分代码26致 谢34南阳汇森公司外协件管理系统开发1 绪论1.1 课题的研究背景及意义目前，南阳汇森公司在产品生产管理各环节仍处于分散的手工管理模式，生产管理信息不够规范，无法实现信息共享。对在制品、外协件和库存件等产品信息的追踪及对各类信息的统计分析效率底、容易
9、出错。公司各管理层领导不能及时获取公司的各类生产数据，导致公司对当前的快速市场需求机制反应不够迅速。通过对公司前期调研和讨论，拟定制开发一套针对南阳汇森公司实际业务需求的专业生产管理软件。在不改变现有工作模式、不新加管理人员的情况下，以最小的成本、最低的风险，改善目前的生产管理工作状况，提高工作效率。使公司领导能够准确、快速、便捷、实时掌控公司各生产环节的数据信息。为快速、准确决策提供数据基础，进一步提高公司的市场反应速度。1.2 国内外研究现状管理信息系统(Management Information System，MIS)一词最早出现在1970年，由瓦尔特肯尼万下的定义：“以书面或口头的形
10、式，在合适的时间向经理、职员以及外界人员提供过去的、现在的、预测未来的有关企业内部及其环境的信息，以帮助他们进行决策。”当时由于计算机尚未普及，管理系统提供的信息还停留在书面或口头的方式，其目的是支持决策。直至1985年，管理信息系统的创始人美国明尼苏达大学卡尔森管理学院的教授高登戴维斯给出管理信息系统较完整的定义：它是一个以计算机硬件和软件、手工作业为基础，利用分析、计划、控制和决策模型以及数据库的人机系统，它具有提供信息，支持企业或组织的运行、管理和决策的功能。这个定义强调了管理系统的三个核心问题：计算机工具、信息处理的模型和系统的功能。由于国外管理理论较为成熟，网络信息技术的普及，使得国
11、外的管理信息系统较为完善。而对于国内企业，尤其针对中小型企业而言，对于本场的产品及外协产品，仍普遍采用手工的纸、笔式的数据记录，这样不及工作量大，数据记录的及时性和准确性低，数据的更新和保存繁琐，而且使得企业的整体工作效率随之降低，对于一个生机勃勃的企业而言，这样的管理系统无疑是十分落后的，相当缺乏竞争力的。当今社会，随着计算机的日益普及和网络的渐趋发达，生产企业之间，企业内部各部门之间都走上了“网络”这一信息高速公路，“无纸办公“已不再是新鲜名词，网络的充分利用使得企业各项工作如虎添翼，工作效率得到极大地提高。在这一网络化情境下，企业管理系统不可避免地也要发生相应地变革才能适应这一发展潮流。
12、2 应用开发关键技术介绍及其运行环境要求2.1 Visual Basic程序设计程序设计是指使用程序设计语言在开发环境中编写能被计算机自动执行的指令的过程。Visual Basic6.0是美国微软公司推出的Windows应用程序开发平台家族中的一员，它沿用了早期Basic语言的一些语法格式，是一个功能强大的应用程序开发工具。Visual Basic 6.0是一种面向对象(Object Oriented Programming，OOP)的程序设计方法，它强调直接以问题域(即现实世界)中的事物为中心来考虑和认识问题，并按照这些事物的本质特征把它们抽象为对象，作为软件系统的基础。在OOP方法中，将对
13、象作为系统中最基本的运行实体，对象中封装了描述该对象的特殊属性(数据)和行为方式(方法)。整个程序即由各种不同类型的对象组成，各对象既是一个独立的实体，又可通过一定的方式相互作用1。 Visual Basic6.0易学易用、功能强大的特点使其得到了广泛的应用。其强大的可视化用户界面设计，是程序员从复杂的界面设计中解脱出来，是编程成为一种享受。Visual Basic 6.0 不但可以开发小型单机数据库管理系统，而且也可以开发集多种应用程序于一体的网络数据库系统。因此使得他成为目前使用最广泛的编程语言之一。2.2 数据库技术当计算机从早期的计算工具逐步变化成现在的信息处理和管理工具时，它就和数据
14、库建立了密切的关系。在当今信息爆炸的时代，只有通过数据库并结合计算机的高速计算能力才可能实现对大量信息的及时处理和分析。数据库系统主要有三大部分组成：数据库管理系统(DBMS，专门负责组织和管理数据信息的程序)、数据库应用程序(它使我们能够获取、显示和更新由DBMS存储的数据)、数据库(按一定结构组织在一起的相关数据的集合)。随着DBMS技术的发展，目前的数据库系统正向着客户机服务器模式发展。客户机服务器数据库将DBMS和数据库应用程序分开，从而提高了数据库系统的处理能力。数据库应用程序运行在一个或多个用户工作站(客户机)上，并通过网络与运行在其它计算机上(服务器)的一个或多个DBMS进行通信
15、。而通信技术就要通过ADO技术了。 ADO是美国微软公司的数据访问技术，它不仅有助于实现对各种数据来源进行高效访问，使用户能够对数据进行复杂的操作和排序，而且形成了一个重要的框架，在这个框架中可以实现应用程序之间的通讯和 (MLWeb)服务。2.3 开发运行环境 1开发环境(1)操作系统：基于Windows XP操作系统(2)需求分析工具：Visio 2003(3)数据库服务器：基于SQL Server20002客户端运行环境(1)软件运行环境操作系统：Windows XP操作系统IDE环境：Microsoft Yisual Studio 2005支撑环境：MicrosoftNET Frame
16、work 20 (2)硬件运行环境普通PC机CPU：1.8GHz以上内存：1024MB显卡：128M以上网卡：10/1001000Mbps硬盘空间：60GB其他设备：鼠标、键盘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.1 需求分析概述需求分析是指通过详细调查现实世
17、界要处理的对象，明确用户的各种需求，达到确定新系统的功能的目的。需求分析是数据库结构设计的第一阶段，也是非常重要的一个阶段。在这个阶段主要是调查、收集与分析用户在数据管理中的信息要求、处理要求、安全性与完整性要求。信息要求是指用户需要从数据库中获得信息的内容与性质。由用户的信息要求可以导出数据要求，即在数据库中需要存储哪些数据。处理要求是指用户要求完成什么处理功能，对处理的响应时间有什么要求，处理方式是批处理还是联机处理，得到系统所要处理数据的流程图。系统的功能必须能够满足用户的信息要求、处理要求、安全性与完整性要求。需求分析首先调查清楚用户的实际需求并进行初步分析，与用户达成共识后，再进一步
18、分析与表达这些需求。需求分析可分为问题分析、需求描述及需求评审三个阶段。问题分析阶段，分析人员通过对问题及环境的理解、分析和综合，清除用户需求的模糊性、歧义性和不一致性。需求描述阶段的任务是生成需求规格说明书和初步的用户手册。需求评审阶段的任务是工作人员在用户和软件设计人员的配合下对生成的需求规格说明和用户手册进行复核，以确保软件需求的全面性、精确性和一致性2。3.2 系统体系结构设计根据以上对河南汇森公司外协件管理系统的需求分析及目标设计，构造出了该系统的总体体系结构，如图31所示。汇森公司外协件管理开发软件用户销售管理工具帮助基础信息生产管理业务报表图31系统总体结构4 系统软件设计41用
19、户模块用户模块包括登录、注销、权限管理和退出四个菜单，其中权限管理菜单包括用户管理与密码修改两个子菜单。登录、注销和退出三个菜单意思和名字一样，登录模块是一个软件很重要的模块。系统登录模块主要对进入系统的用户进行安全性检查防止非法用户进入系统，只有合法的用户在输入正确的用户名和密码后方可进入3。4.11系统登录模块为了保证应用程序的安全，通常要使用系统登录程序束验证登录系统的用户是否合法。”。只有合法的用户才可进入系统并进行权限规定之内的操作。登录模块需要实现咀下目标：（1）输入的用户名和密码下确才能进入学生成绩信息管理系统。设计输入完用户名和密码后回车即可进入系统。（2）用户名错误或密码错误
20、提醒并返回错误点，3次口令错误，退出系统。（3）以系统管理员级别登录的用户可以拥有访问系统的最大权限，包括记录的删除，修改、其他用户权限的设置等。点击用户登录菜单，进入登录界面，其运行效果如图41所示。图4.1 用户登录界面输入用户名和密码好后点击确认或按回车键后，经过登录模块流程判断就可以进入主界面。登录模块开发流程图如图42所示。开始判断是否输入用户名及密码传入数据库判断用户名及密码是否正确进入系统错误超过三次提示用户名或密码错误退出图4.2系统登录程序流程图跳过登录模块后就进入了软件的主题部分主程序窗口。主程序窗体界面设计主要包括菜单设计、工具设计和状态栏设计，菜单设计主要运用菜单编辑器
21、来完成子菜单的设计；工具栏设计由Toolbar控件来创建；状态栏是由StatusBar控件来创建4。根据系统所需功能，将菜单划分为用户、基础信息、生产管理、销售管理、业务报表、工具、帮助7个主菜单；将工具栏设计为登录、外协派单、外协接收、产品管理、外协报表、销售报表、退出七项；而状态栏主要显示软件的开发单位、登录用户信息和日期时间信息。主程序的开发流程如图4.3所示。用户主程序相应权限相应菜单及工具栏状态栏用户信息等图4.3 系统主程序开发流程主程序运行结果如图4 .4所示。图4.4 程序主界面4.1.2 权限管理菜单模块该模块的菜单结构如图4.5所示。图4.5 用户管理菜单结构用户管理主要是
22、上级用户管理下级用户信息，如管理员可以对管理员和普通用户进行新增、修改、删除的操作；管理员用户可以进行对普通用户进行新增、修改和删除操作，高级用户之间无权进行该操作；而普通用户则不能使用该菜单。密码修改则是登录用户修改自己的密码信息。两者的操作界面如下图所示。图4.6 用户管理菜单操作界面图4.7 密码修改界面4.2基础信息模块该模块的菜单结构图4.8所示。图4.8 基础信息管理菜单结构该模块主要完成毛坯、外协厂、客户、员工和车辆这些基本信息的管理，并能对这些基本信息进行查看、添加、修改和删除等操作。下面详细介绍几个子模块的设计及运行结果。1.毛坯管理子模块图4.9 毛坯管理菜单模块当窗体加载
23、时，数据库中的毛坯库存信息就会显示在listview控件中，当在窗体上方的代码、名称、规格后面的文本框中输入需要查询的毛坯的相应信息后点击查询按钮，则所需信息就会显示在listview控件中5。当用鼠标点击listview中的毛坯信息，则选中的信息就会显示为蓝色状态，如图4.9，此时，这条毛坯的相关信息就会显示在窗体下边的相应的文本框中，此时可以在这些文本框中对信息进行修改，修改后保存按钮可用，点击保存就可以更新对应的毛坯信息。例如将图中的毛坯1信息中的重量改成140件，备注改成加急。则需要用鼠标先选中毛坯1信息，然后在窗体下边的文本框中将“260”改成“140”，“无”改成“加急”然后点击保
24、存按钮，就可以将毛坯库存中的毛坯1信息修改成功，修改后如图4.10所示。图4.10 修改后的毛坯管理菜单模块当点击添加按钮时窗体下方的这些文本框就会全部显示为空白状态，当输入相应的毛坯信息后按保存按钮就可以将此条信息存入书库库中。例如：添加一条新资料：“代码：HSM5，名称：毛坯5，规格型号：钢，单位：45个，仓库：库房1，备注：无，有效：是”，则需要将上述代码添加到对应的文本框中，然后点击保存，就可以将上述资料添加到毛坯库中，添加后如图所示：图4.11 添加信息后的毛坯管理菜单模块当选中一条信息后点击删除按钮就可以进行删除操作，点击删除按钮后，会弹出删除成功提示对话框，将选中的信息从数据库中
25、删除掉。 2 .外协厂管理模块、客户管理、员工管理和车辆管理这些菜单项和毛坯管理菜单项基本功能设计的原则和功能项基本相同，下面不再详述。其模块图示分别如下图所示。图4.12 外协长管理菜单模块图4.13 客户信息管理模块菜单结构图4.14 员工管理模块菜单结构图4.15 车辆管理管理模块菜单结构4.3 生产管理模块 生产管理菜单机构设计模块如图4.16所示。图4.16 生产管理菜单结构该模块主要实现对毛坯入库、外协件派送和接受、以及产成品的管理，下面就针对第一个菜单项毛坯入库来进行说明。毛坯入库菜单主要实现毛坯入库派单的生成和打印，窗体加载后如图4.17所示。图4.17 毛坯入库菜单模块窗体左
26、下角显示的是毛坯的库存情况，选中一条信息后它就会以蓝色显示，点击添加按钮，选中的信息就会北添加到窗体上方的Listview控件中，添加上方的数量和备注是即将添加到上方窗体中的数据。如选中毛坯2和毛坯3，数量填写默认数量“1”，备注为空，点击添加后效果如图4.18所示。图4.18 添加毛坯信息后的库存模块 将单号、仓库、入库人和日期等信息填写完后，如上图，点击保存按钮就可以将入库信息保存，点击导出表单按钮，弹出储存路径如图4.19所示。图4.19选择路径和保存名称后就可以将这两条信息保存到Excel数据表中。生成的Excel报表格式如图4.20所示。图4.20 Excel毛坯入库单在Excel表
27、中用户可以查看入库单信息，当需要打印时就可以打印出来。因为一个菜单下的同一级菜单的设计模型基本一致，所以生产管理菜单项下的其它子菜单再此就不做说明。4.4 销售管理模块销售管理菜单项包括出货管理和退货管理两个一级菜单，主要对汇森公司的产品销售和退货进行管理，其结构图如4.21所示。图4.21 销售管理菜单结构点击出货管理菜单弹出相应窗口，出货管理窗口模块如图4.22所示。图4.22 出货管理菜单模块点击产品仓库文本框后的按钮，弹出仓库列表，每个仓库对应这一个库管员，选择仓库后，器相应的库存信息就显示在窗体下侧的Listview中，如图4.23所示。图4.23 选择库存信息，设置出货数量和备注后
28、点击添加按钮，就可以将将要销售的产品信息添加到窗体上方的Listview控件中，填写出货单号、客户、联系人等信息后如图4.24所示。图4.24 点击保存单据按钮就可以将此次出货单保存入库，点击导出单据按钮就可以将此出货单导出到Excel表格中，提供以后的打印数据6。退货管理窗体与销售管理窗体类似，再次不再累述。4.5业务报表模块业务报表菜单结构如图4.25所示。图4.25 业务报表菜单结构业务报表菜单项主要提供毛坯库存报表、外协件加工报表、产成品库存报表和销售机退货报表，生成的报表可以随产品流动，也可以供公司相关人员参阅。下面就毛坯库存报表菜单来进行阐述，载入窗体后如图4.26所示。图4.26
29、 毛坯库存报表1窗体下方显示毛坯库存情况，选中后可以将库存信息添加到毛坯库存表中，选择库存仓库后就可以在窗体上方listview中显示需要报表显示的信息，如图4.27所示。图4.27 毛坯库存报表2点击保存就可以将次信息保存到相应表格中，点击导出报表机袔将报表导出到Excel中，共打印备用。库房右侧的显示明细按钮就可以显示相关毛坯信息的明细信息，如入库人、单号、入库日期、制单人等，图示如下。图4.28 毛坯库存明细4.6工具模块图4.29 工具菜单结构工具菜单主要提供系统初始化功能，当公司刚把该软件安装调试完后，需要把软件内附带的表格数据清空，这样就可以选择此菜单，所以为安全起见点击系统初始化
30、菜单后会先弹出提示对话框，提示用户是否选择系统初始化，防止用户失误的操作导致数据库内的数据的丢失，用户选择“是”，即进行相应操作，选择“否”，就会退出此项7。4.7 帮助模块图4.30 帮助菜单结构 帮助菜单项主要包括软件的相关信息和软件开发人的联系方式等信息，为使用者提供使用说明，并且当用户使用过程中遇到相应问题后可以电话或发Email给开发者，来寻求帮助。相应图示如下。图4.31 软件说明图4.32 关于本程序 为了使操作方便，把经常使用到的菜单项单独放到主界面的工具栏上，就构成了工具栏设计。由于它只是菜单项的快速调用模式，在次不做介绍。状态栏只是软件的辅助设计功能，并不是该软件的必须部分
31、，因此不在详细介绍其设计过程。5 结论本文以的开发与设计为背景，运用软件工程的思想，采用面向对象的程序设计方法，立足于数据库的设计原理和方法，设计并实现了公司对软件基本功能的要求。本课题主要进行了以下工作：1对河南汇森公司生产信息管理系统进行概述，分析了该行业生产信息管理软件的研究背景和国内外开发现状，探讨了设计针对河南汇森公司生产信息管理系统的必要性，确定了系统设计的实用性、先进性、可扩充性、可维护性、安全可靠性及标准化等原则。2对数据库系统开发的多种方式进行了比较分析，确定了用SQL Server2000设计数据库系统的总体规划。SQL Server2000是一个客户机服务器关系型数据库管
32、理系统，该体系结构使用户能够为各种环境最优化的设计和布局应用程序，客户程序界面使应用程序能够运行于不同的客户计算机上，并通过网络与服务器通信。数据库接口采用ADO模式，ADO可在“断开连接模式下访问数据库，这样大大减少了因连接过多对数据库服务器资源的大量占用。数据库的设计本着一致性、完整性、安全性、可伸缩性和规范化的原则8。3系统开发用Visual Basic 6.0来完成，VB6.0采用面向对象的事件驱动编程机制，程序员只需编写响应用户动作的程序，而不必考虑按精确次序执行的每个步骤，编写代码相对较少；符合人们习惯的思维方式，便于分析复杂多变的问题；易于软件的维护和功能的扩展；能用继承的方式缩
33、短程序开发的时间；与可视化技术结合，改善了工作界面，界面及操作都很人性化，能极大地提高开发效率9。4在对系统功能及需求进行分析的基础上，确定了系统实施后应达到的目标：强大的产品管理功能；构架流行，平台先进、数据保密性强，为每个操作员设置权限级别；系统采用人机对话方式，界面清晰，信息查询方便，数据存储安全可靠：键盘操作，快速响应；对输入的数据，系统进行严格的数据检验，尽可能排除人为的错误；系统中的每个模块都有它的独立性和整体性，最大限度地实现易安装性、易维护性和易操作性；系统运行稳定、安全可靠；为管理者和普通员工服务、适于非专业计算机人员使用；另外还考虑了系统的扩展性，可以在此基础上进行二次开发
34、，满足了系统将来发展的需要10。5根据目标设计，构造出了该系统的总体体系结构11。该系统主要包括：用户、基础信息、生产管理、销售管理、业务报表等几个模块。 用户模块包括登录、注销、权限管理和退出四级子菜单，可以实现用户的登录和退出的操作，其中权限管理可以实现不同级别用户的相应操作，是软件变得更加安全和保密。 基础信息模块包括毛坯、外协件、产品等菜单项，可以实现对相应产品的添加、删除和修改等操作。 生产管理模块包括毛坯、外协件和产成品的入库、出库等管理，并能实现报表的生成。 销售管理模块可实现产成品的销售和退货管理，使公司的产品和次品有效的区分开来，并能生成相关报表，极大的提高的企业效率。 业务
35、报表模块主要实现报表的生成，将经常用到的报表集中到次菜单下，减小了认为填写报表的负担。6在完成了系统体系结构设计和数据库体系结构设计后，又进行了编码调试及系统测试等工作，使得系统更加实用和稳定。系统投入使用后，有效的实现了河南汇森公司生产信息管理的信息化，解决了传统的产品管理中存在的问题，提高了工作效率12。参考文献1 刘彬彬、高春艳.Visual basic程序设计标准教程M.北京：人民邮电出版社2008,4532 卢湘鸿、陈洁等. Access数据库与程序设计M.北京：电子工业出版社2006，97-1203 王颖、李敏业.Visual Basic + SQL Server 数据库应用实例完
36、全解析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.5 9 杨黎丽. 学生成绩管理信息系统的
37、设计与实现 硕士学士论文. 2009.0210 曾强聪. Visual Basic程序设计基础教程M.北京：北京交通大学出版社 2004.0511 尹为民等现代数据库系统及应用教程J武汉大学出版社，2005，0212 邹建SQL Server2000开发与管理应用实例J人民邮电出版社，2005，08附录 部分代码1 用户登录窗口设计代码If txtUserName = Then MsgBox 请输入用户名！ txtUserName.SetFocusElseIf txtPassword = Then MsgBox 请输入密码！ txtPassword.SetFocusElse sql = Sel
38、ect * From 用户表 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: MDIM
39、ain.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_EmpM
40、an.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
41、.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.But
42、tons(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 = Falsetry_times = try_times
43、 + 1 If try_times = 3 Then MsgBox 您已经三次尝试进入本系统，均不成功，系统将关闭！ Unload frmLogin 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 Nothing Then MsgBox 请首先选择要
44、添加到派工单的毛坯。, 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 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(Me.t
