После рассмотрения понятия циклов
предыдущем уроке приступим к написанию приложения под названием "Записная книга", в которой будем использовать базу данных для хранения информации
о наших контактах (ФИО, телефон, и т. п.). Напоминаю, что база данных - это по-простому один или несколько связанных единой структурой файлов, в которых хранится наша информация и некоторые другие данные, например, об индексах
(это как закладки для книг). Приступим с самого начала!
Откроем среду разработки Delphi 7. Первоначально проект выглядит как на рисунке.
Жмём клавишу F11, станет активным окно "Инспектора объектов", отобразятся свойства нашей формы. Меняем
свойство Caption с "Form1" на "Записная книга", это сразу отобразится в форме на верхней панеле. Придумываем подходящее имя для формы:
свойство Name изменяем на FNoteBook. По нашей договорённости имя формы всегда пусть начинается с заглавной буквы F. Хотя для компилятора это
не имеет абсолютно никакого значения, но порядок имеет большое значение в программировании и не только в программировании. Дальше поменяем свойство формы
Position, поставим poScreenCenter, то есть наша форма будет отображаться при запуске исполняемего exe-файла в центре экрана.
Дальше, как мы это уже проделывали в предыдущих уроках, нажимаем сочетание клавиш Ctrl + Shift + F11, появится окно свойств проекта. То же самое можно сделать выбрав пункт меню
Project->Options... Выбираем вкладку Appllications. В разделе Application settings (настройки приложения) запишем "Записная книга" в строке Title и выберем подходящую иконку для приложения, нажав на кнопку "Load Icon". Иконка - это файл с расширением *.ico - пиктограмма. Можете воспользоваться, например,
вот этой иконкой:
Чем чаще мы будем сохранять проект, тем лучше. Это хорошая привычка - сохранять файлы проекта после внесения изменений. Правда, не всегда это целесообразно делать, так как бывают случаи, когда
нужно вернуть всё назад без лишних манипуляций, тогда сохранять не нужно. Но в основном, имеет смысл сохранять периодически. Итак, сохраняем проект, нажав на кнопку Save All. Предложенное имя модуля
Unit1.pas переименуем в NoteBookMain.pas, а файл проекта сохраним как NoteBook.dpr. Более подробно с рисунками этот процесс описан здесь.
Создаём файл базы данных. Для этого воспользуемся программой Database Desktop. Она входит в пакет среды разработки Delphi 7.
И запустить её можно выбрав пункт меню Tools -> Database Desktop. Так же её можно выбрать нажав на кнопку "Пуск", выбрав "Программы" далее "Borland Delphi 7" и подменю "Database Desktop".
Открывается окно программы "Database Desktop".
Выбираем пункт меню File -> New -> Table... для создания таблицы.
Предлагается выбрать тип базы данных для создаваемой таблицы. В нашем простом случае подойдёт "Парадокс", выбираем предложенный вариант
Paradox 7.
Появляется окно - инструмент для создания таблицы.
Приступаем непосредственно к созданию таблицы. Начнём с формирования первого поля. Первое поле будет автоинкрементным, то есть
автоматически увеличиваться на 1 при добавлении записи. Для выбора названия поля введите Id (это имя поля) в столбце
FieldName. Чтобы выбрать автоинкрементный тип, нажмите + в столбце Type или в этом столбце кликните правой клавишей мыши и выберите нужный тип поля.
Красной стрелкой указано куда надо кликать правой клавишей мыши на рисунке.
Коротко о том, что такое таблица. Пример таблицы вы видите на рисунке выше, в таблице сейчас одна запись. Элементы записи - это поля таблицы.
Здесь поля - это Field Name (имя поля), Type (тип поля), Size и Key. Вот мы сейчас начнём формировать вторую запись в этой таблице. У неё так же будут те же поля, что и у первой записи, то есть название поля, тип, размер (Size) и ключ (Key). Каждая
формируемая нами запись - это поле нашей будущей таблицы для программы "Записная книга".
В нашей записной книге будет храниться информация о человеке: ФИО, номер телефона, поле контактной информации для адреса и дата-время создания записи. У нас будут пять полей.
Пять, потому что ещё автоинкрементное поле Id, которое будет номером списка. В нашем списке мы будем изменять записи, добавлять их и удалять. Об этом позже, сейчас добавляем ещё одно поле - ФИО.
Добавляем поле FIO (ФИО), присваиваем ему тип строковый, нажатием клавишы a в поле Type или
выбором пункта меню Alpha из всплывающего списка, который появляется при нажатии правой клавишей мыши на поле Type. Аналогично, добавляем поле Tel (телефон), опуская курсор вниз.
И добавляем поле Contact (контактная информация), для него выбираем так же тип A (строковый). Таблица может содержать другие типы: денежные, целые, вещественные, можно в полях сохранять картинки. Пока ограничимся
автоинкрементным типом, строковым и типом @ (Timestamp) - дата и время.
Добавим ещё одно поле Dt - дата и время создания контакта в записной книге. Тип у него выберем @ (Timestamp).
Сохраняем таблицу нажав на кнопку Save As.... Сохранить не получится пока мы не добавим для полей ФИО, Телефон и контакты размеры полей Size. Для строковых типов это обязательно.
Выберем 50, 15 и 255 - размеры (количество байт или вводимых символов) для полей ФИО, телефон и контакты соответственно. В поле контакты может быть записан адрес, поэтому размер
поля берём по максимуму - 255 символов. Теперь можем сохранить таблицу.
Файл таблицы (базы данных) сохраняйте в той же папке, что и наш проект Delphi. Наберите имя файла с расширением *.db (для таблиц Paradox 7 такое расширение файла), я взял имя Nb.
И жмите на кнопку Сохранить.
Мы будем добавлять данные (записи) в только что созданную нами таблицу с помощью написанной нами на Delphi 7 программы. Но прежде рассмотрим возможность добавления этих данных
через интерфейс программы Databse Desktop. Выбираем пункт меню File -> Open -> Table....
Выбираем наш файл Nb.db.
После этого откроется наша таблица записной книги. Записей пока нет, будем добавлять!
Расширим окно программы Databse Desktop и сдвинем поля так, чтобы было удобно добавлять данные. Следующим шагом необходимо перевести таблицу в режим редактирования, для этого жмём на кнопку
Edit Data (редактирование данных).
Добавляя записи, мне пришло в голову, что идея вводить дату и время - это не самое лучшее решение, поэтому, реструктурируем нашу таблицу, нажав на кнопку Restructure.
Изменим тип поля Dt с типа дата-время на тип дата. Тогда дату будет проще вводить, к тому же время - это уже лишняя информация и место на диске, достаточно даты заполнения данных.
Теперь вводим данные ФИО, телефон, адрес и дату (число). Я сделал в этом примере пару записей и сохранил данные
в таблице. Они сохраняются автоматически после ввода данных.
Продолжение следует...
Архив с файлами проекта можно будет позже скачать здесь f_d7_5.rar
Вернуться к списку статей, посвящённых программированию в Delphi 7
Вы так же можете подписаться на бесплатную рассылку о новых статьях на сайте.
Если Вам понравилась статья, или вы хотели бы освещения другой, интересующей Вас темы, то напишите нам. Это очень важно!
Наверх
Перейти к списку статей по программированию в среде Delphi 7
Свяжитесь с нами!
 | Тел:  . |
