设备管理系统论文终稿

1、. . .23/32师大学分校本科生毕业论文论文题目：设备管理系统学 院信息技术学院专 业软件工程学 号1001030042学生姓名黄杰豪指导教师林指导教师职称高级工程师指导教师单位信息技术学院2014年02月28日师大学分校学位论文写作声明和使用授权说明学位论文写作声明本人重声明： 所呈交的学位论文，是本人在导师的指导下，独立进行研究工作所取得的成果。除文中已经注明引用的容外，本论文不含任何其他个人或集体已经发表或撰写过的作品或成果。对本文的研究做出重要贡献的个人和集体，均已在文中以明确方式标明。本声明的法律结果由本人承担。确方式标明。本声明的法律结果由本人承担。 论文作者签名： 日期：年

2、月 日学位论文使用授权说明本人完全了解师大学分校关于收集、保存、使用学位论文的规定，即：按照学校要求提交学位论文的印刷本和电子版本；学校有权保存学位论文的印刷本和电子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段保存论文；在不以赢利为目的的前提下，学校可以将学位论文编入有关数据库,提供网上服务。（论文在解密后遵守此规定）论文作者签名： 导师签名： 日期： 年 月 日 设备管理系统 摘 要当今时代，信息时代的发展非常迅速。企业快速发展离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高

3、了工作效率，而且大大的提高了其安全性。因此，通过设备管理系统的开发，利用电脑快速的数据处理能和管理能力，来对企业的全部设备进行统一信息化管理非常必须要。通过分析，本次系统的开发主要是针对企业设备管理进行开发，主要使用用VB.NET来进行代码的实现和SQL Server进行数据库的设计。系统主要实现了系统的用户管理、设备基本信息管理、设备操作管理三个主要功能模块，其中设备基本信息管理包含的主要功能：设备类型信息的管理、供应厂商信息信息管理、设备相关部门信息管理；设备操作管理：设备调拨管理、设备登记管理、设备维修管理、设备借出还入管理、设备报废管理；用户管理：系统用户账号管理、系统用户的登录。关键

4、词：VB.NET；SQL Server；设备管理系统；Equipment Management SystemABSTRACTThe present era, the development of the information age is very quickly . Rapid development of enterprises rely heavily on information processing, which is widely used in the computer information management system environment. The greates

5、t benefit is that the computer can use it to perform information management. Use of computer information control, not only improves the work efficiency, but also greatly improves their security.Thus, through the development of equipment management system,use of computer processing capacity and fast

6、data management capabilities to unified information management for enterprises of all equipment is must be.Through the analysis, development of this system is developed primarily for enterprise device management, mainly for use VB.NET implementation code and SQL Server to design the database. The sy

7、stem achievement of the user management system, equipment basic information management, equipment operations management three main functional modules, and the main function of the device which contains basic information management: equipment type information management, supplier Information manageme

8、nt, equipment relevant departments of information management. Equipment operations Management: equipment for management, equipment registration and management, equipment maintenance management, equipment lending further into management, equipment obsolescence management. User Management: The system

9、user account management, users login system.Key words: VB.NET; SQL Server; Equipment Management System目 录TOC o 1-3 h u HYPERLINK l _Toc9793 1. 绪论 PAGEREF _Toc9793 1 HYPERLINK l _Toc1515 1.1 开发背景 PAGEREF _Toc1515 1 HYPERLINK l _Toc24591 1.3 系统设计的目 PAGEREF _Toc24591 2 HYPERLINK l _Toc7470 1.4 系统设计思想 P

10、AGEREF _Toc7470 2 HYPERLINK l _Toc7769 1.5 操作可行性分析 PAGEREF _Toc7769 2 HYPERLINK l _Toc24495 2. 需求分析 PAGEREF _Toc24495 3 HYPERLINK l _Toc16861 2.1系统的用户分析 PAGEREF _Toc16861 3 HYPERLINK l _Toc2740 2.2系统用例简单分析 PAGEREF _Toc2740 3 HYPERLINK l _Toc31804 2.3系统的功能分析 PAGEREF _Toc31804 5 HYPERLINK l _Toc13546

11、2.4 系统数据分析 PAGEREF _Toc13546 7 HYPERLINK l _Toc20155 3. 系统概要设计8 HYPERLINK l _Toc12969 3.1系统功能模块的层次结构 PAGEREF _Toc12969 8 HYPERLINK l _Toc15342 3.2系统功能流程 PAGEREF _Toc15342 9 HYPERLINK l _Toc25956 3.2.1系统用户信息管理 PAGEREF _Toc25956 9 HYPERLINK l _Toc11234 3.2.2设备基本信息管理 PAGEREF _Toc11234 10 HYPERLINK l _T

