|
|
Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by |
Объект Document и набор Documents
Объект Document представляет
индивидуальный объект в базе
данных, для которого Вы можете
назначить права доступа в
защищенной рабочей группе. Набор
Documents включает
все объекты Document в данном объекте
Container.
Взаимосвязь между объектом
Document, набором
Documents и другими
объектами и наборами в рабочем
пространстве Microsoft Jet показана в
таблице:
| Объект
или набор |
Содержится
в: |
Содержит: |
| Объект
Document |
наборе
Documents |
набор
Properties |
| Набор
Documents |
объекте
Container |
объекты
Document |
В следующей
таблице показаны объекты
Document,
предоставляемые DAO. В ней
перечислены тип объекта,
описываемого каждым объектом
Document, имя
соответствующего объекта
Container и тип
содержащейся информации.
| Document |
Container |
Описание |
| Database |
Databases |
Содержит
информацию о сохраненных базах
данных. |
| Table
или Query |
Tables |
Содержит
информацию о сохраненных
таблицах или запросах. |
| Relationship |
Relationships |
Содержит
информацию о сохраненных
связях. |
Приложения могут
определять дополнительные объекты
Document. Например, в
Microsoft Access определены такие объекты
Document:
| Document |
Container |
Описание |
| Form |
Forms |
Содержит
информацию о сохраненных
формах. |
| Macro |
Scripts |
Содержит
информацию о сохраненных
макросах. |
| Module |
Modules |
Содержит
информацию о сохраненных
модулях |
| Report |
Reports |
Содержит
информацию о сохраненных
отчетах. |
| Summaryinfo |
Databases |
Содержит
сводную информацию о базе
данных. |
| UserDefined |
Databases |
Содержит
информацию об определенных
пользователем свойствах. |
В следующем
примере пользователю назначаются
права доступа ко всем существующим
Document-объектам Table набора Documents Container-объекта Tables. Document-объекты Table
представляют таблицы или запросы.
Function
SetPermissionsOnDocument(strUserName As String) As Boolean
═════Dim dbs As Database, ctr As Container, doc As
Document
═════Const conPath As String = _
══════════"C:\Program Files\Microsoft
Office\Office\Samples\Northwind.mdb"
═════On Error GoTo
Err_SetPermissionsOnDocument
═════? получаем
ссылку на базу данных Northwind
═════Set dbs = DBEngine(0).OpenDatabase(conPath)
═════? получаем
ссылку на контейнер Tables
═════Set ctr = dbs.Containers("Tables")
═════? перебираем все
документы в контейнере Tables
═════For Each doc In ctr. Documents
══════════? заносим в свойство UserName
имя пользователя
══════════doc.UserName = strUserName
══════════? устанавливаем права
доступа пользователя к документу
══════════doc. Permissions = dbSecRetrieveData or
dbSecInsertData or _
═══════════════dbSecReplaceData or
dbSecDeleteData
═════Next doc
═════SetPermissionsOnDocument = True
Exit_SetPermissionsOnDocument:
═════Exit Function
Err_SetPermissionsOnDocument:
═════MsgBox "Error " & Err & ":
" & Err. Description
═════SetPermissionsOnDocument = False
═════Resume Exit_SetPermissionsOnDocument
End Function
Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997
| 
