Initial commit

NativTester/Form1.vb

@@ -0,0 +1,25 @@
+Imports clsNativ
+Public Class Form1
+
+    Dim cs As String = "data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
+    Dim MA As Integer = 1
+    Dim dm As New clsNativ.clsNativeDok
+    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub Volagenauswahl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Volagenauswahl.Click
+        dm.Connectionstring = cs
+        dm.Mitarbeiternr = MA
+        dm.Parentform = Me
+        dm.Show_DokSelect()
+
+    End Sub
+
+    Private Sub VorlagenManager_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VorlagenManager.Click
+        dm.Connectionstring = cs
+        dm.Mitarbeiternr = MA
+        dm.Parentform = Me
+        dm.Show_DokVorlagen()
+    End Sub
+End Class