12、oc6069 3.3系统数据库设计 PAGEREF _Toc6069 11 HYPERLINK l _Toc16008 4. 系统的实现 PAGEREF _Toc16008 15 HYPERLINK l _Toc21148 4.1系统界面设计与控件功能 PAGEREF _Toc21148 16 HYPERLINK l _Toc26213 4.2系统模块主要代码 PAGEREF _Toc26213 19 HYPERLINK l _Toc15855 结语 PAGEREF _Toc15855 22 HYPERLINK l _Toc13779 参考文献 PAGEREF _Toc13779 22 HYP

13、ERLINK l _Toc27916 致 PAGEREF _Toc27916 231. 绪论1.1 开发背景 在计算机技术和网络技术迅速发展的年代，将信息化设备技术信息与现代化管理相结合变得很有必要。随着城市化的迅速发展，人们对生活的不断追求，创造出了各种方便生活和企业发展所需要的设备。因此开发设备管理系统，可以为设备管理人员提供具有信息化、简单化、面向社会和企业应用的管理平台、是管理科学化的必要前提和基本途径，所以，设备理系统的开发势在必行。所谓设备管理即在企业上如：设备购进之初，又设备部门的专业人员对设备情况进行核对，并填写设备情况登记表。再由管理人员负责将设备情况登记表登记存档，并将有关

14、使用说明进行编号存档，以备维修之用、设备日常运行中，要对日常检测到的数据进行必要存储和监督、在设备发生事故的情况下，登记事故记录，并向技术人员提交事故维修表。而且建立信息化的企业或社会是人们不断追求的，而设备管理系统的推广运用，则是推进社会信息化管理的重要举措之一。1.2 开发意义当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。然而繁多的功能设备需要信息化、系统化的去进行管理，就需要设备管理系统进行管理。系统从设备的购入登记，到

15、设备的日常运作、调拨、设备发生故障，到最后设备的维修等都进行系统化的管理。设备的正常运行是社会和企业发展的根本，设备的日常维护工作记录的登记可以降低设备发生故障的次数，而故障的维修可根据系统的事故维修表和日常运行数据，确定维修标准与要求。以便进行与时，合理的维修。在维修结束后，编写维修情况报告和设备状态报告。管理人员只要根据系统的数据进行有效的统计和分析，就可 以减少设备的损坏给企业或社会带来的损失。1.3 系统设计的目设备管理系统的目标应该是为企业带来管理上的方便、为企业带来利益，降低设备发生故障的次数，以最有效的方法对设备进行快速维修，分析设备管理系统的目标应从企业的管理目标入手。1.通过

16、系统界面，点击控件可以执行相应的操作，操作简单方便。2.针对员工的职能进行系统权限的管理，为员工分配其合适的管理权限。3.通过系统信息化的管理，使企业的设备管理更加科学和规，4.减少设备的管理费用。5.对日常的设备运行情况进行管理，同时提供一些必要的报表。6.为企业实现整体信息化和其他相关系统提供必要的数据支持。1.4 系统设计思想设备管理系统的建设需要遵循正确的方法和步骤。目前比较流行和成熟的开发方法有结构化生命周期法，原型法，面向对象的方法和计算机辅助软件工程。本系统采用结构化生命周期法进行系统开发，这种方法的基本思想是建立面向用户的观念，严格区分工作阶段，自顶向下地完成系统的研制工作，并

17、充分考虑变化的情况。1.5 操作可行性分析 操作可行性，又称社会可行性或运行可行性，是对开发系统在一个给定的工作环境中能否运行或运行好坏程度的量度。本系统以设备管理为主，用户界面简单方便操作，主页选择点击管理界面，相应界面会呈现出来，列表、按键都是可操作的。对于那些有一般的计算机知识的人员就可以轻松上手。而且系统主要分职能权限和系统的管理员，职能员工只需要了解自己对应分配权限的模块即可。2. 需求分析2.1系统的用户分析设备管理系统主要是针对设备信息、设备操作和系统用户进行信息化的管理，所以面向的用户主要是各部门设备管理记录的人员和系统的管理人员。用户结构图：图2-1 用户结构图系统用户主要划

