AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2016-11-23 10:24:21 +01:00
parent a1d1b2a88e
commit fc9f391307
79 changed files with 7388 additions and 4524 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
app/DD-Record-Organiser/frmRight_Management.vb
View File

@@ -12,12 +12,12 @@
Private Sub Save_User_Rights_Data()
Try
Me.Validate()
Me.TBPMO_RIGHT_USERBindingSource.EndEdit()
'Me.TBPMO_RIGHT_USERBindingSource.EndEdit()
If DD_DMSDataSet.TBPMO_RIGHT_USER.GetChanges() Is Nothing = False Then
'Me.TBPMO_RIGHT_USERDataGridView.CurrentRow.Cells("colADDED_WHO").Value = Environment.UserName
Me.TBPMO_RIGHT_USERBindingSource.EndEdit()
Me.TBPMO_RIGHT_USERTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_USER)
'Me.TBPMO_RIGHT_USERDataGridView.CurrentRow.Cells("colADDED_WHO").Value = USER_USERNAME
'Me.TBPMO_RIGHT_USERBindingSource.EndEdit()
'Me.TBPMO_RIGHT_USERTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_USER)
tschangedlabel.Text = "Right User changed - " & Now
tschangedlabel.Visible = True
Else
@@ -35,7 +35,7 @@
Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
If DD_DMSDataSet.TBPMO_RIGHT_GROUP.GetChanges Is Nothing = False Then
Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = Environment.UserName
Me.TBPMO_RIGHT_GROUPDataGridView.CurrentRow.Cells("DataGridViewTextBoxColumn6").Value = USER_USERNAME
Me.TBPMO_RIGHT_GROUPBindingSource.EndEdit()
Me.TBPMO_RIGHT_GROUPTableAdapter.Update(DD_DMSDataSet.TBPMO_RIGHT_GROUP)
tschangedlabel.Text = "Right Group changed - " & Now
@@ -80,7 +80,7 @@
Private Sub frmRight_Management_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Save_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView")
Save_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView")
'Save_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView")
End Sub
Private Sub frmGroup_Rights_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Refresh_Entities()
@@ -89,25 +89,24 @@
Me.TBWH_USER_GROUPSTableAdapter.Fill(Me.DD_ECMAdmin.TBWH_USER_GROUPS)
Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_USER_GROUPSTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER_GROUPS)
Me.TBPMO_RIGHT_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RIGHT_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RIGHT_USER)
Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBDD_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_USER)
Catch ex As Exception
MsgBox("Error in Loading Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Refresh_Rights_Groups()
Refresh_Rights_Users()
Load_Datagrid(TBPMO_RIGHT_GROUPDataGridView, "TBPMO_RIGHT_GROUPDataGridView")
Load_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView")
'Load_Datagrid(TBPMO_RIGHT_USERDataGridView, "TBPMO_RIGHT_USERDataGridView")
End Sub
Sub Refresh_Rights_Users()
Try
Me.TBPMO_RIGHT_USERTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_RIGHT_USERTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RIGHT_USER)
USER_RIGHTSTableAdapter.Connection.ConnectionString = MyConnectionString
Me.USER_RIGHTSTableAdapter.Fill(Me.DD_ECMAdmin.USER_RIGHTS, USER_LANGUAGE)
Catch ex As Exception
MsgBox("Error in Refresh_Users_Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Error loading users:" & vbNewLine & ex.Message)
End Try
End Sub
@@ -129,14 +128,14 @@
End Sub
Private Sub TBPMO_RIGHT_GROUPBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.AddingNew
Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP.ADDED_WHOColumn.DefaultValue = Environment.UserName
Me.DD_DMSDataSet.TBPMO_RIGHT_GROUP.ADDED_WHOColumn.DefaultValue = USER_USERNAME
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Save_Group_Rights_Data()
End Sub
Private Sub TBPMO_RIGHT_GROUPBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.CurrentChanged, TBPMO_RIGHT_USERBindingSource.CurrentChanged
Private Sub TBPMO_RIGHT_GROUPBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPMO_RIGHT_GROUPBindingSource.CurrentChanged
tschangedlabel.Visible = False
End Sub
@@ -151,4 +150,11 @@
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
Refresh_Rights_Users()
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 1
Refresh_Rights_Users()
End Select
End Sub
End Class