Imports System.Data.SqlClient Public Class cMitarbeiter Property mit_id As Integer Property mit_username As String = "" Property mit_pwd As String = "" Property mit_geschlecht As String = "" Property mit_affix As String = "" Property mit_vname As String = "" Property mit_nname As String = "" Property mit_gebdat As String = "" Property mit_strasse As String = "" Property mit_hausnr As String = "" Property mit_land As String = "" Property mit_plz As String = "" Property mit_ort As String = "" Property mit_niederlassung As String = "" Property mit_abteilung As String = "" Property mit_position As String = "" Property mit_durchwahl As String = "" Property mit_email As String = "" Property mit_mobiltel As String = "" Property mit_allowAnruf As Boolean Property mit_info As String = "" Property mit_einstiegsdatum As String = "" Property mit_gekuendigt As Boolean Property mit_kuendigungsdatum As String = "" Property mit_foto As String = "" Property mit_firma As String = "VERAG" Property mit_firmaFMZoll As Object = Nothing Property mit_FMZollPersID As Object = Nothing Property mit_standartFiliale As Integer = -1 Property mit_standardPreisliste As Integer = -1 Property mit_FMZollPersIDKasseIsnotSpedBuch As Boolean = False Property mit_FMZollPersIDSpedBuch As Object = Nothing Property mit_DpUserStandardDP As Object = Nothing Property mit_DpUserStandardFirma As Object = Nothing Property mit_EZOLL_SB As Object = Nothing Property mit_ATLAS_SB As Object = Nothing Property mit_FirmenDatenAnzeige As Object = Nothing Property mit_DAKOSY_SB As Object = Nothing Property mit_DAKOSY_SBFull As Object = Nothing Property mit_TESTonly As Object = Nothing Property mit_PasswortChanged As Object = Nothing Property mit_TELOTEC_SB As Object = Nothing Property mit_AliasAD_Domain As Object = Nothing Property mit_AliasAD_Username As Object = Nothing Property mit_teamId As Object = Nothing Sub New() End Sub Sub New(id) Me.mit_id = id LOAD(id) End Sub ' Dim SQL As New SQL Public Function LOAD(ByVal id As Integer) As Boolean Dim sqlstr As String = "SELECT * FROM tblMitarbeiter WHERE mit_id = " & id & "" ' adasdas() ' Dim d As VERAG_PROG_ALLGEMEIN.cMitarbeiter = Nothing Try Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN Using cmd As New SqlCommand(sqlstr, conn) Dim dr = cmd.ExecuteReader() If dr.HasRows Then dr.Read() ' d = New VERAG_PROG_ALLGEMEIN.cMitarbeiter() Try Me.mit_id = dr.Item("mit_id") Me.mit_username = dr.Item("mit_username") Me.mit_pwd = dr.Item("mit_pwd") Me.mit_affix = dr.Item("mit_affix") If Not dr.Item("mit_geschlecht") Is DBNull.Value Then Me.mit_geschlecht = dr.Item("mit_geschlecht") Me.mit_vname = dr.Item("mit_vname") Me.mit_nname = dr.Item("mit_nname") If Not dr.Item("mit_gebdat") Is DBNull.Value Then Me.mit_gebdat = dr.Item("mit_gebdat") Me.mit_strasse = dr.Item("mit_strasse") Me.mit_hausnr = dr.Item("mit_hausnr") Me.mit_land = dr.Item("mit_land") Me.mit_plz = dr.Item("mit_plz") Me.mit_ort = dr.Item("mit_ort") Me.mit_niederlassung = dr.Item("mit_niederlassung") Me.mit_abteilung = dr.Item("mit_abteilung") Me.mit_position = dr.Item("mit_position") Me.mit_durchwahl = dr.Item("mit_durchwahl") Me.mit_email = dr.Item("mit_email") Me.mit_mobiltel = dr.Item("mit_mobiltel") Me.mit_allowAnruf = dr.Item("mit_allowAnruf") If Not dr.Item("mit_FMZollPersID") Is DBNull.Value Then Me.mit_FMZollPersID = dr.Item("mit_FMZollPersID") If Not dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDKasseIsnotSpedBuch = dr.Item("mit_FMZollPersIDKasseIsnotSpedBuch") If Not dr.Item("mit_FMZollPersIDSpedBuch") Is DBNull.Value Then Me.mit_FMZollPersIDSpedBuch = dr.Item("mit_FMZollPersIDSpedBuch") If Not dr.Item("mit_DpUserStandardDP") Is DBNull.Value Then Me.mit_DpUserStandardDP = dr.Item("mit_DpUserStandardDP") If Not dr.Item("mit_DpUserStandardFirma") Is DBNull.Value Then Me.mit_DpUserStandardFirma = dr.Item("mit_DpUserStandardFirma") If Not dr.Item("mit_standartFiliale") Is DBNull.Value Then Me.mit_standartFiliale = dr.Item("mit_standartFiliale") If Not dr.Item("mit_standardPreisliste") Is DBNull.Value Then Me.mit_standardPreisliste = dr.Item("mit_standardPreisliste") Me.mit_info = dr.Item("mit_info") If Not dr.Item("mit_einstiegsdatum") Is DBNull.Value Then Me.mit_einstiegsdatum = dr.Item("mit_einstiegsdatum") Me.mit_gekuendigt = dr.Item("mit_gekuendigt") If Not dr.Item("mit_kuendigungsdatum") Is DBNull.Value Then Me.mit_kuendigungsdatum = dr.Item("mit_kuendigungsdatum") If Not dr.Item("mit_foto") Is DBNull.Value Then Me.mit_foto = dr.Item("mit_foto") Me.mit_firma = dr.Item("mit_firma") If Not dr.Item("mit_firmaFMZoll") Is DBNull.Value Then Me.mit_firmaFMZoll = dr.Item("mit_firmaFMZoll") If Not dr.Item("mit_EZOLL_SB") Is DBNull.Value Then Me.mit_EZOLL_SB = dr.Item("mit_EZOLL_SB") If Not dr.Item("mit_ATLAS_SB") Is DBNull.Value Then Me.mit_ATLAS_SB = dr.Item("mit_ATLAS_SB") If Not dr.Item("mit_DAKOSY_SB") Is DBNull.Value Then Me.mit_DAKOSY_SB = dr.Item("mit_DAKOSY_SB") If Not dr.Item("mit_DAKOSY_SBFull") Is DBNull.Value Then Me.mit_DAKOSY_SBFull = dr.Item("mit_DAKOSY_SBFull") If Not dr.Item("mit_TESTonly") Is DBNull.Value Then Me.mit_TESTonly = dr.Item("mit_TESTonly") If Not dr.Item("mit_PasswortChanged") Is DBNull.Value Then Me.mit_PasswortChanged = dr.Item("mit_PasswortChanged") If Not dr.Item("mit_FirmenDatenAnzeige") Is DBNull.Value Then Me.mit_FirmenDatenAnzeige = dr.Item("mit_FirmenDatenAnzeige") If Not dr.Item("mit_TELOTEC_SB") Is DBNull.Value Then Me.mit_TELOTEC_SB = dr.Item("mit_TELOTEC_SB") If Not dr.Item("mit_AliasAD_Domain") Is DBNull.Value Then Me.mit_AliasAD_Domain = dr.Item("mit_AliasAD_Domain") If Not dr.Item("mit_AliasAD_Username") Is DBNull.Value Then Me.mit_AliasAD_Username = dr.Item("mit_AliasAD_Username") If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId") Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Mitarbeiter-Details " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End If dr.Close() End Using End Using Return True Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Mitarbeiter-Details:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try Return False End Function End Class