阳泉水泵厂的固定资产设备管理系统的设计与实现毕业论文.doc

阳泉水泵厂的固定资产设备管理系统的设计与实现毕业论文

38
2020年5月29日
文档仅供参考

计算机系本科毕业(设计)论文

课题名称
阳 泉 水 泵 厂 的 固 定资 产 设 备 管 理 系 统 的 设 计 与 实 现
专 业
计 算 机 科 学 与 技 术
姓 名

学 号

指导教师

二零壹零年六月

目　录

1 引 言 1
1.1 课题来源及意义 1
1.2 本人主要工作 1
1.3 论文组织与结构 2
2 需求分析 3
2.1 用户功能需求 3
2.2 技术可行性分析 3
2.3 数据流图 3
3 概要设计 5
3.1 功能模块图 5
3.2处理流程设计 6
3.3数据库设计 8
3.4 系统开发环境 13
4 详细设计 14
4.1 借入归还管理模块设计 14
4.2 移动管理模块设计 14
4.3 维修管理模块设计 14
4.4 折旧管理模块设计 15
4.5用户管理模块设计 15
5 系统实现 16
5.1公共模块 16
5.2借出归还模块的实现 16
5.3移动模块的实现 17
5.4维修模块的实现 18
5.5折旧模块的实现 19
6系统测试 21
6.1 测试方法 21
6.2 测试内容 21
6.3 测试结果 21
7 结束语 22
致 谢 23
参考文献 24

阳泉水泵厂固定资产及设备管理系统的设计与实现
摘 要:本课题开发的设备管理系统运用Visual Basic 6.0平台,结合SQL Server 数据库。经过整合设备管理知识,用以实现资产设备的借入借出、移动、折旧、维修等一系列功能。阐述了该系统的设计思想和系统的功能需求、数据库设计和系统各功能模块的设计等。对各功能模块中的主要技术的实现进行介绍,如ADO控件技术、主要模块功能实现的算法。
关键词: Visual Basic 6.0 SQL Server 资产设备
Abstract:Development of equipment management system issues using Visual Basic 6.0 platform, combined with SQL Server database. Integrated device management expertise to achieve equity borrowing and lending of equipment, mobile, depreciation, maintenance and a series of functions. Elaborate design of the system and the main functions of the system requirements, database design and system design of each functional module. Of each function module introduces the main technical implementation, such as ADO control technology, mainly for realization of algorithms.
Key Words: Visual Basic 6.0 SQL Server equipment management
1 引 言
1.1 课题来源及意义
固定资产代表着一个企业在市场竞争中的实力。早期管理固定资产的方式都是手工记帐的形式,既费时又费力,这种管理模式已不能适应竞争日趋激烈的国际化竞争环境。本系统是管理企事业单位固定资产和设备的信息化管理软件,使用本系统能够帮助企事业单位解决单位内部的固定资产的各种管理问题,而且更加方便企业领导集团详细了解自己企业内部的固定资产变动情况。
1.2 本人主要工作
学习Visual Basic6.0软件的应用,为进一步开发系统打好基础。经过分析研究任务书要求,以及实地调研,对系统进行进一步需求分析,设计资产设备管理系统的主要功能,把其分为了七大模块:借入归还管理模块、移动管理模块、维修管理模块、折旧管理模块、用户管理模块、系统管理模块和信息管理模块。其中借入归还管理模块包括借入归还设备的信息查询和登记等;移动管理模块和维修管理模块分别对资产设备的移动和维修情况的信息查询、登记及打印等;折旧管理模块包括对资产设备折旧信息的查询、登记、打印等。用户管理模块包括用户的增加、删除及用户本身密码修改;系统管理模块包括系统的初始化、数据清理、自定义项设置等。在以上工作的基础上,对系统进行详细设计和实现系统的所有功能,最后进入论文撰写阶段,完成系统设计和论文撰写的工作。
1.3 论文组织与结构
第一章:引言。介绍资产设备管理系统的开发背景和现状,以及本人的研究工作;
第二章:需求分析。分别对需求和可行性进行了分析;
第三章:概要设计。介绍资产设备管理系统需要实现的功能模块以及开发环境和数据库设计;
第四章:详细设计。对系统的功能进行了详细介绍;
第五章:系统实现。对系统的各个功能的实现进行说明介绍;
第六章:系统测试。对系统的各个功能部分进行了测试。

