AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS TBPM_USER

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-03-08 16:25:18 +01:00
parent 65ddd4ae22
commit 3fed2d8551
21 changed files with 487 additions and 931 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/DD_PM_WINDREAM/frmProfileDesigner.vb
View File

@@ -109,7 +109,7 @@ Public Class frmProfileDesigner
Me.TBPM_PROFILETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE)
Me.TBPM_TYPETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_TYPE)
Me.TBPM_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_KONFIGURATION)
Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_USER)
Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
Catch ex As Exception
MsgBox("Fehler bei Refresh_Profildaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
@@ -250,7 +250,7 @@ Public Class frmProfileDesigner
End Sub
Private Sub TBPM_USERBindingSource_AddingNew(sender As System.Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPM_USERBindingSource.AddingNew
DD_DMSLiteDataSet.TBPM_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName
DD_DMSLiteDataSet.TBDD_USER.ADDED_WHOColumn.DefaultValue = Environment.UserName
End Sub
Private Sub TBPM_PROFILE_ZuordnungDataGridView_SelectionChanged(sender As Object, e As System.EventArgs) Handles TBPM_PROFILE_ZuordnungDataGridView.SelectionChanged
If TabControl1.SelectedIndex = 1 Then
@@ -280,10 +280,10 @@ Public Class frmProfileDesigner
Sub Save_User()
Try
TBPM_USERBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBPM_USER.GetChanges Is Nothing = False Then
If DD_DMSLiteDataSet.TBDD_USER.GetChanges Is Nothing = False Then
CHANGED_WHOTextBox1.Text = Environment.UserName
TBPM_USERBindingSource.EndEdit()
TBPM_USERTableAdapter.Update(DD_DMSLiteDataSet.TBPM_USER)
TBPM_USERTableAdapter.Update(DD_DMSLiteDataSet.TBDD_USER)
Me.lblSaveUser.Visible = True
Else
Me.lblSaveUser.Visible = False
@@ -756,7 +756,7 @@ Public Class frmProfileDesigner
End Sub
Sub Load_User()
Try
Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_USER)
Me.TBPM_USERTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_USER)
Catch ex As Exception
MsgBox("Fehler bei LoadUsers: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
End Try