44 lines
1.1 KiB
VB.net
44 lines
1.1 KiB
VB.net
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
|