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

MS2

Browse Source
This commit is contained in:
SchreiberM
2017-03-07 16:51:36 +01:00
parent d821a07c18
commit dd721411f8
13 changed files with 681 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
app/RecordOrganizer_RightManager/frmStart.vb
View File

@@ -1,7 +1,6 @@
Imports DD_Rights
Public Class frmStart
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
DD_Rights.clsLogger.Init(Application.UserAppDataPath() & "\Log", Environment.UserName)
If DD_Rights.clsDatabase.Init(My.Settings.MyConnectionString) = False Then
@@ -22,7 +21,7 @@ Public Class frmStart
If USER_DT.Rows.Count = 0 Then
clsLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradminsitration!", False)
clsLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradministration!", False)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
Dim msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.")
@@ -89,13 +88,13 @@ Public Class frmStart
Else
btnWorkUserRights.Visible = False
End If
DT_WORK_USER_CONTROL_SUPERVISOR = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_SUPERVISOR_ADDED)
If DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count > 0 And (Environment.UserName.ToLower = "windream" Or Environment.UserName.ToLower = "schreiberm") Then
btnWorkUserRightsSV_ADD.Text = "New Supervisor for Record/Entity added." & vbNewLine & "Amount: " & DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count.ToString
btnWorkUserRightsSV_ADD.Visible = True
Else
btnWorkUserRightsSV_ADD.Visible = False
End If
'DT_WORK_USER_CONTROL_SUPERVISOR = clsDatabase.Return_Datatable(SQL_USER_RIGHTS_SUPERVISOR_ADDED)
'If DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count > 0 And (Environment.UserName.ToLower = "windream" Or Environment.UserName.ToLower = "schreiberm") Then
' btnWorkUserRightsSV_ADD.Text = "New Supervisor for Record/Entity added." & vbNewLine & "Amount: " & DT_WORK_USER_CONTROL_SUPERVISOR.Rows.Count.ToString
' btnWorkUserRightsSV_ADD.Visible = True
'Else
' btnWorkUserRightsSV_ADD.Visible = False
'End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' Me.Visible = False
@@ -112,7 +111,7 @@ Public Class frmStart
Check_USER_REWORK()
End Sub
Private Sub btnWorkUserRightsSV_ADD_Click(sender As Object, e As EventArgs) Handles btnWorkUserRightsSV_ADD.Click
Private Sub btnWorkUserRightsSV_ADD_Click(sender As Object, e As EventArgs)
frmSupervisorEntity.ShowDialog()
Check_USER_REWORK()
End Sub
@@ -159,4 +158,8 @@ Public Class frmStart
Private Sub btnCheckRenewUserRights_Click(sender As Object, e As EventArgs) Handles btnCheckRenewUserRights.Click
frmUsersReworkRights.ShowDialog()
End Sub
Private Sub btnCheckRenewRecordRights_Click(sender As Object, e As EventArgs) Handles btnCheckRenewRecordRights.Click
frmCheckRightsRecords.ShowDialog()
End Sub
End Class