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

老鬼公公_31

一指禅62 发表于 2017-11-3 11:35
这样较复杂的数据管理，建议运用数据库知识。

目前这样的查询代码可以写，但很冗长，写起来也很枯燥。 ...

老师，有空帮我写下吧，按你的思路，我都不懂

一指禅62

老鬼公公_31 发表于 2017-11-3 21:40
老师，有空帮我写下吧，按你的思路，我都不懂

这是用 SQL语句写的，实现数据查询很是方便。但对您当前文件而言，已写好的其他代码（如：单击Listview显示字段数据、修改、删除等）基本作废。

1. Option Explicit
   
2. Public key1$, key2$, key3$   '依次为 分类、年度、保管期限字段的指定值
   
3. Public key4$                '责任者、文件字号、文件题名、文件日期 字段的关键字查询
   
4. 
   
5. Public rs As Object ' New ADODB.Recordset
   
6. 
   
7. Public Function cnn() As Object
   
8.     Set cnn = CreateObject("adodb.connection")
   
9.     If Application.Version < 12 Then
   
10.         cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
    
11.     Else
    
12.         cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    
13.     End If
    
14. End Function
    
15. 
    
16. Public Sub FindView(ByRef View As MSComctlLib.ListView, ByRef lblView As MSForms.Label)
    
17.     Dim SQL$, i&, j%
    
18.     Dim Item As MSComctlLib.ListItem
    
19.     View.ListItems.Clear
    
20.     SQL = "Select * From [数据$] Where Not IsNull(分类) "
    
21.     If key1 <> "全部" And key1 <> "" Then SQL = SQL & " and 分类='" & key1 & "'"
    
22.     If key2 <> "全部" And key2 <> "" Then SQL = SQL & " and Str(年度)='" & key2 & "'"
    
23.     If key3 <> "全部" And key3 <> "" Then SQL = SQL & " and 保管期限='" & key3 & "'"
    
24.     If key4 <> "" Then SQL = SQL & " and (责任者 like '%" & key4 & "%'" _
    
25.                                  & " or 文件字号 like '%" & key4 & "%'" _
    
26.                                  & " or 文件题名 like '%" & key4 & "%') " _
    
27.                                  & " or str(文件日期) like '%" & key4 & "%' "
    
28.     MsgBox SQL
    
29.     Set rs = CreateObject("ADODB.Recordset")
    
30.     If rs.State <> 0 Then rs.Close
    
31.     rs.Open SQL, cnn, 1, 3
    
32.     lblView.Caption = "共检索出 " & rs.RecordCount & " 条记录。"
    
33.     If rs.RecordCount > 0 Then
    
34.         For i = 0 To rs.RecordCount - 1
    
35.             Set Item = View.ListItems.Add
    
36.             Item.Text = rs!分类
    
37.             For j = 1 To rs.Fields.Count - 1
    
38.                 If Not IsNull(rs.Fields(j)) Then
    
39.                     Item.SubItems(j) = rs.Fields(j)
    
40.                 End If
    
41.             Next
    
42.             rs.MoveNext
    
43.         Next
    
44.     End If
    
45.     Set Item = Nothing
    
46.     lblView.Caption = "共检索出 " & rs.RecordCount & " 条记录。"
    
47. End Sub

复制代码

一指禅62

老鬼公公_31 发表于 2017-11-3 21:40
老师，有空帮我写下吧，按你的思路，我都不懂

若有兴趣，比对一下修改前后的代码。
文件管理(SQL版）.zip (400.02 KB, 下载次数: 71)

2017-11-5 09:59 上传

点击文件名下载附件

老鬼公公_31

先谢谢老师了，出差在外面回去再看看

一指禅62

老鬼公公_31 发表于 2017-11-2 21:43
老师，请帮忙修改下这里的查询代码，进主页界--档案管理，里面三个查询窗口查找的结果都不相同，应该是分类 ...

这段代码不影响您的既有设计。核心语句是 ：


If IIf(key1 = "" Or key1 = "全部", 1 = 1, arr(i, 1) = key1)  And IIf(key2 = "" Or key2 = "全部", 1 = 1, arr(i, 2) = key2)  And IIf(key3 = "" Or key3 = "全部", 1 = 1, arr(i, 3) = key3)  And (arr(i, 7) Like "*" & key4 & "*" Or arr(i, 8) Like "*" & key4  & "*" Or arr(i, 9) Like "*" & key4 & "*" Or arr(i, 13) Like "*" & key4 & "*") Then

1. '模块说明：本代码将显示查询结果的两个控件用参数表示， 可为 【frm文件编辑】、【frm文件查询】通用
   
2. 
   
3. Option Explicit
   
4. Public key1$, key2$, key3$   '依次为 分类、年度、保管期限字段的指定值
   
5. Public key4$                '责任者、文件字号、文件题名、文件日期 字段的关键字查询
   
6. 
   
7. Public Sub FindView(ByRef View As MSComctlLib.ListView, ByRef lblView As MSForms.Label)
   
8.     Dim i&, j%, Item As MSComctlLib.ListItem
   
9.     Dim arr
   
10.     arr = Sheet1.Range("A1").CurrentRegion
    
11.     View.ListItems.Clear
    
12.     For i = 2 To UBound(arr)
    
13.         If IIf(key1 = "" Or key1 = "全部", 1 = 1, arr(i, 1) = key1) _
    
14.             And IIf(key2 = "" Or key2 = "全部", 1 = 1, arr(i, 2) = key2) _
    
15.             And IIf(key3 = "" Or key3 = "全部", 1 = 1, arr(i, 3) = key3) _
    
16.             And (arr(i, 7) Like "*" & key4 & "*" Or arr(i, 8) Like "*" & key4 _
    
17.                 & "*" Or arr(i, 9) Like "*" & key4 & "*" Or arr(i, 13) Like "*" & key4 & "*") Then
    
18.                 Set Item = View.ListItems.Add
    
19.                 Item.Tag = 1
    
20.                 Item.Text = arr(i, 1)
    
21.                 For j = 2 To View.ColumnHeaders.Count
    
22.                     Item.SubItems(j - 1) = arr(i, j)
    
23.                 Next
    
24.         End If
    
25.     Next
    
26.     lblView.Caption = "共检索出 " & View.ListItems.Count & " 条记录。"
    
27. End Sub

复制代码

一指禅62

老鬼公公_31 发表于 2017-11-2 21:43
老师，请帮忙修改下这里的查询代码，进主页界--档案管理，里面三个查询窗口查找的结果都不相同，应该是分类 ...

文件管理测试.zip (394.39 KB, 下载次数: 63)

2017-11-5 10:40 上传

点击文件名下载附件

老鬼公公_31

一指禅62 发表于 2017-11-5 10:40

老师，再帮忙修改下文件编辑窗体的新增、修改、删除、保存功能都不能用，再次谢谢了哦

ziloyy

我想增加一项内容怎么增加？从哪入手？比如增加一项文件摘要，并在List中和data表中体现如何修改？

ziloyy

做了部分修改，新建、保存和删除没有问题，但是一修改，相关信息会串行，求修改，文件见附件

ahjylb

老是您好，请你看到我的消息 后给我回复一个，我有个需求想请你开发一下。开发费用的话可以谈。