Может ли мой источник привязки сообщить мне, произошло ли изменение?

Ответ 1

Вам нужно будет реализовать интерфейс INotifyPropertyChanged из ваших классов объектов, а затем поймать всякий раз, когда происходят изменения с помощью соответствующих обработчиков событий для вашего класса типа в вашем свойстве DataSource BindingSource.

Один объект, предлагающий то, что вам требуется, это DataSet, содержащий как исходное, так и текущее (измененное) состояние постоянного объекта. Затем, когда вы отменяете, все, что вам нужно вызвать, это метод Rollback(). Когда вы принимаете изменения, тогда вызов метода AcceptChanges() будет выполняться.

Помимо DataSet, возможно, использование ORM, такого как NHibernate, выполнит эту работу для вас, а также позволит вам использовать специально определенные объекты вместо DataSet. Сохранение API ISession в активном состоянии в вашей форме позволит ISession отслеживать ваши изменения, какими бы они ни были на любом объекте, если это известно NHibernate.

Другое решение, реализующее интерфейс INotifyPropertyChanged, находится в настройщике свойств, вы можете запасать исходное значение в частном поле или для каждого свойства объекта. Вы могли бы просто иметь абстрактный класс с свойством HasChanges, возвращающим, является ли каждое свойство его исходным состоянием, а затем соответствующим образом возвращать true или false.

У меня есть вопрос относительно нашего интересного начального обсуждения. Я просто хочу убедиться в одном. Позвольте назвать это языковым барьером, если хотите. Но публикация события PropertyChanged через интерфейс INotifyPropertyChanged также каким-то образом "откатывает" объект в исходное состояние. Единственная деталь, которую вы должны были позаботиться, состоит в том, что, если пользователь говорит, что он не хочет сохранять изменения, перезагрузите этот CurrentItem из базовой базы данных с помощью класса BackgroundWorker и сделайте это! Без вашего графического интерфейса ваш пользователь не отменил изменения, и вы вернули объект в исходное состояние по умолчанию.

Ну, я думаю, здесь достаточно деталей, чтобы сделать себе идею, плюс все другие хорошие ответы, предоставленные другими. Я уверен, вы найдете свой способ выполнить то, что вы хотите.

Лучший успех! =)

Ответ 2

Будет правильным, вы должны реализовать INotifyPropertyChanged, в идеале в сочетании с IDataInfoError, чтобы получить видимую информацию для ваших пользователей.

Чтобы ваши объекты получили состояние и уведомление об редактировании, попробуйте использовать IEditableObject.

Все три интерфейса используются по умолчанию из WinForms и облегчают жизнь программистам.

Ответ 3

Вместо того, чтобы листать бит, вы можете проверить состояние на моментальный снимок вашего исходного состояния.

Ответ 4

Когда вы открываете детали, вы можете сделать клон объекта, который вы собираетесь изменить.

Затем, когда пользователь пытается закрыть форму, вы можете сравнить клон (объект в исходном состоянии) с измененным (или нет) объектом. Если клон и объект не равны, вы можете запросить пользователя.

Ответ 5

Вы можете свернуть свой собственный источник привязки и реализовать его, чтобы делать то, что вам нужно, так, как вам не нужна обработка INotifyChange для каждой формы - вы просто позволяете BindingSource предоставить вам измененный элемент - это работает, когда BindingSource - привязываемое управление .UpdateSourceTrigger установлено на UpdateOnPropertyChanged. мгновенно (хорошо почти).

Вот что-то, чтобы вы начали - я нашел его в сети несколько лет назад, я не помню создателя кода, я немного изменил его для своей цели.

    Imports System.ComponentModel.Design
    Imports System.Windows.Forms
    Imports System.ComponentModel



    Public Class BindingSourceExIsDirty
    Inherits System.Windows.Forms.BindingSource
    Implements INotifyPropertyChanged

    #Region "DECLARATIONS AND PROPERTIES"

    Private _displayMember As String
    Private _dataTable As DataTable
    Private _dataSet As DataSet
    Private _parentBindingSource As BindingSource
    Private _form As System.Windows.Forms.Form
    Private _usercontrol As System.Windows.Forms.Control



    Private _isCurrentDirtyFlag As Boolean = False

    Public Property IsCurrentDirty() As Boolean
        Get
            Return _isCurrentDirtyFlag
        End Get
        Set(ByVal value As Boolean)
            If _isCurrentDirtyFlag <> value Then
                _isCurrentDirtyFlag = value
                Me.OnPropertyChanged(value.ToString())
                If value = True Then 'call the event when flag is set
                    OnCurrentIsDirty(New EventArgs)

                End If
            End If
        End Set
    End Property

    Private _objectSource As String

    Public Property ObjectSource() As String
        Get
            Return _objectSource
        End Get
        Set(ByVal value As String)
            _objectSource = value
            Me.OnPropertyChanged(value)
        End Set
    End Property   


