本科毕业论文-物流管理系统设计.doc

科生毕业论文题 目 物流管理系统专业名称 信息管理与信息系统年 级 2008级学生姓名 二零一二年六月目 录前言5第1章 开发背景6第1.1节 市场对物流管理系统的需要6第1.2节 当前物流管理的特点6第2章 系统分析8第2.1节 可行性分析8第2.2节 需求分析82.2.1. 初步调查82.2.2. 组织机构分析92.2.3. 业务流程分析92.2.4. 系统功能方面92.2.5. 系统安全方面10第3章 系统设计11第3.1节 系统设计原则11第3.2节 功能设计11第3.3节 模块结构设计12第3.4节 数据库设计133.4.1. 概念结构设计133.4.2. 表结构设计14第4章 系统实现19第4.1节 登录实现19第4.2节 主界面实现20第4.3节 系统维护实现23第4.4节 档案管理实现24第4.5节 查询统计管理实现26第4.6节 关于界面实现28第5章 系统测试29结论30参考文献31致谢32附录33附录1：部分系统代码33物流管理系统【摘要】：当今社会己进入信息社会时代，信息己经受到社会的广泛关注。被看作社会和科学技术发展的三大支柱（材料、能源、信息）。信息是管理的基础，是进行决策的的基本依据。在一个组织里，信息己作为人力、物力、财力之外的第四种能源，占有重要的地位。然而，信息是一种非物质的，有别于基本资源的新形式的资源。信息也是管理的对象，必须进行管理和控制。本文主要介绍了物流管理系统的设计，给出了系统的总体方案设计和开发,着重介绍了物流管理系统的详细开发方案和实现，内容涉及系统分析、软件设计。本系统主要采用VB为编程语言，实现对车辆信息、档案信息、货物信息等的维护；本系统操作简单，使用方便。 关键词：物流管理、信息管理、数据库Logistics Management SystemAbstract : The modern society has entered the information society， information has been widely concerned by society .Its regarded as one of the three big props(material, energy, information) that social and the scientific technological advance. Information is the foundation of management, it carries on the decision-making basic basis. In an organization, information oneself occupies an important position , as the fourth kind of energy outside human, material resources and financial capacity. However, information is a non-material, which is different from the basic resources of the new forms of resources. Information is also the management object, must carry on the management and control.This article mainly introduced the design of logistics management system, presents the overall scheme of the system design and development, and emphatically introduces the logistics management system for the detailed design and realization, the content relates to system analysis and software design . This system mainly uses VB6.0 as the programming language, for implementation of Car assessment information, Foods information, information such as the maintenance department. This system operation is simple, easy to opeKeywords:Logistics Management, Information Management, Database前 言物流是为满足消费者需求而进行的对原材料、中间库存、最终产品及相关信息从起始点到消费地的有效流动，以及为实现这一流动而进行的计划、管理和控制过程。为了全面实现某一战略、目标或任务，物流把运输、供应仓储、维护、采购、承包和自动化综合成一个单一的功能，以确保每个环节的最优化。与互联网来源于军方研究项目类似，物流也是从军方发展起来的。在第二次世界大战期间，为了加强后勤保障，美国军方系统地发展了物流系统。其实，古语曰“兵马未动，粮草先行”，物流的雏形追本溯源可以说有几千年的历史了，只不过近代才开始系统地发展起来而已。战争中，用于后勤保障的兵力占总兵力的多少是衡量军队战斗力的标准之一。商战中，物流成本占企业运营总成本的高低也是衡量企业运作水平的重要标志。相比传统物流，现代物流更多借助于信息流的控制作用，它不再把建立基础设施作为最主要手段，而是通过信息技术，利用现有的各种基础设施，将企业的运输信息和运输需求予以共享并快速传递。现代物流的核心是信息技术，因为正是信息技术，将物流之中原先割裂的各个环节整合在一起，从而表现出现代物流的整合化特征借助于信息技术，最大限度地将原先在实现物资空间位移中所进行的运输、仓储、包装、装卸、加工以及配送等多个环节整合一起，以一个整体面对社会的物流需求。因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套物流系统为例,谈谈其开发过程和所涉及到的问题及解决方法。第1章 开发背景第1.1节 市场对物流管理系统的需要当今社会，各行业的竞争不断加剧，其中物流运输行业也正置身于这种不断加剧的竞争中，行业的发展要求各物流从业者使用更加有效的信息化手段，拓展自己的经营空间，降低运营成本，提高管理和决策效率。传统的的物流管理过多的手工操作和一些不科学的管理手段，无法满足从业者对企业的全面信息化管理，势必会影响从业者的工作效率，降低了市场的竞争能力。成功的物流从业者应该的将物流企业的经济利益作为运营的最终目的，管理的核心也在于如何提高企业的经济效益。Internet的开放性、分布性的特点和基于Internet的巨大的系统能力使得物流管理突破了时间和空间的限制。网上物流系统以物流从业者的经济效益为目标，为其提供了简单易用、功能强大并且高度灵活的应用工具，激励了从业者的积极性，促使他们为客户提供更加优质的服务，推动了社会文明的进步和发展。实行改革开放以来,中国经济与世界经济越来越紧密地融合在一起。世界500强企业已有400多家进入中国市场。外资企业的进入,一方面带来了现代物流的观念和先进的运做方式。另一方面,也促进了中国物流企业现代物流服务水平的提高。随着世界经济的飞速发展,全球数字化、网络化、信息化已成为市场经济时代的主要特征,而物流技术手段的变化将直接决定物流企业服务水平的高低。当前一些物流企业通过轻资产、甚至无资产经营,靠对外采购运力,成功地为客户提供了综合性的优质物流服。以低成本和高效率的运营管理创造出高附加值,并从中获得了高利润。在信息化程度相当高的今天，物流行业的发展和方向也必然要求更高的信息化和网络化，所以社会对高质量的物流管理系统有着强烈渴求，当然对物流管理系统的功能要求也越来越高。第1.2节 当前物流管理的特点目前在我国,由于国内政策环境的改善,企业改革日益深化,为物流业的发展建立了良好的发展环境与基础。由于物流活动日益渗透到生产、流通、消费等整个社会经济活动过程之中，与社会经济的发展存在着密切的联系，是社会经济活动的重要组成部分，故物流需求与社会经济发展有密切的相关性，社会经济发展是影响物流需求的主要因素。在一些电子商务环境里,物流企业的网络功能越来越得到强化，但是一些老化的物流管理系统在完善的全球物流操作平台的支持方面困难重重。随着物流行业的发展，现在市场上的的一些物流系统已经不能达到现在企业的要求，不能进行高效率的信息处理和信息交互成为现在物流管理是一个重大课题。通过对人流、物流、资金流的科学管理和有效控制，提高从业者的工作效率，降低各种经营成本，从而获取持久的利润，代表一种新的管理模式介入，代表一种新的变化甚至是变革，当然这种变革，是物流管理和信息技术的有机结合后的结晶，它给从业者带来更加先进更加高效率的工作模式，可以最大限度地节省人力物力，优化企业资源配置，具有手工管理所无法比拟的优点。这就是本系统在物流运输行业应用的重要意义所在。第2章 系统分析第2.1节 可行性分析可行性分析，也称为可行性研究,是在系统调查的基础上,针对新系统的开发是否具备必要性和可能性,对新系统的开发从技术,经济,社会的方面进行分析和研究,以避免投资失误,保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。该系统的可行性分析包括以下几个方面的内容。（1）经济可行性:主要是对项目的经济效益进行评价,本系统作为一个毕业设计,无需开发经费,并且本系统实施后可以显著提高企业管理效率。所以本系统在经济上是可行的。（2）技术上的可行性:技术上的可行性分析主要是分析技术条件能否顺利完成开发工作,硬,软件能否满足开发者的需要等。本系统利用Visual Basic卓越、快速、简便的界面开发平台，制作系统的客户端界面；再利用SQL Server，创建出具有合理的物理关系、逻辑关系的后台数据库；最后运用VB语言来编写代码，实现人机交互，运用ADO的方法来建立与后台数据库的连接，包括数据的添、查、删、改等等；最后部署和发布完成的系统。系统的软件开发平台已成熟可行。硬件方面,目前计算机硬件设备齐全，硬件平台完全能满足此系统的需要。（3）管理上的可行性:主要是管理人员大力支持与认同。综上所述,此系统开发目标明确,在技术和经济等方面都可行,并且投入少,见效快。因此系统的开发是完全可行的。第2.2节 需求分析2.2.1. 初步调查企业原有的管理系统，其主要功能是存储档案数据。日常操作以手工为主，收费的统计仍基于文本、表格等纸介质手工处理，数值计算以算盘、计算器为工具进行，重复工作量大。不但工作效率极低，而且出现误差的机率很高，同时对信息查询极不方便。随着信息化网的改造和业务的不断增多，物流业务管理工作日益繁重，原有系统已对日常工作产生了严重的制约，所以急需采用新管理系统，把物流管理，档案、车辆、合同、调度、货物等日常工作实行计算机统一管理，实现物流管理计算机化，从而提高工作效率和管理水平。2.2.2. 组织机构分析通过对企业的详细调查，得知学档案、车辆、合同、调度、货物信息，都是通过管理人员来完成。而一些标准是由管理人员根据文件等内容来制定的。所以，把系统的权限设置成普通用户和系统管理员，普通不可以管理资料，只能修改其密码，以及对信息查询进行操作。管理人员可以对信息进行管理,还有全部的其他权限（包括删除用户）。这样就能安全、方便的来管理系统。2.2.3. 业务流程分析通过对企业的业务流程，操作流程调查，并结合本系统的自身特点，具体的整个业务流程如下图所示：用 户 登 陆 登陆失败 登陆成功 管理员普通用户管理员车辆管理档案管理查询统计仓库管理调度管理合同管理退出系统 操作完成 图2-1 业务流程图2.2.4. 系统功能方面本系统主要功能包括档案管理、合同管理、工资管理、作业调度、仓库管理几大模块 。系统采用C/S体系结构，系统的主要功能有信息管理等五大模块，具备信息录入、修改、删除，用户添加、修改、删除、权限、密码修改系统功能。本系统是以使用VB技术进行开发，后台数据库采用的是SQL SERVER 2008。2.2.5. 系统安全方面在本系统设计中，对系统的安全方面也做了设计。在用户登陆中，运用了密码进行加密，同时，在用户的权限上也做了相应的设计。用户分为一般用户和系统管理员。一般用户只可以进行用户密码修改，信息查询统计的操作。而系统管理员可以进行用户管理。这样设计以后，系统的安全就有了相应的保障，并且限制用户的操作，可以规范系统的运用，保障数据的安全。第3章 系统设计系统设计的任务是：在系统分析提出的系统逻辑模型结构的基础上，科学合理的进行物理模型的设计。具体的说，就是根据系统逻辑模型提出的各项功能要求，结合实际的设计条件，详细的设计出系统的处理流程和基本结构，并为系统实施阶段的各项工作准备还全部必要的技术资料和有关文件。系统模型分为逻辑模型和物理模型。逻辑模型主要确定系统做什么，而物理模型则主要解决这样做的问题，前者是系统设计的任务。经过系统设计，设计人员应能为程序员提供完整、清楚的设计文档，并做出解释。第3.1节 系统设计原则(1) 系统性原则系统作为统一整体而存在，因此，在系统设计中，要从整个系统的角度出发，系统的代码要统一，设计规范要标准，传递语言要尽可能一致。(2) 活性原则为保持系统的长久生命力，要求系统具有较强的环境适应性。为此，系统应具有较好的开放性和结构的可变化性。在系统设计中，应尽量采用模块化结构，提高模块的独立性，以便于对模块的修改，提高系统适应环境变化的能力。(3) 可靠性原则可靠性既是评价系统设计质量的一个重要指标，又是系统设计的一个基本出发点。只有设计出的系统是安全可靠的，才能在实际运行中发挥出它应有的作用。所以在系统设计中必须考虑到对各种不安全因素抵御能力的设计。例如安全保密、检错、抗病毒能力和在出现意外情况后，系统恢复能力的设计等。(4) 经济性原则。在满足系统需求的前提下，尽可能的减少系统的开销。这里既要考虑到现实系统的费用，又要考虑到系统实施后的费用。第3.2节 功能设计为了提高管理效率，减轻劳动强度的提高，信息处理速度和准确性；为操作员提供更方便、科学的服务项目。为操作员提供的一种更先进、科学的服务系统。于是便选择了由计算机来设计一个管理系统的方案。让计算机对其物流进行科学管理，操作员可以直接在计算机上实现合同管理,调度管理等信息管理，并能在一定程度上实现自动化。在现行系统初步调查的基础上提出了新系统目标，即新系统建立后所要求达到的运行指标，这是系统开发和评价的依据。基于SDI窗体，以VB的ADO对象来连接SQLSERVER 2000数据库进行开发的，力求与用户相结合满足物流管理所需的功能，旨在达到使管理和信息数字化，使之更加方便快捷以提高工作效率。重点研究内容： 1档案管理 1）人事管理：姓名，性别，籍贯，工号，身份证号码，进出公司时间，岗位编制，驾驶人员驾照级别，特长，奖惩，离开公司理由，备注。 2）设备管理：车辆内部号，车牌号，车架号，类型，购买时间，行驶证，修理与报废。 2合同管理：合同号，签订日期，甲方，乙方，货物名称，计量单位，价值（单价和总价），有无保险，运费，包装要求，运送的起点与终点，期限，赔偿条款，月度统计表。3工资管理：管理人员工资（固定工资加奖金），驾驶员（基本工资加补贴），营销人员（基本工资加提成）要求有月报表（24个月保留查询）工资单（2年的保留查询）4作业调度：合同号，车号，驾驶人员，出发时间，返回时间，出发地，目的地，正常回来，异常回来。 （要求通过从合同库查询合同安排车辆和驾驶员，分配合适的车辆种类）5仓库管理：1）货物管理：货物名称，货源，数量，计量单位，价格，合同号，入库时间，出库时间，搬运负责人（其中价格包括货物的价格和合同价值） 2）车辆管理：内部车号，车牌号，车架号，驾乘人员，出入库的时间，车辆状况第3.3节 模块结构设计 “物流管理系统”可分为几个主模块：档案管理模块、合同管理模块、工资管理模块、作业调度管理模块和仓库管理模块。按照结构化的系统设计方法，将整个系统分解成相对独立的若干模块，通过对模块的设计和模块之间关系的协调来实现整个软件系统的功能，从而得到系统的功能模块结构图。本系统的功能模块结构如图3-1所示。档案管理合同管理仓库管理人事档案车辆设备查询管理货物管理车辆出入库作业调度管理物流管理系统工资管理合同统计合同信息 合同查询 调度管理返回登记查询管理工资报表工资管理图3-1 系统模块结构图第3.4节 数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。另外，合理的数据库结构将非常有利于程序的实现。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。3.4.1. 概念结构设计概念模型可以看成是现实世界到机器世界的一个过渡的中间层，是整个数据库设计的关键。概念结构设计的结果是产生概念模型，将现实世界中的客观对象首先抽象为不依赖任何具体机器的信息结构，这种信息结构不是DBMS支持的数据模型，而是概念型模型。然后再把概念模型转换为具体机器上的DBMS支持的数据模型。要对数据词典中的数据存储进行分析，得到系统的关系模型，可以采用实体联系图（简称E-R图）的方法来进行数据结构分析，从而得出概念模型。E-R图由实体、联系、属性三部分组成。根据上面的数据流和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本系统根据上面的设计规划出的实体有：车辆信息实体、货物信息实体。各个实体具体的描述E-R图如下。车辆信息实体备 注内部车号 车架号车牌号图3-2 车辆信息实体E-R图货物信息实体备注货物名称数量单位图3-3 货物信息实体E-R图3.4.2. 表结构设计关系数据结构的建立：在进行了数据基本结构的规范化重组后，还必须建立整体数据的关系结构。这一步设计完成后数据库和数据结构设计工作基本完成，只待系统实现时将数据分析和数据字典的内容代入到所设计的数据整体关系结构中，一个规范化数据库系统结构就建立起来了。根据分析阶段得出的结论，结合本系统对有关数据的存储的需要，更加方便实现该管理系统的所有功能，现将本管理系统设计成如下几个数据库表，表的设计如下(SQL脚本格式):CREATE TABLE dbo.合同信息 (合同号 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,签订日期 char (20) COLLATE Chinese_PRC_CI_AS NULL ,甲方 char (50) COLLATE Chinese_PRC_CI_AS NULL ,乙方 char (50) COLLATE Chinese_PRC_CI_AS NULL ,货物名称 char (50) COLLATE Chinese_PRC_CI_AS NULL ,计量单位 char (10) COLLATE Chinese_PRC_CI_AS NULL ,数量 int NULL ,单价 money NULL ,保险 money NULL ,运费 money NULL ,包装要求 char (50) COLLATE Chinese_PRC_CI_AS NULL ,运送起点 char (50) COLLATE Chinese_PRC_CI_AS NULL ,运送终点 char (50) COLLATE Chinese_PRC_CI_AS NULL ,期限 char (50) COLLATE Chinese_PRC_CI_AS NULL ,赔偿条款 char (100) COLLATE Chinese_PRC_CI_AS NULL ,经手人 char (20) COLLATE Chinese_PRC_CI_AS NULL ,备注 char (100) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.岗位编制 (岗位编制 char (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.工资信息 (年月 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,工号 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,姓名 char (20) COLLATE Chinese_PRC_CI_AS NULL ,基本工资 money NULL ,资金 money NULL ,补贴 money NULL ,提成 money NULL ,其他 money NULL ,备注 char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.档案信息 (工号 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,姓名 char (20) COLLATE Chinese_PRC_CI_AS NULL ,性别 char (10) COLLATE Chinese_PRC_CI_AS NULL ,籍贯 char (50) COLLATE Chinese_PRC_CI_AS NULL ,身份证号 char (20) COLLATE Chinese_PRC_CI_AS NULL ,进公司时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,岗位编制 char (20) COLLATE Chinese_PRC_CI_AS NULL ,驾照级别 char (20) COLLATE Chinese_PRC_CI_AS NULL ,特长 char (50) COLLATE Chinese_PRC_CI_AS NULL ,奖惩 char (50) COLLATE Chinese_PRC_CI_AS NULL ,备注 char (100) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.用户信息表 (用户名称 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,密码 char (20) COLLATE Chinese_PRC_CI_AS NULL ,权限 char (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.计量单位 (计量单位 char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.调度信息 (合同号 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,内部车号 char (20) COLLATE Chinese_PRC_CI_AS NULL ,驾驶人员 char (20) COLLATE Chinese_PRC_CI_AS NULL ,出发时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,返回时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,出发地 char (20) COLLATE Chinese_PRC_CI_AS NULL ,目的地 char (20) COLLATE Chinese_PRC_CI_AS NULL ,返回信息 char (100) COLLATE Chinese_PRC_CI_AS NULL ,备注 char (100) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.货物信息 (合同号 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,货物名称 char (50) COLLATE Chinese_PRC_CI_AS NULL ,货源 char (50) COLLATE Chinese_PRC_CI_AS NULL ,数量 int NULL ,计量单位 char (10) COLLATE Chinese_PRC_CI_AS NULL ,单价 money NULL ,入库时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,出库时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,搬运负责人 char (20) COLLATE Chinese_PRC_CI_AS NULL ,备注 char (100) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.车辆出入库信息 (合同号 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,内部车号 char (20) COLLATE Chinese_PRC_CI_AS NULL ,车牌号 char (20) COLLATE Chinese_PRC_CI_AS NULL ,车架号 char (20) COLLATE Chinese_PRC_CI_AS NULL ,驾驶员 char (20) COLLATE Chinese_PRC_CI_AS NULL ,其他人员 char (50) COLLATE Chinese_PRC_CI_AS NULL ,出库时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,入库时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,车辆状况 char (100) COLLATE Chinese_PRC_CI_AS NULL ,备注 char (100) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.车辆类型 (车辆类型 char (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.车辆设备信息 (内部车号 char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,车牌号 char (20) COLLATE Chinese_PRC_CI_AS NULL ,车架号 char (20) COLLATE Chinese_PRC_CI_AS NULL ,车辆类型 char (20) COLLATE Chinese_PRC_CI_AS NULL ,购买时间 char (20) COLLATE Chinese_PRC_CI_AS NULL ,行驶证 char (20) COLLATE Chinese_PRC_CI_AS NULL ,维修 char (100) COLLATE Chinese_PRC_CI_AS NULL ,报废 char (100) COLLATE Chinese_PRC_CI_AS NULL ,登记日期 char (10) COLLATE Chinese_PRC_CI_AS NULL ,备注 char (100) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGOCREATE TABLE dbo.驾照级别 (驾照级别 char (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO第4章 系统实现好的界面美观易懂、操作简单并且具有引导功能，使用户感觉愉快、增强兴趣，从而提高使用效率。本系统基于Windows操作系统，因此在界面上遵循Windows的传统风格，由标题栏、菜单栏、对话框等要素组成。与Windows操作系统一致的人机界面，使得用户只要具备Windows操作基础，就能很快适应本管理系统的操作使用，因此能够大大降低系统培训费用，提高系统的可推广性。第4.1节 登录实现用户登录窗体启动。选择登记类型,输入用户名和密码，登录。从数据库中检查是否有相应的用户名和密码，如果用户名或密码错误，进行提示；如果输入的用户名和相应密码正确，进入主控制平台。用户登录模块的窗体设计，在工程中添加一个窗体，命名为frmLogon。用户登录模块的窗体如图4-1所示。图4-1登录界面用户登录的主要代码： txtSql = select * from 用户信息表 where 用户名称 = & txtUserName.Text & If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then 如果没有这个用户 MsgBox 没有这个帐号，请重新输入帐号!, vbOKOnly + vbExclamation, 警告 txtUserName.Text = txtPassword.Text = txtUserName.SetFocus Else 如果有用户 If Trim(rs.Fields(1) = Trim(txtPassword.Text) Then UserName = Trim(txtUserName.Text) Unload Me Mainfrm.Show End If End If第4.2节 主界面实现本管理系统主界面是如图4-2 主界面。采用SDI窗体。WINDOWS风格设计。主要采用菜单式的管理方式。图4-2 系统主界面图详细菜单如下： Begin VB.Menu sysManage Caption = 系统维护(&S) Begin VB.Menu sysManager Caption = 用户管理(&M) End Begin VB.Menu Userpasword Caption = 密码管理(&U) End Begin VB.Menu qq24 Caption = - End Begin VB.Menu DatabaseBF Caption = 备份数据库(&B) End Begin VB.Menu DatabaseHF Caption = 恢复数据库(&H) End End Begin VB.Menu DangAnManage Caption = 档案管理(&D) Begin VB.Menu SetGwbz Caption = 岗位编制(&G) End Begin VB.Menu setCartype Caption = 车辆类型(&T) End Begin VB.Menu SetJZjb Caption = 驾照级别(&Z) End Begin VB.Menu qq2 Caption = - End Begin VB.Menu RenShiManage Caption = 人事管理(&R) End Begin VB.Menu CarManage Caption = 车辆设备管理(&C) End End Begin VB.Menu FindManage Caption = 查询管理(&F) Begin VB.Menu Findrs Caption = 人事查询(&R) End Begin VB.Menu FindCar Caption = 车辆查询(&C) End End Begin VB.Menu SysHelp Caption = 系统帮助(&H) Begin VB.Menu SysAbout Caption = 系统关于(A) End Begin VB.Menu HelpFiles Caption = 帮助文件(&H) End Begin VB.Menu Exitsys Caption = - End Begin VB.Menu ChangeUser Caption = 切换用户(&Q) End Begin VB.Menu Exit Caption = 退出(&E) End EndEnd第4.3节 系统维护实现系统维护包括，用户，密码，数据库管理。用户管理模块实现3个主要功能：增加新的管理人员、删除指定的管理人员和数据字典管理。密码是对当前用户进行密码修改。如图4-3图4-3 用户管理 部分代码如下： If rs1.State Then rs1.Close rs1.Open select * from 用户信息表, CN, adOpenStatic, adLockOptimistic rs1.AddNew rs1.Fields(0).Value = Trim(Text8.Text) rs1.Fields(1).Value = Trim(Text9.Text) rs1.Fields(2).Value = Trim(temStr) rs1.Update Combo5.AddItem Trim(Text8.Text) MsgBox 用户添加成功!,初始密码为 & Text9.Text, , 系统提示数据库管理包括恢复和备份。如图4-4.图4-4还原 修改密码是对当前用户修改。如图4-5图4-5 密码修改第4.4节 档案管理实现档案管理包括对人事档案管理,车辆管理进行管理，包括添加，删除，修改等操作。其中,岗位编制和车辆类型以及驾照级别。档案信息主要是对人事信息进行管理，包括姓名，地址，工号，手机，联系方式等。如图4-5。代码如下:Dim i As IntegerOn Error GoTo ErrCN.Execute delete from 档案信息 where 工号= & Trim(Text1(0).Text) & Dim rst As New ADODB.RecordsetIf rst.State Then rst.Closerst.Open select * from 档案信息, CN, adOpenStatic, adLockOptimisticrst.AddNewFor i = 0 To 10 If Trim(Text1(i).Text) Then rst.Fields(i).Value = Trim(Text1(i).Text) End IfNext irst.Update If rst.State Then rst.Close rst.Open select * from 档案信息, CN, adOpenStatic, adLockOptimistic Set MSHFlexGrid1.DataSource = rstMsgBox 保存成功!, , 提示图4-5 人事管理 车辆管理是对企业的全部车辆进行登记入库管理.如图4-6代码如下:Dim rst As New ADODB.RecordsetIf rst.State Then rst.Closerst.Open select * from 车辆设备信息, CN, adOpenStatic, adLockOptimisticrst.AddNewFor i = 0 To 9 If Trim(Text1(i).Text) Then rst.Fields(i).Value = Trim(Text1(i).Text) End IfNext irst.Update If rst.State Then rst.Close rst.Open select * from 车辆设备信息, CN, adOpenStatic, adLockOptimistic Set MSHFlexGrid1.DataSource = rstMsgBox 保存成功!, , 提示图4-6 车辆设备第4.5节 查询统计管理实现 查询包括人事查询,车辆金查询,查询支持模糊查询。如图4-7查询管理。可以输出EXCEL打印图4-7 查询管理 代码如下：If Trim(Combo3.Text) And Trim(Combo