Access培训招生
网站公告
·Access专家课堂QQ群号:239158550    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > 源码示例

【Access小品】资料管理器

时 间:2013-11-16 09:28:33
作 者:煮江品茶   ID:10802  城市:武汉
摘 要:【Access小品】资料管理器
正 文:


  版友gaowenjie或为一测绘专业学生,老师要求用Access整理实验室文件档案。初看起来只是文件和文件夹管理的问题,似乎不需要编写什么程序。仔细考虑了一下,文件和文件夹本身提供的信息并不充分,因此文件资料的整理大体上是需要附加一些说明的,这也就需要借助数据表来进行管理了。


  用Access单独处理文件和文件夹,或者是单独处理数据表,都是比较容易的。但是两者一结合,麻烦就来了,如何同步文件、文件夹与数据表记录之间的数据关系比较复杂。这样看来,这就是一个有趣的问题了。于是乎便决定写一个这样的程序以解其惑。


    这个示例中,着重说明三者的关系处理方法。哪三者呢?一者文件和文件夹,二者TreeView控件节点,三者数据表记录。所有操作都在TreeView控件上进行,而背后则悄然的处理着这三者的关系。具体怎么个搞法,有兴趣的版友可以下载后自己琢磨。


示例:点击下载此示例

图示:


文件不能导入的问题源于函数编写有些错误,版友可自行修改为:

Public Function 导入文件()
    Dim path As String
    Dim fso As New FileSystemObject
    Dim f As File
    Dim tree As TreeView
    Dim n As node

    '移动文件
    path = GetF(True)
    If path = "" Then Exit Function
    Set f = fso.GetFile(path)
    If fso.FileExists(path) = True Then
        f.Copy myPath & "\" & f.Name
   
        '增加节点
        Set tree = Screen.ActiveControl.Object
        tree.Nodes.Add myPath, tvwChild, myPath & "\" & f.Name, f.Name, "k3"
        Set n = tree.SelectedItem
        n.Expanded = True
    End If
   
    Set tree = Nothing
    Set f = Nothing
    Set fso = Nothing
End Function

 



Access软件网QQ交流群 (群号:115180141)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助