'    Private _autoSaveFlag As Boolean
'
'    Public Property AutoSave() As Boolean
'        Get
'            Return _autoSaveFlag
'        End Get
'        Set(ByVal value As Boolean)
'           _autoSaveFlag = value
'           Me.OnPropertyChanged(value.ToString())
'        End Set
'    End Property  

    #End Region

    #Region "EVENTS"


    'Current Is Dirty Event
    Public Event CurrentIsDirty As CurrentIsDirtyEventHandler

    ' Delegate declaration.
    Public Delegate Sub CurrentIsDirtyEventHandler(ByVal sender As Object, ByVal e As EventArgs)

    Protected Overridable Sub OnCurrentIsDirty(ByVal e As EventArgs)
        RaiseEvent CurrentIsDirty(Me, e)
    End Sub

     'PropertyChanged Event 
    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    Protected Overridable Sub OnPropertyChanged(ByVal info As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info))
    End Sub 



    #End Region

    #Region "METHODS"


    Private Sub _BindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.BindingCompleteEventArgs) Handles Me.BindingComplete


        If e.BindingCompleteContext = BindingCompleteContext.DataSourceUpdate Then
            If e.BindingCompleteState = BindingCompleteState.Success And Not e.Binding.Control.BindingContext.IsReadOnly Then

                'Make sure the data source value is refreshed (fixes problem mousing off control)
                e.Binding.ReadValue()
                'if not focused then not a user edit.
                If Not e.Binding.Control.Focused Then Exit Sub

                'check for the lookup type of combobox that changes position instead of value
                If TryCast(e.Binding.Control, ComboBox) IsNot Nothing Then
                    'if the combo box has the same data member table as the binding source, ignore it
                    If CType(e.Binding.Control, ComboBox).DataSource IsNot Nothing Then
                        If TryCast(CType(e.Binding.Control, ComboBox).DataSource, BindingSource) IsNot Nothing Then
                            If CType(CType(e.Binding.Control, ComboBox).DataSource, BindingSource).DataMember = (Me.DataMember) Then
                                Exit Sub
                            End If

                        End If

                    End If
                End If
                IsCurrentDirty = True 'set the dirty flag because data was changed
            End If
        End If



  End Sub   

    Private Sub _DataSourceChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.DataSourceChanged
        _parentBindingSource = Nothing
        If Me.DataSource Is Nothing Then
            _dataSet = Nothing
        Else
            'get a reference to the dataset
            Dim bsTest As BindingSource = Me
            Dim dsType As Type = bsTest.DataSource.GetType
            'try to cast the data source as a binding source
            Do While Not TryCast(bsTest.DataSource, BindingSource) Is Nothing
                'set the parent binding source reference
                If _parentBindingSource Is Nothing Then _parentBindingSource = bsTest
                'if cast was successful, walk up the chain until dataset is reached
                bsTest = CType(bsTest.DataSource, BindingSource)
            Loop
            'since it is no longer a binding source, it must be a dataset or something else
            If TryCast(bsTest.DataSource, DataSet) Is Nothing Then
                'Cast as dataset did not work

                If dsType.IsClass = False Then
                    Throw New ApplicationException("Invalid Binding Source ")
                Else
                    _dataSet = Nothing

                End If
            Else

                _dataSet = CType(bsTest.DataSource, DataSet)
            End If


            'is there a data member - find the datatable
            If Me.DataMember <> "" Then
                _DataMemberChanged(sender, e)
            End If 'CType(value.GetService(GetType(IDesignerHost)), IDesignerHost)
            If _form Is Nothing Then GetFormInstance()
            If _usercontrol Is Nothing Then GetUserControlInstance()
        End If
    End Sub

    Private Sub _DataMemberChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.DataMemberChanged
        If Me.DataMember = "" Or _dataSet Is Nothing Then
            _dataTable = Nothing
        Else
            'check to see if the Data Member is the name of a table in the dataset
            If _dataSet.Tables(Me.DataMember) Is Nothing Then
                'it must be a relationship instead of a table
                Dim rel As System.Data.DataRelation = _dataSet.Relations(Me.DataMember)
                If Not rel Is Nothing Then
                    _dataTable = rel.ChildTable
                Else
                    Throw New ApplicationException("Invalid Data Member")
                End If
            Else
                _dataTable = _dataSet.Tables(Me.DataMember)
            End If
        End If
    End Sub

    Public Overrides Property Site() As System.ComponentModel.ISite
        Get
            Return MyBase.Site
        End Get
        Set(ByVal value As System.ComponentModel.ISite)
            'runs at design time to initiate ContainerControl
            MyBase.Site = value
            If value Is Nothing Then Return
            ' Requests an IDesignerHost service using Component.Site.GetService()
            Dim service As IDesignerHost = CType(value.GetService(GetType(IDesignerHost)), IDesignerHost)
            If service Is Nothing Then Return
            If Not TryCast(service.RootComponent, Form) Is Nothing Then
                _form = CType(service.RootComponent, Form)
            ElseIf Not TryCast(service.RootComponent, UserControl) Is Nothing Then
                _usercontrol = CType(service.RootComponent, UserControl)
            End If

        End Set
    End Property

    Public Function GetFormInstance() As System.Windows.Forms.Form
        If _form Is Nothing And Me.CurrencyManager.Bindings.Count > 0 Then
            _form = Me.CurrencyManager.Bindings(0).Control.FindForm()

        End If
        Return _form
    End Function

    ''' <summary>
    ''' Returns the First Instance of the specified User Control
    ''' </summary>
    ''' <returns>System.Windows.Forms.Control</returns>
    Public Function GetUserControlInstance() As System.Windows.Forms.Control
        If _usercontrol Is Nothing And Me.CurrencyManager.Bindings.Count > 0 Then
            Dim _uControls() As System.Windows.Forms.Control
            _uControls = Me.CurrencyManager.Bindings(0).Control.FindForm.Controls.Find(Me.Site.Name.ToString(), True)
            _usercontrol = _uControls(0)

        End If
        Return _usercontrol
    End Function


    '============================================================================

    'Private Sub _PositionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Me.PositionChanged

    '    If IsCurrentDirty Then
    '        If AutoSave Then  ' IsAutoSavingEvent
    '            Try
    '                'cast table as ITableUpdate to get the Update method
    '                '  CType(_dataTable, ITableUpdate).Update()
    '            Catch ex As Exception
    '               ' - needs to raise an event 
    '            End Try
    '        Else
    '            Me.CancelEdit()
    '            _dataTable.RejectChanges()
    '        End If
    '        IsCurrentDirty = False
    '    End If
    'End Sub


    #End Region

End Class `