diff --git a/app/DD-Record-Organiser/ClassInit.vb b/app/DD-Record-Organiser/ClassInit.vb index ffc503a..531d4e9 100644 --- a/app/DD-Record-Organiser/ClassInit.vb +++ b/app/DD-Record-Organiser/ClassInit.vb @@ -85,6 +85,16 @@ Public Class ClassInit If configResult = False Then Throw New Exception("Find more information in the logfile.") End If + Dim sql = String.Format("SELECT * FROM TBPMO_KONFIGURATION WHERE GUID = 1") + Dim KONFIG_DT As DataTable = ClassDatabase.Return_Datatable(sql) + If KONFIG_DT.Rows.Count = 1 Then + Try + MY_WIKISTRING = KONFIG_DT.Rows(0).Item("WIKI_STRING") + Catch ex As Exception + MY_WIKISTRING = "" + End Try + WD_UNICODE = KONFIG_DT.Rows(0).Item("WD_UNICODE") + End If Catch ex As Exception MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try diff --git a/app/DD-Record-Organiser/ModuleMySettings.vb b/app/DD-Record-Organiser/ModuleMySettings.vb index 62c1913..e7b8435 100644 --- a/app/DD-Record-Organiser/ModuleMySettings.vb +++ b/app/DD-Record-Organiser/ModuleMySettings.vb @@ -14,6 +14,8 @@ Module ModuleMySettings Public Sett_ShowQuickMenue As Boolean = True Public Sett_ConstructorStart As Integer Public MY_ADDON_PATH As String + Public MY_WIKISTRING As String + Public WD_UNICODE As Boolean = False Public WD_ShowEnitityDocs As Boolean = True Public WD_ShowDocs As Boolean = False diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index cf26fbd..9309d07 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -3643,8 +3643,8 @@ Public Class frmConstructor_Main Dim temppath = Path.GetTempPath Dim EncodingFormat As Encoding - Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1") - If WDUnicode = True Then + + If WD_UNICODE = True Then EncodingFormat = Encoding.GetEncoding(1252) '1252 If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False) Else diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.Designer.vb b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.Designer.vb index 556359e..6d4f593 100644 --- a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.Designer.vb +++ b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.Designer.vb @@ -31,6 +31,8 @@ Partial Class frmRecOrgConfig_Basic Me.txtwddriveletter = New System.Windows.Forms.TextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.txtWiki = New System.Windows.Forms.TextBox() + Me.Label9 = New System.Windows.Forms.Label() Me.chkUnicode = New System.Windows.Forms.CheckBox() Me.lblSaveresult = New System.Windows.Forms.Label() Me.GroupBox3 = New System.Windows.Forms.GroupBox() @@ -93,23 +95,35 @@ Partial Class frmRecOrgConfig_Basic ' 'GroupBox1 ' - resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Controls.Add(Me.txtDelimiterFile) Me.GroupBox1.Controls.Add(Me.txtDelimiterVersion) + resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.TabStop = False ' 'GroupBox2 ' - resources.ApplyResources(Me.GroupBox2, "GroupBox2") + Me.GroupBox2.Controls.Add(Me.txtWiki) + Me.GroupBox2.Controls.Add(Me.Label9) Me.GroupBox2.Controls.Add(Me.chkUnicode) Me.GroupBox2.Controls.Add(Me.Label2) Me.GroupBox2.Controls.Add(Me.txtwddriveletter) + resources.ApplyResources(Me.GroupBox2, "GroupBox2") Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.TabStop = False ' + 'txtWiki + ' + resources.ApplyResources(Me.txtWiki, "txtWiki") + Me.txtWiki.Name = "txtWiki" + ' + 'Label9 + ' + resources.ApplyResources(Me.Label9, "Label9") + Me.Label9.Name = "Label9" + ' 'chkUnicode ' resources.ApplyResources(Me.chkUnicode, "chkUnicode") @@ -124,10 +138,10 @@ Partial Class frmRecOrgConfig_Basic ' 'GroupBox3 ' - resources.ApplyResources(Me.GroupBox3, "GroupBox3") Me.GroupBox3.Controls.Add(Me.btnResetBackground) Me.GroupBox3.Controls.Add(Me.btnSelectBackground) Me.GroupBox3.Controls.Add(Me.pbBackground) + resources.ApplyResources(Me.GroupBox3, "GroupBox3") Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.TabStop = False ' @@ -152,12 +166,11 @@ Partial Class frmRecOrgConfig_Basic 'OpenFileDialog1 ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" - resources.ApplyResources(Me.OpenFileDialog1, "OpenFileDialog1") ' 'GroupBox4 ' - resources.ApplyResources(Me.GroupBox4, "GroupBox4") Me.GroupBox4.Controls.Add(Me.txtProductName) + resources.ApplyResources(Me.GroupBox4, "GroupBox4") Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.TabStop = False ' @@ -184,7 +197,6 @@ Partial Class frmRecOrgConfig_Basic ' 'GroupBox5 ' - resources.ApplyResources(Me.GroupBox5, "GroupBox5") Me.GroupBox5.Controls.Add(Me.btnTest_Anmeldung) Me.GroupBox5.Controls.Add(Me.txtServername) Me.GroupBox5.Controls.Add(Me.Label5) @@ -195,14 +207,15 @@ Partial Class frmRecOrgConfig_Basic Me.GroupBox5.Controls.Add(Me.txtDomäne) Me.GroupBox5.Controls.Add(Me.Label7) Me.GroupBox5.Controls.Add(Me.Label8) + resources.ApplyResources(Me.GroupBox5, "GroupBox5") Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.TabStop = False ' 'btnTest_Anmeldung ' - resources.ApplyResources(Me.btnTest_Anmeldung, "btnTest_Anmeldung") Me.btnTest_Anmeldung.BackColor = System.Drawing.SystemColors.Control Me.btnTest_Anmeldung.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_connect + resources.ApplyResources(Me.btnTest_Anmeldung, "btnTest_Anmeldung") Me.btnTest_Anmeldung.Name = "btnTest_Anmeldung" Me.btnTest_Anmeldung.UseVisualStyleBackColor = False ' @@ -252,7 +265,7 @@ Partial Class frmRecOrgConfig_Basic resources.ApplyResources(Me.Label8, "Label8") Me.Label8.Name = "Label8" ' - 'frmConfiguration_Basic + 'frmRecOrgConfig_Basic ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font @@ -266,7 +279,7 @@ Partial Class frmRecOrgConfig_Basic Me.Controls.Add(Me.GroupBox1) Me.MaximizeBox = False Me.MinimizeBox = False - Me.Name = "frmConfiguration_Basic" + Me.Name = "frmRecOrgConfig_Basic" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) @@ -311,4 +324,6 @@ Partial Class frmRecOrgConfig_Basic Friend WithEvents txtDomäne As System.Windows.Forms.TextBox Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label + Friend WithEvents txtWiki As System.Windows.Forms.TextBox + Friend WithEvents Label9 As System.Windows.Forms.Label End Class diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.en-US.resx b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.en-US.resx index f649f36..7c089f1 100644 --- a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.en-US.resx +++ b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.en-US.resx @@ -149,12 +149,12 @@ General Settings: - - Global windream-Settings - NoControl + + Global windream-Settings + NoControl @@ -164,9 +164,6 @@ Changes saved successfully! - - Application background - NoControl @@ -182,6 +179,9 @@ NoControl + + Application background + Application name diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.resx b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.resx index ed837d3..a8841a7 100644 --- a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.resx +++ b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.resx @@ -117,776 +117,824 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 5 + + + True - - 19, 56 + + 15, 18 - - 151, 23 + + 235, 13 - - txtwddriveletter - - + 0 - + + Trennzeichen für Versionierung der Dateien: + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 + + + True + + + 6, 18 + + + 167, 13 + + + 1 + + + Laufwerkbuchstabe Windream: + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 3 + + + True + + + 15, 59 + + + 261, 13 + 2 + + Trennzeichen zur Nutzung in Namenskonvention: + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + 18, 34 + + + 49, 22 + + + 4 + txtDelimiterVersion - - 82 - - - txtProductName - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 7 - - - $this - - - 81 - - - 0 - - - Speichern - - - 2 - - - txtServername - - - btnsave - - - 218, 74 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 224, 12 - - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GroupBox1 + + + 3 + + + 18, 75 + 49, 22 - - True + + 5 + + + txtDelimiterFile + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + 9, 34 + + + 49, 22 + + + 7 + + + txtwddriveletter System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GroupBox2 + + + 4 + + + 266, 74 + + + 287, 105 + + + 8 + + + Allgemeine Funktionen: + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 7 + + + 9, 98 + + + 185, 22 + + + 10 + + + txtWiki + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 0 + + + True + + + + NoControl + + + 6, 82 + + + 80, 13 + + + 9 + + + WIKI Network: + + + Label9 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 1 + + + True + + + 9, 62 + + + 117, 17 + + + 8 + + + Unicode-Version? + + + chkUnicode + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 2 + + + 12, 12 + + + 200, 131 + + + 9 + + + Globale windream-Einstellungen + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 6 + + + Top, Right + + + True + + + Segoe UI, 9.75pt, style=Bold + + + 692, 358 + + + 234, 17 + + + 78 + + + Änderungen erfolgreich gespeichert! + + + False + + + lblSaveresult + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 4 + + + 211, 274 + + + 151, 23 + + + 82 + + + Hintergrund zurücksetzen + + + btnResetBackground + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 0 + + + 6, 274 + + + 151, 23 + + + 81 + + + Hintergrund auswählen.. + + + btnSelectBackground + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 1 + + + 6, 21 + + + 356, 247 + + + CenterImage + + + 80 + + + pbBackground + + + System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 2 + + + 564, 12 + + + 368, 315 + + + 81 + + + Anwendungshintergrund + + + GroupBox3 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + + + 17, 17 + + + 6, 21 + + + 238, 22 + + + 0 + + + txtProductName + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + + 0 + + + 266, 12 + + + 287, 56 + + + 82 + + + Anwendungsname + + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + + + False + + + MiddleLeft + + + 839, 333 + + + 87, 22 + + + 10 + + + Speichern + + + MiddleRight + + + btnsave + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 5 + + + True + + + NoControl + + + 12, 149 + + + 194, 30 + + + 79 + + + Design-Panels als Child aufrufen +(Eingebettet in Hauptformular) + + + chkChildWindow + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 3 + + + MiddleLeft + + + 355, 97 + + + 162, 26 + + + 49 + + + Anmeldung testen + + + MiddleRight + + + btnTest_Anmeldung + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 0 + + + 19, 101 + + + 330, 22 + + + 48 + + + txtServername + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 1 + + + True + + + 16, 85 + + + 79, 13 + + + 47 + + + Server-Name:* + + + Label5 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 2 + + + 355, 56 + + + 162, 22 + + + 46 + + + txtPW + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 3 + + + True + + + 352, 40 + + + 56, 13 + + + 45 + + + Passwort: + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 4 + + + 187, 56 + + + 162, 22 + + + 44 + + + txtUser + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 5 + + + True + + + 184, 40 + + + 61, 13 + + + 43 + + + Username: + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 6 + + + 19, 56 + + + 162, 22 + + + 42 + + + txtDomäne + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + 7 True - - 329, 56 - - - GroupBox5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - txtPW - - - 2 - - - 984, 384 - - - chkUnicode - - - Trennzeichen zur Nutzung in Namenskonvention: - - - 40 - - - 117, 17 - - - Server-Name:* - - - 15, 18 - - - Grundeinstellungen Record Organizer - - - 330, 22 - - - 0 - - - True - - - 1 - - - 1 - - - 4 - - - True - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - Top, Right - - - $this - - - Label1 - - - 8 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Anwendungsname - - - GroupBox3 - - - 5 - - - 9 - - - 6, 13 - - - 6, 274 - - - Allgemeine Funktionen: - - - Definieren sie hier die Anmeldedaten des windream-Hauptbenutzers. - - - System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - True - - - True - - - 12, 135 - - - True - - - NoControl - - - 692, 358 - - - Label4 - - - Label7 - - - 16, 85 - - - Userautentifizierung windream Rechte: - - - 44 - - - 194, 30 - - - GroupBox3 - - - 6 - - - $this - - - 200, 105 - - - GroupBox2 - - - 83 - - - True - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 19, 101 - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - Design-Panels als Child aufrufen -(Eingebettet in Hauptformular) - - - txtDelimiterFile - - - Label5 - - - 8 - - - 564, 12 - - - 167, 13 - - - CenterImage - - - 0 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Label3 - - - 0 - - - 839, 333 - - - GroupBox3 - - - GroupBox2 - - - 238, 22 - - - 1 - - - 0 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 78 - - - 80 - - - 2 - - - GroupBox5 - - - 6, 21 - - - btnTest_Anmeldung - - - 0 - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Globale windream-Einstellungen - - - 162, 22 - - - 368, 315 - - - Änderungen erfolgreich gespeichert! - - - OpenFileDialog1 - - - 355, 56 - - - 184, 40 - - - 46 - - - GroupBox4 - - - $this - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 162, 22 - - - 3 - - - $this - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 3 - - - Label2 - - - 87, 22 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 6, 21 - - - GroupBox5 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 49, 22 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - GroupBox5 - - - Anwendungshintergrund - - - Segoe UI, 8.25pt - - - Segoe UI, 9.75pt, style=Bold - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 9 - - - GroupBox4 - - - 49, 22 - - - Unicode-Version? - - - 3 - - - MiddleRight - - - GroupBox5 - - - 18, 75 - - - 541, 142 - - - $this - - - GroupBox1 - - - 9, 62 - - - GroupBox1 - - - Laufwerkbuchstabe Windream: - - - 7 - - - 4 - - - 79, 13 - - - 6, 18 - - - MiddleRight - - - chkChildWindow - - - 43 - - - 82 - - - 2 - - - 211, 274 - - - 49 - - - 162, 22 - - - 235, 13 - - - frmConfiguration_Basic - - - Hintergrund auswählen.. - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Label8 - - - Label6 - - - GroupBox5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Trennzeichen für Versionierung der Dateien: - - - True - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 352, 40 - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 61, 13 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 15, 59 - - - 12, 12 - - - 10 - - - txtUser - - - 1 - - - 4 - - - MiddleLeft - - - 6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - True - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - False - - - 1 - - - lblSaveresult - - - MiddleLeft - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Hintergrund zurücksetzen - - - 18, 34 - - - Segoe UI, 9pt, style=Italic - - - GroupBox2 - - - 187, 56 - - - 45 - - - 16, 18 - - - 355, 97 - - - txtDomäne - - - Anmeldung testen - - - 79 - - - 5 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 56, 13 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox5 - - - GroupBox5 - - - System.Windows.Forms.PictureBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pbBackground - 16, 40 - - Passwort: - 58, 13 - - 335, 105 - - - $this - - - GroupBox2 - - - 261, 13 - - - 12, 185 - - - 375, 15 - - - 2 - - - 356, 247 - - - 162, 26 - - - 1 - - - btnSelectBackground - - - 8 - - - 9, 34 - - - GroupBox5 - - - True - - - False - - - 81 - - - 151, 23 - - - GroupBox1 + + 41 Domäne:* - - GroupBox3 + + Label7 - - 0 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - btnResetBackground + + GroupBox5 - - Username: + + 8 - - 234, 17 + + True - - 48 + + Segoe UI, 9pt, style=Italic + + + 16, 18 + + + 375, 15 + + + 40 + + + Definieren sie hier die Anmeldedaten des windream-Hauptbenutzers. + + + Label8 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox5 + + + 9 + + + 12, 185 + + + 541, 142 + + + 83 + + + Userautentifizierung windream Rechte: GroupBox5 - - 42 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 47 + + $this - - 41 - - - GroupBox5 + + 0 True - - en-US - - - 17, 17 - + + 6, 13 + + + 984, 384 + + + Segoe UI, 8.25pt + + + Grundeinstellungen Record Organizer + + + OpenFileDialog1 + + + System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + frmRecOrgConfig_Basic + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb index fd4ff33..9878250 100644 --- a/app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb +++ b/app/DD-Record-Organiser/frmRecOrgConfig_Basic.vb @@ -2,7 +2,8 @@ Public Class frmRecOrgConfig_Basic Dim loaded As Boolean = False Dim changes_ModuleKonfig As Boolean = False - Dim changes_Konfig As Boolean = False + Dim changes_RightService As Boolean = False + Dim changes_PMOKonfig As Boolean = False Private Sub frmConfiguration_Basic_Load(sender As Object, e As EventArgs) Handles Me.Load Try Dim sql As String = "select * from TBDD_MODULES where UPPER(NAME) = UPPER('Record-Organizer')" @@ -46,6 +47,7 @@ Public Class frmRecOrgConfig_Basic If Not dt Is Nothing Then If dt.Rows.Count = 1 Then Me.chkUnicode.Checked = dt.Rows(0).Item("WD_UNICODE") + Me.txtWiki.Text = dt.Rows(0).Item("WIKI_STRING") End If End If Catch ex As Exception @@ -63,7 +65,7 @@ Public Class frmRecOrgConfig_Basic Private Sub chkUnicode_CheckedChanged(sender As Object, e As EventArgs) Handles chkUnicode.CheckedChanged If loaded = True Then - changes_Konfig = True + changes_PMOKonfig = True btnsave.Enabled = True End If End Sub @@ -102,13 +104,13 @@ Public Class frmRecOrgConfig_Basic MsgBox("Error in Save ModuleConfig: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End If - If changes_Konfig = True Then + If changes_PMOKonfig = True Then Try Dim wduni As Integer = 0 If chkUnicode.Checked Then wduni = 1 End If - Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}',WD_UNICODE = {5} WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, Me.txtPW.Text, Me.txtServername.Text, Environment.UserName, wduni) + Dim upd = String.Format("UPDATE TBPMO_KONFIGURATION SET WIKI_STRING = '{0}', CHANGED_WHO = '{1}', WD_UNICODE = {2} WHERE GUID = 1", Me.txtWiki.Text, Environment.UserName, wduni) If ClassDatabase.Execute_non_Query(upd, True) = True Then lblSaveresult.Visible = True @@ -119,6 +121,16 @@ Public Class frmRecOrgConfig_Basic MsgBox("Error in Save Config: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End If + If changes_RightService = True Then + Dim wrapper As New ClassEncryption("!35452didalog=") + Dim cipherText As String = wrapper.EncryptData(Me.txtPW.Text) + Dim pw As String = cipherText + + Dim upd = String.Format("UPDATE TBPMO_SERVICE_RIGHT_CONFIG SET AD_DOMAIN = '{0}', AD_USER = '{1}', AD_USER_PW = '{2}', AD_SERVER = '{3}', CHANGED_WHO = '{4}' WHERE GUID = 1", Me.txtDomäne.Text, Me.txtUser.Text, pw, Me.txtServername.Text, Environment.UserName) + ClassDatabase.Execute_non_Query(upd) + btnsave.Enabled = False + + End If End Sub @@ -171,28 +183,35 @@ Public Class frmRecOrgConfig_Basic Private Sub txtDomäne_TextChanged(sender As Object, e As EventArgs) Handles txtDomäne.TextChanged If loaded = True Then - changes_Konfig = True + changes_RightService = True btnsave.Enabled = True End If End Sub Private Sub txtUser_TextChanged(sender As Object, e As EventArgs) Handles txtUser.TextChanged If loaded = True Then - changes_Konfig = True + changes_RightService = True btnsave.Enabled = True End If End Sub Private Sub txtPW_TextChanged(sender As Object, e As EventArgs) Handles txtPW.TextChanged If loaded = True Then - changes_Konfig = True + changes_RightService = True btnsave.Enabled = True End If End Sub Private Sub txtServername_TextChanged(sender As Object, e As EventArgs) Handles txtServername.TextChanged If loaded = True Then - changes_Konfig = True + changes_RightService = True + btnsave.Enabled = True + End If + End Sub + + Private Sub txtWiki_TextChanged(sender As Object, e As EventArgs) Handles txtWiki.TextChanged + If loaded = True Then + changes_PMOKonfig = True btnsave.Enabled = True End If End Sub