Работа с программным проектом

Для создания программы для работы с базами данных запускаем приложение Microsoft Access. С помощью конструктора создаем 3 таблицы и заполняем их следующим образом:

Таблица 1.

Таблица 2.

Таблица 3.

После того как мы создали 3 базы данных, переходим в Delphi. Переходим на вкладку ADO и добавляем на форму компонент ADO Connection. Далее в свойствах открываем свойство Connection String, после чего откроется окно, в котором мы выбираем подключаемые данные. В нашем случае это Microsoft Jet 4.0 OLE DB Provider, далее на вкладках выбираем пункт Подключение, выбираем нашу базу данных, и подтверждаем наш выбор кнопкой OK. После проделанной выше работы, с той же вкладки ADO добавляем на форму компонент ADO Query. В свойствах Connection выбираем пункт ADO Connection 1. Из вкладки ADO Access добавляем компонент Data Source, в свойстве Data Set выбираем пункт ADO Query 1. Затем переходим в свойства компонента ADO Query, заходим в свойство SQL и набираем там следующий текст: SELECT * FROM (имя таблицы, которую нужно загрузить). А для того, чтобы Delphi не запрашивало Логин и Пароль, у компонента ADO Connection в свойстве Login Prompt устанавливаем значение False. Для вывода самой базы данных нам потребуется компонент DB Grid из вкладки Data Controls. В его свойствах находим Data Source, в этом свойстве мы устанавливаем пункт Data Source 1. После этого выбираем компонент ADO Query и в свойстве Active устанавливаем значение True. Если все сделано правильно, то в DB Grid отображается наша таблица и наша форма имеет вид:

Для осуществления операций «Добавить», «Изменить», «Удалить» добавляем на форму 3 компонента BitBtn из вкладки Additional, в свое время у которых в свойстве Caption мы вводим соответствующее название, а именно у BitBtn 1 пишем «Добавить», BitBtn 2 «Изменить», а у BitBtn 3 «Удалить». Как вы уже догадались (добавлять, изменять и удалять), мы будем данные в таблице. Форма примет следующий вид:

Процесс «Добавить» и «Изменить» будет производиться на дочерней форме, которая будет открываться при нажатии на одну из этих кнопок. Для этого создаём ещё одну форму с помощью операции File «New «Form. У нас появится пустая форма под именем Form 2. На эту форму с закладки Data Controls добавляем 6 компонентов DB Edit, так как в нашей базе данных всего 6 полей. В DB Edit 1 будет вводится «Название Района», в DB Edit 2 «ФИО Главы Района», в DB Edit 3 «Адрес», в DB Edit 4 «Телефон», в DB Edit 5 «Факс», соответственно в DB Edit 6 «e-mail». Далее из вкладки Additional добавляем два компонента BitBtn, которые будут служить такими операциями, как «Ок» и «Отмена». В свойстве Caption присваиваем кнопкам соответствующие имена. Сейчас нам необходимо связать все компоненты DB Edit уже непосредственно с нашей базой данных, но для этого сначала нужно подключить Unit 1 к Unit 2. Сделать это можно очень просто, т. е. выделить Form 2, создать обработчик событий на кнопке «Ок» и написать следующую строку:

После того как строка добавлена запускаем программу с помощью данной кнопки на панели инструментов. После запуска программы Delphi спросит у нас подключить ли Unit 1 к Unit 2, где мы отвечаем «Yes».

Затем, после подключения Unit 1 к Unit 2, строку, которую мы добавили — удаляем. Теперь по очереди выделяем компоненты DB Edit и в свойстве Data Source присваиваем Forml. DataSourcel, а в свойстве Data Field присваиваем каждому компоненту DB Edit соответствующее поле таблицы, которое мы будем добавлять в базу данных.

На кнопке «Ок» создаем обработчик событий. Эта кнопка будет фиксировать введенные значения в нашей базе данных. Работаем с компонентом ADO Query, т.к. этот компонент расположен на Form 1, в коде кнопки пишем следующее:

Для кнопки «Отмена» создаем обработчик событий и пишем там следующее:

При нажатии на кнопку «Отмена» у нас закроется дочернее окно.

Далее создаем обработчик событий на кнопке «Добавить». Здесь мы пишем:

Теперь, после нажатия на кнопку «Добавить» откроется дочернее окно, имеющее вид:

Нажав на кнопку подтверждения «Ок» введенные данные будут добавлены в нашу базу данных.

Для удаления, создаем обработчик событий на кнопке «Удалить» и пишем туда следующее:

Чтобы удалить строку, выбираем её курсором, затем при нажатии на кнопку «Удалить» текущая строка будет удалена.

Для изменения строки в базе данных, создаем обработчик событий на кнопке «Изменить», туда вписываем следующее:

Чтобы изменить строку, курсором делаем её текущей и нажимаем кнопку «Изменить». При выполнении этого действия появляется то же дочернее окно, что и при нажатии на кнопку «Добавить», но в полях ввода уже введены данные, которые мы сможем изменять.

Поскольку наша база данных будет расти, то нам необходимо сделать поиск по данной базе. Для этого на вкладке Win 32 мы находим компонент Status Ваг и нажав на нем правой кнопкой мыши в контекстном меню мы выбираем пункт Panels Editor… В появившемся окне жмем на эту иконку. Этой функцией мы создаем новую панель для Status Ваг.

Поиск будет осуществляться следующим образом: Выделяем компонент DB Grid и начинаем писать, т. е. поиск у нас будет осуществляться по выбранному полю. Данные, которые мы будем вводить, будут выводиться в компоненте Status Ваг, а в таблице текущей строкой станет та, в которой будут введены максимально приближенные к искомым данным. Добавив компонент Status Bar, мы имеем следующий вид программы:

Далее переходим в код, создаем глобальную переменную типа: String. За переменную возьмем например «fs». Выглядит это так:

Далее выделяем компонент DB Grid и через меню Events создаем на нем обработчик событий On Key Press, в котором fs мы присваиваем fs+key, т. е. переменной fs мы присваиваем то, что набираем в поле. Выглядит это так:

Для того чтобы вывести набранный текст в Status Ваг и осуществить соответственно поиск нужно ввести следующее:

Для того чтобы значение столбцов не изменялось, выделяем компонент DB Grid и находим у него такое свойство, как dgRowSelect и ставим ему значение True.

Далее все выше проделанное мы повторяем с оставшимися двумя таблицами.

После того, как мы проделали выше сказанное, создаем ещё одну форму. На этой форме мы размещаем компонент Main Menu из вкладки Standard. Создаем 4 пункта, в нашем случае это «Районы», «Информация о районах», «Школы в районах» и «Выход». Во всех пунктах, кроме «Выход» делаем подпункты, например «Просмотр». Форма выглядит так:

Далее двойным щелчком мыши на подпункте «Просмотр» открываем код и пишем там (Form (№ формы).81юу;) в зависимости от того, какую форму мы хотим вывести от нажатия на этот подпункт. Для пункта «Выход» пишем: Form7. Close;

Проект готов.