手工成品管理系统的设计与实现.doc

《手工成品管理系统的设计与实现.doc》由会员分享，可在线阅读，更多相关《手工成品管理系统的设计与实现.doc（30页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流手工成品管理系统的设计与实现.精品文档.存档日期： 存档工号： JXG080108计xx流水号 本 科 生 毕 业 设 计题 目： 手工成品管理系统的设计与实现 学 号： 11261050 姓 名： 薛枫 联 系 电 话： 14752295631 电 子 邮 箱： 2505511543 QQ ： 2505511543 学 院： 计算机科学与技术学院 专 业： 计算机科学与技术 年 级 、 班 级： 11计11 指 导 教 师： 梁银 江苏师范大学教务处印制江苏师范大学计算机学院学士学位毕业设计原创性声明本人郑重声明：所呈交的毕业设计说明书 手

2、工成品管理系统的设计与实现 是本人在导师指导下，在江苏师范大学计算机学院学习期间，进行毕业设计时取得的成果。本人知道，除文中已经标明引用的内容外，本毕业设计说明书不包含任何其他个人或集体已经发表或撰写过的研究成果。对本文的研究做出贡献的个人或集体，均已在文中以明确方式标明。本人完全意识到本声明的法律后果由本人承担。班级：11计11 学号：11261050 学生签名： 2015年 5 月 12 日手工成品管理系统的设计与实现摘 要：本系统是围绕夏尔手工工作室的与成品有关的管理业务进行调研活动，通过手工成品管理系统可以使工作室的成员可以方便快捷地完成工作室与成品有关的管理工作。此外，通过软件可以保

3、存和分析大量的历史数据，能够为工作室的一些决策的制定和实施提供数据支持从而提供强有力的帮助。系统用Visual Basic为前台的开发系统的工具和SQL Server 2008这一后台的开发系统的工具。具体实现的一些目标如下:系统采用人与机器对话互动的形式，快速响应程序；既有成品信息的管理同时还有材料信息的管理，使系统更加完善；连接excel，人员信息、入库信息的结果可以保存其中，同时也方便了打印；不同的操作员可以设置其管理权限，既增加系统安全性又使系统管理更清晰快捷。关键词：手工成品管理系统；Visual Basic；SQL Server 2008Design and Implementat

4、ion of Manual ProductManagement SystemAbstract: This system is around the shire manual workshop management business research activities related to the finished product.Through Manual product management system can make the members of the studio is quick and convenient to complete the studio managemen

5、t work related to the finished product.In addition, through the analysis of the software can be saved and a large amount of historical data, to be able to provide some decision-making and implementation of the studio data support so as to provide strong help.The system for the front desk with Visual

6、 Basic development tool and SQL Server 2008 the backstage development tools.The implementation of some goals as follows:The system adopts the man-machine dialogue manner, it can fast response; To the operator.Both having the finished product information management and the material information manage

7、ment, to make the system more perfect;Connect to the excel, personnel information, the results of the incoming information can save them, but also convenient for printing;Different of operators can set its permissions management, increase the system security and make the system more clear and quick

8、management.Keywords: Manual product Management System;Visual Basic；SQL Server 2008 目 录第1章 绪论11.1 开发背景11.2 系统简介11.3 系统的主要特点11.4 系统的发展趋势21.5本文研究内容及主要贡献2第2章 系统的开发工具32.1 VISUAL BASIC 简介32.2 SQL Server 2008 简介32.3 SQL语言简介32.4 ADO控件42.5本章小结4第3章 系统分析53.1 可行性分析53.1.1 经济可行性53.1.2 技术可行性53.1.3 操作可行性53.2 需求分析53

9、.3 系统的逻辑规划-系统流图5第4章 系统总体设计84.1 系统功能模块设计84.2 数据库及其标准84.3 概念结构设计84.4 数据库逻辑结构设计9第5章 系统详细设计及实现135.1 标准模块设计135.2 主窗体界面设计135.3基本信息管理模块设计145.3.1 供应商管理145.3.2 成品结构信息管理155.4部门信息管理模块165.4.1 部门管理165.4.2 员工管理175.5入库管理模块185.5.1 成品入库录入185.5.2 成品入库分析195.5.3 材料账款管理205.6 库存信息管理模块215.7系统管理模块设计22第6章 总结与展望236.1 总结236.2