2 需求分析
需求分析是介于系统分析和软件设计阶段之间的重要桥梁。一方面,需求分析以系统规格说明和项目规划作为分析活动的基本出发点,并从软件角度对它们进行检查与调整;另一方面,需求规格说明又是软件设计、实现测试直至维护的主要基础。良好的分析活动有助于避免或尽早发现早期的错误,从而提高软件生产率,降低开发成本,改进软件质量。
2.1 用户功能需求
1、固定资产及设备的借出归还管理:管理固定资产及设备的借出、归还情况的详细信息;
2、固定资产及设备的移动管理:企业内部的固定资产及设备可能发生移动的情况,例如,财务科的电脑移到人事科。这种资产设备的变动情况就需要在企业单位的内部管理中做一笔资产变动情况的详细记录,这能够经过固定资产及设备的移动管理模块来实现;
3、固定资产及设备的维修管理:对固定资产设备的维修情况做详细的记录;
4、固定资产设备的折旧管理:根据各种折旧算法,管理企业内部的固定资产及设备的折旧状况;
5、固定资产设备的信息管理:对企业拥有的固定资产设备的详细记录。
2.2 技术可行性分析
开发一个中小型固定资产及设备管理系统,涉及到的技术问题不会太多,主要用到的技术就是数据库和一门可视化开发的编程语言。在这方面,数据库主要是用来存放数据,就当前主流的数据库来看,能够考虑采用Microsoft SQL Server或Oracle。Oracle是一个安全、可靠的而且支持面向对象设计的数据库系统,同时Oracle又有海量存储的特点。然而,相对于Microsoft SQL Server而言,Oracle的易用性和可维护性相对差一点,而且Oracle的成本相对较高,不适合于中小企业使用。因此,我们选择了当前比较流行的Microsoft SQL Server 数据库系统;在前台开发编程方面,本系统采用Microsoft公司的Visual Basic 6.0作为主要的开发工具。
2.3 数据流图
在设计系统的过程中,用数据流图来刻画数据流和转换信息。它用简单的图形记号分别表示数据流、转换、数据源以及外部实体,数据流图是软件系统中各个处理子功能以及它们之间的数据流动的图形表示。经过对系统的分析初步得到系统的顶级DFD,如图2.1所示。
用户名+密码
核对信息
固定资产设备管理系统
管理员
核对正确
管理员

图2.1 顶级数据流图
用户名+密码
核对信息
核对正确
系统管理
核

对
管理员
管理员

图2.2 第一层数据流图
系统的管理
选择功能模块
借出归还管理操作
移动管理操作
折旧管理操作
维修信息管理操作
借入归还表息表
移动信息表
维修信息表
折旧信息表

图2.3 第二层数据流图

3 概要设计
3.1 功能模块图
系统功能模块如图3.1所示。
固定资产及设备管理系统
资产借出归还管理
资产移动管理
资产维修管理
资产折旧管理
用户信息管理
资产设备信息管理
系统管理
辅助功能
报
表信息管理
图3.1 固定资产及设备管理系统功能模块图
经过对水泵厂的需求分析,针对水泵厂当前设备管理的现状和对系统总体的分析,能够粗略地抽象出管理系统的功能模块,如图3.1所示。模块主要功能设计如下:
1、借出归还管理模块: 用于录入企业的借入及归还情况,查询固定资产设备设备借入和归还的历史。
2、移动管理模块:在移动管理模块中,用于录入企业的固定资产设备的移动情况,查询资产设备移动的历史及部门维护。
3、维修管理模块:在维修管理模块中,用于企业的固定资产设备维修情况的登记、浏览、打印及企业资产设备维修情况的历史查询。
4、折旧管理模块:对企业的固定资产设备的折旧信息的历史查询及根据不同的折旧算法进行登记、打印折旧信息。
5、报表管理模块:对借出归还、移动、折旧、维修状况进行报表打印。
6、用户信息管理模块:主要是对操作该系统的使用者进行管理,即用户管理。包括用户的增加和删除、用户本身密码的修改。
7、系统管理模块:包括系统的初始化、数据清理、自定义项设置。
8、辅助管理模块:针对模块中的需要进行资产折旧、净值等的计算设计了计算器。
9、固定资产设备的信息管理模块:包括录入、删除、修改、打印、查询企业的固定资产设备的信息。
3.2处理流程设计
3.2.1 系统操作流程
系统操作流程如图3.2所示。
移动管理
维修管理
借出归还管理
信息管理
折旧管理
系统登录界面
登 录
打 印 移 动 信 息 单
打 印 维 修 状 况
打 印 折 旧 状 况 表
打 印 资 产 信 息 表
处理
结束
Y
N

