OpenAccess快速入門13

2013-10-09

1092
0
2013-10-13

OpenAccess快速入門13

DotBlogs Tags: LINQ, OpenAccess, ORM, Oracle, VB.NET, 隨手記

OpenAccess 快速入門將協助我們熟悉 OpenAccess，第十三篇說明如何透過 OpenAccess 刪除資料的同時，刪除關聯的資料。

PS. 老婆待產中，在待產室中寫Code、貼文，真是一種奇妙的事情。

----------

這篇是快速入門系列的最後一篇，要說明的是如何在刪除 Master 資料時，一併將關聯的明細資料刪除。

一開始要做一點準備工作，首先，在 ProductMgmt 類別裡，把查詢一筆產品資料的程式碼重構，抽成獨立的函式：

Public Function GetProduct(ByVal Id As Long) As Products
    Dim product = (From x In cxt.Products
                          Where x.PRODUCTID = Id
                          Select x).FirstOrDefault()
    Return product
End Function

請注意，要把存取範圍設定為 Public，以利單元測試和其他專案調用。再來，我們確認一下資料庫中，目前「進擊類」的類別和所關聯的產品資料：

143650

準備工作完成後，我們在 Model 專案中建立一個 Categories 類別，撰寫以下刪除作業所需的程式碼：

Public Class CategoriesMgmt
    Private cxt As SecondModel
    Public Sub New()
        cxt = New SecondModel()
    End Sub

    Public Function GetAttackCategories() As IList(Of Categories)
        Dim query = From x In cxt.Categories
                    Where x.CATEGORYNAME = "進擊類"
                    Select x
        Return query.ToList()
    End Function

    Public Function DeleteCategory(id As Long) As Boolean
        Dim category = GetCategory(id)
        If category Is Nothing Then
            Throw New System.NullReferenceException(String.Format("查無類別編號：{0} 的資料。", id))
        End If
        cxt.Delete(category)
        cxt.SaveChanges()
        Return True
    End Function

    Private Function GetCategory(ByVal id As Long) As Categories
        Dim category = (From x In cxt.Categories
                              Where x.CATEGORYID = id
                              Select x).FirstOrDefault()
        Return category
    End Function

End Class

和前一篇 ProductMgmt 類別的相同，主要刪除作業由 DeleteCategory() 函式處理，GetAttackCategories() 函式是之後要給頁面查詢使用的函式。現在我們加入單元測試來驗證程式是否可正確完成刪除類別及所屬產品資料的動作：

<TestMethod()> _
Public Sub DeleteCategoryTest()
    Dim target = New CategoriesMgmt()
    Dim createBo = New CreateEntities()
    Dim productBo = New ProductsMgmt()
    Dim tempProduct = createBo.CreateProductAndCategory()
    Dim expected As Boolean = True
    Dim actual = target.DeleteCategory(tempProduct.CATEGORYID)
    Assert.AreEqual(expected, actual)
    Assert.IsNull(productBo.GetProduct(tempProduct.CATEGORYID))
End Sub

單元測試失敗了！為什麼呢？看看錯誤訊息：

144040