Initial commit

clsNativ/clsNativeDok.vb

@@ -0,0 +1,43 @@
+Public Class clsNativeDok
+    Dim m_connectionstring As String
+    Public Property Connectionstring() As String
+        Get
+            Return m_connectionstring
+        End Get
+        Set(ByVal value As String)
+            m_connectionstring = value
+        End Set
+    End Property
+
+    Dim m_manr As Integer
+    Public Property Mitarbeiternr() As Integer
+        Get
+            Return m_manr
+        End Get
+        Set(ByVal value As Integer)
+            m_manr = value
+        End Set
+    End Property
+
+    Dim m_parentform As Windows.Forms.Form
+    Public Property Parentform() As Windows.Forms.Form
+        Get
+            Return m_parentform
+        End Get
+        Set(ByVal value As Windows.Forms.Form)
+            m_parentform = value
+        End Set
+    End Property
+    Public Sub Show_DokSelect()
+        Dim f As New frmDokSelect(Me.Connectionstring)
+        f.MdiParent = Parentform
+        f.Show()
+    End Sub
+
+    Public Sub Show_Dokvorlagen()
+        Dim f As New frmDokManager(Me.Connectionstring)
+        f.MdiParent = Parentform
+        f.Show()
+    End Sub
+
+End Class