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

MS18.10.2017

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2017-10-18 11:40:17 +02:00
parent 76796df71f
commit ccdac594d1
12 changed files with 1077 additions and 974 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD-Record-Organizer/ClassRecordCommands.vb
View File

@ -4,7 +4,7 @@
Return ClassDatabase.Execute_non_Query(SQL) = True Return ClassDatabase.Execute_non_Query(SQL) = True
End Function End Function
Public Shared Function GetLastRecord() Public Shared Function GetLastRecord()
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = " & CURRENT_ENTITY_ID & " AND UPPER(ADDED_WHO) = '" & USER_USERNAME & "'" Dim SQL = String.Format("SELECT MAX(GUID) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND FORM_ID = {0} AND UPPER(ADDED_WHO) = UPPER('{1}') AND DELETED = 0", CURRENT_ENTITY_ID, USER_USERNAME)
Return ClassDatabase.Execute_Scalar(SQL) Return ClassDatabase.Execute_Scalar(SQL)
End Function End Function

5
app/DD-Record-Organizer/ClassRecordState.vb
View File

@ -56,10 +56,11 @@
ElseIf dt.Rows.Count = 0 Then ElseIf dt.Rows.Count = 0 Then
Return Nothing Return Nothing
Else Else
Throw New Exception("Record" & RecordId & " is not unique") MsgBox("Unexpected behaviour in IsRecordLocked: ", MsgBoxStyle.Information)
Return Nothing
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in IsRecordInWork: " + vbNewLine + ex.Message, MsgBoxStyle.Critical) MsgBox("Error in IsRecordLocked: " + vbNewLine + ex.Message, MsgBoxStyle.Critical)
Return Nothing Return Nothing
End Try End Try
End Function End Function

2
app/DD-Record-Organizer/ModuleMySettings.vb
View File

@ -27,6 +27,7 @@ Module ModuleMySettings
Public vWLaufwerk As String = "W" Public vWLaufwerk As String = "W"
Public vVERSION_DELIMITER As String = "~" Public vVERSION_DELIMITER As String = "~"
Public vFILE_DELIMITER As String = "_" Public vFILE_DELIMITER As String = "_"
Public AUTO_LOGOUT_USER As Integer
Public USER_IS_ADMIN = False Public USER_IS_ADMIN = False
Public USERS_LOGGED_IN = 0 Public USERS_LOGGED_IN = 0
@ -394,6 +395,7 @@ Module ModuleMySettings
vWLaufwerk = DT.Rows(0).Item("STRING1") vWLaufwerk = DT.Rows(0).Item("STRING1")
vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER") vVERSION_DELIMITER = DT.Rows(0).Item("VERSION_DELIMITER")
vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER") vFILE_DELIMITER = DT.Rows(0).Item("FILE_DELIMITER")
AUTO_LOGOUT_USER = DT.Rows(0).Item("AUTO_LOGOUT_USER")
Else Else
Return False Return False
End If End If

1
app/DD-Record-Organizer/My Project/licenses.licx
View File

@ -1,2 +1,3 @@
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraBars.Navigation.TileNavPane, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

