Prüft die DB-Einträge mit den Formcontrols und bei Übereinstimmung werden die Security-Einstellungen gesetzt

[Visual Basic]
Private Sub Set_Security()

Quellcode

[Visual Basic]
        Private Sub Set_Security() 
            Dim i As Integer 
            For i = 0 To Me.SecurityData.Tables(0).Rows.Count - 1 
                Dim SecurityObject As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObject") 
                Dim SecurityObjectitem As String = Me.SecurityData.Tables(0).Rows(i).Item("SecurityObjectItem") 
                Dim read_only As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("readonly") 
                Dim invisible As Boolean = Me.SecurityData.Tables(0).Rows(i).Item("invisible") 
                Dim ii As Integer 
                For ii = 1 To ctlcol.Count 
                    Dim secobj As MyFormControls = ctlcol(ii) 
                    If secobj.MySecurityObject = SecurityObject And secobj.MySecurityObjectItem = SecurityObjectitem Then 
                        Set_Preferences(secobj.MyControl, read_only, invisible, SecurityObjectitem) 
                    End If 
                Next 
            Next 
        End Sub

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

MySecurity