18、分为两个用户类型：系统管理员和各部门员工，其中系统管理主要负责的是系统日常的数据管理和为各部门用户解决系统上的问题，而各部门员工主要是负责录入部门相关的设备信息数据到相应的子系统，并进行数据信息的管理。2.2系统用例简单分析设备管理人员登入系统，从设备的购入，有设备相关部门负责人进行校验核对，核对完成进行设备登记的信息填写，并录入数据库；到设备正常运行期间，设备可以进行调拨或借出，但需要记录详细的信息，系统还需要记录日常的使用情况以便进行更好的设备维护；再到设备故障的发生，记录故障状况的相关信息，并与时派人进行维修，记录维修结果；最后到无法修复时，进行报废记录。系统管理人员主要是对各部门的员工

19、账号进行有效的管理，且在系统中具有最高权限。系统用例图：图2-2 系统用例图上述系统用例图中：设备信息查询统计、设备日常工作状况记录、设备管理信息的修改删除都会根据系统所给予用户的权限来进入相应的界面才能进行操作。2.3系统的功能分析设备管理系统功能主要分了三个主要功能模块，分别为：设备基本信息管理、设备操作管理、系统用户信息管理。部分系统功能的详细分析如下列表： 表2-1 用例：设备登记信息增加主要参与者：设备采购员使用两列表格，一列写名称“主要参与者”，一列写内容。下同。前置条件：登录用户必须经认证具有设备登记管理权限。后置条件：生成设备登记记录，准确地录入设备对应所需的相关信息。基本流程

20、：采购员根据采购单购入新设备，登录设备管理系统并点击进入设备登记信息界面。系统查询显示所有的设备信息在界面上。采购员点击增加，根据采购设备的信息进行准确的填写（填入的设备信息必需齐全），选择好设备对应的使用部门，点击确定按钮控件。设备登记信息界面显示出新添加的设备信息。 表2-2 用例：设备登记信息删除主要参与者：设备采购员前置条件：登录用户必须经认证具有设备登记管理权限。后置条件：用户发现设备登记信息存在无效的信息，如：多添加的信息、错误无用的信息等。基本流程：1.采购员检查发现无效的设备登记信息，登录设备管理系统点击进入设备登记信息界面。2.系统查询显示所有的设备信息在界面上。3.采购员从

21、列表中查询出无效的设备登记信息并选中，点击删除按钮控件（没用选息会提示错误），出现提示确定删除。4.根据已删除信息，设备登记界面重新加载设备登记信息列表。 表2-3 用例：设备登记信息修改主要参与者：设备采购员前置条件：登录用户必须经认证具有设备登记管理权限。后置条件：用户通过检查设备信息单，发现增加设备登记信息时出现填写出错。基本流程：1.采购员检查发现错误的设备登记信息，登录设备管理系统点击进入设备登记信息界面。2.系统查询显示所有的设备信息在界面上。3.采购员从列表中查询出出错的设备登记信息，点击修改按钮控件，并在对应的信息栏修改正确，点击确定按钮控件。4.根据已修改信息，设备登记界面重

22、新加载设备登记信息列表。 表2-4 用例：设备报废主要参与者：设备维修人员前置条件：登录用户必须经认证具有设备报废管理权限。后置条件：生成设备报废记录，准确地录入设备对应页面所需的相关信息。基本流程：1.维修人员接收到设备故障维修任务，对设备进行维修。2.维修结束且维修结果为不能维修，登录设备管理系统并点击进入设备报废管理界面。3.系统查询显示所有的设备报废信息在界面上。4.维修人员故障设备信息，点击增加，准确的填写和选择对应信息，点击确定。5.设备报废管理界面显示出新添加的设备报废信息。 表2-5 用例：设备借出还入主要参与者：设备调配员前置条件：登录用户必须经认证具有设备借出还入管理权限。

23、后置条件：生成设备借出还入记录，准确地录入设备对应页面所需的相关信息。基本流程：1.设备调配员根据接收到设备借出单或还入单，进行相应处理，借出：根据借出单进行对应设备的借出进行信息记录；还入：根据还入单进行对应设备的还入进行信息记录。2.调拨结束，登录设备管理系统并点击进入设备调拨管理界面。3.系统查询显示所有的设备借出还入信息在界面上。4.设备调配员根据借出单或还入单的信息和借出还入结果，点击增加，准确的填写和选择对应信息，点击确定。5.设备借出还入管理界面显示出新添加的设备借出还入信息。上述主要分析了对应的设备登记信息的增删改功能和其他模块的添加信息的功能，用户可以具有多个权限，如果用户具

