Xây dựng cơ sở dữ liệu cho một website phần 6

Loại: Viết store procedure phần 4

Các bài cần theo dõi của bài viết: Xây dựng cơ sở dữ liệu cho một website

Phần 1: Tạo database

Phần 2: Viết Trigger

Phần 3: Viết store procedure truy vấn, thêm, sửa, xóa một chuyên mục

Phần 4: Viết store procedure hiển thị menu đa cấp

Phần 5: Viết store Procedure thêm, sửa, xóa một bài viết

Phần 6: Viết store procedure hiển thị danh sách bài viết

Phần 7: Viết store procedure tìm kiếm bài viết

Phần 8: Viết store procedure top 10 các bài viết mới và cũ

Bài này sẽ tiếp tục các hàm và thủ tục cho bảng TB_News

1. Trigger để cập nhật tự động trường Link cho bài viết

Để tự động cập nhật trường liên kết cho bài viết bạn có thể thực hiện như Trigger sau

-- Create by webmaster@hmweb.com.vn

CREATE TRIGGER [dbo].[TB_News_InsertTrigger]

ON [dbo].TB_News 

FOR INSERT AS 

DECLARE   @Link nvarchar(100)

DECLARE @NewID int

DECLARE  @CateID int

SELECT  @CateID = (SELECT  CateID FROM  Inserted)

SELECT  @Link=Link FROM TB_Category  WHERE CateID =@CateID

SELECT @NewID=(Select idNews from Inserted)

SET @Link=@Link+'&NewsID='+Cast(@NewID AS nvarchar(20))

--Cập nhật trường liên kết cho bài viết

UPDATE  TB_News SET  Link=@Link

      WHERE idNews=(Select idNews from Inserted)

2.  Store procedure Truy vấn danh sách bài viết

Bài viết có thể ở 1 trong 2 trạng thái đã đăng hoặc chưa đăng (Ở đây mình phân tích chỉ 2 trạng thái, nếu ứng dụng của bạn có yêu cầu phân quyền nhiều cấp như trạng thái chờ đăng, trạng thái chờ duyệt, trạng thái đăng ... thì bạn sửa lại cho phù hợp). Trong store procedure sau tùy theo @Action đề lấy bài viết theo trạng thái tương ứng:
- Nếu @Action=0 thì truy vấn tất cả - cả đã đăng và chờ đăng
- Nếu @Action=1 thì truy vấn các bài đã đăng
- Nếu @Action=-1 thì truy vẫn các bài chờ đăng.
Khi sử dụng store này tùy vào yêu cầu mà bạn Set giá trị của @Action

-- =============================================

-- Author:        webmaster@hmweb.com.vn

-- Description:   <Truy vấn bài viết>

-- =============================================

CREATE PROCEDURE [dbo].[spRB_News_Select]

@Action int,

@idNews int

AS

