系统可行性分析

1、第一章 系统可行性分析1.1 引 言随着计算机技术的飞速发展，计算机在社会管理中应用的普及，利 用计算机实现资产设备档案管理势在必行。对于企业来说，利用计算机 支持学校高效率完成资产设备管理的日常事务，是适 应 现 代 化 制 度 要 求 、推动企业信息管理走向科学化、规范化的必要条件；同时计算机有着手 工管理所无法比拟的优点.例如 :检索迅速、查找方 便 、 可 靠 性 高 、 存 储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高资产设 备档案管理的效率,也是企业信 息化的重要条件 。1.2 系 统 简 介资产设备档案管理系统是一个企业单位不可缺少的部分，它的内容 对于企业的决策者

2、和管理者来说都至关重要，所以资产设备档案管理系 统 能 够 为 用 户 提 供 充 足 的 信 息 和 快 捷 的 查 询 手 段 。 用 Visual Basic 构 建 的 资 产 设 备 档 案 管 理 系 统 ， 数 据 库 采 用 最 先 进 的 Oracle 9i ， 能 实 现资产类别的增加、删除、修改和档案的增加、插入、修改、删除、查 询、预览、编辑、报表、刷新、移动、按某个属性显示等功能，此外， 在程序中还设计了用户登陆，并设定了密码，以确保本系统应用的安全 性 。本 管 理 系 统 设 计 合 理 、界 面 美 观 、操 作 方 便 、运 行 稳 定 、功 能 完 备 ，

3、为进行现代化的资产设备档案管理工作起到了重要作用，具有较高的实 用价值。1.3 开 发 工 具 选 择随 着 计 算 机 的 日 益 普 及 和 网 络 的 发 展 ，数 据 库 的 应 用 范 围 越 来 越 广 ， 数据库应用的功能也越来越强，因此编写数据库应用程序的难度日益加 大。目前，用于数据库的开发工具更是层出不穷。要从众多的数据库中 选出适当的数据库开发平台并不是一件很容易的事。微 软公司的Visual Basic6.0是Windows 应用程 序 开发 工 具，是目前 最 为 广泛的、易 学 易用 的 面向 对象的 开 发 工 具。Visual Basic提供了大量的控件，这些控

4、件可用于设计界面和实现各种功能，减少了编程人 员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率 和 可 靠性。故而，实现本系统VB 是一个 相对较好的 选择。1.4 数 据库 后台支持Oracle 9i数据库是目前业内伸缩性最好 、功能最齐 全 的数据 库 。无论是 用 于 驱动网站、打包应用程序、数据仓 库或者是OLTP应用程 序 ，Oracle 9i 数据库都是 任 何 专 业 计 算 机 环 境 的 技 术 基 础 。 Oracle 公 司 核心 技 术 产 品 的 Oracle 9i 的 系 列 产 品 ： Oracle 9i Database 、 Oracle 9

5、i Application Server 和 Oracle 9i Developr Suite。 每 一 个 都 被 重 新构建以提供对最新技术的支持，同时这些产品帮助定义使用数据、进行 商务活动以及支持公司更好地采用技术的新方法。第二章 系统需求分析2.1 项 目 要 求资产设备档案管理系统要求对档案信息安全高效的进行分类和管 理，提高工作效率，便于操作，能有效地对各种数据进行修改、查询、 增加、删除。2.1.1 性 能 要 求在本系统中，既要求方便、快捷、有效地完成各项工作，还要求系 统有良好的适应性；可靠的安全性和功能的完整性；并且录入数据合法 性的校验程度要高，数据查询速度快。2.1.

6、2 数 据 输 入用户添加的合法的资产类被信息和档案信息，以及用户查询时可以 输入任意的查询条件。2.1.3 数据输出资产设备类别和用户查询出的档案信息结果和报表。2.2 系统功能分析系统开发的总体任务是实现资产设备档案信息关系的系统化、规范 化和自动化。系统功能分析是在系统开发的总体任务的基础上完成的。系统需要 完成功能主要有：2.2.1 、 用 户 管 理 分 为 ： 用 户 注 册 、 更 改 密 码 和 用 户 删 除 。用户注册：必需输入不重复的用户名和密码、确认密码，完成 注册。更改密码：方便用户使用具有自己个性特色的用户名和密码。用户删除：首先必须密码确认后，才有权限删除已经过期

