一个简易文件登记检索系统

一指禅62 · 发表于 2015-11-18 21:41

本帖最后由一指禅62 于 2015-11-18 21:43 编辑

1、有一定的实用性；
2、借助ListView、TreeView 等控件使界面简洁美观，操作简便
主窗体_副本.jpg

文件管理.zip (26.38 KB, 下载次数: 896)

一指禅62 · 发表于 2015-11-18 21:49

关键字检索中，模拟百度借助空格将关键字分割成多个词组，用 Filter 函数逐词组比对，完全匹配则显示结果。

Private Sub Image1_Click() '查询
Dim key, d As Object, Brr, t, N%
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet1.Range("A1").CurrentRegion
ListView1.ListItems.Clear
If Trim(keys) = "" Then Exit Sub
Rem 1、对检索关键字按空格分割，提取不重复词组加入字典中
key = Split(keys, " ")
For i = 0 To UBound(key)
If key(i) <> "" And Not d.Exists(key(i)) Then
d(key(i)) = ""
End If
Next
Rem 2、对获取的词组逐一与文件编号和标题比对，输出完全匹配的记录
t = d.keys
For i = 1 To UBound(arr)
N = 0
Brr = Array(arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4)) '要比对的数组
For j = 0 To d.Count - 1
If UBound(Brr) <> UBound(Filter(Brr, t(j), False)) Then N = N + 1 '匹配则记为1，累加
Next
If N = d.Count Then '如果每一组关键字都匹配，则输出该记录
Call ListView_Add(i)
End If
Next
End Sub
Private Sub txtFind_Change()
keys = Trim(txtFind.Text)
End Sub
Private Sub txtFind_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Or KeyCode = 32 Then Call Image1_Click '按空格键或回车键出结果
End Sub

复制代码

一指禅62 · 发表于 2015-11-18 21:51

只为交流学习体会，欢迎指教！请勿拍砖！

thzss · 发表于 2015-11-19 09:37

无法加载这个对象，因为它不适用于这台计算机

一指禅62 · 发表于 2015-11-19 10:46

本帖最后由一指禅62 于 2015-11-19 12:15 编辑

窗体中运用了Treeview、Listview和DTPicker控件，均可能导致这类问题发生。解决办法可在论坛里搜一下。

lhsh36183 · 发表于 2015-11-19 16:14

请问怎样利用这个进行文件管理。

一指禅62 · 发表于 2015-11-20 20:54

lhsh36183 发表于 2015-11-19 16:14
请问怎样利用这个进行文件管理。

我自己用于文件目录管理，主要是新增、修改、删除，用途是对目录查阅。

用途不大，写它的动因是琢磨检索程序。

欢迎指教！

aman1516 · 发表于 2015-11-21 00:17

一指禅62 发表于 2015-11-20 20:54
我自己用于文件目录管理，主要是新增、修改、删除，用途是对目录查阅。

用途不大，写它的动因是琢磨检 ...

谢谢分享，值得学习

afdadas · 发表于 2016-3-12 20:00

谢谢分享！！

老鬼公公_31 · 发表于 2017-10-20 23:42

一指禅62 发表于 2015-11-20 20:54
我自己用于文件目录管理，主要是新增、修改、删除，用途是对目录查阅。

用途不大，写它的动因是琢磨检 ...

老师，你的这个文件管理系统很适合我用的，有些地方增加的功能，能帮我改进下吗

蓝色字体的都是新加的，再加个期限LISTVIEW表查询，选择性数据导出，这样一个窗体可以全部完成操作了，先谢谢老师了

		自动登录	找回密码
密码			免费注册

[原创] 一个简易文件登记检索系统