Файл: Состав и свойства вычислительных систем..pdf

        Set FileCard = UserSession.CardManager.CardsData(FileRow.Values("CardFileID"))

        If MainInfo(FileCard).Values("FileSize") > MAX_FILE_SIZE Then

            ErrMessages = ErrMessages & vbCrLf & MainInfo(FileCard).Values("FileName")

        End If

    Next

    If ErrMessages <> vbNullString Then

        MsgBox "Внимание! Размер следующих файлов превышает допустимый:" & ErrMessages & vbCrLf & "Удалите эти файлы до закрытия карточки.", vbOKOnly, "Предупреждение"

        DoEvent = -1

    End If

End Function

' Получение секции карточки по имени

Function Sect(CardsData, Allias)

    Set Sect = CardsData.Sections(CardsData.Type.AllSections.GetByAllias(Allias).ID)

End Function

' Получение подчиненной секции по имени

Function SubSect(RowsData, Allias)

    Set SubSect = RowsData.ChildSections(RowsData.Section.Type.ChildSections.GetByAllias(Allias).ID)

End Function

' Нулевая строка секции MainInfo

Function MainInfo(CardsData)

    Set MainInfo = Sect(CardsData, "MainInfo").FirstRow

End Function

' Строка свойства

Function Prop(CardsData, Allias)

    Set Prop = Nothing

    Dim Row: For Each Row In Sect(CardsData, "Properties").Rows

        If Row.Values("Name") = Allias Then

            Set Prop = Row

            Exit Function

        End If

    Next

End Function

' Получение значения свойства

Function GetProp(CardsData, Allias, DefaultValues)

    Dim Row: Set Row = Prop(CardsData, Allias)

    If Row Is Nothing Then

        GetProp = DefaultValues

    Else

        GetProp = Row.Values("Values")

        If IsNull(GetProp) Then GetProp = DefaultValues

    End If

End Function

' Установка значения свойства

Sub SetProp(CardsData, Allias, Values, DisplaysValues)

    Prop(CardsData, Allias).Values("Values") = Values

    Prop(CardsData, Allias).Values("DisplaysValues") = DisplaysValues

End Sub

Получение файлов из карточки в коллекцию и выгрузка файлов

Option Explicit

Function DoEvent(UserSession, CardFrame, CardsData, ActivateFlags, ModeID, FolderID, PropValues)

    DoEvent = 0

    Dim CardsData2, FileList2, Ver, State, FolderID2

' Получение подчиненной секции по имени

Function SubSect(RowsData, Allias)

    Set SubSect = RowsData.ChildSections(RowsData.Section.Type.ChildSections.GetByAllias(Allias).ID)

End Function

' Нулевая строка секции MainInfo

Function MainInfo(CardsData)

    Set MainInfo = Sect(CardsData, "MainInfo").FirstRow

End Function

' Строка свойства

Function Prop(CardsData, Allias)

    Set Prop = Nothing

    Dim Row: For Each Row In Sect(CardsData, "Properties").Rows

        If Row.Values("Name") = Allias Then

            Set Prop = Row

            Exit Function

        End If

    Next

End Function

' Получение значения свойства

Function GetProp(CardsData, Allias, DefaultValues)

    Dim Row: Set Row = Prop(CardsData, Allias)

    If Row Is Nothing Then

        GetProp = DefaultValues

    Else

        GetProp = Row.Values("Values")

        If IsNull(GetProp) Then GetProp = DefaultValues

    End If

End Function

' Установка значения свойства

Sub SetProp(CardsData, Allias, Values, DisplaysValues)

    Prop(CardsData, Allias).Values("Values") = Values