7、的用 户信息。2.2.2 、资 产 设 备 类 别 管 理 ：根 据 用 户 的 需 要 来 实 现 类 别 的 增 加 、删 除 、 修改。类别增加时会让你选择同层增加还是下层增加；修改，已经使用的类别和包含子类别的类别不允许修改； 删 除 和 修 改 是 一 样 的 ，已 经 使 用 的 和 包含子类别的不允许删除。2.2.3 、 资 产 设 备 档 案 维 护 ： 增 加 、 插 入 、 移 动、删除、显示顺序选择，转 化 Excel 格 式 等 操 作 。 增加：首先要选择你要增加的类别，然后点 增加，再在弹出的界面输入你要增加的信息，各种内容可以直接输入，也可以点击旁 边的按钮进行选

8、择，没有的内容需要输入。然后确定，系统会自动检查你输入的信息，无误后增加成功，并给用户以提示。 插入：首先在资产/设备档 案 列 表 中 用 鼠 标选择要插 入 的 资 产 /设备的插入位置，然 后 点 击资产/设备列表下方的插入按钮进入资产/ 设 备 档 案 录 入 界 面 ，然 后 录 入 资 产 / 设 备 名 称 、资 产 / 设 备 型 号 、资 产 /设 备 编 号 、 使 用 部 门 、 存 放 地 点 、 保 管 员 、 折 旧 方 法 、 数 量 、 单 价 、 累计折旧等信息 ， 资 产/设备信息录入正 确 后 ， 然后选择在 此 资 产/设备前面插入，还是在 此资产/设备

9、后 面 插 入 ，则实现插入成功。 资产/设备档案修 改 ：首先用鼠标 选 择 要 修改的资产/ 设 备 ，然后点击资产/设备列 表下 方的修改按 钮 进 入 资 产/设备档案修改界面 ，然 后 录 入 资 产 / 设 备 名 称 、资 产 / 设 备 型 号 、资 产 / 设 备 编 号 、使 用 部 门 、存 放 地 点 、保 管 员 、折 旧 方 法 、数 量 、单 价 、累 计 折 旧 等 信 息 ， 如 果 有 自 定 义 项 目 ，还 可 以 录 入 自 定 义 项 目 信 息 。软 件 自 动 检 验 资 产 / 设 备 编 号 唯 一 性 ，资 产 / 设 备 信 息 录 入

10、正 确 后 ，点 击 确 定 按 钮 完 成 资 产 /设 备 档 案 信 息 修 改 。 资 产 / 设 备 档 案 删 除 ： 首 先 用 鼠 标 选 择 要 删 除 的 资 产 / 设 备 ，然 后点击资产/ 设备列表下方的 删除按钮，弹出一对话框 ，问你是否要删除你选中的行，点是 完成资产/设备档 案信息删除，点否取消删除。 资产/设备档案移动：资产/设备在列表中的位置是 允许移 动 的 ，首先用鼠标选择要 移动 的 资产/设备，然后点击资产/设 备列表下方的移动按钮，然后出现移动选 择窗口，输 入 移 动 的位数 及 向 前 移 动 还 是向后 移动完成资产/设备位置移动。 资 产/

11、设备档案显示顺序选择：软 件 提 供了按 录 入 顺 序 排序按资产/设备编号顺序排序按资产/ 设备名称 排序3种排序方法，用户可以根据习惯及单位具体情况自由选择排序方法，排序选择 位于资产/设备在列表中的左下方 ，可以用鼠标点下拉框进行选择，选择后 按回车键 就 可 以看到资产设备列表中的显示顺序。 将 资 产 / 设 备 档 案 内 容 转 换 为 EXCEL 数 据 格 式 ： 点 击 资 产 / 设 备 档案列表下方的转换为EXCEL 按钮，会出现转换项目选择窗口，可以任意选择要转换的项目，在这里是一条或多条记录的选中。也可以 用移动按钮移动项之间的顺序，这里我们是记录一条一条的移动，

