Работа с базами данных в Delphi

Пример. Создать базу данных «Абитуриент», которая будет состоять из следующих таблиц:

Таблица «Абитуриент»

Наименование поля

Тип поля

Код Счетчик (ключ)
Фамилия Текстовый [15]
Имя Текстовый [10]
Отчество Текстовый [15]
Дата рождения Дата/время (краткий формат даты))
Пол Текстовый [3]
Адрес Поле Memo
Специальность Текстовый [6] (код)
Математика Числовой
Русский Числовой
Экономика Числовой
Физика Числовой
Примечание Поле Memo

Таблица «Специальность»

Наименование поля
Тип поля
Шифр
Текстовый [6] (ключ)
Наименование
Текстовый [50]

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

Сформировать следующие отчеты (данные экспортировать в Microsoft Excel):
– список абитуриентов, их оценки за экзамены и общую сумму баллов;
– список абитуриентов и их средний балл;
– список абитуриентов и наименование специальности (и шифр), на которую они поступают;
– список абитуриентов, у которых средний балл больше проходного (проходной балл указывается в отдельном поле);
– список студентов, поступивших на определенную специальность.
Порядок выполнения:
1. Запустить Ms Access и создать новую базу данных (указать имя, например «Table»)

2. В созданной базе данных создать две таблицы («Абитуриент» и «Специальность»).

Создание таблицы «Абитуриент» (физическое имя «Abitur»). Для этой таблицы поле «Kod» сделать ключевым.

Создание таблицы «Специальность» (физическое имя «Shifr specialn»). Для этой таблицы поле «Shifr» является ключевым.

3. Запустить Delphi

4. Создать Data Module (меню File – New – Data Module) и присвоить свойству «Name» значение «DM». В этот модуль вставить компонент ADOConnection1 (палитра компонентов «ADO») и присвоить свойству «Name» значение «ADOCTable», где «Table» – это физическое имя базы данных созданной в Ms Access. Для компонента ADOCTable выбрать свойство «ConnectionString» (нажать на кнопку «три точки»). Указываем путь к физической базе данных созданной в Ms Access. Нажать кнопку «Ok».

5. Свойству «LoginPromt» установить значение «False», чтобы не отображать поле для ввода пароля.

6. На палитре компонентов «ADO» выбрать компонент «ADOTable» и щелкнуть левой клавишей мыши на записи Microsoft.Jet.OLEDB.4.0{ADOCTable} окна «Object TreeView». В результате появиться компонент «ADOTable1».

7. Свойству «Name» присваиваем значение «ADOTAbitur» (этот компонент будет соответствовать таблице «Abitur» (таблица «Абитуриент») базы данных «Table»). Для свойства «TableName» выбрать таблицу «Abitur», а свойству «Active» присвоить значение «True».

8. Проделать аналогичные действия для второго компонента «ADOTable» (свойству «Name» присвоить значение «ADOTShifrSpec»), только связать его надо со второй таблицей («Shifr specialn») базы данных («Table»)

9. На палитре компонентов «Data Access» выбрать компонент «DataSource1» (Name=DSAbitur) и щелкнуть левой клавишей мыши на записи Abitur {ADOTAbitur} окна «Object TreeView». Аналогичные действия сделать для второго компонента «DataSource2» (Name=DSShifrSpec). Эти компоненты необходимы для связи физических таблиц базы данных с визуальными компонентами.

10. Связать два модуля «Unit1» и «Unit2»

11. С палитры компонентов «Standart» на форму поместить компоненты «Label». Свойству «Name» компонента «Label» указать название полей таблицы «Абитуриент» («Abitur») базы данных на русском языке. Рядом с каждым компонентом «Label» разместить с палитры компонентов «Data Controls» необходимые компоненты для отображения содержимого полей таблицы «Abitur».В свою очередь каждый компонент связать с соответствующим полем таблицы «Abitur». Для этого свойству DataSource установить значение DM.DSAbitur, а для свойства «DataField» выбрать название поля таблицы из открывающегося списка.

12. Добавить на главную форму компонент «MainMenu» (меню), которое будет состоять из двух главных разделов: «Справочники» и «Отчеты». В раздел «Справочник» добавить пункт «Специальности», а в раздел «Отчеты» добавить пункты с названиями отчетов (список абитуриентов, их оценки за экзамены и общую сумму баллов; список абитуриентов и их средний балл; список абитуриентов и наименование специальности (и шифр), на которую они поступают и т.п.).

13. На главную форму также добавить компонент «DBNavigator» с палитры компонентов «DataControls» и связать его с таблицей «Abitur».

14. Добавить на форму два компонента «Edit» с палитры компонентов «Standart» – это вычисляемые поля – сумма оценок и средний балл по оценкам. Рядом с этими компонентами разместить компоненты «Label».

15. Добавить новую форму для работы со справочником «Специальности» и связать ее с пунктом «Специальности» меню «Справочники».

16. Связать новый модуль с остальными.

17. На новой форме разместить основные компоненты для отображения полей таблицы «Shifr specialn».

18. На компоненте «DBGrid1» щелкнуть два раза левой клавишей мыши. Откроется пустое окно «Editeng.DBGrid1.Columns». В него добавить все поля таблицы «Shifr specialn» (справочника специальностей) с помощью кнопки «Add All Fields» (или нажать на белом свободном месте окна правую клавишу мыши и выбрать «Add All Fields» из контекстного меню). Переименовать поля.

19. Связать пункт меню «Справочники» с созданной формой (справочник специальностей).

20. Разработать процедуру для вычисления среднего значения по экзаменам и общую сумму оценок.

21. Создать отчеты и связать их с пунктами меню «Отчеты».

22. Проверить программу на ошибки и в случае их обнаружения устранить.

23. Запустить программу на выполнение и сохранить.

Добавить комментарий