设备管理系统论文.pdf

北京师范大学珠海分校北京师范大学珠海分校 本科生毕业论文 论文题目论文题目：设备管理系统设备管理系统 学院信息技术学院 专业软件工程 学号1001030042 学 生 姓 名黄杰豪 指导教师姓名杨林 指导教师职称高级工程师 指导教师单位信息技术学院 2014年年02月月28日日 北北京京师师范范大大学学珠珠海海分分校校学学位位论论文文写写作作声声明明和和使使用用授授权权说说明明 学位论文写作声明学位论文写作声明 本人郑重声明： 所呈交的学位论文，是本人在导师的指导下，独立进行研究工作 所取得的成果。除文中已经注明引用的内容外，本论文不含任何其他个人或集体已经发 表或撰写过的作品或成果。对本文的研究做出重要贡献的个人和集体，均已在文中以明 确方式标明。本声明的法律结果由本人承担。确方式标明。本声明的法律结果由本人承 担。 论文作者签名：日期：年月日 学位论文使用授权说明学位论文使用授权说明 本人完全了解北京师范大学珠海分校关于收集、保存、使用学位论文的规定，即： 按照学校要求提交学位论文的印刷本和电子版本； 学校有权保存学位论文的印刷本和电 子版，并提供目录检索与阅览服务；学校可以采用影印、缩印、数字化或其它复制手段 保存论文；在不以赢利为目的的前提下，学校可以将学位论文编入有关数据库,提供网 上服务。 （保密论文在解密后遵守此规定） 论文作者签名：导师签名： 日期：年月日 第 2 页 共 12 页 设备管理系统 摘 要 当今时代，信息时代的发展非常迅速。企业快速发展离不开信息处理，这正是计 算机被广泛应用于信息管理系统的环境。 计算机的最大好处在于利用它能够进行信息管 理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。 因此，通过设备管理系统的开发，利用电脑快速的数据处理能和管理能力，来对 企业的全部设备进行统一信息化管理非常必须要。通过分析，本次系统的开发主要是针 对企业设备管理进行开发，主要使用用 VB.NET 来进行代码的实现和 SQL Server 进行数 据库的设计。系统主要实现了系统的用户管理、设备基本信息管理、设备操作管理三个 主要功能模块，其中设备基本信息管理包含的主要功能：设备类型信息的管理、供应厂 商信息信息管理、设备相关部门信息管理；设备操作管理：设备调拨管理、设备登记管 理、设备维修管理、设备借出还入管理、设备报废管理；用户管理：系统用户账号管理、 系统用户的登录。 关键词：关键词：VB.NET；SQL Server；设备管理系统； Equipment Management System ABSTRACT The 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 greatest 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 data management capabilities to unified information managementforenterprisesofallequipmentismustbe.Throughtheanalysis, 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 system achievement of the user management system, equipment basic information management, equipment operations management three main functional modules, and themainfunctionofthedevicewhichcontainsbasicinformationmanagement: equipment type information management, supplier Information management, equipment relevant departments of information management. Equipment operations Management: equipment for management, equipment registrationand management, equipment maintenance management, equipment lending further into management, equipment obsolescence management. User Management: The system user account management, users login system. Key words: VB.NET; SQL Server; Equipment Management System 1 目目录录 1. 绪论.1 1.1 开发背景.1 1.3 系统设计的目.2 1.4 系统设计思想.2 1.5 操作可行性分析.2 2.需求分析.3 2.1 系统的用户分析.3 2.2 系统用例简单分析. 3 2.3 系统的功能分析.5 2.4 系统数据分析.7 3.系统概要设计.8 3.1 系统功能模块的层次结构. 8 3.2 系统功能流程.9 3.2.1 系统用户信息管理. 9 3.2.2 设备基本信息管理. 10 3.3 系统数据库设计.11 4. 系统的实现.16 4.1 系统界面设计及控件功能. 17 4.2 系统模块主要代码. 20 结语.23 参考文献.23 致谢.24 北京师范大学珠海分校信息技术学院 第 1页共 11 页 1. 绪论绪论 1.1 开发背景开发背景 在计算机技术和网络技术迅速发展的年代， 将信息化设备技术信息与现代化管理相 结合变得很有必要。随着城市化的迅速发展，人们对生活的不断追求，创造出了各种方 便生活和企业发展所需要的设备。因此开发设备管理系统，可以为设备管理人员提供具 有信息化、简单化、面向社会和企业应用的管理平台、是管理科学化的必要前提和基本 途径，所以，设备理系统的开发势在必行。所谓设备管理即在企业上如：设备购进之初， 又设备部门的专业人员对设备情况进行核对，并填写设备情况登记表。再由管理人员负 责将设备情况登记表登记存档，并将有关使用说明进行编号存档，以备维修之用、设备 日常运行中，要对日常检测到的数据进行必要存储和监督、在设备发生事故的情况下， 登记事故记录，并向技术人员提交事故维修表。而且建立信息化的企业或社会是人们不 断追求的，而设备管理系统的推广运用，则是推进社会信息化管理的重要举措之一。 1.2 开发意义开发意义 当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被 广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使 用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。然而繁多 的功能设备需要信息化、系统化的去进行管理，就需要设备管理系统进行管理。系统从 设备的购入登记，到设备的日常运作、调拨、设备发生故障，到最后设备的维修等都进 行系统化的管理。设备的正常运行是社会和企业发展的根本，设备的日常维护工作记录 的登记可以降低设备发生故障的次数， 而故障的维修可根据系统的事故维修表和日常运 行数据，确定维修标准及要求。以便进行及时，合理的维修。在维修结束后，编写维修 情况报告和设备状态报告。管理人员只要根据系统的数据进行有效的统计和分析，就可 以减少设备的损坏给企业或社会带来的损失。 北京师范大学珠海分校信息技术学院 第 2 页 共 12 页 1.3 系统设计的目系统设计的目 设备管理系统的目标应该是为企业带来管理上的方便、为企业带来利益，降低设备 发生故障的次数，以最有效的方法对设备进行快速维修，分析设备管理系统的目标应从 企业的管理目标入手。 1.通过系统界面，点击控件可以执行相应的操作，操作简单方便。 2.针对员工的职能进行系统权限的管理，为员工分配其合适的管理权限。 3.通过系统信息化的管理，使企业的设备管理更加科学和规范， 4.减少设备的管理费用。 5.对日常的设备运行情况进行管理，同时提供一些必要的报表。 6.为企业实现整体信息化和其他相关系统提供必要的数据支持。 1.4 系统设计思想系统设计思想 设备管理系统的建设需要遵循正确的方法和步骤。 目前比较流行和成熟的开发方法 有结构化生命周期法，原型法，面向对象的方法和计算机辅助软件工程。 本系统采用结构化生命周期法进行系统开发， 这种方法的基本思想是建立面向用户 的观念， 严格区分工作阶段， 自顶向下地完成系统的研制工作， 并充分考虑变化的情况。 1.5 操作可行性分析操作可行性分析 操作可行性，又称社会可行性或运行可行性，是对开发系统在一个给定的工作环境 中能否运行或运行好坏程度的量度。 本系统以设备管理为主，用户界面简单方便操作，主页选择点击管理界面，相应界 面会呈现出来，列表、按键都是可操作的。对于那些有一般的计算机知识的人员就可以 轻松上手。而且系统主要分职能权限和系统的管理员，职能员工只需要了解自己对应分 配权限的模块即可。 北京师范大学珠海分校信息技术学院 第 3页共 11 页 2.需求分析需求分析 2.1 系统的用户分析系统的用户分析 设备管理系统主要是针对设备信息、设备操作和系统用户进行信息化的管理，所以 面向的用户主要是各部门设备管理记录的人员和系统的管理人员。 用户结构图： 系统管理员 (from Actors) 用户 (from Actors) (from Actors) 维修人员 (from Actors) 采购员 (from Actors) 设备维护员 (from Actors) 设备分配管理员 (from Actors) 图 2-1 用户结构图 系统用户主要划分为两个用户类型：系统管理员和各部门员工，其中系统管理主要负责 的是系统日常的数据管理和为各部门用户解决系统上的问题， 而各部门员工主要是负责 录入部门相关的设备信息数据到相应的子系统，并进行数据信息的管理。 2.22.2 系统用例简单分析系统用例简单分析 设备管理人员登入系统，从设备的购入，有设备相关部门负责人进行校验核对，核 北京师范大学珠海分校信息技术学院 第 4 页 共 12 页 对完成进行设备登记的信息填写，并录入数据库；到设备正常运行期间，设备可以进行 调拨或借出，但需要记录详细的信息，系统还需要记录日常的使用情况以便进行更好的 设备维护；再到设备故障的发生，记录故障状况的相关信息，并及时派人进行维修，记 录维修结果；最后到无法修复时，进行报废记录。系统管理人员主要是对各部门的员工 账号进行有效的管理，且在系统中具有最高权限。 系统用例图： 登录 (from Actors) 用户 (from Actors) 用户信息 (from Actors) 用户管理 (from Actors) 设备信息查询统计 (from Actors) 采购员 (from Actors) 设备维护员 (from Actors) 设备管理信息的修改/删除 (from Actors) 系统管理员 (from Actors) 设备分配管理员 (from Actors) 设备日常工作状况记录 (from Actors) 图 2-2 系统用例图 上述系统用例图中：设备信息查询统计、设备日常工作状况记录、设备管理信息的修改 删除都会根据系统所给予用户的权限来进入相应的界面才能进行操作。 北京师范大学珠海分校信息技术学院 第 5页共 11 页 2.32.3 系统的功能分析系统的功能分析 设备管理系统功能主要分了三个主要功能模块，分别为：设备基本信息管理、设备 操作管理、系统用户信息管理。部分系统功能的详细分析如下列表： 表 2-1 用例：设备登记信息增加 主要参与者：设备采购员 前置条件：登录用户必须经认证具有设备登记管理权限。 后置条件：生成设备登记记录，准确地录入设备对应所需的相关信息。 基本流程： 1.采购员根据采购单购入新设备，登录设备管理系统并点击进入设备登记信息界面。 2.系统查询显示所有的设备信息在界面上。 3.采购员点击增加，根据采购设备的信息进行准确的填写（填入的设备信息必需齐全） ， 选择好设备对应的使用部门，点击确定按钮控件。 4.设备登记信息界面显示出新添加的设备信息。 表 2-2 用例：设备登记信息删除 主要参与者：设备采购员 前置条件：登录用户必须经认证具有设备登记管理权限。 后置条件：用户发现设备登记信息存在无效的信息，如：多添加的信息、错误无用的信 息等。 基本流程： 1.采购员检查发现无效的设备登记信息， 登录设备管理系统点击进入设备登记信息界面。 2.系统查询显示所有的设备信息在界面上。 3.采购员从列表中查询出无效的设备登记信息并选中，点击删除按钮控件（没用选中信 息会提示错误） ，出现提示确定删除。 4.根据已删除信息，设备登记界面重新加载设备登记信息列表。 表 2-3 用例：设备登记信息修改 北京师范大学珠海分校信息技术学院 第 6 页 共 12 页 主要参与者：设备采购员 前置条件：登录用户必须经认证具有设备登记管理权限。 后置条件：用户通过检查设备信息单，发现增加设备登记信息时出现填写出错。 基本流程： 1.采购员检查发现错误的设备登记信息， 登录设备管理系统点击进入设备登记信息界面。 2.系统查询显示所有的设备信息在界面上。 3.采购员从列表中查询出出错的设备登记信息，点击修改按钮控件，并在对应的信息栏 修改正确，点击确定按钮控件。 4.根据已修改信息，设备登记界面重新加载设备登记信息列表。 表 2-4 用例：设备报废 主要参与者：设备维修人员 前置条件：登录用户必须经认证具有设备报废管理权限。 后置条件：生成设备报废记录，准确地录入设备对应页面所需的相关信息。 基本流程： 1.维修人员接收到设备故障维修任务，对设备进行维修。 2.维修结束且维修结果为不能维修，登录设备管理系统并点击进入设备报废管理界面。 3.系统查询显示所有的设备报废信息在界面上。 4.维修人员故障设备信息，点击增加，准确的填写和选择对应信息，点击确定。 5.设备报废管理界面显示出新添加的设备报废信息。 表 2-5 用例：设备借出还入 主要参与者：设备调配员 前置条件：登录用户必须经认证具有设备借出还入管理权限。 后置条件：生成设备借出还入记录，准确地录入设备对应页面所需的相关信息。 北京师范大学珠海分校信息技术学院 第 7页共 11 页 基本流程： 1.设备调配员根据接收到设备借出单或还入单，进行相应处理，借出：根据借出单进行 对应设备的借出进行信息记录；还入：根据还入单进行对应设备的还入进行信息记录。 2.调拨结束，登录设备管理系统并点击进入设备调拨管理界面。 3.系统查询显示所有的设备借出还入信息在界面上。 4.设备调配员根据借出单或还入单的信息和借出还入结果，点击增加，准确的填写和选 择对应信息，点击确定。 5.设备借出还入管理界面显示出新添加的设备借出还入信息。 上述主要分析了对应的设备登记信息的增删改功能和其他模块的添加信息的功能， 用户 可以具有多个权限，如果用户具有对应的设备管理权限，都可以对该管理页面进行相应 信息的删除、查询、修改等操作,还有账号密码的修改功能。 2.42.4 系统数据分析系统数据分析 通过对系统需求用例的详细分析，可以得到本系统需要建立的数据类有：设备基 本信息数据、设备运行信息数据、设备故障信息数据、设备维修信息数据、设备报废信 息数据和采购数据。 本系统中， 运行状况管理和故障维修管理业务功能相对集中。 因此， 由于本系统的各个业务没有产生采购数据，由此可知它们由企业的其它子系统产生，不 是本系统内部处理的数据。 北京师范大学珠海分校信息技术学院 第 8 页 共 12 页 3.系统概要设计系统概要设计 3.1 系统功能模块的层次结构系统功能模块的层次结构 设备管理系统分主分了三大模块：设备基本信息管理、设备操作管理、系统用户信息管 理。 1.设备基本信息管理：设备购入初，对设备的基本信息进行登记录入，并进行信息化 管理。 2.设备操作管理：设备调配完成且可以正常运行期间，对设备的操作进行记录，并进 行信息化管理。 3.系统用户信息管理：主要是对系统用户信息的管理和绝解决普通用户系统使用的问 题，以及用户权限的分配管理。系统层次结构图如下： 图 3-1 系统层次结构图 北京师范大学珠海分校信息技术学院 第 9页共 11 页 3.2 系统功能流程系统功能流程 .1 系统用户信息管理系统用户信息管理 1. 登录功能 ：输入用户名和密码，如果用户名和密码正确，进入主控制平台；否 则提示用户明确的错误信息。 图 3-2-1 登录流程 2.用户账号管理：用于系统管理员进行用户权限设置和用户的浏览，包括用户密码的用 户权限的更改，同时为保障系统安全需要进行输入检验，并进行必要的信息提示。一般 用户不能使用该项功能。 图 3-2-2 账号管理流程 北京师范大学珠海分校信息技术学院 第 10 页 共 12 页 .2 设备基本信息管理设备基本信息管理 设置和管理基础数据，对设备的基本信息进行详细的分类记录。 1.设备类型管理： 图 3-2-3 基本信息管理流程 2.供应厂商信息管理： 图 3-2-4 供应厂商信息管理流程 北京师范大学珠海分校信息技术学院 第 11页共 11 页 3.部门信息管理： 图 3-2-5 部门信息管理流程 3.33.3 系统数据库设计系统数据库设计 数据概念设计图 北京师范大学珠海分校信息技术学院 第 12 页 共 12 页 图 3-3-1 数据设计用例图 表表 3-13-1 设备类别信息表设备类别信息表 SB_TYPESB_TYPE 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1TYPE_ID 设备 类别 编 号 Char8否主键 2TYPE_NAME 设备 类别名 称 NVARCHAR220 表表 3-23-2 供应厂商信息表供应厂商信息表 SB_PROVIDERSB_PROVIDER 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1PROVIDER_ID厂商编号Char8否主键 北京师范大学珠海分校信息技术学院 第 13页共 11 页 2PROVIDER_NAME厂商名称NVARCHAR220 3PERSON_NAME联系人姓名NVARCHAR210 4ADDRESS厂商地址NVARCHAR230 5TEL厂商电话NVARCHAR220 6FAX厂商传真NVARCHAR220 7EMAIL电子邮箱NVARCHAR220 8REMARK备注NVARCHAR2100 表表3-33-3部门信息表部门信息表 SB_DEPARTMENTSB_DEPARTMENT 表表3-43-4设备登记信息表设备登记信息表 SB_RECORDSB_RECORD 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1SBBH设备编号Char20否主键 2SBNAME设备名称NVARCHAR220 3SBMODEL设备型号NVARCHAR220 4SBBRAND设备品牌NVARCHAR220 5TYPE_ID设备类别NVARCHAR28外键 6 DEPARTMENT_I D 使用部门CHAR8外键 7RYBH 使用人员编 号 NVARCHAR210外键 8FZADDRESS放置地点NVARCHAR220 9GJRQ购进日期DATE 序号序号字段名字段名描述描述数据类型数据类型长度长度 允许空允许空 值值 备注备注 1DEPARTMENT_ID部门编号Char8否主键 2 DEPARTMENT_NAM E 部门名称 NVARCHAR 2 20 北京师范大学珠海分校信息技术学院 第 14 页 共 12 页 10DJRQ登记日期DATE 11PROVIDER_ID供应商名称NVARCHAR28外键 12REMARK备注NVARCHAR250 13STATUS使用状况NVARCHAR210 表表3-53-5设备调拨信息表设备调拨信息表 SB_MOVESB_MOVE 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1LISTNO流水号Char8否主键 2SBNAME设备名称NVARCHAR220 3SBMODEL设备型号NVARCHAR220 4SBBRAND设备品牌NVARCHAR220 5SBTYPE设备类别NVARCHAR220 6OLDDEPARTMENT原部门NVARCHAR220 7OLDRYXM原使用人员NVARCHAR210 8NEWDEPARTMENT调入部门NVARCHAR220 9NEWRYXM新使用人NVARCHAR210 10MOVERQ调拨日期DATE 11DJRQ登记日期DATE 12REMARK备注NVARCHAR250 13SBBH设备编号CHAR20外键 表表3-63-6设备维修信息表设备维修信息表 SB_REPAIRSB_REPAIR 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1LISTNO流水号Char8否主键 2SBNAME设备名称NVARCHAR220 3SBMODEL设备型号NVARCHAR220 4SBBRAND设备品牌NVARCHAR220 5SBTYPE设备类别NVARCHAR220 北京师范大学珠海分校信息技术学院 第 15页共 11 页 6DEPARTMENT所属部门NVARCHAR220 7RYXM使用人员NVARCHAR210 8FAILUREQK故障情况NVARCHAR250 9WXDW维修单位NVARCHAR220 10WXRESULT维修结果NVARCHAR220 11DJRQ登记日期DATE 12WXQK维修情况NVARCHAR250 13SBBH设备编号CHAR20外键 表表3-73-7设备借出还入信息表设备借出还入信息表 SB_LOANRETURNSB_LOANRETURN 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1LISTNO流水号Char8否主键 2SBNAME设备名称NVARCHAR220 3SBMODEL设备型号NVARCHAR220 4SBBRAND设备品牌NVARCHAR220 5SBTYPE设备类别NVARCHAR220 6DEPARTMENT所属部门NVARCHAR220 7RYXM使用人员NVARCHAR210 8LOANRQ借出日期DATE 9PLANRETURNRQ 预计归还日 期 DATE 10FACTRETURNRQ 实际归还日 期 DATE 11BZ 借出归还标 志 NVARCHAR210 12REMARK备注NVARCHAR250 13SBBH设备编号CHAR20外键 表表3-83-8设备报废信息表设备报废信息表 SB_SCRAPSB_SCRAP 北京师范大学珠海分校信息技术学院 第 16 页 共 12 页 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1LISTNO流水号Char8否主键 2SBNAME设备名称NVARCHAR220 3SBMODEL设备型号NVARCHAR220 4SBBRAND设备品牌NVARCHAR220 5SBTYPE设备类别NVARCHAR220 6OLDDEPARTMENT原使用部门NVARCHAR220 7OLDRYXM原使用人员NVARCHAR210 8BFRQ报废日期DATE 9DJRQ登记日期DATE 10BFREASON报废原因NVARCHAR250 11REMARK备注NVARCHAR250 12SBBH设备编号CHAR20外键 表表 3-83-8 人员信息表人员信息表 IC_STMMIC_STMM 序号序号字段名字段名描述描述数据类型数据类型长度长度允许空值允许空值备注备注 1RYBH人员编号CHAR6否主键 2RYXM人员姓名CHAR8否 3RYPASSWORD密码CHAR16否 4RYPOWER1权限 1CHAR50否 5RYPOWER2权限 2CHAR50否 6RYPOWER3权限 3CHAR50否 7RYPOWER4权限 4CHAR50否 北京师范大学珠海分校信息技术学院 第 17页共 11 页 4.4. 系统的实现系统的实现 4.14.1 系统界面设计及控件功能系统界面设计及控件功能 主要的几个界面：主要的几个界面： 1.系统账号设置界面： 图 4-1 系统账号设置界面 增加：单击增加，输入人员编号，人员姓名，选择列表框里该员工应具备的权限然后再 按确定键，人员系统账号信息增加成功。 修改： 如果要修改记录， 需要先选中需要修改的记录， 然后再修改权限列表框里的权限， 修改完成后，按确定即可修改成功。 删除：选中需要删除的记录，系统提示“你真要删除选中记录吗？” ，选择是则删除选 中的记录，否则不予删除。 确定：执行增加和修改查询功能。 取消：不执行增加和修改查询功能。 返回：退出设置界面，回到系统主界面。 2.设备登记管理界面： 北京师范大学珠海分校信息技术学院 第 18 页 共 12 页 图 4-2 设备登记管理界面 增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。 修改：如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改 完成后,按确定即可修改成功。 删除：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？” ，选择是则 删除选中的记录，否则不予删除。 查询：单击查询,输入要查询的信息，输入后再按确定即可显示要查询的信息。 确定：执行增加和修改查询功能。 取消：不执行增加和修改查询功能。 返回：退出设置界面，回到系统主界面。 3.设备类别信息管理界面： 图 4-3 设备类别信息管理界面 北京师范大学珠海分校信息技术学院 第 19页共 11 页 增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。 修改：如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改完 成后,按确定即可修改成功。 删除：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删 除选中的记录，否则不予删除。 查询：单击查询,输入要查询的信息，输入后再按确定即可显示要查询的信息。 确定：执行增加和修改查询功能。 取消：不执行增加和修改查询功能。 返回：退出设置界面，回到系统主界面。 4.供应厂商信息管理界面： 图 4-4 供应厂商信息管理界面 增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。 修改：如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改完 成后,按确定即可修改成功。 删除：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删 除选中的记录，否则不予删除。 查询：单击查询,输入要查询的信息，输入后再按确定即可显示要查询的信息。 确定：执行增加和修改查询功能。 取消：不执行增加和修改查询功能。 返回：退出设置界面，回到系统主界面。 5.部门信息管理界面： 北京师范大学珠海分校信息技术学院 第 20 页 共 12 页 图 4-5 部门信息管理界面 增加：单击增加,输入相关信息然后再按确定键，则信息增加成功。 修改：如果要修改记录,需要先选中表格中需要修改的记录,然后再修改相关信息,修改完 成后,按确定即可修改成功。 删除：选中表格中需要删除的记录，系统提示“你真要删除选中记录吗？”，选择是则删 除选中的记录，否则不予删除。 查询：单击查询,输入要查询的信息，输入后再按确定即可显示要查询的信息。 确定：执行增加和修改查询功能。 取消：不执行增加和修改查询功能。 返回：退出设置界面，回到系统主界面。 4.2 系统模块主要代码系统模块主要代码 1.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) Dim 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) 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) 北京师范大学珠海分校信息技术学院 第 21页共 11 页 Table_Name.Columns.Add(备注, GetType(System.String) While Not ADODB_Recordset.EOF Table_Row = Table_Name.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).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.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) Table_Name.Columns.Add(备注, GetType(System.String) End If Return Table_Name 返回 Dataset End Function 2.设备登记信息删除主要代码： 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, ) = MsgBoxResult.Yes Then T_AdoConnection.Execute(deletefromSB_RECORDwhere 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(出错了，错误信息为： 【 & ex.Message & 】, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, ) End Try End Sub 北京师范大学珠海分校信息技术学院 第 22 页 共 12 页 3.设备登记信息查询主要代码： 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.修改设备登记信息主要代码： 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