图3.2系统操作流程

3.2.2数据增加流程
添加信息时,编号字段由系统自动生成,且不能修改,其它信息由用户输入,之后对数据进行合法判断,合法则写入保存至数据库,不合法则重新输入数据。数据增加流程图如图3.3所示。
否
是
自动生成编号
是否合法
写入数据库
结束
开始
输入数据

图3.3 数据增加流程图
3.2.3 数据修改流程
在修改信息时,先选中一条待修改的记录,然后直接输入数据,判断合法性,合法则保存至数据库,不合法重新输入。数据修改流程图如图3.4所示。
否
是
选择需要修改记录
输入数据
是否合法
写入数据库
结束
开始

图3.4 数据修改流程图
3.2.4 数据删除流程
当用户选定一条记录时,单击删除按钮,会提示用户是否确定删除,如果确定删除,然后删除数据库相关内容。数据删除流程图如图3.5所示。
是
选择需要删除记录
是否删除
否
开始
更新数据库
结束

图3.5 数据删除流程图

3.3数据库设计
3.3.1数据库SQL Server 的介绍
系统采用SQL Server 数据库,SQL Server是由Microsoft开发和推广的关系数据库管理系统(DBMS),它最初是由Microsoft、Sybase和Ashton-Tate三家公司共同开发的,并于1988年推出了第一个OS/2版本。 SQL Server近年来不断更新版本,SQL Server 是Microsoft公司于 推出的最新版本。 SQL Server 特点:
1．客户机/服务器体系结构。
2．图形化用户界面,使系统管理和数据库管理更加直观、简单。
3．丰富的编程接口工具,为用户进行程序设计提供了更大的选择余地。
4．SQL Server与Windows NT完全集成,利用了NT的许多功能。SQL Server也能够很好地与Microsoft BackOffice产品集成。
5．具有很好的伸缩性,可跨越多种平台使用。
6．对Web技术的支持,使用户能够很容易地将数据库中的数据发布到Web页面上。
7．SQL Server提供数据仓库功能,这个功能只在Oracle和其它更昂贵的DBMS中才有。
3.3.2 ADO技术概述
ADO Data 数据控件是ActiveX外部控件,它的用途以及外形都和Data控件相似,也具有【向前】和【向后】按钮以及一个易于使用的界面, ADO Data数据控件是经过Microsoft Activiex数据对象(ADO)来快速建立数据源连接的数据绑定控件,应用程序经过 ADO Data控件与数据提供者连接,数据提供者能够是任何符合OLEDB规范的数据源。
ADO Data数据控件经过属性实现了对数据源的连接,创立连接表时,能够采用以下连接方式之一:一个字符串,一个OLEDB文件或一个ODBC数据源名称(DSN)。当使用DSN时无需更改控件的任何其它属性。
ADO Data控件的功能:
连接一个本地数据库或远程数据库;打开一个指定的数据库表或定义一个基于结构化查询语言(SQL)的查询、存储过程或该数据库中表视图的记录集合;将数据字段的数值传递给数据绑定控件,并在这些控件中显示或更改这些数据字段的数值;添加新的记录,或者根据显示在数据绑定控件中的数据的更改来更新一个数据库。
3.3.3数据库的概念设计
固定资产及设备管理系统E-R图如图3.6所示。

