文件管理器 新鲜出炉[原创]

sxhmft

accessxp+win2000下调试通过

没牙兔兔

hehe
不错不错
帮你顶顶顶~!!!

sxhmft

谢谢，可爱的小兔子.请提个意见或建议。我想把它做成一个局域网内的文件资源共享管理系统。

没牙兔兔

好的
我瞅瞅
过段时间我也要编写跟你类似的文件管理

没牙兔兔

看了一下,整体界面比较清爽,配色不错,而且功能实现的代码比较简明
至于说的不对的地方请谅解~!
建议一:
浏览文件的时候,建议把路径 显示为超链接 ,这样直接点击就立马可以调用啦
建议二:
因为文件管理经常是大批量操作,建议在记录autoupdate事件更新后,设置新记录的defaultvalue,这样可以提高录入效率
建议三:
把删除记录按钮也放上去
建议四:
Private Sub Command22_Click()
Dim Filepath As String
Dim RetVal
Filepath = Me![文件位置]'如果这儿为空,会出错
而且你按钮的命令不规范,到处都是command22,23,不便于检查和学习

疑惑:你的文件录入框点击一下像是updown控件一样,出现了向上向下箭头

sxhmft

兔兔，谢谢你，你的建议很好，我下一个网络版会用上的。文件位出现的updown箭头，是因为我给这个字段定义的比较长而文本框又较小之故。

sxgaobo

sxhmft 你好！
看了你的作品真是赏心悦目，代码也看了，可就是不懂！我是个初学者，很想明白树结构的数据是如何从表中调的。能解释一下吗！！！？？？
先谢了！！！

sxhmft

在下面的函数中用DAO进行查询得到相应的记录，再用ADD方法。增加NODE。
Private Sub GetFunctionList()
'   初始化 FunctionList 树

On Error GoTo Tree_Fill_Err
   
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim nodeCurrent As Node
    Dim strFID, strPID As String
    Dim imgID As Integer
   
    strSQL = "Select * from MISFunctionList Where LN='CN' Order By ParentID,ID"
   
    Set rs = CurrentDb().OpenRecordset(strSQL)
   
    If Not rs.BOF Then
        rs.MoveFirst
    End If
   
   tvFunctionList.Nodes.Clear

    Do While Not rs.EOF
        strFID = "NO" + CStr(rs("ID"))
        strPID = "NO" + CStr(rs("arentID"))
        imgID = Nz(rs("Type"), 0)
        
        If rs("ID") = 0 Then
        tvFunctionList.Style = 3
            Set nodeCurrent = tvFunctionList.Nodes.Add(, tvwFirst, strFID, rs("Name"), imgID, imgID + 1)
               
        Else
           tvFunctionList.Style = 7
           Set nodeCurrent = tvFunctionList.Nodes.Add(strPID, tvwChild, strFID, rs("Name"), imgID, imgID + 1)
        End If
        
        nodeCurrent.Tag = Nz(rs("FCode"), "")
        rs.MoveNext
    Loop
   
    If tvFunctionList.Nodes.Count > 1 Then
        tvFunctionList.Nodes(2).Expanded = True
    End If
   
Function_Exit:
    rs.Close
    Set rs = Nothing
    Exit Sub
   
Tree_Fill_Err:
    DoErr (Err.Number)
End Sub

sxgaobo

sxhmft 你好！
    我模仿你的方法做了个，可当ParentID中的数字大于9时就会在下列代码处出错：
Set nodeCurrent = tvFunctionList.Nodes.Add(strPID, tvwChild, strFID, rs("Name"), imgID, imgID + 1)
为什么啊？

sxhmft

您还没有把原理看懂,主要是分类的编号(ID)需再仔细看看.就可找到病因所在.看示例要静下心来.