12、点 击向上移动，或 者 向下移动，记录就会相应的改变位置。 如 果 选中多条连续的记录 也 可 以移动，最后点击确定转化按钮，软 件 会 自动打开一个空的EXCEL 表，然后把你选中的记录数据转换为EXCEL 表格式。2.2.4 、资产设备档案查询 直接查询：可以直接通 过 点 击 资 产 / 设 备 类 别 表 中 的 类 别 ，从 档 案资 产 /设备列表中就直接查询 到 对 应 类 别 的 档 案 资 料 。 间接查询：可以点击界面右下角的查询条件按 钮，进入查询条件选择界面，输入要查询的条件（软件提供了资产/设备 名 称 、 资 产 /设备规格、资产/设 备 编 号 等多种查询条件），

13、查询条 件可以选择一种条件，也可以选择多种条件，条件可以是一个字，也可以是多个字。 输入好查询条件后再选择是模糊查询还是 严格查询，建议用模糊查询。2.3 数 据 库 需 求 分 析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就 要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、 数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的 具体设计打下基础。针对资产设备档案管理系统的需求，通过详细的分析，设计如下所 示的数据项和数据结构：保管员表：NAME用户表：USERNAM， EUSERID， NUM存放地点表： 存放地点 部门表： 使用部门 资产类别名表：ID ，

14、 NAM，E FATHERI，D IMAGE， SELECTIMAGE资产设备档案表： 资产设备名称，资产设备型号，资产设备编号，使用部门，存放地点，保管员，折旧方法，数量，单价，累计折旧，资产类别，显示序号，插入序号，其他第二章总体设计3.1 引言在 完成了 软件的需 求分析之后 ，系统 必须“做什么”已经清 楚了，现在是决定“怎样做”的时候。总体设计的基本 目的就是回答“从总体上说，系统应 该如何实 现？”这个 问题。根据需 求分析，建设一 个安全、可靠、开放、高效的资产设备档案管理系统，首先寻找实现目标系统的 各种不同的方案，然后从中分析获得最佳方案和最合理的软件结构，从 而用较低成本开

15、发出较高质量的资产设备档案管理系统。3.2 数 据 库 设 计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设 计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数 据 库 结 构 设 计 可 以 提 高 数 据 存 储 的 效 率 ，保 证 数 据 的 完 整 和 一 致 。另 外 ， 合理的数据库结构将非常有利于程序的实现。 本系统中所涉及到的主要实体共有六个数据表 各表的物理结构如下：保管员表：殳名称类型字F殳大小其他说明NAME文本16保管员姓名用户表：字段名称类型字段大小其他说明USERNAME文本20用户名USERID文本16用户密码NUM数字用户权限，1为管理

16、员存放地点表殳名称类型字F殳大小其他说明存放地点文本60部门表殳名称类型字F殳大小其他说明使用部门文本30资产类别名表：字段名称类型字段大小说明ID文本16类别编号NAME文本20类另名FATHERID文本16该类别父编号IMAGE数字类别图象SELECTIMAGE数字类别被选中的图象资产设备档案表殳名称类型字F殳大小说明资产设备名称文本20资产设备型号文本20资产设备编号文本20使用部门文本20存放地点文本20保管员文本16折旧方法文本30数量文本单价文本累计折旧文本20资产类别文本20显小序号数字记录显示给用户的顺序插入序号数字记录插入的顺序其他文本100记录附加信息3.3 流程图第四章、

17、详细设计4.1 引言详细设计是软件开发时期的第三个阶段，也是软件设计的第二步， 它的根本目标是确定应该怎样具体地实现所要求的系统。在概要设计已 经确定了软件系统的总体结构，给予了系统中各个组成模块的功能和模 块间的联系之后，详细设计主要是考虑“怎样实现”这个软件系统，设 计出程序的“蓝图”，给出各个模块的详细过程性描述。4.2 系统登陆模块根据系统的需求，结合实际管理的情况，本系统应具有如下功能模 块：本系统的登录需要进行身份验证，当用户输入用户名和密码后，将 会和系统配置中的用户名和密码进行比较，采用内置计数器的方法来判 别输入次数，三次密码输入错误便强行终止系统运行，防止非法用户恶 意套取