24
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@ -1743,8 +1743,8 @@ Public Class frmConstructor_Main
End If End If
End If End If
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Try ' Try
If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then If TCDetails.SelectedTabPage.Text.StartsWith("Pos") = False Then
SELECTED_RECORD_ID = 0 SELECTED_RECORD_ID = 0
Lock_RecordControls(False) Lock_RecordControls(False)
tsButtonCancel.Visible = True tsButtonCancel.Visible = True
@ -1752,9 +1752,9 @@ Public Class frmConstructor_Main
CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID CURRENT_PARENT_ENTITY_ID = PARENT_ENTITYID
' Den Record anlegen, damit wir eine RECORD_ID bekommen ' Den Record anlegen, damit wir eine RECORD_ID bekommen
If ClassRecordCommands.CreateRecord(ENTITY_ID) = True Then If ClassRecordCommands.CreateRecord(ENTITY_ID) = True Then
' Die RECORD_ID auslesen und setzen ' Die RECORD_ID auslesen und setzen
NEW_RECORD_ID = ClassRecordCommands.GetLastRecord(ENTITY_ID) NEW_RECORD_ID = ClassRecordCommands.GetLastRecord()
CURRENT_RECORD_ID = NEW_RECORD_ID CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NEW_RECORD_ID RECORD_ID = NEW_RECORD_ID
SELECTED_RECORD_ID = NEW_RECORD_ID SELECTED_RECORD_ID = NEW_RECORD_ID
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID) ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
@ -1787,11 +1787,11 @@ Public Class frmConstructor_Main
End If End If
End If End If
Catch ex As Exception ' Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace) 'ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error tsButtonAdd", ex.Message, ex.StackTrace)
Finally ' Finally
Me.Cursor = Cursors.Default 'Me.Cursor = Cursors.Default
End Try ' End Try
End Sub End Sub
Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click
@ -2837,8 +2837,6 @@ Public Class frmConstructor_Main
If CtrlCommandUI.IsInsert = True Then If CtrlCommandUI.IsInsert = True Then
EDIT_STATE = EditState.None EDIT_STATE = EditState.None
Lock_RecordControls(True) Lock_RecordControls(True)
'Me.pnlDetails.Enabled = False
'CtrlCommandUI.IsInsert = False
End If End If
Try Try
Dim ResultMessage = Update_Record_OnChange() Dim ResultMessage = Update_Record_OnChange()
@ -6400,7 +6398,7 @@ Public Class frmConstructor_Main
If RECORD_CREATE = True Then If RECORD_CREATE = True Then
ClassRecordCommands.CreateRecord(ENTITY_ID) ClassRecordCommands.CreateRecord(ENTITY_ID)
Try Try
NEWRECORD = ClassRecordCommands.GetLastRecord(ENTITY_ID) NEWRECORD = ClassRecordCommands.GetLastRecord()
Catch ex As Exception Catch ex As Exception
Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & USER_USERNAME & "'" Dim SQL = "SELECT (MAX(GUID)) FROM TBPMO_RECORD where PARENT_RECORD = 0 AND ADDED_WHO = '" & USER_USERNAME & "'"
NEWRECORD = ClassDatabase.Execute_Scalar(SQL) NEWRECORD = ClassDatabase.Execute_Scalar(SQL)

12
app/DD-Record-Organizer/frmMain.vb
View File

@ -14,7 +14,7 @@ Public Class frmMain
Dim strIPAddress As String Dim strIPAddress As String
Public Shared TIMER_SCAN As New System.Windows.Forms.Timer Public Shared TIMER_SCAN As New System.Windows.Forms.Timer
Public Shared TIMER_INACTIVITY As New System.Windows.Forms.Timer
Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs) Private Shared Sub Scan_TickHandler(sender As Object, e As EventArgs)
Try Try
If ClassFolderWatcher.NEW_FILES = False Then Exit Sub If ClassFolderWatcher.NEW_FILES = False Then Exit Sub
@ -600,6 +600,16 @@ Public Class frmMain
MsgBox(String.Format("Your version '{0}' does not match the minimum required version and needs to be updated! Please contact Your systemadministrator!" & vbNewLine & "Application will close now.", My.Application.Info.Version.ToString), MsgBoxStyle.Exclamation) MsgBox(String.Format("Your version '{0}' does not match the minimum required version and needs to be updated! Please contact Your systemadministrator!" & vbNewLine & "Application will close now.", My.Application.Info.Version.ToString), MsgBoxStyle.Exclamation)
Me.Close() Me.Close()
End If End If
Try
If USER_IS_ADMIN = False Or AUTO_LOGOUT_USER > 0 Then
TIMER_INACTIVITY.Interval = AUTO_LOGOUT_USER
'TIMER_INACTIVITY.Enabled = True
'AddHandler TIMER_INACTIVITY.Tick, AddressOf Scan_TickHandler
End If
Catch ex As Exception
ClassHelper.InsertEssential_Log(USER_GUID, "USER_ID", "Unexpected Error in AUOTP_LOGOUT_USER: " & ex.Message)
End Try
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in FormShown: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in FormShown: " & ex.Message, MsgBoxStyle.Critical)
End Try End Try

16
app/DD-Record-Organizer/frmRecOrgConfig_Basic.Designer.vb generated
View File

