原创:OA软件无限级树形菜单(读数据库)源程序(VB.NET)

最新推荐文章于 2021-07-04 20:22:51 发布
最新推荐文章于 2021-07-04 20:22:51 发布
阅读量1k 收藏
点赞数
分类专栏： OA软件开发 文章标签： vb.net 数据库 border url javascript css
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/bluearrow8888/article/details/2060342
版权

菜单生成的效果 :

 参考源码:(VB.NET)

数据库结构(测试用ACCESS数据库)

  表：System_Menu

序号
字段名
类型
长度
精度
小数位数
默认值
允许空
主键
说明
1
ID
Long
4
 
 
 
√
√
 菜单ID
2
NAME
Text
100
 
 
 
 
 
 菜单名
3
IMAGE
Text
100
 
 
 
√
 
 菜单图片
4
Url
Text
50
 
 
 
√
 
 菜单链接
5
PID
Long
4
 
自动
0
 
 
 上级菜单ID
6
Sub
Boolean
1
 
 
 
√
 
 是否有下级菜单
7
Level
Long
4
 
自动
0
 
 
 菜单所在层(根=0)
 

left.aspx文件
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Left.aspx.vb" Inherits="Web_Test" Theme="Theme_1"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" >
<head id="Head1" runat="server">
    <title>OA菜单</title>
<script language="javascript">
//单击打开或关闭子菜单
function showMenu(iNo){
 if(document.getElementById(iNo).style.display=="none")
  document.getElementById(iNo).style.display="block"
 else
  document.getElementById(iNo).style.display="none"
}
</script> 
</head>
<body bgcolor="ButtonFace">
</body>
</html>
 

left.aspx.vb文件

命名空间加入:

Imports System.Data
Imports System.Data.OleDb

Page_Load一事件加入如下代码:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim myConnection2 As New OleDbConnection
        Dim myCommand2 As New OleDbCommand
        Dim dbname2 As String
        Dim abc2 As OleDbDataReader


        dbname2 = Server.MapPath("../App_Data/OA.mdb")
        myConnection2 = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & dbname2)
        myConnection2.Open()
        myCommand2.CommandText = "select * from System_Menu where PID=0 order by ID"
        myCommand2.Connection = myConnection2
        abc2 = myCommand2.ExecuteReader()
        Response.Write(Chr(13) & Chr(13))
        Response.Write("<!--OA菜单开始-->" & Chr(13) & Chr(13))
        '        Response.Write("<div class='menu'>" & Chr(13))

        Do While abc2.Read()
            Response.Write("<ul>" & Chr(13))
            Response.Write("<li class='m_main'>")
            Response.Write("<a href='javascript:showMenu(" & abc2.Item("ID") & ");'>")
            Response.Write(abc2.Item("Name") & "</a></li>" & Chr(13))
            Response.Write("<ul id='" & abc2.Item("ID") & "' style='display:none;'>" & Chr(13))

            TreeMenu(abc2.Item("ID"), abc2.Item("Name"))  '取根菜单的所有子菜单项
            Response.Write("</ul>" & Chr(13) & Chr(13))
        Loop


        abc2.Close()
        myCommand2.Connection.Close()
        myConnection2.Close()
        Response.Write("<!--OA菜单结束!-->" & Chr(13) & Chr(13) & Chr(13))

End Sub

加入递归的程序

Sub TreeMenu(ByVal ID2, ByVal Name2)
        'ID2--根菜单项ID
        'Name2--根菜单项名称

        Dim myConnection As New OleDbConnection
        Dim myCommand As New OleDbCommand
        Dim dbname As String
        Dim abc As OleDbDataReader


        dbname = Server.MapPath("../App_Data/OA.mdb")
        myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & dbname)
        myConnection.Open()

        myCommand.CommandText = "select * FROM System_Menu where PID=" & ID2 & " order by ID"
        myCommand.Connection = myConnection


        abc = myCommand.ExecuteReader()


        Do While abc.Read()
            If abc.Item("Sub") Then    '如果有下级菜单，则递归调用显示下级菜单
                Response.Write("<li class='m_sub_y" & abc.Item("Level") & "'>")
                Response.Write("<a href='javascript:showMenu(" & abc.Item("ID") & ");' title='展开/收缩'>")
                Response.Write(abc.Item("Name") & "</a></li>" & Chr(13))

                Response.Write("<ul id='" & abc.Item("ID") & "' style='display:none';>" & Chr(13))
                TreeMenu(abc.Item("ID"), abc.Item("Name"))

                '                Response.Write(abc.Item("Name") & "<br/><a href='http://www.google.com'>okok</>")

            Else   ''否则，直接画出叶级部门

                Response.Write("<li class='m_sub_n" & abc.Item("Level") & "'>")
                Response.Write("<a href='" & abc.Item("Url") & "' target='main' title='" & abc.Item("Url") & "'>")
                Response.Write(abc.Item("Name") & "</a></li>" & Chr(13))


            End If

        Loop
        abc.Close()
        myCommand.Connection.Close()
        myConnection.Close()
        Response.Write("</ul>" & Chr(13))

end sub


theme1用到的CSS代码参考:
*{margin:0px;padding:0px;}
A:link{color: #000000; TEXT-DECORATION: none;}
A:visited {COLOR: #000000; TEXT-DECORATION: none}
A:active {COLOR: #3333ff; TEXT-DECORATION: none}
A:hover {
 COLOR: #ff0000;
 TEXT-DECORATION: none;
 background-color: #000066;
}
ul {
   list-style: none;
   margin: 0;
   padding: 0;
}
img{
   border:0px;
   width:16px;
   height:16px;
}
.menu{
 height:100%;
 background-color: #D4D0C8;
 width: 139px;
 border-top-width: 1px;
 border-right-width: 1px;
 border-bottom-width: 1px;
 border-left-width: 1px;
 border-top-style: solid;
 border-right-style: solid;
 border-bottom-style: solid;
 border-left-style: solid;
 margin: 2px;
}
.m_main{
 height: 35px;
 width: 139px;
 display: block;
 text-align: center;
 margin-top: 1px;
 margin-right: 1px;
 margin-bottom: 1px;
 margin-left: 1px;
 vertical-align: middle;
}
.m_main a:link, .m_main a:visited{
 text-decoration: none;
 font-size: 12px;
 width: 139px;
 color: #FFFFFF;
 background-image: url(m_main1.gif);
 height: 35px;
 background-repeat: no-repeat;
 background-position: 0px 0px;
 display: block;
 line-height: 35px;
 vertical-align: middle;
 padding-left: 0px;
}
.m_main a:hover{
 text-decoration: none;
 font-size: 12px;
 width: 139px;
 color: #FFFFFF;
 background-image: url(m_main1x.gif);
 background-repeat: no-repeat;
 height: 35px;
 background-position: 0px 0px;
 line-height: 35px;
 vertical-align: middle;
 display: block;
 padding-left: 0px;
}

/*第一级子菜单CSS*/
.m_sub_n2{
 display: block;
 width: auto;
 border: 1px solid #999999;
}
.m_sub_y2{
 display: block;
 width: auto;
}
.m_sub_y2 a:link, .m_sub_y2 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 line-height: 35px;
 width: auto;
 vertical-align: middle;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 border: 1px solid #999999;
 background-color: #D4D0C8;
}
.m_sub_y2 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 background-color: #CC0033;
}
.m_sub_y2 a:active{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 border: 1px solid #999999;
}

.m_sub_n2 a:link, .m_sub_n2 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 background-image: url(m_sub_y1.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
 width: auto;
}
.m_sub_n2 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 background-image: url(m_sub_y3.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
}
/*第二级子菜单CSS*/
.m_sub_n3{
 display: block;
 width: auto;
 border: 1px solid #999999;
 margin-left: 10px;
}
.m_sub_y3{
 display: block;
 width: auto;
 margin-left: 10px;
}
.m_sub_y3 a:link, .m_sub_y3 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 line-height: 35px;
 width: auto;
 vertical-align: middle;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 background-color: #D4D0C8;
}
.m_sub_y3 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 background-color: #CC0033;
}
.m_sub_y3 a:active{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 border: 1px solid #999999;
}

.m_sub_n3 a:link, .m_sub_n3 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 background-image: url(m_sub_y1.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
 width: auto;
}
.m_sub_n3 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 background-image: url(m_sub_y3.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
}