18、密码。如果没有用户名可以注册，但记住第一个注册的默认是管理员，只 有他有权删除所有用户，如果第一个注册用户也被删除，则删除用户时 的登陆密码为空。4.2.1 系统主界面：用户成功登陆后进入主界面，如下4.2.2 用户管理模块在此，一般用户可以在次修改密码，管理员可以修改密码和进 入“用户管理”查看和删除所有用户信息。4.2.2.用户管理区资产设备类别管理模块士酱产/燃各类别管理IZi叵I区收起增加修改删除刷新关闭当前:在此，用户可以电击相应的按纽执行增加、删除或者修改等 信息的操作。4.2. 3 档案增加和维护模块在主界面点档案增加和维护进入该界面，你可以点左边的 各类别，然后右边列表显示的是

19、该类别的所有记录。在此简单介 绍一下增加,修改,转化Excel, 其他按纽不重复了。4.2.3.1 增力口界面各种内容可以直接输入，也可以点击旁边的按钮进行选择，没 有的内容需要输入。但是资产类别是系统默认的，不允许用户 输入，是默认的你当前选中的类别。输入信息后点确定,系统 自动检验资产设备编号是否重复，和数字型的你是否输入的非数 字，会给用户相应的提示，正确则增加成功。在此界面，点最下面一行的按纽可以进入相应信息的添加、删 除、修改等操作。档案增加区4.2.3.2 修改界面进入该界面，首先显示给用户的是你要修改前的信息，用户修改 后，点修改确定系统自动检验编号是否唯一和数字型的是否非数字，

20、 都正确则提示修改成功。4.2.3.3 转化 Excel进入该界面可以选中一行或多行然后实现上移和下移操作，在确定 转化前请选中你要转化的对象，然后系统会自动打开一张Excel,并把你 选中的信息在excel中显示。Exce工期据格式X|资产设备编号1 O110 2 3101110 2 3向上移动资产设等名称 I使用部门1 110 2 3蛆 部部部部库 求术术术据 技技技技数向下移动确定转化存放地点一保管局仓庠3超六仓库3仓库3仓库4王五仓库2超六返回4.2.4 资产设备档案查询查询的实现，一般查询你可以在档案增加和维护界面点左边的各类 别，则右边的列表框里会显示该类别的相应信息。如果直接查询

21、不方便， 可以在资产设备档案增加界面点条件查询进入查询界面，也可以在主 界面点档案查询。输入要查询的条件（软件提供了资产/设备名称、资 产/设备规格、资产/设备编号等多种查询条件），查询条件可以选择一种 条件，也可以选择多种条件，条件可以是一个字，也可以是多个字。输入好查询条件后再选择是模糊查询还是严格查询,即可实现资产设备编号资产设备型号资产设备名称使用部门1L>鼻笞案查询产产产用故售旧计 资资资使存保折累查询条件二第五章编码设设设部随员方折号号称 编型名备整备门点法旧严格查询5.1引言编码的目的是实现人和计算机的通信，指挥计算机按人的意志正确 工作。目前，人和计算机通信仍然必须使用人

22、工设计的语言，也即是程 序设计语言。作为系统设计的一个步骤，编码是设计的自然结果。5.2代码命名在系统开发时，使用什么样的程序设计语言是一个重要的抉择， 适宜的程序设计语言能使根据设计去完成编码时困难最少，可以减少 需要的程序测试量，并且可以得出更容易阅读和更容易维护的程序。 因此，在编码时，应该考虑到实际情况来命名代码。在具体的代码编 写过程中，按照软件工程学的要求，对涉及到的过程、函数和变量进 行科学的命名，使得代码清晰、易懂。5.3代码实施5.3.1 用户登录为了保证系统信息的安全，在进入本系统时必须进行身份验证。用 户输入的用户名和密码和系统中的用户名进行比较，三次密码输入错误 便强行

23、终止系统运行，防止非法用户恶意套取密码代码描述：Private Sub Command1_Click()'登录Dim tmpRes5 As New ADODB.RecordsetIf Combo1.Text = "" ThenMsgBox " 请选 择用户 名”,vbOKOnly," 提示 信息"ElsetmpRes5.Open "select * from 用户 where username= '"&Combo1.Text & "”', m_adoconn, adOpenK