10、 展望23毕业设计体会24参考文献26英文翻译资料27第1章 绪论1.1 开发背景现如今我们进入了信息社会，世界如今在计算机信息管理领域中竞争非常激烈。信息蕴藏着非常大的能量，拥有的信息越多，越懂得利用信息，你就能拥有更大的竞争力，就能在自己的领域中获取更多的利益。开发手工成品管理系统在宏观上的意义是能够顺应时代信息化发展的步伐、提高公司效益；微观上的意义是可以提高手工工作室关于成品管理的现代化发展趋势程序，提高管理的信息化技术方法，提高工作室员工的工作效率，增加工作室效益1。手工成品管理系统的管理者和普通员工的工作历来工作量比较大，任务非常繁琐，特别容易出错。手工工作室成品管理也不例外，为了

11、很好的解决这些问题，一个方便快捷高效的的成品管理系统便成了迫切需求。本手工成品管理系统就是在这设计背景背景下设计开发的。1.2 系统简介此手工成品管理系统的基本的业务模块有：基本信息管理模块；部门信息管理模块，系统管理模块，入库管理模块、出库管理模块和库存管理模块。都是为了手工工作室成品管理与成品有关的管理更方便快捷。手工成品管理系统这6个模块主要的功能集用户权限管理、员工管理、材料和成品结构信息管理、供货商管理、买家管理、仓库管理于一体的管理系统，在对手工成品管理系统设置了12个权限，例如用户权限设置、入库管理、出库管理、员工录入等，拥有用户权限设置的用户可以自由设置其他用户对这些管理模块的

12、操作权限，不同员工用户对系统功能有不同的操作。这些员工基本信息在部门信息里面输入，区分每个员工用户的表示符是工号。入库管理模块主要是对材料和成品入库，入库统计，入库分析以及账款管理；出库管理模块是对材料和成品出库，出库分析，出库统计以及账款管理。库存管理模块主要是材料和成品库存信息。通过此系统基本上可以解决手工工作室员工对材料和成品物品繁杂，不好统计和处理，工作时容易遗漏和错误。将材料进货、成品销售、材料成品库存相结合，及时记录工作信息和反馈工作，减少工作数据滞留时间，降低时间成本和效益成本，进而提高材料和成品周转率，才能减少因各种操作风险造成的进一步损失，从而提高利润。1.3 系统的主要特点

13、手工成品管理系统用Visual Basic为前台开发系统的工具和SQL Server 2008这一后台开发系统的工具。系统包括基本信息管理，部门信息管理，入库管理，出库管理和系统管理等模块，系统实现了信息查询、修改、删除、打印、统计等主要功能。具体实现的一些目标如下2:(1) 系统采用人与机器对话的方式，快速响应程序。(2) 既有成品信息的管理同时还有材料信息的管理，使系统更加完善。(3) 连接excel，人员信息、入库信息的结果可以保存其中，同时也方便了打印。(4) 不同的操作员可以设置其管理权限，既增加系统安全性又使系统管理更清晰快捷。1.4 系统的发展趋势随着我国经济的多元化发展，信息技

14、术被运用地越来越广泛，一些手工工作室相继在第三产业中活跃起来，本单品就是围绕夏尔手工工作室的相关的成品成品信息进行管理工作去提高员工的工作，增加工作室效益。手工成品管理系统进行了高度的监控对于成品有关的信息采用分类处理的方式，缩短了工作室信息流转时间，使工作室的各种物资管理层次非常分明，为材料采购、成品销售提供依据。本系统还可进行材料和成品分类汇总，减少材料、成品积累起来成为公司的压力。完善的手工成品管理系统，可对工作室的材料和成品进行总体的管理，对员工的部门信息和员工基本信息以及各个用户的操作权限进行控制和管理。室工作变得简单快捷，同时为工作室保留大量的数据资料以便工作室做出正确的决策。时代

15、在飞速地发展，工作室将操作电脑化，手工成品和材料入库、出库、统计查询等等已成为现在急需发展的趋势。1.5本文研究内容及主要贡献本文第一章是绪论，开发背景解释了为什么要开发这个管理系统，系统简介叙述了系统主要包含了哪些功能模块。系统的主要特点是自己开发的系统有哪些创新点和新颖的特点，系统的发展趋势叙述了关于此系统市场上有多少关于此的研究，有哪些有点缺点以及它的发展趋势。第二章 介绍了系统的开发工具，有前台的开发工具visual basic简介以及后台开发工具SQL Server 2008数据库简介以及SQL语言简介；visual basic 连接数据库的ADO控件简介。第三章 是系统的分析，包括