@ -62,6 +62,8 @@ Partial Class frmRecOrgConfig_Basic
Me.btnSaveUpdatePath = New System.Windows.Forms.Button() Me.btnSaveUpdatePath = New System.Windows.Forms.Button()
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.txtBoxUpdatePath = New System.Windows.Forms.TextBox() Me.txtBoxUpdatePath = New System.Windows.Forms.TextBox()
Me.txtAutoLogoutUser = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout() Me.GroupBox2.SuspendLayout()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
@ -282,6 +284,8 @@ Partial Class frmRecOrgConfig_Basic
' '
'TabPage1 'TabPage1
' '
Me.TabPage1.Controls.Add(Me.txtAutoLogoutUser)
Me.TabPage1.Controls.Add(Me.Label12)
Me.TabPage1.Controls.Add(Me.GroupBox2) Me.TabPage1.Controls.Add(Me.GroupBox2)
Me.TabPage1.Controls.Add(Me.txtWiki) Me.TabPage1.Controls.Add(Me.txtWiki)
Me.TabPage1.Controls.Add(Me.GroupBox1) Me.TabPage1.Controls.Add(Me.GroupBox1)
@ -329,6 +333,16 @@ Partial Class frmRecOrgConfig_Basic
resources.ApplyResources(Me.txtBoxUpdatePath, "txtBoxUpdatePath") resources.ApplyResources(Me.txtBoxUpdatePath, "txtBoxUpdatePath")
Me.txtBoxUpdatePath.Name = "txtBoxUpdatePath" Me.txtBoxUpdatePath.Name = "txtBoxUpdatePath"
' '
'txtAutoLogoutUser
'
resources.ApplyResources(Me.txtAutoLogoutUser, "txtAutoLogoutUser")
Me.txtAutoLogoutUser.Name = "txtAutoLogoutUser"
'
'Label12
'
resources.ApplyResources(Me.Label12, "Label12")
Me.Label12.Name = "Label12"
'
'frmRecOrgConfig_Basic 'frmRecOrgConfig_Basic
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -394,4 +408,6 @@ Partial Class frmRecOrgConfig_Basic
Friend WithEvents btnSaveUpdatePath As Button Friend WithEvents btnSaveUpdatePath As Button
Friend WithEvents Label11 As Label Friend WithEvents Label11 As Label
Friend WithEvents lblSave As Label Friend WithEvents lblSave As Label
Friend WithEvents txtAutoLogoutUser As TextBox
Friend WithEvents Label12 As Label
End Class End Class

499
app/DD-Record-Organizer/frmRecOrgConfig_Basic.resx
View File