24、eyset, adLockOptimisticIf tmpRes5.Fields("userid").Value <> Text1.Text ThenNN = NN + 1If NN < 4 ThenMsgBox ""密码错误”，请重新输入"ElseMsgBox "你输入密码错误次数已经三次，系统退出"EndEnd IfElseUnload MeFrm_main.ShowEnd IfEnd IfEnd Sub5.3.2 连接数据库'建立数据库连接Public m_adoconn As ADODB.C

25、onnectionSet m_adoconn = New ADODB.Connectionm_adoconn.CursorLocation = adUseClientm_adoconn.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=" + "test" _+ ”;USER ID=" + "ora_zzf" _+ ”;DATA SOURCE=" + "test" _+ ”;PERSIST SECURITY INFO=TRUE"

26、m_adoconn.Open'MsgBox "susess"5.3.3 数据编辑数据编辑模块的功能是能够提供各种方式让管理员添加信息，修 改、删除现有的信息。数据添加模块的功能是扩展现有数据库，让管理 员能够快速高效的将新的数据添加进去，并且要保证数据的有效性和合 法性，不能造成数据的重复和重叠。而在修改过程中，不能造成主键的 相同。否则将会使系统丧失有效性。下面以资产设备档案信息编辑为例：(1)数据录入：Dim tmpRes As New ADODB.RecordsetDim tmpRes1 As New ADODB.RecordsetDim tmpRes2 As

27、 New ADODB.RecordsetDim tmpRes3 As New ADODB.RecordsettmpRes.Open "select * from 资产设 备档案 表"， m_adoconn, adOpenKeyset, adLockOptimistictmpRes.AddNew'Text1.Text = GetSequence判断“资产设备编号”不能为空If Text3.Text = "" ThenMsgBox "资产设备编号不能为空，请输入"Text3.SetFocusExit SubEnd If 判断”资产

28、设备编号(主键)”不能重复tmpRes2.Open "select count(*) as num from资 产设备 档案表where 资产设备编号='"& Text3.Text & "”', m_adoconnIf tmpRes2.Fields("num").Value > 0 ThenMsgBox " 资产设备编号重复，请重新输入"Text3.SetFocusExit SubEnd If 判断“数量”不能为非数字型If Text5.Text = "" ThenE

29、lseIf IsNumeric(Text5.Text) = False ThenMsgBox " 数量必须为数字型"Text5.SetFocusExit SubEnd IfEnd If 判断”单价”必须为数字型If Text5.Text = "" ThenElseIf IsNumeric(Text6.Text) = False Then MsgBox " 单价必须为数字型" Text6.SetFocusExit SubEnd IfEnd If 设置显示序号tmpResl.Open "select count（*） as nu

30、ml from 资产设 备档案表", m_adoconnCountNuml = tmpRes1.Fields（"num1"）.ValueCountNuml = CountNuml + 1tmpResl.CloseSet tmpRes1 = Nothing' 设置插入序号tmpRes3.Open "select max（插入 序号）as num2 from 资 产设备档案表", m_adoconnIf IsNull（tmpRes3.Fields（"num2"）.Value） ThenCountNum2 = 1ElseC

31、ountNum2 = tmpRes3.Fields（"num2"）.ValueCountNum2 = CountNum2 + 1 tmpRes3.CloseEnd IfSet tmpRes3 = NothingtmpRes.Fields（"资产设 备名称"）.Value = Text1.TexttmpRes.Fields（"资产设 备型号"）.Value = Text2.TexttmpRes.Fields（"资产设 备编号"）.Value = Text3.TexttmpRes.Fields（"使用部 门&

32、quot;）.Value = Combo1.TexttmpRes.Fields（"存放地点"）.Value = Combo2.TexttmpRes.Fields（"保管员"）.Value = Combo3.TexttmpRes.Fields（"折旧方法"）.Value = Text4.TextIf Text5.Text <> "" ThentmpRes.Fields（数量"）.Value = Text5.TextEnd IfIf Text6.Text <> ""

33、 ThentmpRes.Fields("单价").Value = Text6.TextEnd IftmpRes.Fields("累计折 旧").Value = Text7.TexttmpRes.Fields("资产类 别").Value = Text8.TexttmpRes.Fields("其他").Value = Text9.TexttmpRes.Fields("显示序号").Value = CountNum1tmpRes.Fields("插入序号").Value = Co