16、其可行性有经济可行性，技术可行性和操作可行性，需求分析，以及系统的逻辑规划数据流图以及数据字典。第四章 是系统总体设计，主要介绍了系统有哪些功能模块，数据库标准及其概念结构设计和数据库逻辑结构设计。第五章 是系统的详细设计包括了系统功能模块的具体实现，有系统主要别的窗体以及其代码实现。第六章 是做完毕业设计及其论文的总结与展望。随后的就是毕业设计体会和参考文献以及英文翻译资料。第2章 系统的开发工具2.1 VISUAL BASIC 简介Microsoft 公司于1991年推出的Visual Basic 1.0版获得了极大的成功。随着版本的不断改进和功能的日益完善，Visual Basic已日渐

17、成为容易上手和使用、功能强大的编程工具。VB6.0具有以下的特点：（1）程序的设计过程对开发人员是可视的在 Visual Basic在开发设计过程中所看到的运行界面，与程序开始运行时的界面基提供了易学易用的应用程序集成开发环境（2）面向对象的程序设计Visual basic 的对象并不是其他的变成语言那样把数据和对象封装成一个抽象的对象，其对象是一个把程序和数据封装起来并赋予其属性成为实体（3）结构化程序设计语言（4）提供Active技术，不但可以使用自己的应用程序的功能，还可以使用别的应用程序的功能2.2 SQL Server 2008 简介微软数据平台退出的的SQL Server 2008

18、原来期望的前景是因为它能够使公司可以运行它们最主要任务的应用程序，也同时减少了管理数据基础的设施和发送观察数据和信息给所有正在使用的用户的成本。这个平台具有以下的特色：（1） 这个平台是可信任的使得用户在运行他们最主要和最关键的应用程序时保证他们的高度安全性和数据可靠性以及应用程序和功能的可扩展性3。（2） 这个平台是高效的使用户在使用时这个数据平台时开发和管理他们的基础设施使降低了时间和成本。（3） 这个平台是智能的这个数据平台是一个全面全新的平台，智能给用户发送观察情况和数据信息在用户需要的时候4。2.3 SQL语言简介这种数据库语言深受不同用户的喜爱因为其功能多样化、其容易上手学习课方便

19、使用的特点。很多厂商不断开发有关商业产品因为发现了此类产品蕴含的巨大商机，并且将SQL语言作为关系数据库有关产品事实上的依据标准。它主要给用户提供给用户查询结果方法特性5。SQL语言不是一个过程化的数据库，主要是由于每次只能处理一个操作记录，对要操作的数据提供自动指导航向的功能。在进行代码编写的过程中也会用到SQL语句，同时也许用到SQL查询器这一功能来辅助设计6。 2.4 ADO控件可视化对象ADO控件是vb提供的一个重要的连接数据库的一个重要控件，用来完成代码与数据库的连接。使用了ADO控件，可以对数据库的操作更加简单。完成对数据库的访问可以不用一句代码，可以用DataSource这一属性

20、7。Ado以下的的三个对象是连接数据库时代码编写时用的最多的：Connection：一般是在窗体load时与数据库连接时用的，或者与一些控件连接时时与数据库连接对象Recordset：是一个记录集对象，当创建一个此对象，可以返回数据库查询后的记录集，用于代码编写Command：联合数据库的查询、更新、删除语句用来做命令语句2.5本章小结本章介绍了系统的开发工具，有前台的开发工具visual basic简介以及后台开发工具SQL Server 2008数据库简介以及SQL语言简介；visual basic 连接数据库的ADO控件简介。ADO控件这几个独立对象都是连接操作数据库的用的比较多的方法。

