You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
62 lines
1.7 KiB
62 lines
1.7 KiB
Public Class KPI
|
|
Dim m_connectionstring As String
|
|
Property Connectionstring As String
|
|
Get
|
|
Return m_connectionstring
|
|
End Get
|
|
Set(value As String)
|
|
m_connectionstring = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_mitarbeiternr As Integer
|
|
Property Mitarbeiternr As Integer
|
|
Get
|
|
Return m_mitarbeiternr
|
|
End Get
|
|
Set(value As Integer)
|
|
m_mitarbeiternr = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_connectionfilename As String
|
|
Property Connectionfilename As String
|
|
Get
|
|
Return m_connectionfilename
|
|
End Get
|
|
Set(value As String)
|
|
m_connectionfilename = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_tempfilepath As String
|
|
Property Tempfilepath As String
|
|
Get
|
|
Return m_tempfilepath
|
|
End Get
|
|
Set(value As String)
|
|
m_tempfilepath = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(ByVal constring As String, ma As Integer, ByVal tempfilepath As String, ByVal connectionfilename As String)
|
|
Me.Connectionstring = constring
|
|
Me.Mitarbeiternr = ma
|
|
Me.Connectionfilename = connectionfilename
|
|
Me.Tempfilepath = tempfilepath
|
|
Globals.conn.sConnectionString = Me.Connectionstring
|
|
Globals.Mitarbeiternr = Me.Mitarbeiternr
|
|
Globals.sConnectionString = Me.Connectionstring
|
|
Globals.Tempfilepath = Me.Tempfilepath
|
|
Globals.ConnectionFileName = Me.Connectionfilename
|
|
End Sub
|
|
|
|
Public Sub Show_Uebersicht(ByVal parent As System.Windows.Forms.Form)
|
|
Dim f As New frmUebersicht
|
|
f.MdiParent = parent
|
|
f.Show()
|
|
|
|
End Sub
|
|
|
|
End Class
|