@ -285,7 +285,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>2</value> <value>4</value>
</data> </data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing"> <data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 9</value> <value>6, 9</value>
@ -309,7 +309,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>0</value> <value>2</value>
</data> </data>
<data name="txtWiki.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtWiki.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 93</value> <value>6, 93</value>
@ -330,7 +330,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;txtWiki.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtWiki.ZOrder" xml:space="preserve">
<value>1</value> <value>3</value>
</data> </data>
<data name="Label9.AutoSize" type="System.Boolean, mscorlib"> <data name="Label9.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -361,7 +361,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;Label9.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label9.ZOrder" xml:space="preserve">
<value>3</value> <value>5</value>
</data> </data>
<data name="lblSaveresult.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="lblSaveresult.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value> <value>Top, Right</value>
@ -397,7 +397,67 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;lblSaveresult.ZOrder" xml:space="preserve"> <data name="&gt;&gt;lblSaveresult.ZOrder" xml:space="preserve">
<value>6</value> <value>8</value>
</data>
<data name="&gt;&gt;btnResetBackground.Name" xml:space="preserve">
<value>btnResetBackground</value>
</data>
<data name="&gt;&gt;btnResetBackground.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnResetBackground.Parent" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;btnResetBackground.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;btnSelectBackground.Name" xml:space="preserve">
<value>btnSelectBackground</value>
</data>
<data name="&gt;&gt;btnSelectBackground.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnSelectBackground.Parent" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;btnSelectBackground.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;pbBackground.Name" xml:space="preserve">
<value>pbBackground</value>
</data>
<data name="&gt;&gt;pbBackground.Type" xml:space="preserve">
<value>System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;pbBackground.Parent" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;pbBackground.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="GroupBox3.Location" type="System.Drawing.Point, System.Drawing">
<value>558, 9</value>
</data>
<data name="GroupBox3.Size" type="System.Drawing.Size, System.Drawing">
<value>368, 315</value>
</data>
<data name="GroupBox3.TabIndex" type="System.Int32, mscorlib">
<value>81</value>
</data>
<data name="GroupBox3.Text" xml:space="preserve">
<value>Anwendungshintergrund</value>
</data>
<data name="&gt;&gt;GroupBox3.Name" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;GroupBox3.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox3.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;GroupBox3.ZOrder" xml:space="preserve">
<value>11</value>
</data> </data>
<data name="btnResetBackground.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnResetBackground.Location" type="System.Drawing.Point, System.Drawing">
<value>211, 274</value> <value>211, 274</value>
@ -471,42 +531,9 @@
<data name="&gt;&gt;pbBackground.ZOrder" xml:space="preserve"> <data name="&gt;&gt;pbBackground.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="GroupBox3.Location" type="System.Drawing.Point, System.Drawing">
<value>558, 9</value>
</data>
<data name="GroupBox3.Size" type="System.Drawing.Size, System.Drawing">
<value>368, 315</value>
</data>
<data name="GroupBox3.TabIndex" type="System.Int32, mscorlib">
<value>81</value>
</data>
<data name="GroupBox3.Text" xml:space="preserve">
<value>Anwendungshintergrund</value>
</data>
<data name="&gt;&gt;GroupBox3.Name" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;GroupBox3.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox3.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;GroupBox3.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
<data name="txtProductName.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 21</value>
</data>
<data name="txtProductName.Size" type="System.Drawing.Size, System.Drawing">
<value>238, 22</value>
</data>
<data name="txtProductName.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;txtProductName.Name" xml:space="preserve"> <data name="&gt;&gt;txtProductName.Name" xml:space="preserve">
<value>txtProductName</value> <value>txtProductName</value>
</data> </data>
@ -541,7 +568,28 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;GroupBox4.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox4.ZOrder" xml:space="preserve">
<value>7</value> <value>9</value>
</data>
<data name="txtProductName.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 21</value>
</data>
<data name="txtProductName.Size" type="System.Drawing.Size, System.Drawing">
<value>238, 22</value>
</data>
<data name="txtProductName.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="&gt;&gt;txtProductName.Name" xml:space="preserve">
<value>txtProductName</value>
</data>
<data name="&gt;&gt;txtProductName.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtProductName.Parent" xml:space="preserve">
<value>GroupBox4</value>
</data>
<data name="&gt;&gt;txtProductName.ZOrder" xml:space="preserve">
<value>0</value>
</data> </data>
<data name="btnsave.Enabled" type="System.Boolean, mscorlib"> <data name="btnsave.Enabled" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
@ -574,7 +622,7 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;btnsave.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnsave.ZOrder" xml:space="preserve">
<value>4</value> <value>6</value>
</data> </data>
<data name="chkChildWindow.AutoSize" type="System.Boolean, mscorlib"> <data name="chkChildWindow.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -583,7 +631,7 @@
<value>NoControl</value> <value>NoControl</value>
</data> </data>
<data name="chkChildWindow.Location" type="System.Drawing.Point, System.Drawing"> <data name="chkChildWindow.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 146</value> <value>0, 175</value>
</data> </data>
<data name="chkChildWindow.Size" type="System.Drawing.Size, System.Drawing"> <data name="chkChildWindow.Size" type="System.Drawing.Size, System.Drawing">
<value>194, 30</value> <value>194, 30</value>
@ -605,8 +653,164 @@
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;chkChildWindow.ZOrder" xml:space="preserve"> <data name="&gt;&gt;chkChildWindow.ZOrder" xml:space="preserve">
<value>10</value>
</data>
<data name="&gt;&gt;Label10.Name" xml:space="preserve">
<value>Label10</value>
</data>
<data name="&gt;&gt;Label10.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label10.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;Label10.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;btnTest_Anmeldung.Name" xml:space="preserve">
<value>btnTest_Anmeldung</value>
</data>
<data name="&gt;&gt;btnTest_Anmeldung.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnTest_Anmeldung.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;btnTest_Anmeldung.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;txtServername.Name" xml:space="preserve">
<value>txtServername</value>
</data>
<data name="&gt;&gt;txtServername.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtServername.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;txtServername.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label5.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;txtPW.Name" xml:space="preserve">
<value>txtPW</value>
</data>
<data name="&gt;&gt;txtPW.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtPW.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;txtPW.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="&gt;&gt;Label4.Name" xml:space="preserve">
<value>Label4</value>
</data>
<data name="&gt;&gt;Label4.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label4.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;txtUser.Name" xml:space="preserve">
<value>txtUser</value>
</data>
<data name="&gt;&gt;txtUser.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtUser.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;txtUser.ZOrder" xml:space="preserve">
<value>6</value>
</data>
<data name="&gt;&gt;Label6.Name" xml:space="preserve">
<value>Label6</value>
</data>
<data name="&gt;&gt;Label6.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label6.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;Label6.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="&gt;&gt;txtDomäne.Name" xml:space="preserve">
<value>txtDomäne</value>
</data>
<data name="&gt;&gt;txtDomäne.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtDomäne.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;txtDomäne.ZOrder" xml:space="preserve">
<value>8</value> <value>8</value>
</data> </data>
<data name="&gt;&gt;Label7.Name" xml:space="preserve">
<value>Label7</value>
</data>
<data name="&gt;&gt;Label7.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label7.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;Label7.ZOrder" xml:space="preserve">
<value>9</value>
</data>
<data name="&gt;&gt;Label8.Name" xml:space="preserve">
<value>Label8</value>
</data>
<data name="&gt;&gt;Label8.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label8.Parent" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;Label8.ZOrder" xml:space="preserve">
<value>10</value>
</data>
<data name="GroupBox5.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 211</value>
</data>
<data name="GroupBox5.Size" type="System.Drawing.Size, System.Drawing">
<value>541, 170</value>
</data>
<data name="GroupBox5.TabIndex" type="System.Int32, mscorlib">
<value>83</value>
</data>
<data name="GroupBox5.Text" xml:space="preserve">
<value>Userauthentifizierung windream Rechte:</value>
</data>
<data name="&gt;&gt;GroupBox5.Name" xml:space="preserve">
<value>GroupBox5</value>
</data>
<data name="&gt;&gt;GroupBox5.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox5.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;GroupBox5.ZOrder" xml:space="preserve">
<value>7</value>
</data>
<data name="Label10.AutoSize" type="System.Boolean, mscorlib"> <data name="Label10.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -893,29 +1097,56 @@ Anmeldeservers in den Grundeinstellungen des Users.</value>
<data name="&gt;&gt;Label8.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label8.ZOrder" xml:space="preserve">
<value>10</value> <value>10</value>
</data> </data>
<data name="GroupBox5.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtAutoLogoutUser.Location" type="System.Drawing.Point, System.Drawing">
<value>6, 182</value> <value>6, 134</value>
</data> </data>
<data name="GroupBox5.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtAutoLogoutUser.Size" type="System.Drawing.Size, System.Drawing">
<value>541, 170</value> <value>58, 22</value>
</data> </data>
<data name="GroupBox5.TabIndex" type="System.Int32, mscorlib"> <data name="txtAutoLogoutUser.TabIndex" type="System.Int32, mscorlib">
<value>83</value> <value>85</value>
</data> </data>
<data name="GroupBox5.Text" xml:space="preserve"> <data name="&gt;&gt;txtAutoLogoutUser.Name" xml:space="preserve">
<value>Userauthentifizierung windream Rechte:</value> <value>txtAutoLogoutUser</value>
</data> </data>
<data name="&gt;&gt;GroupBox5.Name" xml:space="preserve"> <data name="&gt;&gt;txtAutoLogoutUser.Type" xml:space="preserve">
<value>GroupBox5</value> <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;GroupBox5.Type" xml:space="preserve"> <data name="&gt;&gt;txtAutoLogoutUser.Parent" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox5.Parent" xml:space="preserve">
<value>TabPage1</value> <value>TabPage1</value>
</data> </data>
<data name="&gt;&gt;GroupBox5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtAutoLogoutUser.ZOrder" xml:space="preserve">
<value>5</value> <value>0</value>
</data>
<data name="Label12.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="Label12.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="Label12.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 118</value>
</data>
<data name="Label12.Size" type="System.Drawing.Size, System.Drawing">
<value>197, 13</value>
</data>
<data name="Label12.TabIndex" type="System.Int32, mscorlib">
<value>84</value>
</data>
<data name="Label12.Text" xml:space="preserve">
<value>Auto Abmelden Inaktivität: (Minuten)</value>
</data>
<data name="&gt;&gt;Label12.Name" xml:space="preserve">
<value>Label12</value>
</data>
<data name="&gt;&gt;Label12.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label12.Parent" xml:space="preserve">
<value>TabPage1</value>
</data>
<data name="&gt;&gt;Label12.ZOrder" xml:space="preserve">
<value>1</value>
</data> </data>
<data name="TabPage1.Location" type="System.Drawing.Point, System.Drawing"> <data name="TabPage1.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value> <value>4, 22</value>
@ -924,7 +1155,7 @@ Anmeldeservers in den Grundeinstellungen des Users.</value>
<value>3, 3, 3, 3</value> <value>3, 3, 3, 3</value>
</data> </data>
<data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing"> <data name="TabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>938, 358</value> <value>938, 399</value>
</data> </data>
<data name="TabPage1.TabIndex" type="System.Int32, mscorlib"> <data name="TabPage1.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
@ -944,6 +1175,105 @@ Anmeldeservers in den Grundeinstellungen des Users.</value>
<data name="&gt;&gt;TabPage1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;TabPage1.ZOrder" xml:space="preserve">
<value>0</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;lblSave.Name" xml:space="preserve">
<value>lblSave</value>
</data>
<data name="&gt;&gt;lblSave.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblSave.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;lblSave.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;btnSaveUpdatePath.Name" xml:space="preserve">
<value>btnSaveUpdatePath</value>
</data>
<data name="&gt;&gt;btnSaveUpdatePath.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnSaveUpdatePath.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;btnSaveUpdatePath.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;Label11.Name" xml:space="preserve">
<value>Label11</value>
</data>
<data name="&gt;&gt;Label11.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label11.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;Label11.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;txtBoxUpdatePath.Name" xml:space="preserve">
<value>txtBoxUpdatePath</value>
</data>
<data name="&gt;&gt;txtBoxUpdatePath.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;txtBoxUpdatePath.Parent" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;txtBoxUpdatePath.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="TabPage2.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value>
</data>
<data name="TabPage2.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>938, 358</value>
</data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TabPage2.Text" xml:space="preserve">
<value>Update-Einstellungen</value>
</data>
<data name="&gt;&gt;TabPage2.Name" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;TabPage2.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabPage2.Parent" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="TabControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="TabControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>946, 425</value>
</data>
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
<value>84</value>
</data>
<data name="&gt;&gt;TabControl1.Name" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabControl1.Type" xml:space="preserve">
<value>System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;TabControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="lblSave.AutoSize" type="System.Boolean, mscorlib"> <data name="lblSave.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -1058,57 +1388,6 @@ Anmeldeservers in den Grundeinstellungen des Users.</value>
<data name="&gt;&gt;txtBoxUpdatePath.ZOrder" xml:space="preserve"> <data name="&gt;&gt;txtBoxUpdatePath.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="TabPage2.Location" type="System.Drawing.Point, System.Drawing">
<value>4, 22</value>
</data>
<data name="TabPage2.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 3, 3, 3</value>
</data>
<data name="TabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>938, 358</value>
</data>
<data name="TabPage2.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="TabPage2.Text" xml:space="preserve">
<value>Update-Einstellungen</value>
</data>
<data name="&gt;&gt;TabPage2.Name" xml:space="preserve">
<value>TabPage2</value>
</data>
<data name="&gt;&gt;TabPage2.Type" xml:space="preserve">
<value>System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabPage2.Parent" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabPage2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="TabControl1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="TabControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="TabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>946, 384</value>
</data>
<data name="TabControl1.TabIndex" type="System.Int32, mscorlib">
<value>84</value>
</data>
<data name="&gt;&gt;TabControl1.Name" xml:space="preserve">
<value>TabControl1</value>
</data>
<data name="&gt;&gt;TabControl1.Type" xml:space="preserve">
<value>System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;TabControl1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;TabControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
@ -1116,7 +1395,7 @@ Anmeldeservers in den Grundeinstellungen des Users.</value>
<value>6, 13</value> <value>6, 13</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>946, 384</value> <value>946, 425</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value> <value>Segoe UI, 8.25pt</value>