34、untNum2tmpRes.UpdatetmpRes.CloseSet tmpRes = NothingCommand1.Enabled = FalseCommand2.Enabled = FalseMsgBox " 增加成功！”Unload MeFrm_Dang_AN.Show数据修改Dim tmpRes As New ADODB.RecordsetDim tmpRes1 As New ADODB.RecordsetIf Text3.Text = SS ThentmpRes.Open "select * from 资 产设备 档案表 ", m_adoconn,a

35、dOpenKeyset, adLockOptimisticIf SS = tmpRes.Fields( tmpRes.Fields(" tmpRes.Fields(" 'tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields("资产设备编号").Value Then 资产设备名称").Value = Text1.Text 资产设备型号").Value = Text2.Text 资产设备编号").Value = Text3

36、.Text 使用部门").Value = Combo1.Text 存放地点").Value = Combo2.Text 保管员").Value = Combo3.TexttmpRes.Fields("折 旧方法").Value = Text4.TexttmpRes.Fields("数量").Value = Val(Text5.Text)tmpRes.Fields("单价").Value = Val(Text6.Text)tmpRes.Fields("累 计折旧").Value = Te

37、xt7.TexttmpRes.Fields("资产类 别").Value = Text8.TexttmpRes.Fields("tmpRes.Update其 他").Value = Text9.TexttmpRes.CloseSet tmpRes = NothingExit Sub '因为ID是唯一的，没有必要再找下去了End IfElsetmpRes.Open "select * from 资 产设备 档案表 ", m_adoconn, adOpenKeyset, adLockOptimistictmpRes1.Open &

38、quot;select count(*) as num1 from资产 设备档案 表 where 资产设 备编号='"& Combo1.Text & "”', m_adoconnIf tmpRes1.Fields("num1").Value > 0 ThenMsgBox " 该资产设备编号已存在，请重新修改"一"提示"Exit SubElseIf tmpRes.Fields("tmpRes.Fields(" tmpRes.Fields(" tmpR

39、es.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields("Do While Not tmpRes.EOF资产设 备编号").Value = SS Then资产设 备名称").Value = Text1.Text资产设 备型号").Value = Text2.Text资产设备编号").Value = Text3.Text使用部 门").Value = Combo1.Text存放地点").Value = Combo2.Text保管员&quo

40、t;).Value = Combo3.TexttmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Fields(" tmpRes.Update tmpRes.Close折 旧方法").Value = Text4.Text数 量").Value = Val(Text5.Text)单 价").Value = Val(Text6.Text) 累计折 旧").Value = Text

41、7.Text 资产类别").Value = Combo4.Text 其 他").Value = Text9.TextCommandl.Enabled = FalseMsgBox " 修改成功，请返回" Exit SubElsetmpRes.MoveNextEnd IfLoop End IfEnd If(3)删除记录If SDF.SelectedItem Is Nothing ThenMsgBox " 请选择您要删除的记录"一"提示"ElseIf MsgBox(" 确认要把资产设备编号为 “"&a

42、mp;SDF.SelectedItem.Text & ""的记录删除吗？(Y/N)”, vbYesNo,"是否 确认删 除")=vbNo ThenExit SubElseDim tmpRes As New ADODB.RecordsettmpRes.Open "select * from资 产设备 档案表 order by 显示序 号"，m_adoconn, adOpenKeyset, adLockOptimisticDo While Not tmpRes.EOFIf tmpRes.Fields（"资产设 备编号&q

43、uot;）.Value =DF.SelectedItem.Text Thenm_adoconn.Execute"delete from 资 产设备 档案表where 资产设备编号='"& SDF.SelectedItem.Text & "”'tmpRes.MoveNextDo While Not tmpRes.EOFtmpRes.Fields（" 显 示 序 号"）.Value =tmpRes.Fields（" 显示序号"）.Value - 1tmpRes.MoveNextLooptmpRes