24、有对应的设备管理权限，都可以对该管理页面进行相应信息的删除、查询、修改等操作,还有账号密码的修改功能。2.4 系统数据分析缺少具体描述通过对系统需求用例的详细分析，可以得到本系统需要建立的数据类有：设备基本信息数据、设备运行信息数据、设备故障信息数据、设备维修信息数据、设备报废信息数据和采购数据。本系统中，运行状况管理和故障维修管理业务功能相对集中。因此，由于本系统的各个业务没有产生采购数据，由此可知它们由企业的其它子系统产生，不是本系统部处理的数据。3.系统概要设计3.1系统功能模块的层次结构设备管理系统分主分了三大模块：设备基本信息管理、设备操作管理、系统用户信息管理。 1.设备基本信息管

25、理：设备购入初，对设备的基本信息进行登记录入，并进行信息化管理。 2.设备操作管理：设备调配完成且可以正常运行期间，对设备的操作进行记录，并进行信息化管理。 3.系统用户信息管理：主要是对系统用户信息的管理和绝解决普通用户系统使用的问题，以与用户权限的分配管理。系统层次结构图如下：图3-1 系统层次结构图3.2系统功能流程3.2.1系统用户信息管理1. 登录功能 ：输入用户名和密码，如果用户名和密码正确，进入主控制平台；否则提示用户明确的错误信息。 图3-2-1 登录流程用户账号管理：用于系统管理员进行用户权限设置和用户的浏览，包括用户密码的用户权限的更改，同时为保障系统安全需要进行输入检验，

26、并进行必要的信息提示。一般用户不能使用该项功能。后面几个流程图都是简单的顺序程序,不需要图画,用文字描述.主要业务调拨、借用、报废等没有流程描述。使用带泳道的业务流程图画多用户参与的流程。图3-2-2 账号管理流程3.2.2设备基本信息管理设置和管理基础数据，对设备的基本信息进行详细的分类记录。 1.设备类型管理： 图3-2-3 基本信息管理流程 2.供应厂商信息管理：图3-2-4 供应厂商信息管理流程3.部门信息管理： 图3-2-5 部门信息管理流程3.3系统数据库设计数据概念设计图这是PDM,不是ER图图片不清楚，使用复制粘贴，不要截图 图3-3-1 数据设计用例图图片标注不对表3-1设备

27、类别信息表 SB_TYPE序号字段名描述数据类型长度允许空值备注1TYPE_ID设备类别编号Char8否主键2TYPE_NAME设备类别名称NVARCHAR220表3-2供应厂商信息表 SB_PROVIDER序号字段名描述数据类型长度允许空值备注1PROVIDER_ID厂商编号Char8否主键2PROVIDER_NAME厂商名称NVARCHAR2203PERSON_NAME联系人NVARCHAR2104ADDRESS厂商地址NVARCHAR2305TEL厂商NVARCHAR2206FAX厂商 NVARCHAR2207EMAIL电子NVARCHAR2208REMARK备注NVARCHAR2100

28、表3-3部门信息表 SB_DEPARTMENT序号字段名描述数据类型长度允许空值备注1DEPARTMENT_ID部门编号Char8否主键2DEPARTMENT_NAME部门名称NVARCHAR220表3-4设备登记信息表 SB_RECORD序号字段名描述数据类型长度允许空值备注1SBBH设备编号Char20否主键2SBNAME设备名称NVARCHAR2203SBMODEL设备型号NVARCHAR2204SBBRAND设备品牌NVARCHAR2205TYPE_ID设备类别NVARCHAR28外键6DEPARTMENT_ID使用部门CHAR8外键7RYBH使用人员编号NVARCHAR210外键8F

29、ZADDRESS放置地点NVARCHAR2209GJRQ购进日期DATE10DJRQ登记日期DATE11PROVIDER_ID供应商名称NVARCHAR28外键12REMARK备注NVARCHAR25013STATUS使用状况NVARCHAR210表3-5设备调拨信息表 SB_MOVE序号字段名描述数据类型长度允许空值备注1LISTNO流水号Char8否主键2SBNAME设备名称NVARCHAR2203SBMODEL设备型号NVARCHAR2204SBBRAND设备品牌NVARCHAR2205SBTYPE设备类别NVARCHAR2206OLDDEPARTMENT原部门NVARCHAR2207O

