办公用品管理系统.doc

《办公用品管理系统.doc》由会员分享，可在线阅读，更多相关《办公用品管理系统.doc（29页珍藏版）》请在沃文网上搜索。

1、论文提纲一、前言二、办公用品管理系统概述三、系统需求分析3.1.现行业务系统描述-3.2.组织结构图3.3.业务流程分析3.4.现行系统存在的主要问题分析3.5.提出可能的解决方案3.6.可行性分析与决策四、系统分析五、系统设计六、系统的详细设计七、系统的实现结束语参考文献办公用品管理系统【摘要】 本课题研究是对办公自动化系统进行规划设计，目的是为了满足单位日常的办公用品管理的需求，扩大工作空间，使单位办公过程更加快速、安全、高效。本论文基本完成了本课题研究的主要任务系统的分析过程。论文的系统规划设计过程是从单位的业务流程出发展开分析，从而完成系统各个功能模块的分析过程，以及完成部分功能模块的

2、设计，实现了数据库信息的浏览、录入、查询、修改、删除等各种操作。系统设计的数据库采用visual foxpro6.0，通过统一界面使得系统操作更为灵活、方便便捷。【关键词】OA、办公自动化、系统、信息前言本论文主要介绍的是企事业使用的办公用品管理系统的整个设计。随着计算机技术的不断发展，计算机应用于各大领域，并给人们的生活带来了极大的便利，办公用品管理系统亦是。以往企事业办公用品由于缺乏适当的软件管理而给其工作带来了很多不便。本论文所介绍的便是一个企事业办公用品管理系统，以方便其在办公用品安排和办公用品管理上的工作任务。1.办公用品管理系统概述11系统的主要功能该系统适用于企事业办公用品员，其

3、功能主要分为以下几点：系统管理；数据处理；报表生成；用户管理等功能，该系统性能力求易于使用，具有较高的扩展性和可维护性。整个系统的开发过程严格遵循软件工程的要求，做到模块化分析、模块化设计和代码编写的模块化。虽然有的企业其信息化建设比较早，但通过调查就可发现对办公用品这一重要因素的信息化管理程度的重视还不够，现国内很多企业对办公用品的信息化管理的具体情况如下：1、 很多企业没有该管理系统，其业务主要还是通过手工操作完成。，他们没有一套完整的管理体制来对办公用品进行管理，所有的业务只是通过简单的票据来实现流通。这样，不但工作烦琐，劳动强度大，而且数据容易出错，更使得工作的效率大大下降。2、 有些

4、单位是用FOXPRO。开发的印制材料管理系统，但大多是由工作人员自行开发的且由于开发较早，大多功能简单，不能满足目前的使用要求，致使很多业务还必须依靠手工来完成。3、 管理不规范，流程不清晰。 不能如实反映市场的变化情况，给成本核算带来困难，由于办公用品的市场价格变化很频繁，因此计划价格不能如实反映市场价格。、 不能及时向主管领导或有关部门（如财务部门）提供材料库存或材料分类统计等信息，不利于领导决策。办公用品管理系统主要解决企事业单位的办公用品管理问题，有效降低企事业单位的办公费用，提高办公用品的使用率。本系统的特点:完全模拟办公用品管理流程，系统简明实用。系统完全开放，可与其他系统无缝连接

5、。自由定义数据输出，允许任何报表办公用品直接挂接。可快速扩展系统应用，相关产品可直接装载，无需重新设置，相关数据自动关联。产品的目标是实现办公自动化，提高协同工作的效率，使组织中的各项工作均处在有效的管理和监控之下；并对各种知识信息进行积累，为各级领导的决策提供有效的支持；为走向电子政务和电子商务打下良好基础。产品开发追求通用性、易用性、稳定性、安全性和可扩展性，使之能适应各级行政事业单位对办公自动化的需要。2.系统需求分析2.1现行业务系统描述在企业，办公用品管理工作是非常重要的一项工作，它负责整个企业的日常办公用品安排，人员的办公用品管理等等。以前都是人工进行操作。随着企业规模扩大，单位的

6、办公用品管理工作量大大加重。随着计算机应用的发展，办公用品管理者急切希望能够将大部分繁琐的工作交由计算机的处理，以减轻人工的压力并提高工作效率。而计算机的普及更加快了办公用品管理系统的产生。上一代的办公用品管理系统主要采用Foxbase或FoxPro,系统开发环境也是数据库内置的开发工具。其特点是单机单用户方式，开发简单，能充分利用数据库的特性。其缺点是开发出的系统依赖性强，运行必须依托数据库环境；不容易升级与扩展；无法实现数据的共享与并行操作；代码重用性差。原有办公用品管理系统数据共享差的问题更加突出，而新需求的提出也越来越多，越来越频繁。这就要求系统在可扩展性和标准化的要求更高。而原有的系

