VB521 冗余文件管理系统VB+ACCESS

工作等软件层出不穷。人们在使用计算机的同时，也会造成很多冗余文件的存在。单用我们人工来区分哪些是冗余文件，这个工作量大，且不方便，也不便于实施。这样就需要一个冗余文件管理系统来帮助我们进行冗余文件的管理。
本系统主要实现的是对个人电脑的冗余文件进行查询、统计分析以及管理。本系统是一个运行在个人电脑上的一个管理系统，能够直观、方便、有效、可靠地管理通过本机上的冗余文件，它具有以下优点：
1.方便管理
　　本系统采用友好的界面，能够通过本系统查询本机上的冗余文件。实现对冗余文件的多种方式的管理。
2.全面完善的查询功能
本系统可以按照文件名进行精确或者模糊查询文件。
可以按照文件方式、路径、存盘地址进行精确模糊查询冗余文件。
3.统计分析
系统可以对查询出来的文件和冗余文件进行分析，将分析结果显示在窗口中，便于用户进行查看。
1.2问题定义及内容简介
本系统是一个针对〖本文来自：计算机毕业网  〗WINDONS操作系统的冗余文件管理系统。要求要有较强的分析、设计、编程能力。在老师的指导下使该系统更加完善、可靠。开发出一个适合用户需要的系统，并方便维护和扩充。它主要实现了在本机上面查询文件 think58.com

[资料来源：www.THINK58.com]

可包含至多 64K 的代码,如果过程或模块超过这一限制,Visual Basic便产生编译时间错误。如果遇到这种错误，可将特别大的过程分割成若干个较小的过程，或将模块级声明移到另一模块，来避免此类错误发生。Visual Basic 用表来保存代码中的标识符名（变量、过程、常量等）每个表限于 64K。
2、ACCESS数据库简介
Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。
ACCESS数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。
• 表(Table) ——表是数据库的基本对象，是创建其他5种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。
• 查询(Query)——查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。
• 窗体(Form)——窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。
• 报表(Report)——报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。 copyright think58

 可以输入文件名，针对文件名进行模糊、精确查询。
2.2.3.2  冗余文件查询功能模块
 可以输入冗余文件名，在相应的文件地址进行模糊、精确查询。
2.2.3.3  统计分析功能模块
 文件分析：可以对查询出来的文件进行统计和分析。
 冗余文件分析：可以对查询出来的冗余文件进行统计和分析。
2.2.3.4  查询时间显示功能模块
 查询时间的显示：可以显示文件查询的开始时间和结束时间。
 速度显示：显示查询文件的速度。
2.2.3.5  输出文件显示功能模块
 文件显示：将查询出来的文件显示在相应的窗口中。
 冗余文件显示：将查询出来的冗余文件显示在相应的窗口中。
2.2.4  系统数据流图分析
由系统功能分析，画出系统数据流图描绘信息流和数据从输入移动到输出过程中所经受的变换。
1、系统顶层数据流图
系统用户经登录模块验证，进入冗余文件管理系统主界面，操作其子系统，并把结果返回给系统用户。 本文来自think58 [资料来源：www.THINK58.com]

 查询的详细代码如下：
Private Sub Command5_Click()
'On Error Resume Next
If FFile.Text = "" Then
   MsgBox "请输入指定的文件名!", vbInformation, "提示"
   Exit Sub
End If

本文来自think58

[资料来源：http://www.THINK58.com]

[资料来源：http://think58.com]

If Combo2.Text = "精确" Then
SqlT = "select filepath,[filename],newtime from [filetable]  where filename = '" & FFile.Text & "'  order by newtime desc"
ElseIf Combo2.Text = "模糊" Then
SqlT = "select filepath,[filename],newtime from [filetable]  where [filename] like '%" & FFile.Text & "%'  order by newtime desc"
Else
MsgBox "不可识别查询方式，将默认模糊查询.", , "提示"
SqlT = "select filepath,[filename],newtime from [filetable]  where [filename] l〖本文来自：计算机毕业网  〗ike '%" & FFile.Text & "%'  order by newtime desc"
End If
FillToTable2 (SqlT)
End Sub
控件的代码如下：
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single) 本文来自think58 [资料来源：THINK58.com]

End Sub
3、 冗余文件查询
可以输入冗余文件名、查询方式，和存盘地址进行冗余文件的查询。其界面 think58 [资料来源：http://think58.com]