BEGIN

      -- Nếu @Action=1 => truy vấn bài viết có trạng thái đã đăng

      IF @Action=1

      BEGIN

            -- Nếu @idNews=0 => truy vấn hết các bài đã đăng

            IF @Action=0

            BEGIN

                  SELECT    

                  TB_Category.CateID,

                  TB_Category.ParentID,

                  TB_Category.CateName,

                  TB_News.idNews,

                  TB_News.UserName,

                  TB_News.Title,

                  TB_News.Description,

                  TB_News.Content,

                  TB_News.Author,

                  TB_News.Picture,

                  -- Chuyển thời gian thành dd/MM/yyyy

                  CONVERT(nvarchar(30),TB_News.CreateDate,103) AS CreateDate,

                  CONVERT(nvarchar(30),TB_News.PublishDate,103) AS PublishDate,

                  CASE TB_News.Status

                        WHEN 1 THEN N'Đã đăng'

                        WHEN 0 THEN N'Chưa đăng' END AS Status, 

                  TB_News.Numberreads,

                  TB_News.Link,

                  TB_Category.Decen,

                  TB_Category.Depth

                  FROM  TB_Category INNER JOIN

                  TB_News ON TB_Category.CateID = TB_News.CateID

                  WHERE TB_News.Status=1

            END

            ELSE

            --Nếu @idNew>0 => Truy vấn bài viết đã đăng theo idNews

            BEGIN

                  -- Cập nhật số lần xem bài viết

                  DECLARE @Numberreads int

                  SET @Numberreads=0

                  SELECT @Numberreads=Numberreads FROM TB_News WHERE idNews=@idNews

                  UPDATE TB_News

                  SET

                        Numberreads =@Numberreads +1

                  WHERE idNews=@idNews

                  -- Nếu cập nhật thành công => Select

                  IF @@ERROR=0     

                  SELECT    

                  TB_Category.CateID,

                  TB_Category.ParentID,

                  TB_Category.CateName,

                  TB_News.idNews,

                  TB_News.UserName,

                  TB_News.Title,

                  TB_News.Description,

                  TB_News.Content,

                  TB_News.Author,

                  TB_News.Picture,

                  -- Chuyển thời gian thành dd/MM/yyyy

                  CONVERT(nvarchar(30),TB_News.CreateDate,103) AS CreateDate,

                  CONVERT(nvarchar(30),TB_News.PublishDate,103) AS PublishDate,

                  CASE TB_News.Status

                        WHEN 1 THEN N'Đã đăng'

                        WHEN 0 THEN N'Chưa đăng' END AS Status, 

                  TB_News.Numberreads,

                  TB_News.Link,

                  TB_Category.Decen,

                  TB_Category.Depth

                  FROM  TB_Category INNER JOIN

                  TB_News ON TB_Category.CateID = TB_News.CateID

                  WHERE TB_News.Status=1 AND TB_News.idNews=@idNews

            END

      END



      -- Nếu @Action=-1 => truy vấn bài viết có trạng thái chưa đăng

      IF @Action=-1

      BEGIN

            -- Nếu @idNews=0 => truy vấn hết các bài chưa đăng

            IF @Action=0

            BEGIN

                  SELECT    

                  TB_Category.CateID,

                  TB_Category.ParentID,

                  TB_Category.CateName,

                  TB_News.idNews,

                  TB_News.UserName,

                  TB_News.Title,

                  TB_News.Description,

                  TB_News.Content,

                  TB_News.Author,

                  TB_News.Picture,

                  -- Chuyển thời gian thành dd/MM/yyyy

                  CONVERT(nvarchar(30),TB_News.CreateDate,103) AS CreateDate,

                  CONVERT(nvarchar(30),TB_News.PublishDate,103) AS PublishDate,

                  CASE TB_News.Status

                        WHEN 1 THEN N'Đã đăng'

                        WHEN 0 THEN N'Chưa đăng' END AS Status, 

                  TB_News.Numberreads,

                  TB_News.Link,

                  TB_Category.Decen,

                  TB_Category.Depth

                  FROM  TB_Category INNER JOIN

                  TB_News ON TB_Category.CateID = TB_News.CateID

                  WHERE TB_News.Status=0

            END

            ELSE

            --Nếu @idNew>0 => Truy vấn bài viết chưa đăng theo idNews

            BEGIN

                  SELECT    

                  TB_Category.CateID,

                  TB_Category.ParentID,

                  TB_Category.CateName,

                  TB_News.idNews,

                  TB_News.UserName,

                  TB_News.Title,

                  TB_News.Description,

                  TB_News.Content,

                  TB_News.Author,

                  TB_News.Picture,

                  -- Chuyển thời gian thành dd/MM/yyyy

                  CONVERT(nvarchar(30),TB_News.CreateDate,103) AS CreateDate,

                  CONVERT(nvarchar(30),TB_News.PublishDate,103) AS PublishDate,

                  CASE TB_News.Status

                        WHEN 1 THEN N'Đã đăng'

                        WHEN 0 THEN N'Chưa đăng' END AS Status, 

                  TB_News.Numberreads,

                  TB_News.Link,

                  TB_Category.Decen,

                  TB_Category.Depth

                  FROM  TB_Category INNER JOIN

                  TB_News ON TB_Category.CateID = TB_News.CateID

                  WHERE TB_News.Status=0 AND TB_News.idNews=@idNews

            END

      END



      -- Nếu @Action=0 => truy vấn All (Cả trạng thái đã đăng và chưa đăng)

      IF @Action=0

      BEGIN

            -- Nếu @idNews=0 => truy vấn hết các bài chưa đăng

            IF @Action=0

            BEGIN

                  SELECT    

                  TB_Category.CateID,

                  TB_Category.ParentID,

                  TB_Category.CateName,

                  TB_News.idNews,

                  TB_News.UserName,

                  TB_News.Title,

                  TB_News.Description,

                  TB_News.Content,

                  TB_News.Author,

                  TB_News.Picture,

                  -- Chuyển thời gian thành dd/MM/yyyy

                  CONVERT(nvarchar(30),TB_News.CreateDate,103) AS CreateDate,

                  CONVERT(nvarchar(30),TB_News.PublishDate,103) AS PublishDate,

                  CASE TB_News.Status

                        WHEN 1 THEN N'Đã đăng'

                        WHEN 0 THEN N'Chưa đăng' END AS Status, 

                  TB_News.Numberreads,

                  TB_News.Link,

                  TB_Category.Decen,

                  TB_Category.Depth

                  FROM  TB_Category INNER JOIN

                  TB_News ON TB_Category.CateID = TB_News.CateID



            END

            ELSE

            --Nếu @idNew>0 => Truy vấn bài viết chưa đăng theo idNews

            BEGIN

                  SELECT    

                  TB_Category.CateID,

                  TB_Category.ParentID,

                  TB_Category.CateName,

                  TB_News.idNews,

                  TB_News.UserName,

                  TB_News.Title,

                  TB_News.Description,

                  TB_News.Content,

                  TB_News.Author,

                  TB_News.Picture,

                  -- Chuyển thời gian thành dd/MM/yyyy

                  CONVERT(nvarchar(30),TB_News.CreateDate,103) AS CreateDate,

                  CONVERT(nvarchar(30),TB_News.PublishDate,103) AS PublishDate,

                  CASE TB_News.Status

                        WHEN 1 THEN N'Đã đăng'

                        WHEN 0 THEN N'Chưa đăng' END AS Status, 

                  TB_News.Numberreads,

                  TB_News.Link,

                  TB_Category.Decen,

                  TB_Category.Depth

                  FROM  TB_Category INNER JOIN

                  TB_News ON TB_Category.CateID = TB_News.CateID

                  WHERE  TB_News.idNews=@idNews

            END

      END