7、统由于其与生俱来的缺点而无法在适应现有的需求了。因此，使用现在的新技术，开发出适应新的需求的新系统的任务刻不容缓。2.2组织结构图在企事业中，其中和办公用品管理系统由直接关系的有以下部门：办公室（或后勤处）等：是使用综合办公用品系统的主要部门，对企事业单位的人员的办公用品进行管理。2.3业务流程分析办公用品管理系统是一个面向企业办公用品管理人员，为其提供服务的综合信息管理系统。办公用品人员通过本系统完成相关的日常工作，这些工作也是平常较为繁重的工作。办公用品的录入信息、以及各种相关的使用和领用等情况都记录在办公用品系统里进行管理。由办公用品管理人员在快捷工具栏中完成对办公用品的基本信息管理，如

8、新增类别（如钢笔，笔记本等，我们可以根据企业的发展需要，进行新增类别的处理）、物品入库（在具体的办公用品分类的基础上，对新采购的办公用品进行分类入库）、领用登记（在具体的办公用品分类的基础上，对各部门对本单位的办公用品的领用信息如数量、名称、领用人员进行登记）。2.4现行系统存在的主要问题分析现行系统的主要问题归纳起来主要有，1. 单机单用户系统，随着网络的发展，同时办公用品管理系统中信息的使用者大大增加，原有的单机单用户系统已远远不能满足需要。同时，原有的数据库也不支持多用户的网络运行环境。2系统独立性差，原有系统一般都是使用数据库提供的开发工具编写的程序，因此收数据库的制约比较大，编写出来

9、的程序性能也不好。特别是无法支持如Access, MS SQL Server等新的数据库。3模块性差，由于不是一个完整的编程语言，故无法做到代码的模块化，给功能的扩展带来了巨大的不便。2.5提出可能的解决方案鉴于目前企业对办公用品管理系统的需求与实际情况，新系统方案的重点放在系统的易用性和可扩展性上，为了实现这一设计，新系统应具备以下几方面的要求：1新系统采用Visual Foxpro6.0开发成功，充分利用该开发语言的面向对象的优势，提高了工作效率和管理质量。2新系统从设计到实现都应遵循模块化的设计思路，是用一致的接口进行信息的传递与模块调用。模块的划分完全符合实际业务的划分，以保证以后新模

10、块的加入尽可能少的影响现有功能模块的运行，与此同时，对系统的功能的扩展也提供了便利，使本系统的产品生命周期增长。3、新系统所具有的特性：通用性：用户可根据本单位的需求灵活设置人员类别及其数据库结构，可满足不同层次，不同性质，不同业务工作的需求。标准化：提供了丰富完善的办公用品管理内容，为各级管理部门之间的数据共享及数据交换奠定了良好的基础。先进性：采用面向对象技术开发，适应计算机网络技术发展趋势，运行在windows环境下，界面友好、操作方便、简单易用。实用性：具有强大的办公用品处理和管理功能，可完成办公用品类别添加、物品入库和领用、报表生成等。保密性：本系统为了提高安全性，特别设置了登录模块

11、，对本系统的用户进行了用户名、密码和使用等级的设计，从而提高了系统的安全性。2.6可行性分析与决策对于新系统设计的几个关键技术的可行性分析如下，1新系统目前使用VFP6.0自带的数据库来作为数据库，这是一个支持多用户的新型数据库，适用于中小规模的数据量需求。企业网的建设也为新系统服务器/客户端的结构提供了硬件的支持。2使用Visual Foxpro6.0作为开发工具。VISUAL FOXPRO是一个功能强大的数据库管理系统，它能迅速而又简单地建立用户的数据库，从而方便地使用和管理数据；它不仅支持客户/服务器模式，而且有与其他软件（如EXCEL）共享和交换数据的能力。VISUAL FOXPRO提

12、供新的对象和事件处理模式，利用面向对象编程(OOP)的威力使用户能够最快速地建立和修改应用程序。VFP6.0中文版，它是运行于Windows95和Windows NT平台的32位数据库系统，充分发挥了32位微处理器强大的32位数据处理性能。它功能强大，直观易用，支持客户/服务器结构和面向对象编程，提供多种可视化编程工具，支持最新Internet技术， WWW数据库的设计，最新流行的ActiveX等。 VFP6.0中文版完全支持OOP（面向对象）的应用程序设计方法,VFP使用了真正的类，包括继承性，封装性和多态性。用可视方式创建类、查看类及类代码；利用表单向导进行专业级界面设计；对表关系进行可视

13、化查看；可利用OLE自动化来包含其他软件（如Excel、Word）中的对象并使用这些软件。通过Visual FoxPro对象和事件模型，用户可以快速创建和实现无模式（modeless）的应用程序；利用生成器和工具栏，开发人员可以快速开发应用程序，而省去编写大量的代码、定义繁多的属性。总之，VFP6.0中文版是一种适用于专业人员的开发工具。对于一个大型的信息管理系统，它很可能需要对不同的用户各自创建一个大型的文件系统，它包括许多表，而属于一个用户的一套表与属于另一个用户的一套表实际上是相同的，只是名称有所不同，而在FoxPro2.x中，需要建立大量的代码来区别和维护属于不同用户的一套表，这套表的

14、数量可能是非常庞大的，维护编码也是非常庞大的。然而Visual FoxPro中引入的真正的数据库的概念，使这一问题的解决变得非常的容易，设计人员只要为不同的用户创建不同的数据库，然后在这些数据库下建立用户自己的表就可以很容易对每个用户进行区别和维护了。而且，这样的数据库的关系能力更加强大，更加稳定可靠。面向对象程序设计减少了开发时间。Visual FoxPro 通过使用面向对象的开发技术简化了开发。它可以通过创建代码类和接口单元类来创建功能强大的、使用灵活的可重用对象库。 利用内置工具管理类和类库管理类库资源，在应用程序中用类浏览器和组件集定位、查看、使用类。表面显示器会帮助我们建立更为稳定、

15、更为高效的应用程序。下面的窗口显示代码的每一行，指示其是否执行、执行次数、首次执行时间、平均执行时间。这些数据可以帮助我们快速定位代码中的运行瓶颈，也可验证测试计划。用功能强大的可视化的RAD工具减少开发时间、减少开发工作。用有颜色的代码编辑器和直接跟踪调试器使得写代码的工作比从前简单得多，这一改进来自Microsoft Visual C+开发系统。使用Microsoft Visual SourceSafe简化了开发小组的开发工作。Microsoft Visual SourceSafe 版本控制系统与Visual FoxPro 6.0紧密关联，因此可以更好地管理源代码，不论是个人独立编写程序，

16、还是作为开发小组的其中一员编写程序。 组件集使得查找和使用诸如类库、表格、报表、代码的组件变得特别简单。仅需要拖动鼠标就可以快速将类从组件集中移出，放置到表格和报表中。Visual FoxPro 6.0 提供了100多个未编译、可重用的类，开发人员可以利用这些类实现应用程序的基本功能。直接使用这些类，或者用这些类的继承来实现一定的扩展功能。 应用程序向导和构建器Visual FoxPro 6.0 包括一个完全的面向对象的应用程序框架，它是由一组为应用程序提供基本功能的类组成的。新的应用程序向导就是基于这个框架创建项目的，新的应用程序构建器可以用来添加表格和报表。 组件集(Component G

17、allery)组件集(Component Gallery)简化了类库的管理，简化了提供可视化工具去组织和使用组件的其他组件的管理。组件可以从组件群中拖出，放置到可视化设计环境中，诸如项目和表单。 严格日期检查编译日期信息时，Visual FoxPro 6.0 将检测会产生误解的日期描述，例如01/01/56。开发人员可以利用这一特性检测现有代码的2000年问题，并且在新代码中避免这一问题的出现。新的严格的日期格式强制日期以清楚形式描述。 Coverage Profiler开发人员可以运用表面显示器（Coverage Profiler）检查他们要测试的方案的有效性，这是用执行相应行代码的方式实现

18、的。他们也可以执行profiling 以查找瓶颈或其它执行当中遇到的问题，这是通过检查每一行代码的执行时间实现的。 访问和赋值方法访问方法是当访问属性值时运行的代码，赋值方法是当改变属性值时运行的代码。访问控制方法和访问权限指定方法使属性可用，并使那些内嵌属性容易使用。 项目挂钩项目挂钩是一个新的基类，当与一个项目相连时，可以通过它看到项目级事件。开发人员可以写一些当项目打开、关闭、构建、添加文件时运行的代码。 在应用程序之间进行拖放从记忆字段拖出文本，把它放置到Microsoft Word中，然后可以对文本进行拼写检查。或者从Windows Explorer中拖出一个文件，把它放置到项目管理