21、第3章 系统分析3.1 可行性分析3.1.1 经济可行性这个手工成品管理系统就是为了管理手工与成品有关的事务的管理工作。一些靠手操作带来的缺点可以很好的弥补，对一些主要的功能和业务集体地管理，既减少了任务量，又能使工作室的工作效率变得快速，准确度也变得很高。本系统的经济效益超过其开发成本，手工成品管理系统操作比较简单，系统开发的成本也比较低，所以具有经济可行性。3.1.2 技术可行性开发本手工成品管理系统所使用的Visual Basic 6.0 和SQL Server 2008是微软公司推出的两个相对比较成熟的软件和数据库开发工具。可以方便快速地用ADO连接数据库，运用可视化控件进行代码编写方

22、便快捷。开发软件的人可以轻松的使用VB提供的控件创建一个应用程序8。VB是真正的面向对象编程，给这些对象赋予一些属性，这些对象就是一些有其自己属性的试题。SQL Server 2008这一数据库功能比较强大，所以使用的多也方便。技术上是完全可以操作的。3.1.3 操作可行性 人机交互，方便快捷，界面清晰。系统的操作形式在用户组织内是完全行的通的。3.2 需求分析通过与手工工作室的管理者和员工的不止一次的交流，详细的了解了他们的工作需求现在从程序功能角度分析如下9：第一个就是员工用户的登陆和权限的设置，保证系统的功能操作的安全性。用户唯一的标识符是工号，其默认的登陆密码是其工号，可以对密码进行修

23、改。此外有设置用户权限功能的用户可以设置其它用户的操作权限，例如入库管理权限、出库管理权限、员工录入权限等不同的操作权限。其次系统还有部门信息管理，有员工的部门信息管理其中有部门管理和职务类型管理，还有员工信息管理。系统的基本信息管理包括材料和成品的基本信息管理、供应商管理和买家管理。系统为了要完成此手工成品的管理主要的也是成品的仓库管理。此外的一些基本信息一般有添加、删除、修改等操作。3.3 系统的逻辑规划-系统流图数据流图有外部实体、内部存储和数据项，数据流图不是数据流程图，不是数据登陆系统的操作步骤，只是系统的信息与系统的交互。此系统的数据流图如图3.1、3.2所示。图3.1 顶层数据流

24、图图3.2 0层数据流图第4章 系统总体设计4.1 系统功能模块设计通过系统的功能模块设计可以把系统的组织明确清晰地表现出来，这样能够使系统更加清晰，把一个个模块独立设计当成一个个独立的整体，这样可以减少错误的蔓延10。通过前面的分析，可以确定本此手工成品模块最主要由以下几大功能模块组成如图4.1所示。图4.1 系统功能模块图4.2 数据库及其标准在对系统的数据库的实际策划中，第一要点的要提供手工成品管理系统实现的蓝图，而要实现这一要点就是要数据建模。建立好数据模型，就要开始建立数据库的逻辑结构设计和物理设计，逻辑结构设计就是要设计数据库结构，物理设计就是要系统数据库的数据存储结构以及数据结构

25、的存储方法11。数据库设计好坏的一般标准是12：1.数据完备性数据库设计的数据必须包括与本系统所需要的全部信息，必须保证数据的完备性。2.数据一致性数据库里的不同存储结构里的数据要保持一致性，不然容易造成数据混乱，系统无法运行。3. 数据规范性 在满足前面两个标准的前提下，要保证数据库的语句语义规范。4.3 概念结构设计概念结构设计师可以了解到外部实体的之间的关系以及实体的一些数据项，这是系统给的逻辑结构。关系到数据库和代码的操作13。手工成品管理系统E-R图如图4.2所示：图4.2 E-R图4.4 数据库逻辑结构设计本手工成品管理系统系统使用SQL Server 2008数据库，数据库名为E

26、RP1。表的信息如下所示。1.用户表：用于保存员工用户的一些基本信息表4.1 用户表列名数据类型允许空值工号varchar(5)不允许姓名varchar(10)不允许性别varchar(2)不允许身份证号varchar(20)不允许出生年月datetime允许年龄varchar(4)允许民族varchar(20)允许婚姻状况varchar(4)允许政治面貌varchar(10)允许入党团时间datetime允许籍贯varchar(50)不允许联系电话varchar(50)允许手机号码varchar(30)不允许家庭地址varchar(50)允许毕业院校varchar(50)允许专业varcha