END

 

Xây dựng cơ sở dữ liệu cho một website phần 5

Loại: Viết store procedure phần 3 

Các bài cần theo dõi của bài viết: Xây dựng cơ sở dữ liệu cho một website

Phần 1: Tạo database

Phần 2: Viết Trigger

Phần 3: Viết store procedure truy vấn, thêm, sửa, xóa một chuyên mục

Phần 4: Viết store procedure hiển thị menu đa cấp

Phần 5: Viết store Procedure thêm, sửa, xóa một bài viết

Phần 6: Viết store procedure hiển thị danh sách bài viết

Phần 7: Viết store procedure tìm kiếm bài viết

Phần 8: Viết store procedure top 10 các bài viết mới và cũ

Tiếp theo chúng ta cần viết các hàm và Store Procedure cho bảng TB_News.

1. Store Procedure thêm, sửa, xóa một bài viết.

Cũng giống như với bảng TB_Category, mình viết spTB_News_Edit để thực hiện cả 3 hành động thêm, sửa, xóa một bài viết.
Nếu @Action=0 => xóa bài viết theo idNews=@idNews
Nếu @Action>0 =>
    Nếu @idNews=0 thí thêm mới bài viết
    Nếu @idNews>0 thì cập nhật bài viết theo idnews=@idnews

Store Procedure spTB_News_Edit  được viết như sau:

