Главная Коллекция "Revolution" Программирование, компьютеры и кибернетика Разработка средств автоматизации для риэлтерского агентства "Азбука Жилья"

Разработка средств автоматизации для риэлтерского агентства "Азбука Жилья"

Проектирование автоматизированной информационной системы учета и процесса реализации объектов недвижимости риэлтерского агентства "Азбука Жилья". Выбор архитектуры системы, базового программного обеспечения. Инструкция по использованию базы данных.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 28.10.2017
Размер файла 1,7 M
рефераты на заказ со скидкой

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

End Sub

' Drop index

'============

Sub DropIndex (TableName As String, IndexName As String)

Set tdf = Nothing

Set idx = Nothing

On Error Resume Next

Set tdf = dbs. TableDefs (TableName)

Set idx = tdf. Indexes (IndexName)

On Error GoTo 0

If (Not tdf Is Nothing) And (Not idx Is Nothing) Then tdf. Indexes. Delete (IndexName)

End Sub

' Add fields to table

'=====================

Sub AddFieldToTable (FieldName As String, DataType As String, SizeCol As Integer, Attributes As Long, DefaultValue As Variant, ValText As String, ValRule As String, NotN As Boolean, ZeroLength As Boolean)

Dim fld As DAO. Field

Set fld = tdf. CreateField (FieldName, DataType)

If SizeCol <> 0 Then fld. Size= SizeCol

If Attributes<> 0 Then fld. Attributes= Attributes

fld. Required = NotN

If DataType = dbText or DataType = dbMemo Then fld. AllowZeroLength = ZeroLength

fld. DefaultValue = DefaultValue

fld. ValidationRule = ValRule

fld. ValidationText = ValText

tdf. Fields. Append fld

End Sub

' Add properties to table

'=========================

Sub AddPropertyToTable (PropertyName As String, Value As Variant, DataType As String)

Dim prp As DAO. Property

Set prp = tdf. CreateProperty (PropertyName, DataType, Value)

tdf. Properties. Append prp

End Sub

' Add properties to field

'=========================

Sub AddPropertyToField (FieldName As String, PropertyName As String, Value As Variant, DataType As String)

Dim prp As DAO. Property

Dim fld As DAO. Field

Set fld = tdf. Fields (FieldName)

Set prp = fld. CreateProperty (PropertyName, DataType, Value)

fld. Properties. Append prp

End Sub

' Add fields to index

'=====================

Sub AddFieldToIndex (FieldName As String, Descending As Boolean)

Dim fld As DAO. Field

Set fld = idx. CreateField (FieldName)

If Descending = True Then fld. Attributes = dbDescending

idx. Fields. Append fld

End Sub

' Add fields to relation

'========================

Sub AddFieldToRelation (PKField As String, FKField As String)

Dim fld As DAO. Field

Set fld = rel. CreateField (PKField)

fld. ForeignName = FKField

rel. Fields. Append fld

End Sub

' Create before script

'=====================

Sub BeforeScript ()

End Sub

' Create after script

'====================

Sub AfterScript ()

End Sub

Размещено на Allbest.ru

...

Страница:


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены