Tạo Menu đa cấp lấy dữ liệu từ SQL Server trong Asp.net

(Cách tạo Menu động trong Asp.net) - Đối với các Website hoặc phần mềm chạy trên nền Web, Menu là một thành phần không thể thiếu, Menu giúp người sử dụng đến hoặc quay về các mục nhanh chóng và thuận tiện. Vậy làm sao để có thể xây dựng được hệ thống Menu động đa cấp, các mục được lấy từ CSDL SQL Server và được sử dụng bằng Control ASP.Net Menu. Bài viết dưới đây sẽ hướng dẫn các bạn dễ dàng xây dựng hệ thống Menu động như thế.

Nghe những bài hát đỉnh nhất về Thấy cô giáo - Nghe trên Youtube

- B1: Tạo Bảng MenuItems có cấu trúc phía dưới trong CSDL SQL Server.

STT	Tên trường	Kiểu trường	Ghi chú
1	MenuID	Int	Trường tự tăng
2	ParentID	Int
3	MenuName	nvarchar(150)	Tên Menu
4	Description	nvarchar(250)	Mô tả
5	URL	nvarchar(200)	Đường dẫn Menu
6	MenuOrder	Int	Thứ tự sắp xếp
7	IsVisible	bit	Ân/Hiện Menu

- B2: Nhập dữ liệu cho bảng MenuItems

Chú ý: Bạn có thể sử dụng nhiều cấp trong bảng MenuItems này, đối với Menu cấp 1 thì trường ParentID là Null hoặc -1.

- B3: Tạo stored procedure trong SQL Server

CREATE    Procedure[dbo].[Pro_Menu_List]

      @ParentID int,

      @IsVisible bit

as

declare@strSQL   nvarchar(1000)

declare @strWhere nvarchar(500)

declare @strOrder nvarchar (50)

set @strSQL= 'Select * from MenuItems'

set @strWhere =' where 1=1'

if @IsVisible=0

      set @strWhere= @strWhere  +' and (IsVisible=0 Or IsVisible Is Null)'

if @IsVisible=1

      set @strWhere= @strWhere  +' and (IsVisible=l)'

if @ParentID<>-1 And@ParentID<>0

      set @strWhere= @strWhere  +' and ParentID='+ convert(nvarchar,@ParentID)

if @ParentID=-1

      set @strWhere= @strWhere  +' and (ParentID=-1 Or ParentID Is Null)'

set @strOrder =' Order by MenuOrder, MenuName'

set @strSQL=@strSQL+@strWhere+@strOrder

print @strSQL

exec sp_executesql @strSQL

Bạn có thể tải về bảng cơ sở dữ liệu SQL bằng cách nhấn vào liên kết tải về dưới đây

- B4: Tạo Project trong Microsoft Visual Studio 2010
Trong Visual Studio tạo 1 Class có tên: Utility và nhập đoạn Code phía dưới cho Class này.

C# Code

using System;

using System.Collections.Generic;

using System.Linq;

using System.Web;

using System.Data.SqlClient;

using System.Data;

using System.Configuration;

namespace DynamicallyMenu

{

    public class SqlDataProvider

    {

        #region"Membres Prives"

        private string_connectionString;

        #endregion

        #region"Constructeurs"

        public SqlDataProvider()

        {

            try

            {

                _connectionString = ConfigurationManager.ConnectionStrings["SiteSqlServer"].ConnectionString;

            }

            catch

            {

            }

        }

        #endregion

        #region "Proprietes"

        public stringConnectionString

        {

            get { return_connectionString; }

        }

        #endregion

        #region"Functions"

        public DataTableFillTable(string ProcName, params ObjectPara[] Para)

        {

            try

            {

                DataTable tb = new DataTable();

                SqlDataAdapter adap = new SqlDataAdapter(ProcName, _connectionString);

                adap.SelectCommand.CommandType = CommandType.StoredProcedure;

                if (Para != null)

                {

                    foreach (ObjectParap in Para)

                    {

                        adap.SelectCommand.Parameters.Add(new SqlParameter(p.Name, p.Value));

                    }

                }

                adap.Fill(tb);

                return tb;

            }

            catch

            {

                return null;

            }

        }

        #endregion

    }

    public class ObjectPara

    {

        string _name;

        object _Value;

        public ObjectPara(stringPname, object PValue)

        {

            _name = Pname;

            _Value = PValue;

        }

        public string Name

        {

            get { return _name; }

            set { _name = value; }

        }

        public object Value

        {

            get { return _Value; }

            set { _Value = value; }

        }

    }

}

VB.NET Code

Imports System.Data.SqlClient

Imports System.Data

Namespace DynamicallyMenu

    Public Class SqlDataProvider

#Region "Membres Prives"

        Shared _IsError As Boolean = False

        Private _connectionString AsString

#End Region

#Region "Constructeurs"

        Public Sub New()

            Try

                _connectionString = ConfigurationManager.ConnectionStrings("SiteSqlServer").ConnectionString

                _IsError = False

            Catch ex As Exception

                _IsError = True

            End Try

        End Sub

#End Region

#Region "Proprietes"

        Public ReadOnly Property ConnectionString() AsString

            Get

                Return_connectionString

            End Get

        End Property

#End Region

#Region "Functions"

        Public FunctionFillTable(ByVal sql AsString) As DataTable

            Try

                Dim tb AsNew DataTable

                Dim adap AsNew SqlDataAdapter(sql, _connectionString)

                adap.Fill(tb)

                Return tb

            Catch ex As Exception

                Return Nothing

            End Try

        End Function

        Public FunctionFillTable(ByVal ProcName As String, ByVal ParamArrayPara() As ObjectPara) As DataTable

            Try

                Dim tb AsNew DataTable

                Dim adap AsNew SqlDataAdapter(ProcName, _connectionString)

                adap.SelectCommand.CommandType = CommandType.StoredProcedure

                If NotPara Is NothingThen

                    For Eachp As ObjectParaIn Para

                        adap.SelectCommand.Parameters.Add(New SqlParameter(p.Name, p.Value))

                    Next

                End If

                adap.Fill(tb)

                Return tb

            Catch ex As Exception

                Return Nothing

            End Try

        End Function

#End Region

    End Class

    Public Class ObjectPara

        Dim _name As String

        Dim _Value As Object

        Sub New(ByVal Pname As String, ByVal PValue As Object)

            _name = Pname

            _Value = PValue

        End Sub

        Public PropertyName() As String

            Get

                Return _name

            End Get

            Set(ByVal value As String)

                _name = value

            End Set

        End Property

        Public PropertyValue() As Object

            Get

                Return _Value

            End Get

            Set(ByVal value As Object)

                _Value = value

            End Set

        End Property

    End Class

End Namespace

Chú ý: Thuộc tính SiteSqlServer chính là chuỗi Connect với SQL Server trong file Web.Config

- B5: Viết Code cho file Site.Master

+ Đặt lại tên cho Control asp:Menu thành menuBar, sau khi đổi tên file có mã HTML như sau:

<asp:Menu ID="menuBar"runat="server"CssClass="menu"EnableViewState="false"IncludeStyleBlock="false"Orientation="Horizontal"></asp:Menu>

+ Nhập đoạn Code phía dưới

C# Code

//'Visit http://www.laptrinhdotnet.com for more ASP.NET Tutorials

using Microsoft.VisualBasic;

using System;

using System.Collections;

using System.Collections.Generic;

using System.Data;

using System.IO;

using System.Diagnostics;

using System.Web.UI;

using System.Web.UI.WebControls;

namespace DynamicallyMenu

{

    public partial class SiteMaster : System.Web.UI.MasterPage

    {

        #region"Create Menu"

        private voidCreateMenu(DataTable objBind, int ParentID, MenuItemparentMenuItem)

        {

            string currentPage = Path.GetFileName(Request.Url.AbsolutePath);

            if (objBind.Rows.Count > 0)

            {

                foreach (DataRowrow in objBind.Rows)

                {

                    MenuItem menuItem = new MenuItem

                    {

                        Value = row["MenuID"].ToString(),

                        Text = row["MenuName"].ToString(),

                        NavigateUrl = row["URL"].ToString(),

                        Selected = row["URL"].ToString().EndsWith(currentPage, StringComparison.CurrentCultureIgnoreCase)

                    };

                    if (ParentID == -1)

                    {

                        menuBar.Items.Add(menuItem);

                        DataTable objBindChild = BindData(Convert.ToInt32(menuItem.Value));

                        CreateMenu(objBindChild, Convert.ToInt32(menuItem.Value), menuItem);

                    }

                    else

                    {

                        parentMenuItem.ChildItems.Add(menuItem);

                    }

                }

            }

        }

        #endregion

        #region"Bind Data"

        private DataTableBindData(int ParentID)

        {

            SqlDataProvider objSQL = newSqlDataProvider();

            DataTable objBind = objSQL.FillTable("Pro_Menu_List", new ObjectPara("@ParentID", ParentID), new ObjectPara("@IsVisible", 1));

            return objBind;

        }

        #endregion

        #region"Event Handles"

        protected voidPage_Load(object sender, System.EventArgs e)

        {

            try

            {

                if (!IsPostBack)

                {

                    DataTable objBind = BindData(-1);

                    CreateMenu(objBind, -1, null);

                }

            }

            catch

            {

            }

        }

        #endregion

    }

}

VB.NET Code

Imports System.IO

Imports System.IO

Namespace DynamicallyMenu

    Public Class Site

        Inherits System.Web.UI.MasterPage

#Region "Create Menu"

        Private SubCreateMenu(ByVal objBind As DataTable, ByValParentID As Integer, ByVal parentMenuItem AsMenuItem)

            Dim currentPage As String = Path.GetFileName(Request.Url.AbsolutePath)

            If objBind.Rows.Count > 0 Then

                For Eachrow As DataRow InobjBind.Rows

                    Dim menuItem AsNew MenuItem() With{ _

                     .Value = row("MenuID").ToString(), _

                     .Text = row("MenuName").ToString(), _

                      .NavigateUrl = row("URL").ToString(), _

                     .Selected = row("URL").ToString().EndsWith(currentPage, StringComparison.CurrentCultureIgnoreCase)}

                    If ParentID = -1 Then

                        menuBar.Items.Add(menuItem)

                        Dim objBindChild As DataTable = BindData(CType(menuItem.Value, Integer))

                        CreateMenu(objBindChild, CType(menuItem.Value, Integer), menuItem)

                    Else

                        parentMenuItem.ChildItems.Add(menuItem)

                    End If

                Next

            End If

        End Sub

#End Region

#Region "Bind Data"

        Private FunctionBindData(ByVal ParentID As Integer) As DataTable

            Dim objSQL As New SqlDataProvider

            Dim objBind AsDataTable = objSQL.FillTable("Pro_Menu_List", New ObjectPara("@ParentID", ParentID), New ObjectPara("@IsVisible", 1))

            Return objBind

        End Function

#End Region

#Region "Event Handles"

        Protected SubPage_Load(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.Load

            Try

                If Page.IsPostBack = False Then

                    Dim objBind AsDataTable = BindData(-1)

                    CreateMenu(objBind, -1, Nothing)

                End If

            Catch ex As Exception

            End Try

        End Sub

#End Region

    End Class

End Namespace

Chạy Project, các bạn sẽ có một hệ thống Menu động theo đúng mong muốn. Để chỉnh sửa màu sắc Menu, bạn có thể chỉnh sửa các thuộc tính trong file Site.css trong thư mục Styles.

Chúc các bạn thành công!

Quang Bình