MS Diverses Customizing

app/DD-Record-Organizer/frmNodeConfigAdd.vb

@@ -12,6 +12,12 @@ Public Class frmNodeConfigAdd
     End Sub
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If txtName.Text = String.Empty Then
+            txtName.Text = "Please define an internal name"
+            txtName.BackColor = Color.Yellow
+            Exit Sub
+        End If
+        txtName.BackColor = DefaultBackColor
         Dim oInsert = $"INSERT INTO TBPMO_STRUCTURE_NODES_CONFIGURATION ([PARENT_NODE],[NAME],[ENTITY_ID],[COMMENT],[ADDED_WHO]) VALUES 
             ({txtNodeParentID.Text},'{txtName.Text}',{pENTITYD},'{txtComment.Text}','{Environment.UserName}')"
         If MYDB_ECM.ExecuteNonQuery(oInsert) Then
@@ -20,4 +26,8 @@ Public Class frmNodeConfigAdd
             MsgBox("An error occured on insert! Check Your log!", MsgBoxStyle.Exclamation)
         End If
     End Sub
+
+    Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click
+        txtNodeParentID.Text = 0
+    End Sub
 End Class