19、器中。文件将被添加到项目中去。 活动文档活动文档是一个Visual FoxPro应用程序，挂接在Internet Explorer上。它提供了把Visual FoxPro的强大功能用在浏览器上的一种途径。活动文档同样也提供了一种在分布式应用程序中使用Web的方法。 微软传输服务器支持由Visual FoxPro 创建的COM 组件，这些组件可以由微软传输服务器管理和调整。开发人员可以构建基于数据的组件，充分利用微软传输服务器提供的调整组件的便利条件。 企业应用程序开发Visual FoxPro 6.0 与其它Visual Studio 工具可以很好的配合，例如，运用Visual InterDe

20、v 创建Web应用程序的开发人员可以很容易地使用Visual FoxPro 来创建组件。用Visual Basic创建的 ActiveX 控件可以在Visual FoxPro 应用程序中使用，以实现一些附加功能。购买Visual Studio 企业版的Visual FoxPro 开发人员可以得到开发工具所提供的全部好处。 综上所述，新系统的设计与开发在技术上和硬件设备上的条件都是满足的，新系统的开发是可行的。3. 系统分析3.1数据流程分析3.1数据流程图：由于本系统的功能强大，功能模块较多，下面仅以办公用品管理模块为例来进行编制。工作人员工作人员办公用品管理系统负责人入库情况领用情况报表输出

21、办公用品管理系统0层数据流程图4.0报表输出工作人员工作人员负责人1.0登记入库2.0物品领用3.0查询D1D2员工D3办公用品工作人员上级领导办公用品管理系统1层数据流程图3.2数据存储分析1、数据模型设计。首先来做出办公用品管理系统的E-R图，分析这个问题的实体，从系统分析可以知道，物品的办公用品卡片是由办公用品部门的相关办事人员按照实际情况给出的，然后在办公用品管理人员需要时，由相关办事人员向经理提供，因此由三个即员工、办事人员、办公用品管理人组成了这个系统的三个实体。2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，经理与员工没有直接的联系，经理必须通过办事员这个实体才能与

22、员工建立联系，因而先不考虑。员工与办事员这两个实体是多对多联系。这个E-R图可画成下图。员工办事人员办公用品领用mn办公用品管理系统中员工与办事人员的E-R图3.3系统功能分析：功能层次图办公用品管理系统系统报表生成数据处理用户管理初始化系统物品类别增加物品类别修改新购物品入库领取物品录入年报表季报表月报表退出系统修改口令用户添加4系统设计4.1软件模块结构设计411系统方案确定。通过对系统的调研与分析，系统主要应完成的功能如下：系统管理、数据处理、报表生成、用户管理、新增类别、物品入库、领用登记等基本功能。412软件结构设计。本系统在具体的使用时，先根据不同的操作人员的用户权限来进行相应的模

23、块进行操作，然后可以进行数据处理或者进行其它的查询或浏览以及打印输出等操作；总体来说，本系统属于一个事务型的管理系统。接受数据处理中心物品入库领用登记类别管理生成报表 42数据库设计数据库采用了Microsoft推出的VFP数据库，由于VFP的数据库具有显著的简易性和有效性，大量的桌面数据库系统都采用它作为后台数据库。使用的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用Microsoft的数据库服务器软件SQL Server，此时，程序只需要简单的修改一下链接（ADO的数据源）就可以，这样，为程序的平滑扩展提供了非常有力的条件。421数据库实体结构本系统中所涉及到

24、的主要实体共有一个数据库（wupin.dbc）该数库中共有五个数据表，下面分别列出这些数据表的实体结构，结构实体如下：leibie类别表：类别jiku进库表：类别，品牌，单价，数量，购买人，购入日期，备注bm部门表：部门名称lingqu领取表：类别，品牌，领取数量，单价，领取日期，领取人，部门，备注usepass用户表：姓名，密码，权限422数据库物理结构各表的物理结构如下：usepass用户表：字段名中文注释类型宽度小数位Uname用户名字符10Upassword密码字符20Uqianxian权限字符1Bm部门表：字段名中文注释类型宽度小数位Bmname部门名称字符16Lingqiu领取表字

