Базу данных в accesse на тему «Разработка справочной системы по операторам языка Delphi»

В столбце «Имя поля» набирается произвольное имя поля, а в следующем столбце «Тип данных» указывается тип для этого поля. Тип данных можно выбрать из раскрывающегося списка.

В нижней части окна задаются индивидуальные свойства для каждого поля. Наборы свойств могут различаться, их состав определяется указанным типом данных поля. При необходимости можно изменять значения свойств (в рамках допустимого для выбранного типа данных).

Таким образом, были созданы все таблицы базы данных, которые имеют вид:

Таблица Группа

Таблица Оператор

Таблица Справка

Для связывания таблиц был использован компонент Схема данных, расположенный на стандартной панели инструментов или в пункте меню Сервис (Схема данных.

При первом обращении к окну «Схема данных» будет предложено и окно добавления новых таблиц. В дальнейшем это окно можно будет вызвать через контекстное меню окна схемы данных, пункт меню Связи (Добавить таблицу или кнопку панели инструментов.

Для изменения связи необходимо открыть окно «Изменение связей» для настраиваемой связи. Это можно сделать через контекстное меню линии связи или выделив линию связи щелчком мыши и дав команду меню Связи (Изменить связь.

Установить флажок «Обеспечение целостности данных». Включение флажка «Обеспечение целостности данных» позволяет защититься от случаев удаления записей из одной таблицы, при которых связанные с ними данные других полей окажутся без связи. Чтобы условие целостности могло существовать, поле основной таблицы должно обязательно быть ключевым, и оба поля должны иметь одинаковый тип. Флажки «каскадное обновление связанных полей» и «каскадное удаление связанных полей» обеспечивают одновременное обновление или удаление данных во всех подчиненных таблицах при их изменении в главной таблице.

Можно также согласиться на каскадное обновление и удаление связанных полей, однако для нашей базы данных это не является необходимым. Дать подтверждение на изменение связей (нажать кнопку «ОК»).

Концы линии связи в окне схемы данных после включения флажка обеспечения целостности данных помечены знаками «1» и «бесконечность». Это означает, что в качестве значений поля из связанной таблицы могут выступать только значения из соответствующего поля основной таблицы и каждое значение из поля основной таблицы может много раз встречаться в поле связанной таблицы (связь «один ко многим»).

Необходимо сохранить макет схемы данных, дав команду меню Файл (Сохранить или нажав кнопку на панели инструментов. Закрыть окно «Схема данных».

В соответствии с информационно-логической моделью базы данных установлены связи между таблицами, заданы параметры обеспечения целостности данных, параметры каскадного удаления и каскадного обновления.

Схема связанных таблиц базы данных имеет вид:

3.2 Ввод данных контрольного примера

Для проверки работоспособности базы данных были введены исходные данные контрольного примера, который был разработан на предыдущих этапах.

Ввод данных осуществлялся посредством разработанных форм.

3.3 Разработка отчетов

Были созданы два отчета, отображающие специфику данной предметной области.

Первый отчет показывает информацию по всем операторам языка программирования Delphi.

Второй отчет показывает справочную информацию по выбранному оператору языка программирования Delphi.

3.4 Разработка пользовательского интерфейса

В результате проектирования базы данных была разработана главная кнопочная форма, через которую можно открыть любую форму, просмотреть любой отчет, запустить любой макрос и выполнить запросы на выборку с параметрами.

Форма носит название «Главная форма».

Она создана с использованием двух подчиненных форм:

1. Подчиненная форма «Оператор»:

2. Подчиненная форма «Справка»:

4 Руководство пользователя

Проект программы содержит следующее окно:

Окно Главная форма содержит список групп операторов. При выборе группу операторов необходимо выбрать оператор языка программирования Delphi, после чего можно прочитать справку по этому оператору и пример реализованный в языке программирования Delphi.

При нажатии на кнопку на экране появится отчет по всем операторам языка программирования Delphi.

При нажатии на кнопку на экране появится справочная информация по выбранному оператору языка программирования Delphi.

При нажатии на кнопку произойдет выход из справочной системы.

5 Текст программы

Form_Главная форма

Option Compare Database

Private Sub Список8_AfterUpdate ()

' Поиск записи, соответствующей этому элементу управления.

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst «[Код_группы] = «& Str (Nz (Me![Список8], 0))

If Not rs. EOF Then Me. Bookmark = rs. Bookmark

End Sub

Private Sub Список10_AfterUpdate ()

' Поиск записи, соответствующей этому элементу управления.

Dim rs As Object

Set rs = Me.Recordset.Clone

rs.FindFirst «[Код_группы] = «& Str (Nz (Me![Список10], 0))

If Not rs. EOF Then Me. Bookmark = rs. Bookmark

End Sub

Private Sub Кнопка12_Click ()

On Error GoTo Err_Кнопка12_Click

Dim stDocName As String

stDocName = ChrW (1042) & ChrW (1089) & ChrW (1077) & ChrW (32) & ChrW (1086) & ChrW (1087) & ChrW (1077) & ChrW (1088) & ChrW (1072) & ChrW (1090) & ChrW (1086) & ChrW (1088) & ChrW (1099)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err. Description

Resume Exit_Кнопка12_Click

End Sub

Private Sub Кнопка13_Click ()

On Error GoTo Err_Кнопка13_Click

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1087) & ChrW (1077) & ChrW (1088) & ChrW (1072) & ChrW (1090) & ChrW (1086) & ChrW (1088)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err. Description

Resume Exit_Кнопка13_Click

End Sub

Private Sub Кнопка14_Click ()

On Error GoTo Err_Кнопка14_Click

DoCmd.Quit

Exit_Кнопка14_Click:

Exit Sub

Err_Кнопка14_Click:

MsgBox Err. Description

Resume Exit_Кнопка14_Click

End Sub

Form_оператор подчиненная форма

Option Compare Database

Sub Form_Current ()

Dim ParentDocName As String

On Error Resume Next

ParentDocName = Me.Parent.Name

If Err <> 0 Then

GoTo Form_Current_Exit

Else

On Error GoTo Form_Current_Err

Me.Parent![Справка подчиненная форма]. Requery

End If

Form_Current_Exit:

Exit Sub

Form_Current_Err:

MsgBox Error$

Resume Form_Current_Exit

End Sub

6 Описание программы

Программа предназначена для использования в общеобразовательных целях, также может использоваться всеми желающими, интересующимися языком программирования Delphi и его операторами. Программа разработана с помощью средства управления базами данными Microsoft Office Access 2003

Для данной программы необходима операционная система Window 95 и выше. Технические характеристики компьютера: Pentium 200 и выше; объем оперативной памяти не менее 16 Мб; жесткий диск объемом не менее 1 Гб.

Исполняемый файл программы «Справочная система» имеет название Справочная система.mdb.

7 Внедрение

Минимальный состав аппаратурных и программных средств.

Pentium 200 и выше;

Объем оперативной памяти не менее 16 Мб;

Жесткий диск объемом не менее 1 Гб;

Оперативная система Windows 95.

Microsoft Office Access 97

Программа «Справочная система по операторам языка программирования Delphi» запускается с помощью файла Справочная система. mdb

Заключение

В данной работе была разработана справочная система по операторам языка программирования Delphi с помощью средств управления базами данными Microsoft Office Access 2003.

База данных содержит:

три таблицы: таблица группа, таблица оператор, таблица справка;

три формы: Главная форма, Оператор подчиненная форма, Справка подчиненная форма;

два отчета: отчет Все операторы, отчет Оператор.

Тестирование созданной программы показало работу без сбоев.

Список литературы

Балиер Э. Профессиональное программирование в Microsoft Office Access 2003: [пер. с англ.] / Э. Балтер.

М.: Вильямс, 2006. — 1296 с.

Блюттман К. A ccess. Трюки: Оригинальные решения задач по обработке данных: [пер.

с англ.] / К. Блюттман. -

СПб.: Питер, 2006. — 331 с.

Дарахвелидзе П.Г., Марков Е. П., Котенок О. А. Программирование в Delphi 5. — СПб.: БХВ-Санкт-Петербург, 2000. — 784 с.

Золотова С. И. Практикум по Access: Подготовительный курс, предваряющий более глубокое изучение технологии баз данных / С. И. Золотова. — М.: Финансы и статистика, 2006. — 143 с.

Зелковиц М., Шоу А., Гэннон Дж. Принципы разработки программного обеспечения / Пер. с англ. — М.: Мир, 1982. — 386 с., ил.

Культин Н. Программирование на Object Pascal. — СПб.: BHV-Петербург, 1998. — 304 с.

Практическое руководство по программированию / Пер. с англ. Б. Мик, П. Хит, Н. Рашби и др.; под ред.

Б. Мика, П. Хит, Н. Рашби. ;

М.: БИНОМ, 2004. — 563 с.

Фокс Дж. Программное обеспечение и его разработка / Пер. с англ. — М.: Мир, 1985. — 368 с., ил.

Хансен Г. Базы данных: разработка и управление: [пер. с англ.] / Г. Хансен, Дж. Хансен. — М.: БИНОМ, 1999. — 704 с.

Начало Формирование информации об операторе

Конец