30、LDRYXM原使用人员NVARCHAR2108NEWDEPARTMENT调入部门NVARCHAR2209NEWRYXM新使用人NVARCHAR21010MOVERQ调拨日期DATE11DJRQ登记日期DATE12REMARK备注NVARCHAR25013SBBH设备编号CHAR20外键表3-6设备维修信息表 SB_REPAIR序号字段名描述数据类型长度允许空值备注1LISTNO流水号Char8否主键2SBNAME设备名称NVARCHAR2203SBMODEL设备型号NVARCHAR2204SBBRAND设备品牌NVARCHAR2205SBTYPE设备类别NVARCHAR2206DEPARTME

31、NT所属部门NVARCHAR2207RYXM使用人员NVARCHAR2108FAILUREQK故障情况NVARCHAR2509WXDW维修单位NVARCHAR22010WXRESULT维修结果NVARCHAR22011DJRQ登记日期DATE12WXQK维修情况NVARCHAR25013SBBH设备编号CHAR20外键表3-7设备借出还入信息表 SB_LOANRETURN序号字段名描述数据类型长度允许空值备注1LISTNO流水号Char8否主键2SBNAME设备名称NVARCHAR2203SBMODEL设备型号NVARCHAR2204SBBRAND设备品牌NVARCHAR2205SBTYPE设

32、备类别NVARCHAR2206DEPARTMENT所属部门NVARCHAR2207RYXM使用人员NVARCHAR2108LOANRQ借出日期DATE9PLANRETURNRQ预计归还日期DATE10FACTRETURNRQ实际归还日期DATE11BZ借出归还标志NVARCHAR21012REMARK备注NVARCHAR25013SBBH设备编号CHAR20外键表3-8设备报废信息表 SB_SCRAP序号字段名描述数据类型长度允许空值备注1LISTNO流水号Char8否主键2SBNAME设备名称NVARCHAR2203SBMODEL设备型号NVARCHAR2204SBBRAND设备品牌NVAR

33、CHAR2205SBTYPE设备类别NVARCHAR2206OLDDEPARTMENT原使用部门NVARCHAR2207OLDRYXM原使用人员NVARCHAR2108BFRQ报废日期DATE9DJRQ登记日期DATE10BFREASON报废原因NVARCHAR25011REMARK备注NVARCHAR25012SBBH设备编号CHAR20外键表3-8 人员信息表IC_STMM序号字段名描述数据类型长度允许空值备注1RYBH人员编号CHAR6否主键2RYXM人员CHAR8否3RYPASSWORD 密码CHAR16否4RYPOWER1权限1CHAR50否5RYPOWER2权限2CHAR50否6R

34、YPOWER3权限3CHAR50否7RYPOWER4权限4CHAR50否系统的实现4.1系统界面设计与控件功能主要的几个界面： 1.系统账号设置界面：图4-1 系统账号设置界面增加：单击增加，输入人员编号，人员，选择列表框里该员工应具备的权限然后再按确定键，人员系统账号信息增加成功。修改：如果要修改记录，需要先选中需要修改的记录，然后再修改权限列表框里的权限，修改完成后，按确定即可修改成功。删除：选中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删除选中的记录，否则不予删除。确定：执行增加和修改查询功能。取消：不执行增加和修改查询功能。返回：退出设置界面，回到系统主界面。2.设备

35、登记管理界面：图4-2 设备登记管理界面增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。修改：如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改完成后,按确定即可修改成功。删除：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删除选中的记录，否则不予删除。查询：单击查询,输入要查询的信息，输入后再按确定即可显示要查询的信息。确定：执行增加和修改查询功能。取消：不执行增加和修改查询功能。返回：退出设置界面，回到系统主界面。设备类别信息管理界面： 图4-3 设备类别信息管理界面增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。修改：

36、如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改完成后,按确定即可修改成功。删除：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删除选中的记录，否则不予删除。查询：单击查询,输入要查询的信息，输入后再按确定即可显示要查询的信息。确定：执行增加和修改查询功能。取消：不执行增加和修改查询功能。返回：退出设置界面，回到系统主界面。4.供应厂商信息管理界面：图4-4 供应厂商信息管理界面增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。修改：如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改完成后,按确定即可修改成功。删除