-- =============================================
-- Author:        webmaster@hmweb.com.vn
-- Description:   <Thêm, sửa hoặc xóa bài viết>\
-- =============================================
CREATE PROCEDURE [dbo].[spTB_News_Edit]
@Action int,
@idNews int,
@CateID int,
@UserName nvarchar(50),
@Title nvarchar(500),
@Description ntext,
@Content ntext,
@Author nvarchar(150),
@Picture nvarchar(255),
@CreateDate datetime,
@PublishDate datetime,
@Status int,
@Link nvarchar(150)
AS
BEGIN
       -- Nếu @Action=0 --> Xóa bài viết theo @idNews
       IF @Action=0
       BEGIN
            DELETE FROM TB_News WHERE idNews=@idNews
       END
       -- Nếu Nếu @Action=1 --> Thêm mới hoặc sửa  bài viết
       ELSE
            BEGIN
                  --Nếu @idNews=0 --> Thêm mới  bài viết
                  IF @idNews=0
                  BEGIN
                        INSERT INTO TB_News 
                        (
                              CateID, 
                              UserName, 
                              Title, 
                              Description, 
                              Content,
                              Author, 
                              Picture, 
                              CreateDate, 
                              PublishDate, 
                              Status, 
                              Link
                        ) 
                        VALUES
                        (
                              @CateID,
                              @UserName, 
                              @Title, 
                              @Description, 
                              @Content, 
                              @Author, 
                              @Picture, 
                              @CreateDate, 
                              @PublishDate, 
                              @Status, 
                              @Link
                        )
                  END
                  --Nếu @idNews>0 --> Cập nhật bài viết với idNews=@idNews
                  IF @idNews>0
                  BEGIN
                        UPDATE TB_News
                        SET
                              CateID = @CateID,
                              UserName = @UserName,
                              Title = @Title,
                              Description = @Description,
                              Content = @Content,
                              Author = @Author,
                              Picture = @Picture,
                              CreateDate = @CreateDate,
                              PublishDate = @PublishDate,
                              Status = @Status,
                              Link = @Link
                        WHERE idNews=@idNews
                  END
            END
END

2. Store procedure Xóa tất cả bài viết theo chuyên mục
Khi cần xóa hết bài viết của một chuyên mục bạn viết thủ tục như sau:

-- =============================================
-- Author:        webmaster@hmweb.com.vn
-- Description:   <Xóa bài viết theo chuyên mục được chọn>
-- =============================================
CREATE PROCEDURE [dbo].[spTB_News_Delete_ByCateID]
@CateID int
AS
BEGIN
      DELETE FROM TB_News WHERE CateID=@CateID
END

3. Store procedure Xóa tất cả bài viết của một UserName
Khi cần xóa hết bài viết của một UserName bạn viết thủ tục như sau:

Khi cần xóa hết bài viết của một UserName bạn viết thủ tục như sau:
 -- =============================================
-- Author:        webmaster@hmweb.com.vn
-- Description:   <Xóa hết bài viết theo UserName>
-- =============================================
CREATE PROCEDURE [dbo].[spTB_News_Delete_ByUserName]
@UserName nvarchar(50)
AS
BEGIN
      DELETE FROM TB_News WHERE UserName=@UserName
END

Xây dựng cơ sở dữ liệu cho một website phần 4

Loại: Viết store procedure phần 2

Các bài cần theo dõi của bài viết: Xây dựng cơ sở dữ liệu cho một website

Phần 1: Tạo database

Phần 2: Viết Trigger

Phần 3: Viết store procedure truy vấn, thêm, sửa, xóa một chuyên mục

Phần 4: Viết store procedure hiển thị menu đa cấp

Phần 5: Viết store Procedure thêm, sửa, xóa một bài viết

Phần 6: Viết store procedure hiển thị danh sách bài viết

Phần 7: Viết store procedure tìm kiếm bài viết

Phần 8: Viết store procedure top 10 các bài viết mới và cũ

Tiếp theo các thủ tục và hàm cho bảng TB_Category. Khi lập trình tốt trong SQL thì bạn sẽ đỡ rất nhiều việc khi viết code (asp.net)

1. Hàm lấy tên miền của ứng dụng

Bạn cần viết một hàm lấy thông tin domain của bạn để tiện cho việc viết các Store proceduce

-- ================================
-- Author:  webmaster@hmweb.com.vn
-- ================================
CREATE   FUNCTION dbo.ufDomainName()
RETURNS VarChar(100)
AS 
BEGIN 
      RETURN 'http://www.hmweb.com.vn'
END

2. Thủ tục hiển thị menu đa cấp
Thủ tục sau sẽ thực hiện việc hiển thị menu đa cấp, tất cả sẽ được thực hiện bằng Store, Trong code khi muốn hiển thị menu đa cấp bạn chỉ cần dùng Gridview để hiển thị.
Trong thủ tục này mình chỉ viết đến cấp 3. Nếu website của bạn có nhiều hơn 3 cấp bạn có thể sửa lại cho phù hợp (website của mình hmweb.com.vn cũng đến cấp 3)