44、.CloseSet tmpRes = NothingFun1'调用函数，功能实现列表框信息的更新Exit SubElsetmpRes.MoveNextEnd IfLoopEnd If5.3.4 数据移动（向前移动）Dim Num As IntegerIf Text1.Text = "" ThenMsgBox " 请输入您要移动的位数"一" 提示"Exit SubElseIf IsNumeric（Text1.Text） = False ThenMsgBox "”移动位数”必须为数字型"Text1.Text =

45、""Textl.SetFocusExit SubElseIf Val(Textl.Text) < 1 ThenMsgBox " 输入的"移动的位数”必须为正数"一" 提示"Exit SubElseNum = Val(Textl.Text)Dim tmpRes10 As New ADODB.RecordsetDim tmpRes4 As New ADODB.RecordsettmpRes4.Open "select * from资 产设备 档案表 where 资产设备编号='"& SS

46、 &皿,m_adoconn'SS是一个全局变量，在这里是当前'被选中的记录的资产设备编号信息 设置显示序号CountNuml = tmpRes4.Fields("tmpRes4.CloseSet tmpRes4 = Nothing If Num >= CountNuml ThenMsgBox "你输入数，请重新输入移动的位数"一"Textl.Text =""Textl.SetFocusExit SubElsetmpRes10.Openorder by 显 示 序 号 adLockOptimistic显示序

47、号").Value移动位数”大于选中行前的记录总 提示""select * from 资产设备档案表", m_adoconn, adOpenKeyset,Do While Not tmpRes10.EOFIftmpRes10.Fields(显示序号").Value>=CountNuml - Num ThenIfCountNuml ThentmpRes10.Fields(CountNuml ThentmpRes10.Fields("tmpRes10.Fields("显示序号").Value + 1ElseIf

48、tmpRes10.Fields("tmpRes10.Fields("显示序号").Value显示序号").Value显示序号").Value显示序号").ValueCountNum1 - NumtmpRes10.UpdatetmpRes10.CloseSet tmpRes10 = Nothing MsgBox "移动成功" Unload MeFrm_Dang_AN.Show Exit SubEnd IfEnd IfEnd IftmpRes10.MoveNextLoopEnd IfEnd IfEnd IfEnd If

49、5.3.5 转化 Excel 表代码描述：Dim Xlapp As ObjectDim SS As IntegerDim I As IntegerDim xlsheet As Excel.WorksheetSet Xlapp = CreateObject("excXlapp.Workbooks.AddXlapp.Visible = TrueSet xlsheet = Xlapp.Worksheets.AddWith xlsheet.Range("C1")=".Range("C1").Font.Size = 20.Range("

50、;A2")=".Range("B2")=".Range("C2")=".Range("D2")=".Range("E2")=".Range("F2")=".Range("G2")=".Range("H2")=".Range("I2")=".Range("J2")=".Range("K2")

51、=".Range("L2")="SS = 3el.application")资产设备档案信息”设备编号”设备名称”设备型号"使用部门”存放地点”保管员"折旧方法”数量 "单价"累计折旧”其他 "类别名称"For I = 1 To SDF.ListItems.CountIf SDF.ListItems(I).Selected = True Then.Cells(SS, 1) = SDF.ListItems(I).Text.Cells(SS,2)SDF.ListItems(I).SubIt

52、ems(1)3)4)5)6)7)8)9)10)11)12).Cells(SS,SDF.ListItems(I).SubItems(2).Cells(SS,SDF.ListItems(I).Sub Items(3).Cells(SS,SDF.ListItems(I).SubItems(4).Cells(SS,SDF.ListItems(I).SubItems(5).Cells(SS,SDF.ListItems(I).SubItems(6).Cells(SS, SDF.ListItems(I).SubItems.Cells(SS,SDF.ListItems(I).SubItems(8).Cells

53、(SS,SDF.ListItems(I).SubItems(9).Cells(SS, SDF.ListItems(I).SubItems(10).Cells(SS, SDF.ListItems(I).SubItems(11)SS = SS + 1End IfNextEnd WithSet xlsheet = NothingSet Xlapp = Nothing第六章、测试6.1 弓I言软件测试是保证软件质量的关键步骤，它是对软件需求分析、设计 规格说明书和编码的最终复审，确切的说，软件测试就是为了发现错误 而执行的过程。它在软件生命周期中分为两个阶段，通常在编写出每个模块之后就 对它做测试的为