1
n
1
1
资产设备编号
维修
日期
资产设备名称
维修
费用
配件
名称
维修状况
故障原因
数量
参照
移动信息
资产设
备编号
资产设
备名称
配置
移出
部门
移入
部门
移动
时间
数量
型号
维护信息
参照
折旧信息
资产设备名称
资产设备编号
净残值
折旧
方法
净值
预计使用年限
折旧额
折旧率
归还
数量
借用人人
归还
日期
借出
数量
借出
部门
部门

部门
借入归还
资产设备信息
1
参照
参照
生产
厂家
数量
1
n
n
用户
管理
用户名
密码
备注
净值
型号
单价
金额
资产设
备编号
详细
配置

配置
预计使用年限
1
n

图3.6 固定资产及设备管理系统的E-R图

3.3.4数据库的逻辑设计
本系统的数据库主要有4张数据表组成,分别是固定资产借出归还数据表Table_INOUT、 固定资产移动数据表Table_ZCYD、固定资产维修数据表Table_ZCWX和固定资产折旧信息表Table_ZCZJ。下面分别介绍一下这几张数据表的逻辑结构设计。如表3.1、3.2、3.3、3.4所示。
表3.1借出归还数据表(Table_INOUT)
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Char
10
否
是
资产名称
Char
30
否
是
型号
Char
10
否
是
配置
Char
10
否
是
借出数量
Char
10
否
是
借出部门
Char
50
否
是
借用人
Char
50
否
是
借出日期
Char
30
否
是
归还日期
Varchar
50
否
是
归还数量
Char
10
否
是
未还数量
Char
10
否
是
表3.2 固定资产移动数据表(Table_ZCYD)
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Char
18
否
是
资产设备名称
Char
10
否
是
型号
Char
10
否
是
配置
Char
10
否
是
数量
Char
8
否
是
移动时间
Datatime
8
否
是
移出部门
Char
50
否
是
移入部门
Char
50
否
是
表3.3 固定资产维修数据表(Table_ZCWX)
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Char
18
否
是
资产设备名称
Varchar
50
否
是
型号
Varchar
50
否
是
配置
Varchar
50
否
是
数量
Float
8
否
是
送修日期
Datetime
8
否
是
故障原因
Varchar
60
否
是
维修日期
Datetime
8
否
是
维修状况
nchar
30
否
是
配件名称
Varchar
50
否
是
维修费用
Float
8
否
是
表3.4固定资产折旧信息表(Table_ZCZJ)
字段名称
字段类型
字段大小
主键
是否为空
资产设备编号
Decimal
9
否
是
资产设备名称
Char
30
否
是
型号
Char
10
否
是
数量
Char
30
否
是
配置
Char
10
否
是
折旧方法
Char
20
否
是
资产原值
Char
10
否
是
折旧年限
Char
10
否
是
折旧率
Char
10
否
是
折旧额
Char
10
否
是
选择
Char
10
否
是

3.4 系统开发环境
硬件环境:处理器 Intel Core Duo T5800,主频2.0G;内存2G;显存256M;硬盘250G;网卡10M/100M自适应以太网卡。
软件环境: Windows Vista Home Basic操作系统;SQL Server 数据库软件;Visual Basic6.0程序设计语言。
4 详细设计
4.1 借入归还管理模块设计
借入归还管理用于管理企业的借入归还情况,主要由三个功能模块构成,其各个模块实现的功能如下:
1、借出登记:实现资产设备的借出登记情况。输入相应的资产设备编号即可进行登记。
2、归还登记:实现资产设备的归还情况。输入相应的资产设备编号即可进行登记。
3、历史查询: 能够让用户按照任何条件查询,如资产设备名称、资产设备编号、型号、归还的数量等。图4.1所示的是资产设备借出归还管理的开发流程图。
固定资产Private Sub Command9_Click() '资产移动信息保存
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提示"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提示"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提示"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产的移动数量不能大于实际固定资产的总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")

