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

Add config items, clear documents and controls when no record id is available

Browse Source
This commit is contained in:
Jonathan Jenne
2023-09-28 10:49:14 +02:00
parent b06a399eaa
commit a7dc616690
7 changed files with 316 additions and 361 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD-Record-Organizer/frmConfig_Basic.vb
View File

@@ -165,7 +165,7 @@ Public Class frmConfig_Basic
cmbConstructor.Enabled = False
End If
cmbDesign.Text = MyFormsDesign
cmbDesign.Text = CONFIG.Config.FormsDesign
'Catch ex As Exception
' MsgBox("Fehler in FormLoad: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -536,23 +536,19 @@ Public Class frmConfig_Basic
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
If cmbDesign.SelectedIndex <> -1 Then
UserLookAndFeel.Default.SetSkinStyle(cmbDesign.Text)
SaveMySettingsValue("MyFormsDesign", cmbDesign.Text, "ConfigMain")
CONFIG.Config.FormsDesign = cmbDesign.Text
CONFIG.Save()
End If
End Sub
Private Sub cmbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLanguage.SelectedIndexChanged
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
Dim exists
Dim oExists = False
If rbUser.Checked Then
exists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
oExists = clsWD_GET.WM_USER_EXISTS(txtObjectExists.Text)
ElseIf rbGruppe.Checked Then
exists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
oExists = clsWD_GET.WM_GROUP_EXISTS(txtObjectExists.Text)
End If
If exists = True Then
If oExists = True Then
MsgBox("Object exists in windream!")
Else
MsgBox("Object is not existing in windream!", MsgBoxStyle.Critical)