散分。。。大家来看看，传萧怎么写？

sbzx001 2010-07-01 03:34:35

写个类似传销的管理系统，感觉用TreeView控件正合适，上线发展下线，下线再发展下线，... 把成员名单做节点，根节点总裁，求段代码。实现不同成员共享资源，可以联网，也可以存为文件，通过拷贝文件共享。大家来发表以下你的高见。。。

...全文

210 31 打赏收藏转发到动态举报

写回复

用AI写文章

31 条回复

切换为时间正序

请发表友善的回复…

发表回复

嗷嗷叫的老马 2010-07-07

打赏
举报

这个关键是数据结构的组织

我曾经写过一个窗体句柄分析代码,能把一个窗体的控件布局以树状显示出来,和你这个差不多,也要保存上级.

那个结构我是这样组织的:

Private Type HwndTree

    OwnerHwnd As Long           '上级窗口句柄

    meHwnd As Long              '自己的句柄

    wX As Long                  'X

    wY As Long                  'Y

    wWidth As Long              '宽

    wHeight As Long             '高

    wText As String             '内容

    wClass As String            '类名

End Type

然后每个节点都会记住自己的上级的句柄,你这里就是一个类似的唯一性标识.

这样的话,这些记录在数据库里的存储形式其实是并列存储的,只在加载时根据上级标识,决定加载到哪一个节点下面.

sbzx001 2010-07-07

打赏
举报

老马，能给写个雏形代码吗，根节点A ，子节点B1、B2 ；B11、B12 B21、B22 各节点支持右键菜单（添加、修改、删除），节点能显示节点成员的（简介）信息有更好，悬浮显示

ewqer 2010-07-07

打赏
举报

Private Sub mendel_Click() '右键删除
With TreeView1
If .SelectedItem.Key = "key1" Then
MsgBox "对不起,不能删除根点!", vbExclamation
Exit Sub
End If
Set tredelt = ExecuteSQL("DELETE FROM tbTree WHERE ID = " & Mid(.SelectedItem.Key, 4) & " OR PARENTID=" & Mid(.SelectedItem.Key, 4))
.Nodes.Remove .SelectedItem.Key
End With
End Sub

Private Sub munadd_Click() '右键添加
rsadd.Open "SELECT IIF (ISNULL (MAX(ID)), 1, MAX(ID)) AS ID_M FROM tbTree", cnn, adOpenStatic, adLockOptimistic
m_strKey = CStr(rsadd("ID_M") + 1)
With TreeView1
m_strParentKey = .SelectedItem.Key
.Nodes.Add(m_strParentKey, tvwChild, "key" & m_strKey, "新加结点", 1).Selected = True
.StartLabelEdit
End With

m_strParentKey = Mid(m_strParentKey, 4)
strSql = "INSERT INTO tbTree (ID, CONTEXT, PARENTID) VALUES (" & m_strKey & ", '新加结点', " & m_strParentKey & ")"
Set rsb = ExecuteSQL(strSql)
rsadd.Close
End Sub

Private Sub munxiu_Click() '右键修改
With TreeView1
m_strKey = Mid(.SelectedItem.Key, 4)
.StartLabelEdit
End With
End Sub

Private Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
Set mdd = ExecuteSQL("UPDATE tbTree SET CONTEXT = '" & NewString & "' WHERE ID = " & m_strKey)
End Sub

Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
if 是管理员 then

PopupMenu munmen '有右键菜单
End If
End If
End Sub

碧海情天-赵亮 2010-07-07

打赏
举报

这个，就是两个基本知识点：一个是TREEVIEW控件的使用（节点管理等等那些），一个是右键POPUP菜单的使用。

要学会分解问题，然后各个击破。查查资料都有。学习要想偷懒，那肯定学不好。

sbzx001 2010-07-06

打赏
举报

[Quote=引用 30 楼 dafu2003 的回复:]
引用楼主 sbzx001 的回复:
写个类似传销的管理系统，感觉用TreeView控件正合适，上线发展下线，下线再发展下线，... 把成员名单做节点，根节点总裁，求段代码。实现不同成员共享资源，可以联网，也可以存为文件，通过拷贝文件共享。大家来发表以下你的高见。。。