MsgBox "数据保存成功!!", , "提示"

Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub
借出登记
归还登记
打印凭证单

图4.1 资产设备借入归还管理的开发流程图
4.2 移动管理模块设计
资产移动
打印凭证单
固定资产Private Sub Command9_Click() '资产移动信息保存
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提示"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提示"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提示"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产的移动数量不能大于实际固定资产的总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")

MsgBox "数据保存成功!!", , "提示"

Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub
由于移动管理模块与借入归还管理模块类似,因此这里只重点说一下部门维护窗体,具有增加部门和删除部门的功能。图4.2所示的是资产设备借出归还管理的开发流程图。

图4.2 资产设备移动管理的开发流程图
4.3 维修管理模块设计
维修管理模块用于管理固定资产设备的维修情况,用户能够对固定资产设备的维修情况进行登记、查询,同时也能够打印维修情况报表。使用户能够及时、直观的了解到维修状况。图4.3所示的是资产设备维修管理的开发流程图。
资产维修
打印凭证单
固定资产Private Sub Command9_Click() '资产移动信息保存
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提示"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提示"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提示"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产的移动数量不能大于实际固定资产的总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")

MsgBox "数据保存成功!!", , "提示"

Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub

图4.3 资产设备维修管理的开发流程图
4.4 折旧管理模块设计
折旧管理模块用于对水泵厂的固定资产设备进行管理,它包含的功能有查询、登记、打印。用户能够依照3种不同的折旧方法,计算固定资产设备的折旧额。
图4.4所示的是资产设备维修管理的开发流程图。
打印凭证单
资产维修
固定资产Private Sub Command9_Click() '资产移动信息保存
' Set adoCon = New ADODB.Connection
' adoCon.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Data_MRSOFT;Data Source=MRVB"
Call main
Dim aa As Integer
If Combo4.Text = "" Then
MsgBox "请输入移出部门", , "提示"
ElseIf Text6.Text = "" Then
MsgBox "请输入移入部门", , "提示"
ElseIf Text15.Text = "" Then
MsgBox "请输入移动数量", , "提示"
Else
If Val(Trim(Text15.Text)) > Val(Trim(Text7.Text)) Then
MsgBox "固定资产的移动数量不能大于实际固定资产的总数,请您重新输入", 32, "通用固定资产设备管理系统"
Text15.Text = ""
Text15.SetFocus
Else
Set adoRs = adoCon.Execute("insert into Table_ZCYD values(" & Text2 & ",'" & Text3 & "','" & Text4 & "','" & Text5 & "','" & Text15 & "','" & DTPicker1 & "','" & Text6 & "','" & Combo4 & "')")
Text7.Text = Val(Text7.Text) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 数量= '" + Text7.Text + "' where 资产设备编号='" + Text2.Text + "'")
aa = Val(Adodc2.Recordset.Fields("数量")) - Val(Text15.Text)
Set adoRs = adoCon.Execute("UPDATE Table_ZCXX SET 移动数量='" + Text15.Text + "',数量= '" + Str(aa) + "' where 资产设备编号='" + Text2.Text + "'")

MsgBox "数据保存成功!!", , "提示"

Adodc1.Refresh
Combo4.Text = ""
Text6.Text = ""
End If
End If
adoCon.Close
End Sub

图4.4 资产设备折旧管理的开发流程图
4.5用户管理模块设计
用户管理模块是每个系统都应该具备的,主要是对操作该系统的使用者进行管理,即用户管理。包括用户的增加和删除、用户本身密码的修改。图4.8为用户管理模块的功能图。
系统管理模块
用 户 增 加
用 户 删 除
用户密码修改

图4.8 用户管理模块功能图

5 系统实现
5.1公共模块
在开发软件时,为了提高程序代码的重用,能够将多个程序窗体共用的代码放在数据模块中。这样不但能够提高代码的执行效率,也使代码更加简练,更容易维护。在本系统中,将数据连接代码放在数据模块中,所有窗体都能够使用数据模块中的数据连接。该数据模块的代码如下:
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Rec