Office中国论坛/Access中国论坛

标题: 文件管理器　新鲜出炉[原创] [打印本页]

作者: sxhmft 时间: 2003-11-19 03:34
标题: 文件管理器　新鲜出炉[原创]
accessxp+win2000下调试通过
[attach]2521[/attach]

作者: 没牙兔兔 时间: 2003-11-19 03:41
hehe
不错不错
帮你顶顶顶~!!!

作者: sxhmft 时间: 2003-11-19 03:46
谢谢，可爱的小兔子.请提个意见或建议。我想把它做成一个局域网内的文件资源共享管理系统。

作者: 没牙兔兔 时间: 2003-11-19 04:23
好的
我瞅瞅
过段时间我也要编写跟你类似的文件管理

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

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

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

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

作者: sxhmft 时间: 2003-11-19 23:28
在下面的函数中用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 时间: 2003-11-28 00:08
sxhmft 你好！
我模仿你的方法做了个，可当ParentID中的数字大于9时就会在下列代码处出错：
Set nodeCurrent = tvFunctionList.Nodes.Add(strPID, tvwChild, strFID, rs("Name"), imgID, imgID + 1)
为什么啊？

作者: sxhmft 时间: 2003-11-28 00:32
您还没有把原理看懂,主要是分类的编号(ID)需再仔细看看.就可找到病因所在.看示例要静下心来.

作者: swo 时间: 2003-11-28 00:35
收到，感觉不错，如果附件直接调天文件打开就好了

作者: xiaog 时间: 2003-12-8 20:18
不错啊！

作者: 7777777 时间: 2009-2-9 17:52
您还没有把原理看懂

作者: 7777777 时间: 2009-2-10 13:33
dddddd

作者: 7777777 时间: 2009-2-14 14:51
hehe
不错不错

作者: 7777777 时间: 2009-2-17 09:57
dddddddd

作者: 快乐王 时间: 2009-4-26 23:59
先谢谢，后下载，再看看，看明白才能评论。

作者: aronliu 时间: 2009-10-17 16:37
好东东

作者: 黑芝麻 时间: 2010-3-18 19:59
虚心请教热心指导手把青秧插滿田，低頭便見水中天；心地清淨方為道，退步原來是向前。

作者: pengyongll 时间: 2012-4-21 22:06
谢谢，看看我能借鉴不

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)