11
app/DD-Record-Organizer/frmRecOrgConfig_Basic.vb
View File

@ -15,6 +15,7 @@ Public Class frmRecOrgConfig_Basic
Me.txtDelimiterFile.Text = dt.Rows(0).Item("FILE_DELIMITER") Me.txtDelimiterFile.Text = dt.Rows(0).Item("FILE_DELIMITER")
Me.txtwddriveletter.Text = dt.Rows(0).Item("STRING1") Me.txtwddriveletter.Text = dt.Rows(0).Item("STRING1")
Me.txtProductName.Text = dt.Rows(0).Item("PRODUCT_NAME1") Me.txtProductName.Text = dt.Rows(0).Item("PRODUCT_NAME1")
Me.txtAutoLogoutUser.Text = dt.Rows(0).Item("AUTO_LOGOUT_USER")
' Hintergrundbild unwandeln und anzeigen ' Hintergrundbild unwandeln und anzeigen
If Not IsDBNull(dt.Rows(0).Item("BACKGROUND_IMAGE")) Then If Not IsDBNull(dt.Rows(0).Item("BACKGROUND_IMAGE")) Then
@ -78,7 +79,7 @@ Public Class frmRecOrgConfig_Basic
Dim image As Bitmap = Nothing Dim image As Bitmap = Nothing
Dim bimage() As Byte = Nothing Dim bimage() As Byte = Nothing
Dim sql As String = "UPDATE TBDD_MODULES SET VERSION_DELIMITER = @VERSION_DELIMITER, FILE_DELIMITER = @FILE_DELIMITER, STRING1 = @STRING1, BACKGROUND_IMAGE = @BACKGROUND_IMAGE, PRODUCT_NAME1 = @PRODUCT_NAME1, CHANGED_WHO = @CHANGED_WHO WHERE NAME = 'Record-Organizer'" Dim sql As String = "UPDATE TBDD_MODULES SET AUTO_LOGOUT_USER = @AUTO_LOGOUT_USER, VERSION_DELIMITER = @VERSION_DELIMITER, FILE_DELIMITER = @FILE_DELIMITER, STRING1 = @STRING1, BACKGROUND_IMAGE = @BACKGROUND_IMAGE, PRODUCT_NAME1 = @PRODUCT_NAME1, CHANGED_WHO = @CHANGED_WHO WHERE NAME = 'Record-Organizer'"
Dim conn As New SqlClient.SqlConnection(MyConnectionString) Dim conn As New SqlClient.SqlConnection(MyConnectionString)
Dim cmd As New SqlClient.SqlCommand(sql, conn) Dim cmd As New SqlClient.SqlCommand(sql, conn)
@ -91,6 +92,7 @@ Public Class frmRecOrgConfig_Basic
End If End If
cmd.Parameters.Add("@VERSION_DELIMITER", SqlDbType.Text).Value = txtDelimiterVersion.Text cmd.Parameters.Add("@VERSION_DELIMITER", SqlDbType.Text).Value = txtDelimiterVersion.Text
cmd.Parameters.Add("@AUTO_LOGOUT_USER", SqlDbType.Int).Value = txtAutoLogoutUser.Text
cmd.Parameters.Add("@FILE_DELIMITER", SqlDbType.Text).Value = txtDelimiterFile.Text cmd.Parameters.Add("@FILE_DELIMITER", SqlDbType.Text).Value = txtDelimiterFile.Text
cmd.Parameters.Add("@STRING1", SqlDbType.Text).Value = txtwddriveletter.Text cmd.Parameters.Add("@STRING1", SqlDbType.Text).Value = txtwddriveletter.Text
cmd.Parameters.Add("@CHANGED_WHO", SqlDbType.Text).Value = USER_USERNAME cmd.Parameters.Add("@CHANGED_WHO", SqlDbType.Text).Value = USER_USERNAME
@ -240,4 +242,11 @@ Public Class frmRecOrgConfig_Basic
Private Sub txtWiki_VisibleChanged(sender As Object, e As EventArgs) Handles txtWiki.VisibleChanged Private Sub txtWiki_VisibleChanged(sender As Object, e As EventArgs) Handles txtWiki.VisibleChanged
End Sub End Sub
Private Sub txtAutoLogoutUser_TextChanged(sender As Object, e As EventArgs) Handles txtAutoLogoutUser.TextChanged
If loaded = True Then
changes_ModuleKonfig = True
btnsave.Enabled = True
End If
End Sub
End Class End Class