27、r(20)允许文化程度varchar(10)允许特长varchar(50)允许参加工作时间datetime允许总工龄int允许照片image允许部门nvarchar(50)不允许职务nvarchar(50)不允许工资money不允许调入时间datetime不允许本单位工龄int不允许简历text不允许登记人nvarchar(50)允许登记日期datetime不允许2.材料基本信息表：用于保存材料的基本信息表4.2 材料基本信息表列名数据类型允许空值材料编号nvarchar(50)不允许材料属性nvarchar(50)不允许材料名称nvarchar(50)不允许单位nvarchar(50)允许备

28、注nvarchar(50)允许3.材料入库信息表：手工材料入库的信息表4.3材料入库信息表列名数据类型允许空值录单日期datetime不允许录单票号nvarchar(50)不允许材料编号nvarchar(50)不允许材料名称nvarchar(50)不允许单位nvarchar(50)允许单价money允许数量numeric(18, 0)允许金额money允许供应商名称nvarchar(50)允许备注nvarchar(50)允许经手人nchar(10)允许 4.成品基本信息表：手工成品的一些基本信息表4.4 成品基本信息表列名数据类型允许空格成品编号nvarchar(50)不允许成品类别nvarc

29、har(50)不允许单价nvarchar(50)允许单位nvarchar(50)允许主要材料nchar(10)允许成品类别nvarchar(50)不允许备注nchar(10)允许5.成品入库信息表：手工成品的入库信息表4.5 成品入库信息表列名数据类型允许空值录单日期datetime不允许录单票号nvarchar(50)不允许材料编号nvarchar(50)不允许材料名称nvarchar(50)不允许单位nvarchar(50)允许单价money允许数量numeric(18, 0)允许金额money允许供应商名称nvarchar(50)允许备注nvarchar(50)允许经手人nchar(10

30、)允许入库方式nvarchar(50)允许6.成品货款信息表：用于保存成品买家货款信息表4.6成品货款信息表列名数据类型允许空值成品出库录单日期datetime不允许录单票号nvarchar(50)不允许买家nvarchar(50)不允许支付方式nvarchar(50)允许支付情况nchar(10)允许应付金额money允许结账金额money允许欠款金额money允许7.买家信息表：用于保存买家的一些基本信息表4.7买家信息表列名数据类型允许空值买家编号nvarchar(50)不允许买家名称nvarchar(50)允许地址nvarchar(50)允许电话nvarchar(50)允许传真nvar

31、char(50)允许联系人nvarchar(50)允许联系人电话nvarchar(50)允许开户银行nvarchar(50)允许银行账号nvarchar(50)允许备注nvarchar(50)允许8.材料账款信息表：材料账款的的信息表4.8 材料账款信息表列名允许空值允许空值录单日期datetime不允许录单票号nvarchar(50)不允许供应商名称nvarchar(50)不允许支付方式nvarchar(50)不允许支付情况nchar(10)不允许应付金额money不允许结账金额money不允许欠款金额money不允许第5章 系统详细设计及实现手工成品管理系统的基本业务模块包括：基本信息管理

32、模块；部门信息管理模块；与仓库管理有关的一些模块，系统管理模块14。都是为了手工工作室成品管理与成品有关的管理更方便快捷。在对手工成品管理系统设置了12个权限，例如用户权限设置、入库管理、出库管理、员工录入等，拥有用户权限设置的用户可以自由设置其他用户对这些管理模块的操作权限，不同员工用户对系统功能有不同的操作15。这些员工基本信息在部门信息里面输入，区分每个员工用户的表示符是工号。入库管理模块主要是对材料和成品入库，入库统计，入库分析以及账款管理；出库管理模块是对材料和成品出库，出库分析，出库统计以及账款管理。库存管理模块主要是材料和成品库存信息。5.1 标准模块设计标准模块的创建方法是，右

33、击这个工程-添加窗体-Modulel,本系统的标准模块声明了一些了一些系统的全局变量，自定义功能模块，例如数据库连接模块，标准模块内声明的变量、子函数在整个系统内都有效。其代码如下所示。Public Function con() As ADODB.Connection定义一个公共函数声明一个Connection对象，返回一个数据库Set con = New ADODB.Connection设置连接对象的值con.OpenProvider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=ERP1;DataSour

