在上一篇「擴展 CommandField 類別 - 刪除提示訊息」中實作了 TBCommandField 類別,設定 DeleteConfirmMessage 屬性可以輕易設定刪除提示訊息。

這篇文章針對 TBCommandField 類別做進一步的擴展,我們希望在刪除訊息中可以加入指定的欄位值,讓使用者明確知道刪除的資料,例如刪除某個產品資料時,可以顯示這個產品的名稱在提示訊息中。

針對這個需求,在 TBCommandField 類別新增一個 DataField 屬性,設定刪除提示訊息中顯示欄位值的資料欄位名稱。因為要取得繫結的欄位資料,所以在 SetDeleteButton 私有方法中,設定刪除鈕 DataBinding 事件處理函式為 OnDataBindField,當 GridView 做 DataBind 時,就會引發子控制項的 DataBinding 事件,此時就會執行 OnDataBindField 方法,這時可以取得繫結的資料的 DataRowView,然後就可以從 DataRowView 中取得 DateField 的欄位值。

實作程式碼如下

  1 Imports System
  2 Imports System.Collections.Generic
  3 Imports System.ComponentModel
  4 Imports System.Text
  5 Imports System.Web
  6 Imports System.Web.UI
  7 Imports System.Web.UI.WebControls
  8 
  9 
 10 Public Class TBCommandField
 11     Inherits CommandField
 12 
 13     Private FDeleteConfirmMessage As String = String.Empty
 14     Private FDataField As String = String.Empty
 15 
 16     ''' <summary>
 17     ''' 刪除提示訊息。
 18     ''' </summary>
 19     Public Property DeleteConfirmMessage() As String
 20         Get
 21             Return FDeleteConfirmMessage
 22         End Get
 23         Set(ByVal value As String)
 24             FDeleteConfirmMessage = value
 25         End Set
 26     End Property
 27 
 28     ''' <summary>
 29     ''' 刪除提示訊息顯示欄位值的資料欄位名稱。
 30     ''' </summary>
 31     Public Property DataField() As String
 32         Get
 33             Return FDataField
 34         End Get
 35         Set(ByVal value As String)
 36             FDataField = value
 37         End Set
 38     End Property
 39 
 40     ''' <summary>
 41     ''' 初始化儲存格。
 42     ''' </summary>
 43     ''' <param name="cell">要初始化的儲存格。</param>
 44     ''' <param name="cellType">儲存格類型。</param>
 45     ''' <param name="rowState">儲存格狀態。</param>
 46     ''' <param name="rowIndex">資料列之以零起始的索引。</param>
 47     ''' <remarks></remarks>
 48     Public Overrides Sub InitializeCell(ByVal cell As DataControlFieldCell, ByVal cellType As DataControlCellType,
               ByVal
 rowState As DataControlRowState, ByVal rowIndex As Integer)
 49         MyBase.InitializeCell(cell, cellType, rowState, rowIndex)
 50         If Me.ShowDeleteButton AndAlso Me.Visible AndAlso Me.DeleteConfirmMessage <> String.Empty Then
 51             SetDeleteButton(cell)
 52         End If
 53     End Sub
 54 
 55     ''' <summary>
 56     ''' 建立新的 TBCommandField 物件。 
 57     ''' </summary>
 58     Protected Overrides Function CreateField() As DataControlField
 59         Return New TBCommandField()
 60     End Function
 61 
 62     ''' <summary>
 63     ''' 將目前 TBCommandField 物件的屬性複製到指定之 DataControlField 物件。
 64     ''' </summary>
 65     ''' <param name="newField">目的 DataControlField 物件。</param>
 66     Protected Overrides Sub CopyProperties(ByVal NewField As DataControlField)
 67         Dim oNewField As TBCommandField
 68 
 69         oNewField = DirectCast(NewField, TBCommandField)
 70         oNewField.DeleteConfirmMessage = Me.DeleteConfirmMessage
 71         oNewField.DataField = Me.DataField
 72         MyBase.CopyProperties(NewField)
 73     End Sub
 74 
 75     ''' <summary>
 76     ''' 設定刪除鈕。
 77     ''' </summary>
 78     ''' <param name="Cell">儲存格。</param>
 79     Private Sub SetDeleteButton(ByVal Cell As DataControlFieldCell)
 80         Dim oControl As Control
 81 
 82         For Each oControl In Cell.Controls
 83             If TypeOf (oControl) Is IButtonControl Then
 84                 If DirectCast(oControl, IButtonControl).CommandName = "Delete" Then
 85                     '設定刪除鈕的 DataBinding  事件處理函式
 86                     AddHandler oControl.DataBinding, New EventHandler(AddressOf Me.OnDataBindField)
 87                     Exit Sub
 88                 End If
 89             End If
 90         Next
 91     End Sub
 92 
 93     ''' <summary>
 94     ''' 將欄位值繫結至 TBCommandField 物件。
 95     ''' </summary>
 96     Protected Overridable Sub OnDataBindField(ByVal sender As ObjectByVal e As EventArgs)
 97         Dim oControl As Control
 98         Dim oDataItem As Object
 99         Dim oDataRowView As Data.DataRowView
100         Dim sScript As String
101         Dim sMessage As String
102 
103         oControl = DirectCast(sender, Control)
104 
105         If Me.DataField <> String.Empty Then
106             '處理訊息中的欄位值
107             oDataItem = DataBinder.GetDataItem(oControl.NamingContainer)
108             oDataRowView = CType(oDataItem, Data.DataRowView)
109             sMessage = String.Format(Me.DeleteConfirmMessage, oDataRowView.Item(Me.DataField).ToString())
110         Else
111             sMessage = Me.DeleteConfirmMessage
112         End If
113 
114         sMessage = Strings.Replace(sMessage, "'""\'"'處理單引號
115         sScript = "if (confirm('" & sMessage & "')==false) {return false;}"
116         DirectCast(oControl, WebControl).Attributes("onclick"= sScript
117     End Sub
118 
119 End Class
120 

使用時在 aspx 程式碼中設定其 DeleteConfirmMessage 及 DateField 屬性就在刪除提示訊息加入欄位值。其中 DeleteConfirmMessage="確定刪除 {0} 這筆資料嗎?" 中的 {0} 就是 ProductName 欄位值顯示的位置。

<bee:TBCommandField ShowDeleteButton="True" ShowEditButton="True" DataField="ProductName" DeleteConfirmMessage="確定刪除 {0} 這筆資料嗎?" ButtonType="Button" />

執行結果如下



posted on 2007-12-15 22:27  jeff377  阅读(675)  评论(0编辑  收藏  举报