36
app/DD-Record-Organizer/frmUserKonfig.Designer.vb generated
View File

@ -74,6 +74,8 @@ Partial Class frmUserKonfig
Me.TBDD_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.TBDD_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.tbRefreshUsers = New System.Windows.Forms.ToolStripButton() Me.tbRefreshUsers = New System.Windows.Forms.ToolStripButton()
Me.tsAddUser = New System.Windows.Forms.ToolStripButton() Me.tsAddUser = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnExoirtExcel = New System.Windows.Forms.ToolStripButton()
Me.USER_GUIDTextBox = New System.Windows.Forms.TextBox() Me.USER_GUIDTextBox = New System.Windows.Forms.TextBox()
Me.PRENAMETextBox = New System.Windows.Forms.TextBox() Me.PRENAMETextBox = New System.Windows.Forms.TextBox()
Me.NAMETextBox = New System.Windows.Forms.TextBox() Me.NAMETextBox = New System.Windows.Forms.TextBox()
@ -227,8 +229,6 @@ Partial Class frmUserKonfig
Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox() Me.WAN_ENVIRONMENTCheckBox = New System.Windows.Forms.CheckBox()
Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox() Me.DATE_FORMATComboBox = New System.Windows.Forms.ComboBox()
Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox() Me.LOG_OUT_WHENTextBox = New System.Windows.Forms.TextBox()
Me.tsbtnExoirtExcel = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
PRENAMELabel = New System.Windows.Forms.Label() PRENAMELabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
@ -612,6 +612,20 @@ Partial Class frmUserKonfig
resources.ApplyResources(Me.tsAddUser, "tsAddUser") resources.ApplyResources(Me.tsAddUser, "tsAddUser")
Me.tsAddUser.Name = "tsAddUser" Me.tsAddUser.Name = "tsAddUser"
' '
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
resources.ApplyResources(Me.ToolStripSeparator4, "ToolStripSeparator4")
'
'tsbtnExoirtExcel
'
Me.tsbtnExoirtExcel.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsbtnExoirtExcel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnExoirtExcel.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel
resources.ApplyResources(Me.tsbtnExoirtExcel, "tsbtnExoirtExcel")
Me.tsbtnExoirtExcel.Name = "tsbtnExoirtExcel"
'
'USER_GUIDTextBox 'USER_GUIDTextBox
' '
Me.USER_GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.USER_GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke
@ -1673,9 +1687,9 @@ Partial Class frmUserKonfig
' '
'GridViewUser 'GridViewUser
' '
Me.GridViewUser.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color) Me.GridViewUser.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUser.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewUser.Appearance.EvenRow.Options.UseBackColor = True Me.GridViewUser.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewUser.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color) Me.GridViewUser.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUser.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridViewUser.Appearance.FocusedRow.Options.UseBackColor = True Me.GridViewUser.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridViewUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUSERNAME, Me.colNAME, Me.colEMAIL}) Me.GridViewUser.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colUSERNAME, Me.colNAME, Me.colEMAIL})
Me.GridViewUser.GridControl = Me.GridControlUser Me.GridViewUser.GridControl = Me.GridControlUser
@ -1743,20 +1757,6 @@ Partial Class frmUserKonfig
Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox" Me.LOG_OUT_WHENTextBox.Name = "LOG_OUT_WHENTextBox"
Me.LOG_OUT_WHENTextBox.ReadOnly = True Me.LOG_OUT_WHENTextBox.ReadOnly = True
' '
'tsbtnExoirtExcel
'
Me.tsbtnExoirtExcel.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsbtnExoirtExcel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnExoirtExcel.Image = Global.DD_Record_Organizer.My.Resources.Resources.Excel_25ixel
resources.ApplyResources(Me.tsbtnExoirtExcel, "tsbtnExoirtExcel")
Me.tsbtnExoirtExcel.Name = "tsbtnExoirtExcel"
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
resources.ApplyResources(Me.ToolStripSeparator4, "ToolStripSeparator4")
'
'frmUserKonfig 'frmUserKonfig
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")

1441
app/DD-Record-Organizer/frmUserKonfig.resx
View File

File diff suppressed because it is too large Load Diff

2
app/DD-Record-Organizer/frmUserKonfig.vb
View File

@ -594,7 +594,7 @@ Public Class frmUserKonfig
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim del = "EXEC [dbo].[PRPMO_DELETE_USER] " & USER_GUIDTextBox.Text Dim del = "EXEC [dbo].[PRPMO_DELETE_USER] " & USER_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del) = True Then
Load_User() Load_User()
Else Else
MsgBox("Unexpected Error while deleting User.", MsgBoxStyle.Exclamation) MsgBox("Unexpected Error while deleting User.", MsgBoxStyle.Exclamation)