Initial commit

EDOKA_Toolset/Plugin_Connection/Class1.vb

@@ -0,0 +1,19 @@
+Imports System.Windows.Forms
+Imports PluginContracts
+Public Class Class1
+    Implements PluginContracts.IPlugin
+
+    Public ReadOnly Property Name() As String Implements IPlugin.Name
+        Get
+            Return "EDOKA_Connection"
+        End Get
+    End Property
+
+    Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show
+        Dim f As New Form1
+        Globals.Mitarbeiternr = CurrentUser
+        f.MdiParent = Parentform
+        f.Show()
+
+    End Function
+End Class