LEADERSOFT.ru Разработка на заказ программ и сайтов
Раздел обучения информационным технологиям
Разработка программ на Access
08. Пример 8 показывает защиту базы данных путем скрытия ее объектов: таблиц, запросов, полей
Свойства продукта

 Microsoft Office: 2000,2002,2003,2007,2010  Архив с файлами: Перейти
 Операционная система: Windows XP,Vista  Применение: Базы данных Access
 Продажа: Купить  Файл исходника: ..\Access\03 Защита\la_protection1.mdb
 Язык интерфейса: Русский

   

Private Sub butExecute_Click()
Dim dbs As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field, prpLoop As DAO.Property
    ' Отображаем/гасим невидимые объекты базы данных
    Application.SetOption "Show Hidden Objects"CBool(Not Me.flagViewObject)
    
    ' DAO - метод
    Set dbs = CurrentDb
    Me.progress = ""
    For Each tdf In dbs.TableDefs
        If ((tdf.Attributes And dbSystemObject) = 0) Then
            ' Отображаем/гасим таблицы пользователя
            Me.progress = Me.progress & tdf.Name & ", Visible=" & (Not CBool(Me.flagViewTable)) & vbNewLine
            Application.SetHiddenAttribute acTable, tdf.Name, Me.flagViewTable
            ' Отображаем/гасим поля пользователя
            For Each fld In tdf.Fields
                fld.Properties("ColumnHidden") = CBool(Me.flagViewField)
            Next fld
        End If
    Next tdf
    
End Sub


Copyright © 2002-2015 ООО Лидер Эксэсс
Сайт работает под управлением: ASP.NET, Access