38 lines
1.3 KiB
VB.net
38 lines
1.3 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class frmAdmin_CWProfile
|
|
'Inherits frmAdmin_Base
|
|
Implements frmAdmin_Interface
|
|
|
|
Public Property PrimaryKey As Integer Implements frmAdmin_Interface.PrimaryKey
|
|
|
|
Public Property HasChanges As Boolean Implements frmAdmin_Interface.HasChanges
|
|
|
|
Public Property IsInsert As Boolean Implements frmAdmin_Interface.IsInsert
|
|
|
|
Private Property Logger As Logger Implements frmAdmin_Interface.Logger
|
|
|
|
Private Sub frmAdmin_CWProfile_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
Public Function SaveData() As Boolean Implements frmAdmin_Interface.SaveData
|
|
|
|
End Function
|
|
|
|
Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
|
|
Me.Validate()
|
|
Me.TBCW_PROFILESBindingSource.EndEdit()
|
|
Me.TableAdapterManager.UpdateAll(Me.DBCW_Stammdaten)
|
|
|
|
End Sub
|
|
|
|
Private Sub FillToolStripButton_Click(sender As Object, e As EventArgs) Handles FillToolStripButton.Click
|
|
Try
|
|
Me.TBCW_PROFILESTableAdapter.Fill(Me.DBCW_Stammdaten.TBCW_PROFILES, CType(GUIDToolStripTextBox.Text, Integer))
|
|
Catch ex As System.Exception
|
|
System.Windows.Forms.MessageBox.Show(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
End Class |