jj 03.02 Rename RecordOrganiser to RecordOrganizer

app/DD-Record-Organizer/frmNewKombiForm.vb

@@ -0,0 +1,37 @@
+Imports System.Windows.Forms
+
+Public Class frmNewKombiForm
+
+    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.OK
+        STRING1 = Me.TextBox1.Text
+
+        Dim Sql = "select count(*) from TBPMO_FORM_CONSTRUCTOR where UPPER(FORM_TITLE) = UPPER('" & STRING1 & "')"
+        Dim exists As Integer = ClassDatabase.Execute_Scalar(Sql)
+        If exists = 1 Then
+            MsgBox("Achtung: Dieser Name existiert bereits!" & vbNewLine & "Bitte wählen Sie einen anderen Namen!", MsgBoxStyle.Exclamation)
+            Exit Sub
+        End If
+
+        Sql = "EXEC [PRPMO_CREATE_CONSTRUCTOR] " & INTEGER1.ToString & ", '" & STRING1 & "'"
+        If ClassDatabase.Execute_non_Query(Sql) = True Then
+            Dim result As MsgBoxResult = MsgBox("Die neue Sicht wurde erfolgreich erzeugt!" & vbNewLine & "Wollen Sie die Konfiguration anzeigen?", MsgBoxStyle.YesNo, "Frage:")
+            If result = MsgBoxResult.Yes Then
+                Dim frm As New frmConstructorDesigner
+                frm.MdiParent = frmMain
+                frm.Show()
+                Me.Close()
+            Else
+                Me.Close()
+            End If
+
+        End If
+
+    End Sub
+
+    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
+        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+End Class