- •230100 Информатика и вычислительная техника
- •Введение
- •1.Функции
- •1.1. Создание пользовательских функций. Передача аргументов
- •1.2. Глобальные и локальные переменные
- •2.Процедуры
- •2.1. Пользовательские процедуры
- •2.2. Упреждающее объявление процедур и функций (forward)
- •3.Концепция типа данных
- •3.1. Абстракции в обработке информации
- •3.2. Понятие типа данных
- •3.3. Иерархия типов данных
- •3.4. Стандартные типы данных
- •3.5. Тип данных Boolean
- •3.6. Тип данных char
- •3.7. Ограниченные типы
- •4.Множества. Массивы
- •4.1. Операции над множествами
- •4.2. Массивы
- •4.3. Утверждения о массивах
- •5.Индуктивные функции на последовательностях (файлах, массивах)
- •5.1. Схема Горнера
- •5.2. Индуктивные функции
- •6.Записи
- •6.1. Представление сложных типов данных в памяти
- •6.2. Упаковка элементов сложных типов данных
- •6.3. Представление записей в памяти
- •7.Процедуры и функции
- •7.1. Создание пользовательских функций. Передача аргументов
- •7.2. Процедуры
- •7.3. Передача параметров по ссылке и значению
- •8.Основы объектно-ориентированного подхода
- •8.1. Основные положения объектно-ориентированного подхода
- •9.Конструкторы и деструкторы. Инкапсуляция
- •9.1. Хранение объектов в памяти. Доступ к свойствам из методов
- •9.2. Принцип инкапсуляции
- •9.3. Поля и свойства
- •10.Наследование и полиморфизм
- •10.1. Принцип полиморфизма
- •10.2. Виртуальные методы
- •10.3. Пример описания объекта
- •10.4. Параметры-процедуры
- •11.Основы программирования графики
- •11.1. Основные понятия компьютерной графики
- •11.2. Получение сведений о режимах экрана. Эффекты прозрачности
- •11.3. Графические построения
- •11.4. Построение графиков функций
- •11.5. Использование компонента tChart
- •11.6. Построение геометрических фигур
- •11.7. Обновление изображения
- •12.Построение динамических изображений
- •12.1. Анимация на основе операции xor
- •12.2. Буферизация фона
- •12.3. Работа с таймером
- •13.Динамические структуры данных
- •13.1. Размещение динамических переменных в памяти
- •13.2. Захват и освобождение динамической памяти
- •13.3. Нетипизированные указатели
- •14.Линейные списки: основные виды и способы реализации
- •14.1. Линейный список как абстрактный тип данных
- •14.2. Операции с динамическими массивами
- •14.3. Сортировка динамических массивов
- •14.4. Деревья
- •14.5. Потоки в памяти
- •15.Сортировка и поиск
- •15.1. Алгоритмы поиска
- •15.1.1Линейный поиск
- •15.1.2Двоичный поиск
- •15.1.3Поиск текстовых строк
- •15.2. Сортировка данных
- •15.2.1Сортировка массивов
- •16.Сортировка файлов. Рекурсия
- •16.1. Рекурсивные определения и алгоритмы
- •16.2. Программирование рекурсивных алгоритмов
- •16.3. Сортировка файлов
- •17.Файлы
- •17.1. Буферизация
- •17.2. Работа с текстовыми файлами
- •17.3. Работа с двоичными файлами данных
- •17.4. Нетипизированные файлы
- •17.5. Файловые потоки
- •18.Работа с файловой системой
- •18.1. Стандартные файловые диалоги
- •18.2. Получение сведений о дисках
- •18.3. Получение сведений о файлах
- •18.4. Сканирование дисков и директорий
- •19.Обработка исключительных ситуаций
- •19.1. Векторы прерываний
- •19.1.1Хранение данных в стеке
- •19.2. Контроль ввода-вывода
- •19.3. Обработка исключительных ситуаций в Delphi
- •20.Отладка программ
- •20.1. Интегрированная среда программирования
- •20.2. Инструменты отладки программ
- •20.3. Типичные ошибки в программировании
- •21.Принципы построения трансляторов
- •21.1. Синтаксис и семантика языков программирования
- •21.2. Структура языков программирования
- •21.3. Структура и организация работы транслятора
- •22.Параллельные процессы
- •22.1. Создание многопоточных приложений
- •22.2. Управление скоростью работы потоков
- •23.Модульные программы
- •23.1. Создание dll-библиотеки на Delphi
- •23.2. Вызов dll
- •23.2.1Статическое связывание
- •23.2.2Динамическое связывание
- •23.3. Отладка проектов с dll
- •23.4. Хранение форм в dll-библиотеках
- •24.Обмен данными между приложениями
- •24.1. Работа с буфером обмена
- •24.2. Основы ole-технологии
- •25.События и сообщения
- •25.1. Отправка и получение сообщений
- •25.2. Предотвращение повторного запуска программы
- •26.1. Основы com-технологии
- •26.2. Вывод отчета при помощи Microsoft Word
- •26.2.1Проверка наличия сом-сервера на компьютере
- •Общее правило: при работе с любым сом-сервером запретите пользователю им пользоваться, пока с сом-сервером работает ваша программа.
- •26.3. Подключение к сом-серверу Word из Delphi
- •26.4. Управление форматированием документа
- •26.5. Работа с таблицами
- •26.6. Запуск Word из внешней программы
- •26.7. Работа с AutoCad по com-технологии
- •27.Принципы организации реляционных баз данных
- •27.1. Основные сведения о базах данных
- •27.2. Проектирование структуры базы данных
- •27.3. Нормализация структур баз данных
- •28.Работа с локальными бд
- •28.1. Драйвер баз данных bde
- •28.2. Создание баз данных
- •29.Программная обработка локальных бд
- •29.1. Редактирование локальных бд
- •29.2. Вывод бд на экран
- •29.3. Цветовое выделение строк бд
- •30.Работа с распределенными бд
- •30.1. Основы языка sql
- •30.2. Понятие алиаса
- •30.4. Подключение к sql-серверу
- •31.Программная обработка данных в архитектуре "клиент – сервер"
- •31.1. Программный доступ к полям бд
- •31.2. Фильтрация и сортировка данных
- •32.Работа с нормализованными бд
- •32.1. Связывание таблиц
- •32.2. Вычисляемые поля
- •33.Субд Interbase
- •33.1. Работа с сервером Local InterBase
- •33.2. Утилита InterBase Server Manager
- •34.Работа с языком xml
- •34.1. Структура xml-документа
- •34.2. Использование xml в среде Delphi
- •34.3. Концепция dom - объектная модель документа
- •34.4. Использование xml
- •35.Основы программирования для Интернет
- •35.1. Работа с протоколом ftp
- •35.2. Передача файлов по ftp
- •Библиографический список
- •Приложение. Зарезервированные слова sql
- •Предметный указатель
29.Программная обработка локальных бд
29.1. Редактирование локальных бд
Итак, БД создана и сохранена на диске в виде файла с расширением db. Поставим задачу вывести эту БД на экран в нашей программе, написанной на Delphi. Рассмотрим простейший способ.
Запустите Delphi и создайте новое приложение (меню FileNewApplication). Сначала в приложении будет только одна пустая форма. Традиционно компоненты, отвечающие за работу с базами данных, помещают не на форму, а в специальный модуль данных. Создадим его (меню FileNewData Module). Модуль данных внешне похож на форму, но он никогда не отображается на экране в процессе работы программы. Сразу сохраните созданный модуль на диске (Ctrl+S) под любым именем, например, dm_unit.pas.
В инспекторе объектов поменяйте в свойстве Name значение названия модуля данных по умолчанию (DataModule1) на более короткое, скажем, DM. Это имя придется часто писать в тексте программы. Обратите внимание, что это имя не должно совпадать с именем файла, в котором вы сохранили модуль данных.
На модуль данных надо поместить компонент Table (закладка BDE). Он открывает и позволяет редактировать один конкретный файл (таблицу) БД. Дайте компоненту более короткое название (поле Name в инспекторе объектов): DVD вместо Table1.
Введем основные свойства компонента TTable
Компонент Table
Active – False. В начальный момент работы программы таблица должна быть закрыта.
DatabaseName – путь к той директории, в которой находится файл базы данных (например, C:\DB).
TableName – имя файла БД (его можно выбрать из раскрывающегося списка).
TableType – тип базы данных. В данном случае ttParadox.
29.2. Вывод бд на экран
Для отображения баз данных на экране предусмотрен компонент DBGrid, расположенный на вкладке Data Controls. Для связи между базой данных и DBGrid требуется еще один компонент – DataSource (закладка Data Access). Таким образом, получается следующий набор компонентов, необходимый для вывода БД на экран (Рис. 29 .120).
Рис. 29.120 Компоненты для отображения таблицы.
Поместите компонент DataSource в модуль данных и переименуйте его. Чтобы не запутаться, рекомендуется называть его DVDDS. Единственное свойство этого компонента, которое надо установить – это DataSet. Из списка выберите название таблицы DVD.
Компонент DBGrid, разумеется, размещается на форме, а не в модуле данных. Переключитесь (Shift+F12) на форму и поместите на нее DBGrid. Теперь надо связать DBGrid и DataSource. Делается это так. Сначала вручную добавьте имя файла модуля данных (dm_unit.pas) в раздел USES формы:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, dm_unit;
Затем выполните компиляцию проекта без запуска программы (Ctrl+F9). Теперь в инспекторе объектов у компонента DBGrid установите свойство DataSource в значение DM.DVDDS.
Теперь запускайте программу… Готово! На экране – наша БД. Ее можно редактировать, добавлять (клавиша Insert) или удалять (клавиша Delete) записи.
Увы, пока таблица с БД на экране выглядит довольно безобразно. Во-первых, в заголовках колонок выводятся названия полей, а хотелось бы видеть русский текст вроде "Название фильма". Во-вторых, ширина колонок получилась неудобной, к тому же при разворачивании формы на весь экран эта ширина не меняется. Давайте приведем DBGrid в относительный порядок.
Чтобы создать колонки с собственными заголовками, нужно позволить Delphi проанализировать структуру вашей БД и занести в программу ссылки на ее поля. Выполните следующие действия:
Переключитесь в модуль данных.
Щелкните правой кнопкой мыши на компоненте Table1 и в контекстном меню выберите пункт Fields Editor. Откроется пустое окошко редактора полей.
Снова щелкните правой кнопкой мыши в окне редактора полей и выберите пункт Add fields. Через секунду Delphi отобразит список полей нашей БД. Осталось щелкнуть по кнопке OK.
Итак, поля добавлены. Снова переключаемся на форму, щелкаем правой кнопкой мыши по DBGrid и выбираем в контекстном меню пункт Columns Editor. Откроется окно редактора колонок. Для добавления новой колонки щелкните по кнопке . В свойствах колонки задайте имя поля (FieldName), которое будет в ней отображаться. В инспекторе объектов раскройте пункт Title, в поле Caption введите желаемое русское название колонки. Здесь же можно выровнять заголовки по центру (свойство Alignment, значение taCenter), поменять цвет и шрифт заголовков. Аналогичным образом добавьте колонки для всех полей базы. Разумеется, поле ID добавлять не надо, оно является служебным. Поля пусть идут в следующем порядке: NAME_RUSSIAN; NAME_ENGLISH; NUMBER; SUBTITLES;YEARF.
Теперь надо настроить режимы отображения DBGrid. Закройте окно редактора колонок и раскройте пункт Options в редакторе свойств компонента DBGrid. Установите пункт dgIndicator в False – это необходимо для правильного задания ширины колонок.
Ширину колонок мы будем пересчитывать динамически при изменении размеров формы. Соответственно, для формы надо создать обработчик события OnResize:
procedure TForm1.FormResize(Sender: TObject);
CONST w:ARRAY[0..4] OF REAL=(0.35,0.35,0.1,0.1,0.1);
VAR i:BYTE;
begin
FOR i:=0 TO LENGTH(w)-1 DO
DBGrid1.Columns[i].Width:=TRUNC((DBGrid1.Width- GetSystemMetrics(SM_CXVSCROLL)-LENGTH(w))*w[i])-1
end;
В константном массиве w хранятся относительные ширины колонок NAME_RUSSIAN, NAME_ENGLISH, NUMBER, SUBTITLES и YEARF соответственно. Сумма всех элементов этого массива должна быть равна единице. В цикле присваивается ширина в пикселах колонкам компонента с именем DBGrid1. Функция GetSystemMetrics(SM_CXVSCROLL) возвращает ширину вертикальной полосы прокрутки в пикселах. Она вычитается из ширины компонента DBGrid1.Width, чтобы получить ширину поля, на котором размещаются колонки. Кроме того, для учета ширины вертикальных линий, разделяющих колонки, из ширины поля надо вычесть число колонок (по пикселу на колонку). Наконец, полученную ширину умножаем на соответствующий элемент массива, берем целую часть от получившегося произведения и на всякий случай вычитаем единицу – из-за ошибок округления можно получить лишний пиксел, из-за которого на экране возникнет совершенно не нужная горизонтальная полоса прокрутки.
Если все сделано правильно, DBGrid будет иметь вполне приличный вид.
Для повышения удобства просмотра и редактирования БД в паре с DBGrid можно применить компонент DBNavigator, представляющий собой панель с кнопками перехода по записям, добавления, редактирования и удаления записей. Поместите DBNavigator на форму и установите его свойство DataSource в значение DM.DVDDS.