MS_13.10.2015

app/DD-Record-Organiser/frmForm_Input.vb

@@ -172,9 +172,6 @@ Public Class frmFormInput
     Public Sub LoadFormProperties()
         'Dim NAME_SQL As String = "SELECT NAME FROM TBPMO_FORM WHERE GUID = " & CURRENT_FORM_ID
         Dim TITLE_SQL As String = "SELECT FORM_TITLE FROM TBPMO_FORM_VIEW WHERE FORM_ID = " & thisformid
-
-        Console.WriteLine(thisformid)
-
         'Dim name = ClassDatabase.Execute_Scalar(NAME_SQL)
         Dim title = ClassDatabase.Execute_Scalar(TITLE_SQL)
 
@@ -373,17 +370,6 @@ Public Class frmFormInput
 
     End Sub
 
-    Private Sub Control_Click(sender As Object, e As EventArgs)
-        ' TODO: CLICK CONTROL
-    End Sub
-
-    Private Sub Groupbox_DragDrop(sender As Object, e As DragEventArgs)
-        ' TODO: DRAG DROP GROUPBOX
-    End Sub
-
-    Private Sub Control_PressTab(ByVal sender As Object, ByVal e As PreviewKeyDownEventArgs)
-        Console.WriteLine(sender.ToString)
-    End Sub
 
 #End Region
 
@@ -544,7 +530,6 @@ Public Class frmFormInput
         Dim ContextMenu As ContextMenuStrip = MenuItem.Owner
         Dim SourceControl As Control = ContextMenu.SourceControl
         Dim MasterDataId As Integer = SourceControl.Tag
-        Console.WriteLine(MasterDataId)
         CURRENT_MASTER_FORM_ID = MasterDataId
         frmQuickInput.ShowDialog()
     End Sub