你这个与我的一个软件的数据表示方式几乎一样，你去参考一下这个软件的数据库格式：
http://kcsp.google……
[/Quote]
谢谢你，你的软件很好，能够实现我说的功能，我只是想学习这几方面的知识，能否给指导一下，怎么写，怎么存，怎么建库********“节点支持右键菜单（添加、修改、删除），点击节点能显示节点成员的（简介）信息（或者鼠标停留在节点上显示信息）。2、节点能保存于数据库中；3、数据库中数据能显示在目录树中。
”

sbzx001 2010-07-06

打赏
举报

补充说明：节点成员的（简介）信息存于数据库中，不知数据库应该怎样设计，该有哪些字段？等待高手出招

sbzx001 2010-07-06

打赏
举报

声明：本人没有传销倾向，纯粹想学习vb6.0目录树与数据库的问题，希望明白人帮忙：1、节点支持右键菜单（添加、修改、删除），点击节点能显示节点成员的（简介）信息（或者鼠标停留在节点上显示信息）。2、节点能保存于数据库中；3、数据库中数据能显示在目录树中。

[Quote=引用 22 楼 theforever 的回复:]
楼主想用TREEVIEW？这想法，错得厉害，想想吧，错得太严重了，做下去就是一个废废。

传销，就是靠分级的东西，这就是它的灵魂所在。那样的话，从总裁到最底（这个最底还在不断深入下去），你说得有多少级啊？？？你这个TREEVIEW得占多大面积合适？？再大的面积都远远不合适，你得不断地来回滑动TREEVIEW的滚动条，尤其是要在两个顶层人物的体系下面来回找的话，那个累啊就可以想见了。
[/Quote]
只是借助这种模式说节点，学习学习。不必考虑多少层，5-6层吧

dafu2003 2010-07-06

打赏
举报

[Quote=引用楼主 sbzx001 的回复:]
写个类似传销的管理系统，感觉用TreeView控件正合适，上线发展下线，下线再发展下线，... 把成员名单做节点，根节点总裁，求段代码。实现不同成员共享资源，可以联网，也可以存为文件，通过拷贝文件共享。大家来发表以下你的高见。。。
[/Quote]

你这个与我的一个软件的数据表示方式几乎一样，你去参考一下这个软件的数据库格式：
http://kcsp.googlecode.com/files/kcspchs23.zip

亮剑_ 2010-07-06

打赏
举报

这个和传销扯得上吗

嗷嗷叫的老马 2010-07-06

打赏
举报

[Quote=引用 20 楼 whxfelix 的回复:]
这个有点……，过了。
楼主是形象比喻好不好。不帮别人解决问题，反而想办法打击别人，呵呵，更有趣。
[/Quote]
不至于吧,我又没有去打击楼主,完全说的是题外话,与楼主根本没有一点关系,我反复看也看不出来哪里有打击楼主的意思啊.

麻烦给语文烂的我讲解一下吧

realex 2010-07-06

打赏
举报

哈哈，曾经根据某团队定制过一个，b/s架构。现在想想后怕啊。幸亏他们自己做死掉了。

yangguo8013 2010-07-06

打赏
举报

[Quote=引用 16 楼 chenyubo1977 的回复:]
引用 15 楼 wallescai 的回复:
引用 4 楼 myjian 的回复:
非法传销才是有问题

但是传销本身这种销售模式没有问题吧,是一些聪明的国人把它做变味了.

一个产品好,那么使用者会向亲朋友好友推荐,是吧?

传销模式只是利用一些分红来鼓励这种推荐过程.

只是,有的人是为了这些分红,死缠烂打坑蒙拐骗都用上了.......唉.

所以这种销售模式没办法在目……
[/Quote] up打击传销

钱～小～钱 2010-07-05

打赏
举报

传销只是一种经营的模式，只是一些非法分子给做歪了。国内的好多直销公司现在都是这种经营模式。只是说的好听“直销”其实都是一样的吧
呵呵管它什么销呢技术还是得研究的吗，不是很懂关注中

碧海情天-赵亮 2010-07-05

打赏
举报

楼主想用TREEVIEW？这想法，错得厉害，想想吧，错得太严重了，做下去就是一个废废。

传销，就是靠分级的东西，这就是它的灵魂所在。那样的话，从总裁到最底（这个最底还在不断深入下去），你说得有多少级啊？？？你这个TREEVIEW得占多大面积合适？？再大的面积都远远不合适，你得不断地来回滑动TREEVIEW的滚动条，尤其是要在两个顶层人物的体系下面来回找的话，那个累啊就可以想见了。