37、：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删除选中的记录，否则不予删除。查询：单击查询,输入要查询的信息，输入后再按确定即可显示要查询的信息。确定：执行增加和修改查询功能。取消：不执行增加和修改查询功能。返回：退出设置界面，回到系统主界面。部门信息管理界面：图4-5 部门信息管理界面增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。修改：如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改完成后,按确定即可修改成功。删除：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删除选中的记录，否则不予删除。查询：单击查询

38、,输入要查询的信息，输入后再按确定即可显示要查询的信息。确定：执行增加和修改查询功能。取消：不执行增加和修改查询功能。返回：退出设置界面，回到系统主界面。4.2系统模块主要代码DataGridDevice（列表）的主要法方代码：Private Function RecordsetToDataTable(ByVal ADODB_Recordset As ADODB.Recordset, ByVal TempTabe As String) As DataTable Dim Table_Name As DataTable Table_Name = New DataTable(TempTabe) Di

39、m Table_Row As DataRow ADODB_Recordset.Requery() If Not ADODB_Recordset.BOF And Not ADODB_Recordset.EOF Then ADODB_Recordset.MoveFirst() Table_Name.Columns.Add(供应厂商编号, GetType(System.String) Table_Name.Columns.Add(供应厂商名称, GetType(System.String) Table_Name.Columns.Add(供应厂商地址, GetType(System.String) T

40、able_Name.Columns.Add(联系人, GetType(System.String) Table_Name.Columns.Add(, GetType(System.String) Table_Name.Columns.Add( , GetType(System.String) Table_Name.Columns.Add(地址, GetType(System.String) Table_Name.Columns.Add(备注, GetType(System.String) While Not ADODB_Recordset.EOF Table_Row = Table_Name.

41、NewRow() Table_Row(供应厂商编号) = ADODB_Recordset.Fields(0).Value Table_Row(供应厂商名称) = ADODB_Recordset.Fields(1).Value Table_Row(供应厂商地址) = ADODB_Recordset.Fields(2).Value Table_Row(联系人) = ADODB_Recordset.Fields(3).Value Table_Row() = ADODB_Recordset.Fields(4).Value Table_Row( ) = ADODB_Recordset.Fields(5)

42、.Value Table_Row(地址) = ADODB_Recordset.Fields(6).Value Table_Row(备注) = ADODB_Recordset.Fields(7).Value Table_Name.Rows.Add(Table_Row) ADODB_Recordset.MoveNext() End While Else Table_Name.Columns.Add(供应厂商编号, GetType(System.String) Table_Name.Columns.Add(供应厂商名称, GetType(System.String) Table_Name.Colum

43、ns.Add(供应厂商地址, GetType(System.String) Table_Name.Columns.Add(联系人, GetType(System.String) Table_Name.Columns.Add(, GetType(System.String) Table_Name.Columns.Add( , GetType(System.String) Table_Name.Columns.Add(地址, GetType(System.String) Table_Name.Columns.Add(备注, GetType(System.String) End If Return

44、Table_Name 返回DatasetEnd Function设备登记信息删除主要代码：Private Sub But_ZwZl_Del_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_ZwZl_Del.Click Try If Trim(ListNo) = Then MsgBox(请选择要删除的记录！, MsgBoxStyle.OkOnly, ) Else If MsgBox(你真要删除选中的记录吗？, MsgBoxStyle.YesNo + MsgBoxStyle.Question

45、, ) = MsgBoxResult.Yes Then T_AdoConnection.Execute(delete from SB_RECORD where LISTNO= & Trim(ListNo) & ) End If End If TextClear() TextClose() dts = RecordsetToDataTable(P_Rs, SB_RECORD) DataGridDevice.DataSource = dts.DefaultView DataGridDevice.Refresh() Catch ex As Exception MsgBox(出错了，错误信息为： &

46、ex.Message & , MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, ) End Try End Sub3.设备登记信息查询主要代码： Private Sub But_ZwZl_Query_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_ZwZl_Query.Click TextClear() TextOpen() ButClose() TxtDevieName.Focus() ActionButton = 3 End Sub 4.修改

47、设备登记信息主要代码： Private Sub But_ZwZl_Update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_ZwZl_Update.Click If Trim(ListNo) = Then MsgBox(请先选择需要修改的记录, MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, ) Exit Sub Else ButClose() TextOpen() TxtDepartmentCode.Enabled = False ActionButton = 2 TxtDevieName.Focus() End If End Sub增加设备登记信息主要代码：Private Sub But_ZwZl_Add_Click(ByVal sender As System.Object, ByVal e As System.EventA