/*第三级子菜单CSS*/
.m_sub_n4{
 display: block;
 width: auto;
 border: 1px solid #999999;
 margin-left: 20px;
}
.m_sub_y4{
 display: block;
 width: auto;
 margin-left: 20px;
}
.m_sub_y4 a:link, .m_sub_y4 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 line-height: 35px;
 width: auto;
 vertical-align: middle;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 background-color: #D4D0C8;
}
.m_sub_y4 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 background-color: #CC0033;
}
.m_sub_y4 a:active{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 border: 1px solid #999999;
}

.m_sub_n4 a:link, .m_sub_n4 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 background-image: url(m_sub_y1.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
 width: auto;
}
.m_sub_n4 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 background-image: url(m_sub_y3.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
}

/*第四级子菜单CSS*/
.m_sub_n5{
 display: block;
 width: auto;
 border: 1px solid #999999;
 margin-left: 30;
}
.m_sub_y5{
 display: block;
 width: auto;
 margin-left: 30px;
}
.m_sub_y5 a:link, .m_sub_y5 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 line-height: 35px;
 width: auto;
 vertical-align: middle;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 background-color: #D4D0C8;
}
.m_sub_y5 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 background-color: #CC0033;
}
.m_sub_y5 a:active{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 line-height: 35px;
 width: auto;
 display: block;
 background-image: url(linkarrow.gif);
 background-repeat: no-repeat;
 background-position: right center;
 position: relative;
 border: 1px solid #999999;
}