34、ce=Lenovo-PCEnd Function5.2 主窗体界面设计下面是一个窗体的主窗体的界面如图5.1所示。图5.1 主窗体界面5.3基本信息管理模块设计5.3.1 供应商管理界面如图5.2所示。图5.2 供应商管理界面其主要代码如下：Private Sub Cmd_add_Click() Dim rs As New ADODB.Recordset Dim lsph As String Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i rs.Open select * from 供应商信息表 order by 供应商编号,

35、 _con, adOpenKeyset, adLockOptimistic 打开供应商信息表 创建进货票号 If rs.RecordCount 0 Then 如果rs2的记录集不为空 If Not rs.EOF Then rs.MoveLast rs2的指针移到文件尾 If rs.Fields(供应商编号) Then 如果字段票号不为空 lsph = Right(Trim(rs.Fields(供应商编号), 4) + 1 进货票号加1 Txt_info(0).text = Date & gys & Format(lsph, 0000) 格式化进货票号 End If 结束If语句 Else 如果

36、记录集为空 Txt_info(0).text = Date & gys & 0001 设置进货票号 End If 结束If语句Txt_info(1).Enabled = TrueEnd SubPrivate Sub Cmd_del_Click() Dim rs As New ADODB.Recordset If MsgBox(确认删除此供应商信息？, vbInformation + vbYesNo, 信息提示) = vbYes Then rs.Open select * from 供应商信息表 where 供应商编号= & Txt_info(0).text & , con, adOpenKey

37、set, adLockOptimistic If rs.RecordCount 0 Then rs.Delete rs.Close Command1_Click Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i End IfEnd Sub 买家管理模块和供应商模块类似，在此处不再赘述5.3.2 成品结构信息管理界面如图5.3所示。图5.3 成品结构信息管理界面其主要代码如下：Private Sub Cmd_add_Click()Dim rs As New ADODB.Recordset jbxxgl_cpxx.Show jbxx

38、gl_cpxx.Caption = 添加成品基本信息 rs.Open select * from 成品基本信息表 order by 成品编号, con, adOpenKeyset, adLockOptimistic If rs.RecordCount 0 Then rs.MoveLastjbxxgl_cpxx.Txt_info(0).text = rs.Fields(成品编号) + 1Else End If rs.CloseEnd SubPrivate Sub Cmd_del_Click() Dim rs As New ADODB.Recordset If MsgBox(确定删除成品基本信息？

39、, vbInformation + vbYesNo, 消息提示) = vbYes Then rs.Open select * from 成品基本信息表 where 成品编号= & MS1.TextMatrix(MS1.Row, MS1.Col) & , con, adOpenKeyset, adLockOptimistic rs.Delete rs.UpdateSet rs = Nothing End If Adodc2.RecordSource = select * from 成品基本信息表 order by 成品编号 Adodc2.Refresh Set MS1.DataSource =

40、Adodc2 TreeView1.Nodes.Clear tree_changeEnd Sub材料结构信息管理与此类似，此处不再赘述。5.4部门信息管理模块5.4.1 部门管理界面如图5.4所示。 图5.4 部门管理界面其主要代码如下：Case addnew 添加同级 tlbState False blnTJ = True blnAdd = True For i = 0 To Text1.UBound Text1(i).text = Next i If TreeView1.Nodes.Count 0 Then treeview.selecctedItem的选定的对象，未选定时属性为null，打

41、开部门信息表部门全称为当前选定节点的关键词 rs1.Open select * from 部门信息表 where 部门全称= + TreeView1.SelectedItem.key + order by 编码级次, con, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then bmjc = rs1.Fields(编码级次) End If rs1.Close 打开部门信息表，部门全称为模糊查询它父节点编号和本级编码级次 rs1.Open select * from 部门信息表 where 部门全称 like + Left(TreeV

42、iew1.SelectedItem.key, (bmjc - 1) * 2) + +%and 编码级次= & bmjc & , con, adOpenKeyset, adLockOptimistic If rs1.RecordCount 0 Then 记录集大于0 rs1.MoveLast 记录集移动到最后一个 Text1(1) = Format(Val(rs1.Fields(本级编号) + 1, 00) format()格式化输出为“00”的格式，val()将字符型数值转变为数值 Text1(0) = Left(rs1.Fields(部门编号), Val(bmjc - 1) * 2) & Text1(1) 部门编号为其父节点部门编号+本级编号 Else 记录集小于0 Text1(1) = 01 本级编号为01 For i = 1 To bmjc Text1(0) = Text1(