-- ================================
-- Author:  webmaster@hmweb.com.vn
-- ================================
CREATE PROCEDURE [dbo].[spTB_Category_LeftMenu]
@TabID int,
@CateID int
AS
-- Nếu @TabID=0 thì Menu chỉ gồm cấp 1
IF @TabID=0
BEGIN
       SELECT
            TB_Category.CateID, 
            TB_Category.ParentID, 
            '<A href='''+ dbo.ufDomainName()+Link +''' >'+ CateName +'</A>' AS CateName,  
            TB_Category.Decen, 
            TB_Category.Depth,
            TB_Category.Link, 
            TB_Category.CssClass
            FROM   TB_Category 
            WHERE TB_Category.Decen=0  ORDER BY TB_Category.Depth
END
ELSE
-- Nếu @TabID>0 thì hiển thị các cấp phụ thuộc vào @CateID
BEGIN
      -- Nếu @CateID=0 thì hiển thị đến Menu cấp 2
      IF @CateID=0
            BEGIN
                  SELECT
                  TB_Category.CateID, TB_Category.ParentID, 
                  '<A href='''+ dbo.ufDomainName()+Link +''' class='''+CssClass+'''>'+CateName +'</A>' AS CateName,
                  TB_Category.Decen, TB_Category.Depth, TB_Category.Link, TB_Category.CssClass                   FROM         TB_Category
                  WHERE TB_Category.Decen=0 AND ParentID=@TabID
                  UNION
                  SELECT
                  TB_Category.CateID, TB_Category.ParentID, 
                  '<A href='''+ dbo.ufDomainName()+Link +''' class='''+CssClass+'''>'+CateName +'</A>' AS CateName,
                  TB_Category.Decen, TB_Category.Depth, TB_Category.Link, TB_Category.CssClass FROM  TB_Category 
                  WHERE TB_Category.Decen=1 AND TB_Category.ParentID=@TabID
                  UNION
                  SELECT TB_Category.CateID, TB_Category.ParentID, 
                        '<A href='''+ dbo.ufDomainName()+Link +''' class='''+CssClass+'''>'+CateName +'</A>' AS CateName,
                        TB_Category.Decen, TB_Category.Depth, TB_Category.Link, TB_Category.CssClass 
                  FROM  TB_Category  
                  WHERE TB_Category.Decen=0 AND TB_Category.CateID<>@TabID 
                  ORDER BY TB_Category.Depth
            END
      ELSE
            -- Ngược lại @CateID>0 hiển thị đến Menu cấp 3
            BEGIN
                  SELECT TB_Category.CateID, TB_Category.ParentID, 
                  '<A href='''+ dbo.ufDomainName()+Link +''' class='''+CssClass+'''>'+CateName +'</A>' AS CateName,
                  TB_Category.Decen, TB_Category.Depth, TB_Category.Link, TB_Category.CssClass 
                  FROM TB_Category  
                  WHERE TB_Category.Decen=0 AND TB_Category.CateID=@TabID
                  UNION
                  SELECT TB_Category.CateID, TB_Category.ParentID, 
                  '<A href='''+ dbo.ufDomainName()+Link +''' class='''+CssClass+'''>'+CateName +'</A>' AS CateName,
                  TB_Category.Decen, TB_Category.Depth, TB_Category.Link, TB_Category.CssClass 
                  FROM  TB_Category 
                  WHERE TB_Category.Decen=1 AND TB_Category.ParentID=@TabID
                  UNION 
                        SELECT TB_Category.CateID, TB_Category.ParentID, 
                        '<A href='''+ dbo.ufDomainName()+Link +''' class='''+CssClass+'''>'+CateName +'</A>' AS CateName, 
                        TB_Category.Decen, TB_Category.Depth, TB_Category.Link, TB_Category.CssClass
                        FROM  TB_Category 
                        WHERE TB_Category.Decen=2 AND TB_Category.ParentID=@CateID
                  UNION
                   SELECT TB_Category.CateID, TB_Category.ParentID, 
                   '<A href='''+ dbo.ufDomainName()+Link +''' class='''+CssClass+'''>'+CateName +'</A>' AS CateName,
                   TB_Category.Decen, TB_Category.Depth, TB_Category.Link, TB_Category.CssClass FROM TB_Category 
                  WHERE  TB_Category.Decen=0 AND TB_Category.CateID<>@TabID 
                  ORDER BY TB_Category.Depth
            END
END


Bạn hãy chạy thử với câu lệnh sau

EXEC spTB_Category_LeftMenu 5,9

--> khi đó kết quả sẽ được hiển thị như bảng sau

Trong kết quả trên bạn thấy trong trường CateName có đầy đủ cả liên kết và class đã được định nghĩa trong Bảng TB_Category như những bài trước đã viết (Trường ClassName theo cấp menu được sinh tự động bằng spTB_Categoey_Edit). Trong code bạn chỉ cần viết các ClassName trong css để hiển thị cho phù hợp. Trường Link của bạn nếu có sẽ hiển thị trong trường CateName ví dụ với CateID=5 có Link=?Tab=5 khi đó trường CateName trong store trên sẽ như sau:

<A href='http://www.hmweb.com.vn?Tab=5' class='MenuLevel_1'>Thể thao</A>

3. Thủ tục GetSubTree

Tiếp theo là thủ tục để hiển thị tất cả các phần tử là con của một cấp menu. Bạn viết Procedure như sau:

-- =============================================
-- Author:        webmaster@hmweb.com.vn
-- Description:   <GetSubTree>
-- =============================================
CREATE PROCEDURE [dbo].[spTB_Category_GetSubTree]
@CateID int
AS
BEGIN
      SELECT CateID, 
      ParentID,
      CASE  Decen 
            WHEN 0 THEN CateName
            WHEN 1 THEN '* '+ CateName
            WHEN 2 THEN '* * '+ CateName
            WHEN 3 THEN '* * :: ' + CateName
            WHEN 4 THEN '* * :: -- ' +CateName
            WHEN 5 THEN '* * :: -- --' +CateName
      END AS CateName, 
      Decen, 
      Depth, 
      Link, 
      Target,
      CssClass, 
      Active
      FROM TB_Category WHERE ParentID=@CateID
      ORDER BY Depth 
END

 Vậy là đã có các thủ tục cơ bản của bảng Category. Website của bạn có thể có những yêu cầu khác, bạn có thể viết thêm các thủ tục theo yêu cầu. Tiếp theo chúng ta sẽ viết các hàm và procedure cho bảng TB_News

 

Xây dựng cơ sở dữ liệu cho một website phần 3

Loại: Viết store procedure phần 1

Các bài cần theo dõi của bài viết: Xây dựng cơ sở dữ liệu cho một website

Phần 1: Tạo database

Phần 2: Viết Trigger

Phần 3: Viết store procedure truy vấn, thêm, sửa, xóa một chuyên mục

Phần 4: Viết store procedure hiển thị menu đa cấp

Phần 5: Viết store Procedure thêm, sửa, xóa một bài viết

Phần 6: Viết store procedure hiển thị danh sách bài viết

Phần 7: Viết store procedure tìm kiếm bài viết

Phần 8: Viết store procedure top 10 các bài viết mới và cũ

Tiếp theo chúng ta sẽ viết các store procedure cho bảng TB_Category
1. Store procedure thêm, sửa, xóa một chuyên mục
Thường bạn viết các PROC để xử lý các hành động thêm, sửa, xóa một bản ghi bạn tách ra làm 3 PROC, Ở đây mính sẽ viết PROC spTB_Category_Edit để thực hiện cả 3 hành động trên

-- Bạn hãy tạo cho mình thói quen viết PROC theo quy tắc, ở đây mình luôn viết sp sau đó đến tên bảng ...
-- Create by webmaster@hmweb.com.vn
CREATE PROC [dbo].[spTB_Category_Edit]
@Action int,
@CateID int,
@ParentID int,
@CateName nvarchar(250),
@Link nvarchar(250),
@Target nvarchar(20),
@Active int

AS

BEGIN

      -- Nếu @Action=0 --> Xóa chuyên mục theo @CateID

      IF @Action=0

            BEGIN

                  DELETE FROM TB_Category WHERE CateID=@CateID

            END

      -- Nếu Nếu @Action=1 --> Thêm mới hoặc sửa Chuyên mục

      ELSE

            IF @Action=1

                  IF @ParentID = 0  SET @ParentID = NULL

                  BEGIN

                        --Nếu @CateID=0 --> Thêm mới chuyên mục

                        INSERT INTO

                              TB_Category

                              (

                                    ParentID,

                                    CateName,

                                    Link,

                                    Target,

                                    Active

                              )

                              VALUES

                              (

                                    @ParentID,

                                    @CateName,

                                    @Link,

                                    @Target,

                                    @Active

                              )

                        -- Cập nhật định dạng cho chuyên mục vừa thêm

                        -- Nếu lệnh thêm ở trên không xảy ra lỗi

                        IF @@ERROR=0

                              BEGIN

                                    DECLARE @CssClass nvarchar(50)

                                    DECLARE @Decen int

                                    SELECT @Decen =Decen FROM TB_Category WHERE CateID=(SELECT MAX(CateID) FROM TB_Category)

                                    IF @Decen IS NULL SET @Decen=0

                                    if @Decen =0  SET @CssClass='MenuLevel_1'

                                    if @Decen =1  SET @CssClass='MenuLevel_2'

                                    if @Decen =2  SET @CssClass='MenuLevel_3'

                                    if @Decen =3  SET @CssClass='MenuLevel_4'

                                    if @Decen =4  SET @CssClass='MenuLevel_5'

                                    UPDATE TB_Category

                                    SET CssClass =  @CssClass  WHERE CateID=(SELECT MAX(CateID) FROM TB_Category)

                              END

                  END

                  -- Nếu @CateID>0 --> Cập nhật Category Theo CateID

                  IF @CateID>0

                  BEGIN

                        UPDATE TB_Category

                        SET



                              ParentID = @ParentID,

                              CateName = @CateName,

                              Link = @Link,

                              Target = @Target,

                              Active = @Active

                        WHERE CateID=@CateID

                        IF @@ERROR=0

                        BEGIN

                              DECLARE @CssClass1 nvarchar(50)

                              DECLARE @Decen1 int

                              SELECT @Decen1 =Decen FROM TB_Category WHERE CateID=@CateID

                              IF @Decen1 IS NULL SET @Decen1=0



                              if @Decen1 =0  SET @CssClass1='MenuLevel_1'

                              if @Decen1 =1  SET @CssClass1='MenuLevel_2'

                              if @Decen1 =2  SET @CssClass1='MenuLevel_3'

                              if @Decen1 =3  SET @CssClass1='MenuLevel_4'

                              if @Decen1 =4  SET @CssClass1='MenuLevel_5'

                              UPDATE TB_Category

                              SET CssClass =  @CssClass1  WHERE CateID=@CateID

                        END

                  END

END

Trong Proc này ta sẽ thấy hành động
Nếu @Action=0 thì thực hiện việc xóa theo CateID
Nếu @Action=1 (Hoặc bạn có thể để Else vậy là đủ nếu trong điều kiện Else không có nhiều điều kiện khác) thì phụ thuộc vào @CateID. Nếu @CateID=0 thì Thêm mới, Nếu @CateID>0 thì cập nhật theo CateID
Các trường Decen và Depth đã được tự động xử lý trong Trigger trong bài trước
Trường CssClass cũng sẽ được cập nhật tự động trong PROC này, và trong Project của bạn cũng cần viết các MenuLevel tương ứng để hiển thị trên website

2. Store procedure Select TB_Category theo dạng cây chuyên mục

-- Create by webmaster@hmweb.com.vn 

CREATE PROCEDURE [dbo].[spTB_Category_GetTree]

@CateID int

AS

BEGIN

      IF @CateID =0

            BEGIN

                    SELECT

                    CateID,

                    ParentID,

                        CASE  Decen

                        WHEN 0 THEN CateName

                        WHEN 1 THEN ':: '+ CateName

                        WHEN 2 THEN ':: -- '+ CateName

                        WHEN 3 THEN ':: -- .. ' + CateName

                        WHEN 4 THEN ':: -- .. .. ' +CateName

                        WHEN 5 THEN ':: -- .. .. .. ' +CateName

                        END AS CateName,

                        Decen,

                        Depth,

                        Link,

                        Target,

                        CssClass, Active

                          FROM TB_Category

                        ORDER BY Depth ASC

            END

       ELSE

            BEGIN

                        SELECT CateID, ParentID,

                        CASE  Decen

                        WHEN 0 THEN CateName

                        WHEN 1 THEN ':: '+ CateName

                        WHEN 2 THEN ':: -- '+ CateName

                        WHEN 3 THEN ':: -- .. ' + CateName

                        WHEN 4 THEN ':: -- .. .. ' +CateName

                        WHEN 5 THEN ':: -- .. .. .. ' +CateName

                        END AS CateName,

                        Decen,

                        Depth,

                        Link,

                        Target,

                        CssClass,

                        Active

                          FROM TB_Category

                        WHERE Depth LIKE (SELECT Depth FROM TB_Category WHERE TB_Category.CateID=@CateID) + '%'

                        ORDER BY Depth asc 

            END

END

Trong store trên Mình hiển thị đến Menu cấp 5. Nếu ứng dụng của bạn có nhiều cấp hơn 5 thì bạn có thể sửa theo yêu cầu
Đề xem toàn bộ tree chuyên mục của bạn bạn dùng lệnh sau EXEC spTB_Category @CateID=0 -->Kết quả như sau (Demo)

Để hiển thị cây của chuyên mục thể thao bạn dùng lệnh EXEC spTB_Category_GetTree 5  --> Kết quả như sau:

 

3. Store procedure  xóa SubTree

Thủ tục sau sẽ xóa toàn bộ một chuyên mục và tất cả cấp "con"  của nó (Xóa SubTree). Bạn viết thủ tục như sau:

-- ================================
-- Author:  webmaster@hmweb.com.vn
-- ================================
CREATE PROCEDURE [dbo].[spTB_ChuyenMuc_DeleteNode]
@CateID int
AS
BEGIN
      DELETE FROM TB_Category
      WHERE Depth LIKE (
      SELECT Depth FROM TB_Category WHERE CateID = @CateID
      ) + '%'
END
--Lưu ý là khi bạn xóa chuyên muc hoặc Subtree bạn cần chắc chắn muốn xóa và cần xóa hế quan hệ dữ liệu

 

Xây dựng cơ sở dữ liệu cho một website phần 2

Loại: Viết Trigger

Các bài cần theo dõi của bài viết: Xây dựng cơ sở dữ liệu cho một website

Phần 1: Tạo database

Phần 2: Viết Trigger

Phần 3: Viết store procedure truy vấn, thêm, sửa, xóa một chuyên mục

Phần 4: Viết store procedure hiển thị menu đa cấp

Phần 5: Viết store Procedure thêm, sửa, xóa một bài viết

Phần 6: Viết store procedure hiển thị danh sách bài viết

Phần 7: Viết store procedure tìm kiếm bài viết

Phần 8: Viết store procedure top 10 các bài viết mới và cũ

Viết các TRIGGER: Tiếp theo mình sẽ giới thiệu các TRIGGER để sinh và cập nhật tự động cho bảng TB_Category (Độ sâu vầ phân cấp của chuyên mục) và bảng TB_News

1. Trigger For TB_Category

Với bảng TB_Category để thể hiện các chuyên mục của website và cũng để thể hiện menu đa cấp nên chúng ta cần viết các Trigger để tự động cập nhật độ sâu và phân cấp cho menu. Như vậy mính sẽ phải viết 2 Trigger For Update và For Insert

a. Trigger For Insert

-- Create by webmaster@hmweb.com.vn

CREATE TRIGGER [dbo].[TB_Category_InsertTrigger]

ON [dbo].[TB_Category]

FOR INSERT AS
-- Tính và cập nhật lại Độ sâu và phân cấp của chuyên mục (For Inserted)

UPDATE child

      SET Decen = ISNULL(parent.Decen + 1,0),

      Depth = ISNULL(parent.Depth,'/') + LTrim(Str(child.CateID)) + '/'

 FROM TB_Category child INNER JOIN inserted i ON i.CateID=child.CateID

 LEFT OUTER JOIN TB_Category parent ON child.ParentID=parent.CateID

 b. Trigger For Update

-- Create by webmaster@hmweb.com.vn

CREATE TRIGGER [dbo].[TB_Category_UpdateTrigger]

ON [dbo].[TB_Category]

FOR UPDATE AS



IF UPDATE (ParentID)

-- Thực hiện cập nhật độ sâu và Phân cấp của thư mục

UPDATE child



      SET Decen = child.Decen - old.Decen + ISNULL(parent.Decen + 1,0),

      Depth = ISNULL(parent.Depth,'/') + LTrim(Str(old.CateID)) + '/' +

                    right(child.Depth, len(child.Depth) - len(old.Depth))



FROM TB_Category child

INNER JOIN inserted old ON child.Depth LIKE old.Depth + '%'

LEFT OUTER JOIN TB_Category parent ON old.ParentID=parent.CateID