.m_sub_n5 a:link, .m_sub_n5 a:visited{
 text-decoration: none;
 font-size: 12px;
 color: #000000;
 display: block;
 background-image: url(m_sub_y1.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
 width: auto;
}
.m_sub_n5 a:hover{
 text-decoration: none;
 font-size: 12px;
 color: #FFFFFF;
 background-image: url(m_sub_y3.png);
 background-repeat: repeat-x;
 background-position: 0px 0px;
 line-height: 35px;
}
/*第n级子菜单CSS*/
菜单级数可通过数据库无限分级,只是要加入相关级的CSS以产生缩进及其它效果!
此菜单系统暂时未考虑根据用户权限而显示相关菜单的功能!
bluearrow8888
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
VB仿TreeView控件实现多级树状菜单
08-10
内容索引:VB源码,界面编程,TreeView,树型菜单 　　VB模仿TreeView控件的功能，一个可以实现多级树状展开、折叠的菜单，程序虽小，但经常使用，VB6下顺利编译，它可以无限级展开下去，只需你在程序里设置一下，每一项菜单中包含有复选框，可以同时选中菜单的某项是否生效。
VB TreeView树形菜单（自定义展开菜单）.rar
07-10
VB6.0 自定义TreeView树形菜单（展开菜单），类似于实现多级菜单、展开菜单的功能，当然也可当作Tree树控菜单来使用。最终的功能预览图请参见测试截图所示。 　　Set a = TreeView1.Nodes.Add(, etvwFirst, 1, "第一个") 　　TreeView1.Nodes.Add a, etvwChild, 3, "第一个-1" 　　TreeView1.Nodes.Add a, etvwChild, 4, "第一个-2" 　　TreeView1.Nodes.Add a, etvwChild, 5, "第一个-3" 　　TreeView1.Nodes.Add a, etvwChild, 6, "第一个-4" 　　TreeView1.Nodes.Add a, etvwChild, 7, "第一个-5" 　　TreeView1.Nodes.Add a, etvwChild, 8, "第一个-6" 　　Set a = TreeView1.Nodes.Add(, etvwFirst, 2, "第二个") 　　TreeView1.Nodes.Add a, etvwChild, 9, "第二个-1" 　　TreeView1.Nodes.Add a, etvwChild, 10, "第二个-2" 　　TreeView1.Nodes.Add a, etvwChild, 11, "第二个-3" 　　TreeView1.Nodes.Add a, etvwChild, 12, "第二个-4" 　　TreeView1.Nodes.Add a, etvwChild, 13, "第二个-5" 　　TreeView1.Nodes.Add a, etvwChild, 14, "第二个-6"
树形菜单练习-.net VB.net
06-28
主是要一个树形菜单.dddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddddd
VB TreeView控件实现多级树状菜单.
05-07
就是一个VB TreeView控件的用法，代码不多，很容易看懂，适合新生们看看。
.NET 做树状菜单不求人（TreeView控件实战）
weixin_34146986的博客
09-21 638
目的：通过TreeView控件的运用，从Sql2005的表中生成两级联动的树状菜单。最终的显示效果：数据库test,主类表为big,子类表为classaspx中的TreeView控件的代码 Code&lt;asp:TreeView ID="TreeView1" runat="server" Height="168px" ImageSet="Simple" Width="175px"&gt; 
OA.rar_OA vb.net 开发_TCP vb.net_VB.NET TCP通信_tcp vb.net_办公软件
09-23
【OA.rar_OA vb.net 开发_TCP vb.net_VB.NET TCP通信_tcp vb.net_办公软件】这个压缩包文件包含了一个使用VB.NET语言开发的办公管理软件，该软件利用TCP（传输控制协议）进行网络通信。在VB.NET环境下，TCP通信是...
oa.rar_VB.NET 源码_asp.net oa_oa vb.net_vb.net_vb.net asp.net
09-24
【标题】"oa.rar" 提供的是一套基于 VB.NET 和 ASP.NET 技术的办公自动化（OA）系统源代码。这个系统的核心是利用这两门编程语言的强大功能，构建了一个全面的企业级工作流程管理平台。 VB.NET 是 .NET Framework ...
通用OA系统源代码(asp.net)包含完整源代码和数据库
07-14
【通用OA系统源代码(asp.net)包含完整源代码和数据库】是一个非常适合初学者学习的ASP.NET项目，它提供了一个全面的功能集，帮助开发者了解企业级应用的基本架构和开发流程。OA（Office Automation System）系统通常...
计算机软件-编程源码-sp.net通用OA系统源代码.zip
05-24
【标题】"计算机软件-编程源码-sp.net通用OA系统源代码.zip" 指的是一份基于.NET框架，特别是ASP.NET技术开发的通用办公自动化（Office Automation，简称OA）系统的完整源代码包。该标题暗示了这是一套用于学习、...
基于asp.net的办公OA系统（源码+数据库）.zip
最新发布
06-30
本项目主要分为六大块：人事管理，日程管理，文档管理，消息传递，系统统管理，考勤管理 人事管理：主要实现对机构部门员工增删改查，打印员工信息等操作. ...源码参考使用，使用的是sql server数据库
VB树状导航菜单
09-26
该文件为VBVB树状导航菜单实例，界面比较漂亮，是一个做开发参考的好实例。
无限级菜单树
11-14
javascript ,jquery就够了无需太麻烦的库,简洁美观,只需传入json对象，即可生成无限级菜单
OA系统左侧DIV+CSS菜单源码
08-20
OA系统左侧DIV+CSS菜单源码。。很酷的界面。。多的不解释。。
VB中Treeview 树形菜单节点拖动、增加、删除实例
08-18
VB中Treeview 树形菜单节点拖动、增加、删除实例。
VB 支持多行显示的Treeview树状菜单控件实例.rar
07-10
一个实用的VB TreeView控件，可以支持多行内容的显示，并且可以展开折叠（收起）的树状菜单控件源码，可自定义颜色的Treeview菜单树，如测试图所示的效果，一共演示了三个使用此Treeview完成的效果，菜单树中的每一个节点都可以包括子节点，可无限制的展开子项，可也实现那种只显示标题不显示内容的折叠列表，点击后才显示该条目的内容，自带的例子也是很实用，VB新手也可快速上手。
vbnet,三级菜单直接入树的代码
laocooon的博客
07-04 183
+ |---+ | + |- 三级菜单，直接入树的通用代码 #Region "将StatusStrip控件中的信息添加到treeView控件中" ''' <summary> ''' 读取菜单中的信息 ''' </summary> ''' <param name="treeV">TreeView控件</param> ...
很经典的OA树型菜单源代码
03-14
OA树型菜单OA树型菜单OA树型菜单OA树型菜单OA树型菜单OA树型菜单OA树型菜单OA树型菜单OA树型菜单OA树型菜单
VB 树状导航菜单实例
06-07
VB 树状导航菜单实例 VB 树状导航菜单实例
VB实现Treeview树形菜单节点拖动、增加、删除实例源码
01-02
VB实现Treeview树形菜单节点拖动、增加、删除实例源码
C#教程：掌握.NET命令行、窗口程序与数据库应用
4. **数据库应用程序**：ADO.NET部分着重于利用.NET与数据库的交互，包括编写数据访问层，实现项目"Project1: ADO.Net+WinFormsC/S"中可能涉及的数据库应用程序，如CRM或OA系统。 5. **面向对象编程**：课程还涵盖...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值