AppUser-Klasse korrekt erstellen

  • VB.NET
  • .NET (FX) 4.0

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von tragl.

    AppUser-Klasse korrekt erstellen

    Hallo zusammen.

    Ich bin grad dabei meiner Anwendung eine Überarbeitung zu verpassen. Beim Start meldet sich ein User an.
    Bisher hab ich das über ein Public Module gelöst

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.CompilerServices
    2. Public Module UserAccess
    4. #Region "Properties"
    6. 'Benutzerbezogene Properties
    7. Public Property _UA_UserID As Integer
    8. Public Property _UA_UserName As String
    9. Public Property _UA_rwUser As BenutzerRow
    10. Public Property _UA_MitarbeiterFullname As String
    11. Public Property _UA_MitarbeiterID As Integer
    12. Public Property _UA_MitarbeiterFunktion As String
    13. Public Property _UA_rwMitarbeiter As MitarbeiterRow
    14. Public Property _UA_IsAdmin As Boolean
    15. Public Property _UA_IsZentrale As Boolean
    16. Public Property _UA_GesellschaftName As String
    17. Public Property _UA_GesellschaftID As Integer
    18. Public Property _UA_GesellschaftNr As Integer
    19. Public Property _UA_Auswertekennzeichen As String
    20. Public Property _UA_rwStandort As StandortRow
    21. Public Property _UA_StandortName As String
    22. Public Property _UA_standortID As Integer
    23. Public Property _UA_UsernameAndStandort As String
    24. Public Property _UA_CanShowGehalt As Boolean = False
    25. Public Property _UA_CanEditGehalt As Boolean = False
    26. Public Property _UA_CanShowBonus As Boolean = False
    27. Public Property _UA_CanEditBonus As Boolean = False
    28. 'Default-Einträge
    29. Public Property _DefVal_GesellschaftName As String = "<keine Angabe>"
    30. Public Property _DefVal_StandortName As String = "<keine Angabe>"
    31. Public Property _DefVal_FzgKennzeichen As String = "<KEINE ANGABE>"
    32. Public Property _DefVal_TourArt As String = "<keine Angabe>"
    33. Public Property _DefVal_TourNr As Integer = 0
    34. Public Property _DefVal_TourName As String = "<keine Angabe>"
    35. Public Property _DefVal_MitarbeiterName As String = "<keine Zuordnung>"
    36. Public Property _DefVal_Date As Date = Date.Parse("01.01.1900")
    37. Public Property _DefVal_TourGebiet As String = "<keine Angabe>"
    38. Public Property _DefVal_UserName As String = "<keine Angabe>"
    39. '
    40. Public Property _frmTourenplan_SetYear As Integer = 0
    41. Public Property _frmTourenplan_StandortID As Integer = 0
    43. #End Region 'Properties
    45. #Region "AccessSettings"
    47. ''' <summary> sorgt dafür, dass für jede MitarbeiterFunktion jede TreeRow angelegt wird. Ist die Freigabe im Tree False wird die DefaultRow gelöscht.</summary>
    48. Public Sub EnsureValidAccessDefaults()
    49. Dim rwAnsichtDefault = Dts.Ansicht.First(Function(x) x.Typ = "kein Zugriff")
    50. For Each rwMaFunc In Dts.MitarbeiterFunktion
    51. For Each rwTree In Dts.Tree
    52. If rwTree.Freigabe Then
    53. If Dts.AccessDefault.Where(Function(x) x.MitarbeiterFunktionRow Is rwMaFunc AndAlso x.TreeRow Is rwTree).Count = 0 Then 'noch nicht vorhanden
    54. Dts.AccessDefault.AddAccessDefaultRow(rwMaFunc, rwTree, False, False, False, False, False, False, rwAnsichtDefault, Date.Now, "automatische Neuanlage", _UA_UsernameAndStandort)
    55. End If
    56. Else 'freigabe wurde entfernt. wenn noch eine AccessDefault-Row dazu da ist, dann diese löschen
    57. Dim rw = Dts.AccessDefault.All.FirstOrDefault(Function(x) x.MitarbeiterFunktionRow Is rwMaFunc AndAlso x.TreeRow Is rwTree)
    58. If rw IsNot Nothing Then rw.Delete()
    59. End If
    60. Next
    61. Next
    62. End Sub
    64. Public Sub SyncAllUsers()
    65. Dim counter = 0
    66. For Each rwUser In Dts.Benutzer
    67. For Each rwTree In Dts.Tree
    68. If rwTree.Freigabe Then
    69. Dim defRow = Dts.AccessDefault.First(Function(x) x.MitarbeiterFunktionRow Is rwUser.MitarbeiterRow.MitarbeiterFunktionRow AndAlso x.TreeRow Is rwTree)
    70. If Dts.AccessSetting.Where(Function(x) x.BenutzerRow Is rwUser AndAlso x.TreeRow Is rwTree).Count = 0 Then
    71. If Not rwUser.Admin Then
    72. Dts.AccessSetting.AddAccessSettingRow(rwUser, rwTree, defRow.Zugriff, defRow.Neu, defRow.Bearbeiten, defRow.MultiEdit, defRow.FastEdit, defRow.Loeschen, defRow.AnsichtRow, defRow, Date.Now, "Migrierung", "Anwendung")
    73. Else
    74. Dts.AccessSetting.AddAccessSettingRow(rwUser, rwTree, True, True, True, True, True, True, Dts.Ansicht.First(Function(x) x.Typ = "Alles"), defRow, Date.Now, "Migrierung", "Anwendung")
    75. End If
    76. counter += 1
    77. End If
    78. End If
    79. Next
    80. Next
    81. msgInformation($"{counter} Berechtigungen wurden angelegt.")
    82. End Sub
    84. #Region "Rechteprüfung"
    86. ''' <summary> Gibt zurück, ob User neue Einträge erstellen darf </summary>
    87. Public Function hasCreateNewAccess(appMod As String) As Boolean
    88. Return Dts.AccessSetting.First(Function(x) x.BenutzerRow Is _UA_rwUser AndAlso x.TreeRow.Key = appMod).Neu
    89. End Function
    91. ''' <summary> Gibt zurück, ob User bearbeiten darf </summary>
    92. Public Function hasEditEntryAccess(appMod As String) As Boolean
    93. Return Dts.AccessSetting.First(Function(x) x.BenutzerRow Is _UA_rwUser AndAlso x.TreeRow.Key = appMod).Bearbeiten
    94. End Function
    96. ''' <summary> Gibt zurück, ob User Schnelländerung(MultiEdit) benutzen darf </summary>
    97. Public Function hasMultiEditAccess(appMod As String) As Boolean
    98. Return Dts.AccessSetting.First(Function(x) x.BenutzerRow Is _UA_rwUser AndAlso x.TreeRow.Key = appMod).MultiEdit
    99. End Function
    101. ''' <summary> Gibt zurück, ob User Schnellbearbeitung(FastEdit) benutzen darf </summary>
    102. Public Function hasFastEditAccess(appMod As String) As Boolean
    103. Return Dts.AccessSetting.First(Function(x) x.BenutzerRow Is _UA_rwUser AndAlso x.TreeRow.Key = appMod).FastEdit
    104. End Function
    106. ''' <summary> Gibt zurück, ob User zum Löschen berechtigt ist </summary>
    107. Public Function hasDeleteAccess(appMod As String) As Boolean
    108. Return Dts.AccessSetting.First(Function(x) x.BenutzerRow Is _UA_rwUser AndAlso x.TreeRow.Key = appMod).Loeschen
    109. End Function
    111. Public Function UserView(appMod As String) As String
    112. Return Dts.AccessSetting.First(Function(x) x.BenutzerRow Is _UA_rwUser AndAlso x.TreeRow.Key = appMod).AnsichtRow.Typ
    113. End Function
    115. ''' <summary> Gibt zurück, ob User "Admin" oder "Zentrale" ist </summary>
    116. Public Function isSuperUser() As Boolean
    117. If _UA_IsAdmin Then Return True
    118. If _UA_IsZentrale Then Return True
    119. Return False
    120. End Function
    122. #End Region 'Rechteprüfung
    124. #End Region 'AccessSettings
    126. #Region "Login"
    128. ''' <summary> Setzt nach erfolgreicher Anmeldung auf dlgLogin die ganzen Userdetails </summary>
    129. <Extension>
    130. Public Sub setUser(user As String)
    131. registerUserDetails(user)
    132. My.Settings.ActiveUser = _UA_UserID
    133. End Sub
    135. Private Sub registerUserDetails(user As String)
    136. _UA_rwUser = Dts.Benutzer.First(Function(x) x.Benutzername = user)
    137. _UA_UserID = _UA_rwUser.ID
    138. _UA_UserName = _UA_rwUser.Benutzername
    139. _UA_GesellschaftName = _UA_rwUser.expGesellschaft
    140. _UA_GesellschaftID = Dts.Gesellschaft.First(Function(x) x.Name = _UA_GesellschaftName).ID
    141. _UA_GesellschaftNr = convertInteger(Dts.Gesellschaft.First(Function(x) x.Name = _UA_GesellschaftName).Nr)
    142. _UA_MitarbeiterFullname = _UA_rwUser.expFullname
    143. _UA_MitarbeiterID = _UA_rwUser.MitarbeiterID
    144. _UA_MitarbeiterFunktion = _UA_rwUser.expFunktion
    145. _UA_IsAdmin = _UA_rwUser.Admin
    146. _UA_IsZentrale = _UA_rwUser.Zentrale
    147. _UA_Auswertekennzeichen = Dts.Gesellschaft.First(Function(x) x.Name = _UA_GesellschaftName).auswKZ
    148. _UA_rwMitarbeiter = Dts.Mitarbeiter.First(Function(x) x.ID = _UA_MitarbeiterID)
    149. _UA_CanShowGehalt = _UA_rwMitarbeiter.flagGehaltEinsehen
    150. _UA_CanEditGehalt = _UA_rwMitarbeiter.flagGehaltAnpassen
    151. _UA_CanShowBonus = _UA_rwMitarbeiter.flagSonderzahlungEinsehen
    152. _UA_CanEditBonus = _UA_rwMitarbeiter.flagSonderzahlungAnpassen
    153. _UA_rwStandort = _UA_rwMitarbeiter.StandortRow
    154. _UA_StandortName = _UA_rwStandort.Name
    155. _UA_standortID = _UA_rwStandort.ID
    156. _UA_UsernameAndStandort = $"{_UA_MitarbeiterFullname} | {_UA_StandortName}"
    157. End Sub
    159. Public Function userExist(username As String) As Boolean
    160. For Each rwUser In Dts.Benutzer
    161. If rwUser.Benutzername = username Then Return True
    162. Next
    163. Return False
    164. End Function
    166. #End Region 'Login
    168. End Module


    Irgendwie hab ich aber im Gefühl, dass zumindest die Properties in eine Klasse gehören. In etwa so:

    VB.NET-Quellcode

    1. Public Class AppUser
    3. Property UserName As String
    5. Public Sub New(rwUser As BenutzerRow)
    6. RegisterUserDetails(rwUser)
    7. End Sub
    9. Private Sub RegisterUserDetails(rwUser As BenutzerRow)
    10. Me.UserName = rwUser.Benutzername
    11. End Sub
    13. End Class


    Dann könnte ich doch sicher beim Anwendungsstart nach erfolgreicher Anmeldung einen New AppUser und dessen Properties Anwendungsweit nutzen oder
    gibt's da was sinnvolleres?
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Ja, ein Modul.
    Klassen braucht man, wenn man mehrere Objekte derselben Art braucht, die in irgendeiner Form sich im Status unterscheiden.
    Also wenn du mehrere User hättest, und die hätten verschiedene Namen.
    Wenns nur einen User geben kann, dann nimmt man in c# eine static Class, und in vb.net ein Modul.

    Möglicherweise ist dir die vb.net-Unart nicht recht, dass alle Modul-Properties Solutionweit in jedem Code direkt zugreifbar sind.
    Dann kannst du das Modul in einen Namespace tun, zB:

    VB.NET-Quellcode

    1. Public Namespace AppUser
    3. Public Module UserAccess
    4. Public Property _UA_UserID As Integer
    5. Public Property _UA_UserName As String
    6. Public Property _UA_rwUser As BenutzerRow
    7. Public Property _UA_MitarbeiterFullname As String
    8. Public Property _UA_MitarbeiterID As Integer
    9. Public Property _UA_MitarbeiterFunktion As String
    10. Public Property _UA_rwMitarbeiter As MitarbeiterRow
    11. Public Property _UA_IsAdmin As Boolean
    12. Public Property _UA_IsZentrale As Boolean
    13. '...
    14. End Module
    15. End Namespace
    Dann geht der Zugriff

    VB.NET-Quellcode

    1. AppUser.RegisterUserDetails(rwUser)
    Übrigens bezweifel ich, dass wirklich so viele Properties in deim UserModul nötig sind.
    Eine einzige Property vom Typ BenutzerRow dürfte doch schon eine ganze Menge abdecken oder?

    ErfinderDesRades schrieb:

    Eine einzige Property vom Typ BenutzerRow dürfte doch schon eine ganze Menge abdecken oder?

    Das ist korrekt - aber ich will ja nicht AppUser.UserRow.MitarbeiterRow.Standort oder sowas tippen müssen, das sollte schon als Property da sein.
    Ansonsten, ob das von überall direkt aufrufbar ist stört mich nicht - find ich sogar nützlich. Dachte nur es wäre sinniger da eine Klasse zu basteln - aber hast recht,
    es kann ja pro Anwendungsinstanz nur ein User angemeldet sein. Also merk' ich mir: Klassen für mehrere Objekte, die sich ggf. unterscheiden.

    EDIT: @ErfinderDesRades Also sowas hier?
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.CompilerServices
    3. Namespace User
    5. Public Module User
    7. #Region "UserProperties"
    9. 'User
    10. Public Property UserRow As BenutzerRow
    11. Public Property UserID As Integer
    12. Public Property UserName As String
    13. Public Property UserIsAdmin As Boolean
    14. Public Property UserInfo As String 'UserName | StandortName
    15. 'Gesellschaft
    16. Public Property Gesellschaft As String
    17. Public Property GesellschaftID As Integer
    18. Public Property GesellschaftNr As String
    19. Public Property GesellschaftAuswKz As String
    20. 'Standort
    21. Public Property StandortRow As StandortRow
    22. Public Property StandortID As Integer
    23. Public Property StandortName As String
    24. 'Mitarbeiter
    25. Public Property MitarbeiterFullname As String
    26. Public Property MitarbeiterID As Integer
    27. Public Property MitarbeiterFunktion As String
    29. #End Region 'UserProperties
    31. #Region "Login"
    33. ''' <summary>Setzt nach erfolgreicher Anmeldung auf dlgLogin die Userdetails</summary>
    34. <Extension>
    35. Public Sub SetUser(BenutzerName As String)
    36. SetUserProperties(BenutzerName)
    37. 'TODO: nötig? My.Settings.ActiveUser = _UA_UserID
    38. End Sub
    40. Private Sub SetUserProperties(BenutzerName As String)
    41. 'User
    42. UserRow = Dts.Benutzer.First(Function(x) x.Benutzername = BenutzerName)
    43. UserID = UserRow.ID
    44. UserName = UserRow.Benutzername
    45. UserIsAdmin = UserRow.Admin
    46. UserInfo = $"{UserName} | {UserRow.MitarbeiterRow.StandortRow.Name}"
    47. 'Gesellschaft
    48. Dim rwGesellschaft = UserRow.MitarbeiterRow.StandortRow.GesellschaftRow
    49. Gesellschaft = rwGesellschaft.Name
    50. GesellschaftID = rwGesellschaft.ID
    51. GesellschaftNr = rwGesellschaft.Nr
    52. GesellschaftAuswKz = rwGesellschaft.AuswerteKennzeichen
    53. 'Standort
    54. StandortRow = UserRow.MitarbeiterRow.StandortRow
    55. StandortID = StandortRow.ID
    56. StandortName = StandortRow.Name
    57. 'Mitarbeiter
    58. Dim rwMitarbeiter = UserRow.MitarbeiterRow
    59. MitarbeiterFullname = rwMitarbeiter.extMitarbeiterFullname
    60. MitarbeiterID = rwMitarbeiter.ID
    61. MitarbeiterFunktion = Dts.MitarbeiterFunktion.First(Function(x) x.MitarbeiterRow Is rwMitarbeiter AndAlso x.Aktiv).FunktionRow.Bezeichnung
    62. 'TODO: Wird gebraucht? _UA_IsZentrale = _UA_rwUser.Zentrale
    63. End Sub
    65. ''' <summary>Gibt an, ob der Benutzername vorhanden ist.</summary>
    66. Public Function Exist(username As String) As Boolean
    67. Return Dts.Benutzer.Any(Function(x) x.Benutzername = username)
    68. End Function
    70. #End Region 'Login
    72. #Region "UserBerechtigungen"
    74. ''' <summary>Gibt an, ob der User zum Einsehen von Gehältern berechtigt ist</summary>
    75. Public Function MayShowGehalt() As Boolean
    76. Return Dts.MitarbeiterFlag.First(Function(x) x.MitarbeiterRow Is UserRow.MitarbeiterRow).flagGehaltEinsehen
    77. End Function
    79. ''' <summary>Gibt an, ob der User zum Bearbeiten von Gehältern berechtigt ist</summary>
    80. Public Function MayEditGehalt() As Boolean
    81. Return Dts.MitarbeiterFlag.First(Function(x) x.MitarbeiterRow Is UserRow.MitarbeiterRow).flagGehaltAnpassen
    82. End Function
    84. ''' <summary>Gibt zurück, ob User neue Einträge erstellen darf</summary>
    85. Public Function MayCreateNew(appMod As String) As Boolean
    86. Return Dts.AppAccess.First(Function(x) x.BenutzerRow Is UserRow AndAlso x.AppAccessDefaultRow.TreeRow.Key = appMod).Neu
    87. End Function
    89. ''' <summary>Gibt zurück, ob User bearbeiten darf</summary>
    90. Public Function MayEdit(appMod As String) As Boolean
    91. Return Dts.AppAccess.First(Function(x) x.BenutzerRow Is UserRow AndAlso x.AppAccessDefaultRow.TreeRow.Key = appMod).Bearbeiten
    92. End Function
    94. ''' <summary>Gibt zurück, ob User Schnelländerung(MultiEdit) benutzen darf</summary>
    95. Public Function MayMultiEdit(appMod As String) As Boolean
    96. Return Dts.AppAccess.First(Function(x) x.BenutzerRow Is UserRow AndAlso x.AppAccessDefaultRow.TreeRow.Key = appMod).SchnellAenderung
    97. End Function
    99. ''' <summary>Gibt zurück, ob User Schnellbearbeitung(FastEdit) benutzen darf</summary>
    100. Public Function MayFastEdit(appMod As String) As Boolean
    101. Return Dts.AppAccess.First(Function(x) x.BenutzerRow Is UserRow AndAlso x.AppAccessDefaultRow.TreeRow.Key = appMod).SchnellBearbeitung
    102. End Function
    104. ''' <summary>Gibt zurück, ob User zum Löschen berechtigt ist</summary>
    105. Public Function MayDelete(appMod As String) As Boolean
    106. Return Dts.AppAccess.First(Function(x) x.BenutzerRow Is UserRow AndAlso x.AppAccessDefaultRow.TreeRow.Key = appMod).Loeschen
    107. End Function
    109. ''' <summary>Gibt die Ansichtseinstellung des Users für appMod zurück</summary>
    110. Public Function View(appMod As String) As String
    111. Return Dts.AppAccess.First(Function(x) x.BenutzerRow Is UserRow AndAlso x.AppAccessDefaultRow.TreeRow.Key = appMod).AppAnsichtRow.Bezeichnung
    112. End Function
    114. 'TODO: unnötig?
    115. '''' <summary> Gibt zurück, ob User "Admin" oder "Zentrale" ist </summary>
    116. 'Public Function isSuperUser() As Boolean
    117. ' If _UA_IsAdmin Then Return True
    118. ' If _UA_IsZentrale Then Return True
    119. ' Return False
    120. 'End Function
    122. #End Region 'UserBerechtigungen
    124. #Region "UserAccessSetting"
    126. ''' <summary>Sorgt dafür, dass für jede MitarbeiterFunktion jede aktive TreeRow angelegt wird. Ist die Tree Row Aktiv=False, wird die DefaultRow gelöscht.</summary>
    127. Public Sub EnsureValidAccessDefaults()
    128. Dim rwAnsichtDefault = Dts.AppAnsicht.First(Function(x) x.Bezeichnung = "kein Zugriff")
    129. For Each rwFunktion In Dts.Funktion.Where(Function(x) x.Aktiv)
    130. For Each rwTree In Dts.Tree
    131. If rwTree.Aktiv Then
    132. If Dts.AppAccessDefault.Where(Function(x) x.FunktionRow Is rwFunktion AndAlso x.TreeRow Is rwTree).Count = 0 Then 'noch nicht vorhanden
    133. Dts.AppAccessDefault.AddAppAccessDefaultRow(rwFunktion, rwTree, False, False, False, False, False, False, rwAnsichtDefault)
    134. End If
    135. Else 'freigabe wurde entfernt. wenn noch eine AccessDefault-Row dazu da ist, dann diese löschen
    136. Dim rw = Dts.AppAccessDefault.All.FirstOrDefault(Function(x) x.FunktionRow Is rwFunktion AndAlso x.TreeRow Is rwTree)
    137. If rw IsNot Nothing Then rw.Delete()
    138. End If
    139. Next
    140. Next
    141. End Sub
    143. ''' <summary>Fügt Usern ohne Berechtigungen die Standardberechtigungen hinzu</summary>
    144. Public Sub SyncAccessDefaultsWithAllUsers()
    145. Dim counter = 0
    146. For Each rwUser In Dts.Benutzer
    147. For Each rwTree In Dts.Tree
    148. If rwTree.Aktiv Then
    149. Dim defRow = Dts.AppAccessDefault.First(Function(x) x.FunktionRow Is Dts.MitarbeiterFunktion.First(Function(y) y.MitarbeiterRow Is rwUser.MitarbeiterRow AndAlso y.Aktiv).FunktionRow AndAlso x.TreeRow Is rwTree)
    150. If Dts.AppAccess.Where(Function(x) x.BenutzerRow Is rwUser AndAlso x.AppAccessDefaultRow.TreeRow Is rwTree).Count = 0 Then
    151. If Not rwUser.Admin Then
    152. Dts.AppAccess.AddAppAccessRow(rwUser, defRow.Neu, defRow.Bearbeiten, defRow.SchnellAenderung, defRow.SchnellBearbeitung, defRow.Loeschen, defRow.Zugriff, defRow.AppAnsichtRow, defRow)
    153. Else
    154. Dts.AppAccess.AddAppAccessRow(rwUser, True, True, True, True, True, defRow.TreeRow.Aktiv, Dts.AppAnsicht.First(Function(x) x.Bezeichnung = "Alles"), defRow)
    155. End If
    156. counter += 1
    157. End If
    158. End If
    159. Next
    160. Next
    161. msgInformation($"{counter} Berechtigungen wurden angelegt.")
    162. End Sub
    164. #End Region 'UserAccessSetting
    166. End Module
    168. End Namespace
    170. Namespace AppDefaults
    172. Public Module AppDefaults
    174. Public Property Gesellschaftname As String = "<keine Angabe>"
    175. Public Property Standortname As String = "<keine Angabe>"
    176. Public Property FahrzeugKennzeichen As String = "<KEINE ANGABE>"
    177. Public Property TourArt As String = "<keine Angabe>"
    178. Public Property TourNr As Integer = 0
    179. Public Property TourName As String = "<keine Angabe>"
    180. Public Property TourGebiet As String = "<keine Angabe>"
    181. Public Property Mitarbeitername As String = "<keine Angabe>"
    182. Public Property Datum As Date = Date.Parse("01.01.1900")
    183. Public Property UserName As String = "<keine Angabe>"
    185. End Module
    187. End Namespace
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „tragl“ ()

    ja, so unifähr. Man könnte ReadonlyProperties basteln:

    VB.NET-Quellcode

    1. Public Property UserRow As BenutzerRow
    2. Public ReadOnly Property UserID As Integer
    3. Get
    4. Return UserRow.ID
    5. End Get
    6. End Property
    7. '...
    Dann ists Redundanz-Frei.
    Aber elend viel vb-blöd-text.

    Sowas geht aber wirklcih besser:

    VB.NET-Quellcode

    1. Public Function MayShowGehalt() As Boolean
    2. Return Dts.MitarbeiterFlag.First(Function(x) x.MitarbeiterRow Is UserRow.MitarbeiterRow).flagGehaltEinsehen
    3. End Function
    4. ->
    5. Public Function MayShowGehalt() As Boolean
    6. Return UserRow.flagGehaltEinsehen
    7. End Function

    ErfinderDesRades schrieb:

    Man könnte ReadonlyProperties basteln:

    Ne, das macht's mir zu unübersichtlich.

    ErfinderDesRades schrieb:

    Sowas geht aber wirklcih besser:

    Nö, geht ja nicht weil MitarbeiterFlag eine extra Table ist, die mit Benutzer nix zu tun hat. ;)
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

    Nö, hab die flags in einer separaten Tabelle untergebracht. Diese ist untergeordnet Mitarbeiter.
    Mein Code ist also korrekt ;) - wobei, ggf. kann ich mir eine Tabelle sparen wenn ich das an die Mitarbeiter-Table dranhänge. Muss mal schauen
    die Planung für das neue DataSet ist noch nicht endgültig.
    "Na, wie ist das Wetter bei dir?"
    "Caps Lock."
    "Hä?"
    "Shift ohne Ende!" :thumbsup:

Facebook
Telefonspende