25、段名中文注释类型宽度小数位Leibie类别字符10Pinpai品牌字符10Shulian数量数值40Danjia单价数值62Riqi日期日期型8Lingquren领取人字符8Bumen部门字符10Beizhu备注字符100Jiku进库表：字段名中文注释类型宽度小数位Leibie类别字符10Pinpai品牌字符20Danjia单价数值62Shuliang数量整型4Riqi日期日期型8goumairen购买人字符8Beizhu备注字符200Leibie类别表：字段名中文注释类型宽度小数位Leibie类别字符125.系统的详细设计：本部分主要内容为本系统的运行界面以及主要界面的源代码。5.1系统登陆

26、界面：本登录界面的设计为是了保证本系统的使用安全性，即用户在使用本系统时必须进行正确的登录方能使用，并且本系统对用户的权限进行了适当的设定，为提供不同级别的用户根据自己的权力范围进行本系统的使用。本系统的登录用户和密码可以用VIP;VIP来登录使用。代码如下：command1.click(确定按钮)：public clevel,cczyclevel=if not used(usepass) sele 0 use usepassendiflocate for alltrim(uname)=alltrim(bo1.displayvalue)cczy=alltrim(bo1.displayvalue

27、)if upper(alltrim(thisform.text1.value)=upper(alltrim(upassword) thisform.release clevel=alltrim(uquanxian) do form faceelse cMessageTitle=办公用品管理系统 cMessageText=口令错误，要重新输入吗？ nDialogType=4+32 nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 thisform.text1.value= thisf

28、orm.text1.setfocus case nAnswer=7 cMessageText=你不是合法用户，请离开！ MESSAGEBOX(cMessageText,0,cMessageTitle) thisform.release endcaseendif52系统主界面：本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有四人子菜单和四个快捷功能按钮，从而实现了本系统的具体功能。用户在具体的使用过程中，只需进入相应的菜单项或点击功能按钮即可进入，从而体现出本系统的快捷性和方便性。代码如下：form1.init(本窗体初始化)：DO menu1.mpr with this,.t.

29、_vfp.visible=.f.set path to c:newsoftif clevel1 mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f.endif53新增类别：本模块的主要功能是实现本系统的目前的办公用品类别不足时，进行的增加操作。 代码如下：command1.click(确定按钮)：c_leibie=ALLTRIM(thisform.text1.Value)IF NOT USED(leibie) SELECT 0 USE leibie EXCLUSIVEENDIFSELECT leibieGO TOPLOCATE FOR AL

30、LTRIM(leibie)=c_leibieIF NOT EOF() MESSAGEBOX(该类别已经存在，请重新输入！) RETURNELSE APPEND BLANK REPLACE leibie WITH c_leibie messagebox(类别添加成功！)ENDIFUSE54物品入库：代码如下：command1.click(确定)cleibie=ALLTRIM(bo1.Value)cpinpai=ALLTRIM(bo2.displayvalue)cdanjia=VAL(ALLTRIM(thisform.text2.Value)cshuliang=VAL(ALLTRIM(thisfo

31、rm.text3.Value)cgoumairen=ALLTRIM(thisform.text4.Value)criqi=CTOD(ALLTRIM(bo4.DisplayValue)+.+ALLTRIM(bo5.DisplayValue)+.+ALLTRIM(bo6.DisplayValue)cbeizhu=ALLTRIM(thisform.edit1.Value)IF NOT USED(jiku) SELECT 0 USE jikuENDIFSELECT jikuLOCATE FOR ALLTRIM(leibie)=cleibie AND ALLTRIM(pinpai)=cpinpaiIF

32、FOUND() UPDATE jiku set shuliang=shuliang+cshuliang,danjia=(danjia+cdanjia)/2,riqi=criqi; WHERE ALLTRIM(leibie)=cleibie AND ALLTRIM(pinpai)=cpinpaielse INSERT INTO jiku; values(cleibie,cpinpai,cdanjia,cshuliang,cgoumairen,criqi,cbeizhu)endif cMessageTitle=数据录入cMessageText=数据添加成功，还要继续吗？nDialogType=4+

33、32nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle)if nAnswer=6 thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text5.value= thisform.edit1.Value=ELSE USE thisform.ReleaseENDIF5.5领用登记代码如下：command1.click(确定)：DIMENSION cdanjia1cleibie=ALLTRIM(b

34、o1.displayvalue)cpinpai=ALLTRIM(bo3.displayvalue)cbumen=alltrim(bo2.displayvalue)cshuliang=VAL(ALLTRIM(thisform.text3.Value)clingquren=ALLTRIM(thisform.text4.Value)criqi=CTOD(ALLTRIM(bo4.DisplayValue)+.+ALLTRIM(bo5.DisplayValue)+.+ALLTRIM(bo6.DisplayValue)cbeizhu=ALLTRIM(thisform.edit1.Value)IF NOT

35、USED(jiku) SELECT 0 USE jikuENDIF*自动计算单价IF NOT USED(jiku) SELECT 0 USE jikuENDIFSELECT danjia FROM jiku; WHERE ALLTRIM(leibie)=cleibie AND ALLTRIM(pinpai)=cpinpai into ARRAY cdanjia*根据领取库，自动计算剩余数量UPDATE jiku set shuliang=shuliang-cshuliang; WHERE ALLTRIM(leibie)=cleibie AND ALLTRIM(pinpai)=cpinpai*将

36、记录写入领取库IF NOT USED(lingqu) SELECT 0 USE lingquENDIFINSERT INTO lingqu values(cleibie,cpinpai,cshuliang,cdanjia,criqi,clingquren,cbumen,cbeizhu) cMessageTitle=数据录入cMessageText=数据添加成功，还要继续吗？nDialogType=4+32nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle)if nAnswer=6 thisform.text3.value= thi

37、sform.text4.value= thisform.text5.value= thisform.edit1.Value=ELSE thisform.ReleaseENDIF5.6年报表：本模块的主要作用是对办公用品的年度的领取情况进行登记，以便以后工作中对用品的管理，以降低消耗，加强管理。代码如下：command1.click(确定)IF NOT USED(lingquview) SELECT 0 USE lingquviewENDIFSELECT lingquviewLOCATE FOR year(riqi)=val(alltrim(bo1.displayvalue)IF FOUND()

38、 SELECT * from lingquview order by bumen INTO dbf c:newsoftmyreport WHERE year(riqi)=val(alltrim(bo1.displayvalue) report form c:newsoftmyreport prevELSE MESSAGEBOX(对不起，没有此纪录！)ENDIF5.7修改口令：本模块的主要是防止用户的密码一旦泄露，对系统的安全性造成危害时，则可以在本界面中重新设置该用户的密码，但用户在修改密码时必须要牢记以前的原密码，否则无法完成本处修改。代码如下：command1.click(确定)xm1=A

39、LLTRIM(ThisFbo.displayvalue)kl1=ALLTRIM(ThisForm.oldcode.Value)xin=ALLTRIM(ThisForm.newcode.Value)que=ALLTRIM(ThisForm.queren.Value)LOCATE FOR ALLTRIM(uname)=xm1 and ALLTRIM(upassword)=kl1IF .NOT. EOF() IF xin=que REPLACE upassword WITH xin messagebox(口令更改成功，你的新口令是：+alltrim(thisform.newcode.value)+

40、请确认！,办公用品管理系统) ThisForm.Release ELSE ThisForm.newcode.Value= ThisForm.queren.Value= ThisForm.newcode.SetFocus =MESSAGEBOX(您输入的新旧口令不一致,请重输!,48+0+0,消息窗口!) ENDIFENDIF5.8增加用户当本系统的用户在实际工作中发生变化时，我们可以对本系统的新用户进行增加操作，在本处可以设置诸如用户名，密码，权限等。代码如下：command1.click(确定)：if not used(usepass) sele 0 use usepassendif_use

41、rname=allt(thisform.text1.value)_quanxian=allt(bo1.displayvalue)_pass=allt(thisform.text2.value)_passqueren=allt(thisform.text3.value)if empty(_username) messagebox(请输入用户名！) thisform.text1.setfocus returnendifif empty(_pass) or empty(_passqueren) messagebox( 请输入密码！) thisform.text2.setfocus returnend

42、ifif _pass#_passqueren messagebox(两次密码不一致，请检查！) thisform.text2.setfocus thisform.text2.value= thisform.text3.value= returnendifif _quanxian=超级用户 _quanxian=1else _quanxian=2endifsele usepassgo toplocate for uname=_usernameif eof() go bottom appe blan repl uname with _username ,upassword with _pass , uquanxian with _quanxian for empty(uname) messagebox(添加用户成功！) thisform.releaseelse messagebox(对不起，该用户名已存在，请重新输入！) thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text1.setfocus returnendifthisform.text1.value=thisform.text2.value=thisform.text3.value=5.9打印界面：在本处功能模块中，用户可