ZooFLow: remove SaveData implements

This commit is contained in:
Jonathan Jenne 2021-05-04 16:30:47 +02:00
parent 15f3de7903
commit cf8469da97
2 changed files with 3 additions and 5 deletions

View File

@ -49,7 +49,7 @@ Public Class frmAdmin_IDBEntity
End If End If
End Sub End Sub
Public Function SaveData() As Boolean Implements IAdminForm.SaveData Public Function SaveData() As Boolean
Try Try
TBIDB_BUSINESS_ENTITYBindingSource.EndEdit() TBIDB_BUSINESS_ENTITYBindingSource.EndEdit()

View File

@ -69,10 +69,8 @@ Public Class frmAdmin_SourceSQL
Return oControlList Return oControlList
End Function End Function
Public Function SaveData() As Boolean Implements IAdminForm.SaveData Public Function SaveData() As Boolean
Try Try
TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit() TBZF_ADMIN_SOURCE_SQLBindingSource.EndEdit()
If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then If DSIDB_Stammdaten.TBZF_ADMIN_SOURCE_SQL.GetChanges() IsNot Nothing Then
@ -91,7 +89,7 @@ Public Class frmAdmin_SourceSQL
Return True Return True
Catch ex As Exception Catch ex As Exception
ShowErrorMessage(ex) ShowErrorMessage(ex)
Return False Return False
End Try End Try
End Function End Function