WWW.DISSERS.RU

БЕСПЛАТНАЯ ЭЛЕКТРОННАЯ БИБЛИОТЕКА

   Добро пожаловать!

Pages:     | 1 | 2 || 4 | 5 |

«Содержание Предисловие 1 ЧАСТЬ I. ОСНОВНЫЕ СРЕДСТВА DELPHI 3 Глава 1. Среда Delphi 5 1.1. ...»

-- [ Страница 3 ] --

begin if (Forml.ClientHeight / Forml.ClientWidth) < (Labell.Height / Labell.Width) then Labell.Font.Height := Forml.ClientHeight — Часть I. Основные средства Delphi else Labe11.Font.Height := Round((Forml.ClientWidth - 10) * Label1.Height / Labell.Width);

Label1.Left :=' (Forml.ClientWidth - Labell.Width) div 2;

Labell.Top := (Forml.ClientHeight - Labell.Height) div 2;

end;

// Отображение текущего значения времени procedure TForml.TimerlTimer(Sender: TObject);

begin Labell.Caption := TimeToStr(Time);

end;

// Отображение и скрытие заголовка и меню формы procedure TForml.mnuCaptionClick(Sender: TObject);

begin if mnCaption.Checked then begin Forml.BorderStyle := bsNone;

Forml.Menu := nil;

end else begin Forml.BorderStyle := bsSizeable;

Forml.Menu := MainMenul;

end;

mnuCaption.Checked := not mnuCaption.Checked;

end;

// Восстановление прежнего размера формы procedure TForml.mnuInitialSizeClick(Sender: TObject);

begin Forml.ClientWidth := 100;

Forml.ClientHeight := 45;

FormResize(Sender);

end;

// Закрытие формы и прекращение работы приложения procedure TForml.mnuCloseClick(Sender: TObject);

begin Close;

end;

// Активизация пункта меню "Заголовок" 134 Delphi. Быстрый старт II Необходима, когда меню невидимо и должно быть отображено procedure TForml.FormDblClick(Sender: TObject);

begin mnuCaption.Click;

end;

end.

В случае, когда форма отображает заголовок и для нее заданы изменяемые границы, пользователь может изменять размеры формы. При этом соответ ственно изменяются размеры надписи Labeii. Управление размерами над писи осуществляется косвенно, через значение свойства Height шрифта текста. Для предотвращения уменьшения формы до размеров, когда шрифт текста надписи будет слишком мелким и плохо различимым, через свойство Constraints установлено ограничение на минимальную высоту и ширину формы. Следует учитывать, что это свойство ограничивает минимальные размеры формы, а не ее клиентской области. При выборе пункта меню Исходный размер форма восстанавливает размеры клиентской области, заданные при разработке.

Пиктограмма приложения и главной формы загружается из файла Clock.ico.

В заголовке формы выводятся две кнопки — вызова системного меню и за крытия окна. Форма выводится в центре экрана и расположена поверх всех окон, для этого свойству Formstyie задано значение fsStayOnTop.

6.2. Организация взаимодействия форм Если одна форма выполняет какие-либо действия с другой формой, то в списке uses раздела implementation (или interface) модуля первой формы должна быть ссылка на модуль второй формы.

Пример. Организация взаимодействия форм.

Приложение включает в свой состав две формы — Forml и Form2, для кото рых имеются модули u n i t l и Unit2 соответственно. Ниже приводится код МОДУЛЯ U n i t l Первой формы Forml.

unit Unitl;

interface Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForml = class(TForm) Часть I. Основные средства Delphi Buttonl: TButton;

procedure ButtonlClick(Sender: TObject);

end;

var Forml: TForml;

implementation // Ссьшка на модуль второй формы uses Unit2;

{$R *.DFM} procedure TForml.ButtonlClick(Sender: TObject);

begin // Операция со второй формой Form2.Show;

end;

end.

При нажатии на кнопку Buttonl на первой форме на экране отображается вторая форма, до этого невидимая. Так как из модуля первой формы осуще ствляется операция со второй формой, то в разделе implementation первого модуля помещен код uses unit2.

Ссылку на модуль другой формы можно устанавливать программно, но Del phi позволяет выполнить автоматизированную вставку ссылки следующим образом. При задании команды File | Use Unit (Файл | Использовать модуль) появляется диалоговое окно Use Unit (Выбора модуля) (рис. 6.4). После выбора нужного модуля и нажатия кнопки ОК ссылка на него добавляется автоматически.

Рис. 6.4. Окно выбора модуля Delphi. Быстрый старт Если ссылка на требуемый модуль отсутствует, то при компиляции про граммы появляется диалоговое окно Information (Информация) (рис. 6.5).

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

I Information Ф FSFt Deo oicdndnUt'w sn nyu U 's. 'ienuwlF i2 t' n h i oi o!

o ir rrysfserau? 2 c t m l mo c mo d l i h S o e e rhlm' i rE f da' i ero i L: : I * j Cc | ae nl :3 :J ° Рис. 6.5. Диалог добавления ссылки на модуль Форма может выполнять различные операции не только с другой формой, но и с отдельными ее компонентами. В этом случае также нужна ссылка на модуль другой формы.

Пример. Обращение к компоненту другой формы.

uses Unit2;

procedure TForml.Button2Click(Sender: TObject);

begin Labell.Caption := Form2.Editl.Text;

end;

При нажатии кнопки Button2 формы Formi в надписи Labell отображается текст редактора Editi, расположенного на форме Form2.

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

6.3. Особенности модальных форм Модальной называется форма, которая должна быть закрыта перед обраще нием к любой другой форме данного приложения. Если пользователь пыта ется перейти в другую форму, не закрыв текущую модальную форму, то Windows блокирует эту попытку и выдает предупреждающий сигнал. За прет перехода в другую форму при незакрытой модальной форме относится Часть I. Основные средства Delphi только к текущему приложению, и пользователь может активизировать лю бое другое приложение Windows.

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

Модальные формы часто называют диалогами, или диалоговыми панелями, существуют и немодальные диалоги. Для выполнения различных операций в Windows часто используются стандартные диалоговые формы, с которыми пользователь имеет дело при работе с приложениями. Такие формы назы ваются общими, или стандартными диалогами, для работы с ними Delphi предлагает специальные компоненты. Они рассматриваются в этой главе отдельным пунктом. Типичным примером модальной диалоговой формы является диалоговое окно About (О программе).

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

Для отображения формы в модальном режиме служит метод showModai.

Пример. Отображение модальной формы.

procedure TForml.mnuAboutClick(Sender: TObject);

begin fmAbout.ShowModai;

end;

Выбор пункта меню mnuAbout приводит к отображению формы fmAbout в мо дальном режиме. Пункт меню может иметь заголовок (например, О программе), устанавливаемый с помощью свойства caption. Пользователь может про должить работу с приложением, только закрыв эту модальную форму.

Многие формы можно отображать и в немодальном режиме, например, следующим образом:

fmAbout.Show;

При закрытии модальной формы функция ShowModai возвращает значение свойства ModaiResuit типа TModaiResuit, присваиваемое свойству при этом. Возможные значения этого свойства рассматриваются при описании кнопок. Напомним, что метод show является процедурой и результат не воз вращает.

При закрытии любая форма возвращает код результата. Этот код обычно пред ставляет интерес при организации диалогов. После закрытия диалога воз вращаемый код результата можно проанализировать и выполнить соответст вующие действия. В общем случае в зависимости от кода результата 138 Delphi. Быстрый старт закрытия модальной формы программируется разветвление на несколько направлений.

Пример. Управление диалоговой формой.

// Процедура находится в модуле формы Forml procedure TForml.btnDialogClick(Sender: TObject);

var rez :TModalResult;

begin // Вызов модальной формы (диалога) rez := fmDialog.ShowModal;

// Анализ способа закрытия модальной формы (диалога) if rez = mrOK then MessageDlg('Диалог принят.1, mtlnformation, [mbYes], 0);

if rez = mrCancel then MessageDlg('Диалог отменен.', mtlnformation, [mbYes], 0);

end;

// Процедуры находятся в модуле формы fmDialog // Закрытие формы и установка значения mrOK коду результата procedure TfmDialog.btnCloseClick(Sender: TObject);

begin ModaiResuit := mrOK;

end;

// Закрытие формы и установка значения mrCancel коду результата procedure TfmDialog. btnCancelClick(Sender: TObject);

begin ModaiResuit := mrCancel;

end;

Кнопка btnDialog форМЫ Forml открывает Диалоговую форму fmDialog.

После закрытия диалога кнопкой btnciose или btncancel выполняется анализ кода результата закрытия и вывод на экран.

Как правило, управление кодом результата диалога выполняется не про граммно (через свойство ModaiResuit формы), а с помощью кнопок. Чаще всего диалоговая форма содержит кнопки подтверждения и отмены выпол ненных операций. Кнопка подтверждения диалога в зависимости от назна чения может иметь разные названия, такие как ОК, Ввод, Открыть, Yes.

Кнопка отмены диалога часто имеет названия Отмена и Cancel.

Часть I. Основные средства Delphi Как отмечалось ранее, закрыть форму можно, используя свойство ModaiResuit кнопки. Если свойство имеет значение, отличное от mrNone, то при нажатии на кнопку форма автоматически закрывается. При закрытии форма в качестве результата возвращает значение, определяемое свойством ModaiResuit кнопки, закрывшей эту форму.

Пример. Задание кнопок закрытия формы.

procedure TfmDialog.FormCreate(Sender: TObject);

begin fmDialog.BorderStyle := bsDialog;

btnOK.Caption := 'OK';

btnOK.Default := true;

btnOK.ModaiResuit := mrOK;

btnCancel.Caption := 'Ioiaia';

btnCancel.Cancel := true;

btnCancel.ModaiResuit := mrCancel;

end;

В приведенной процедуре устанавливаются значения свойств кнопки btnOK подтверждения и кнопки btnCancel отмены диалога fmDiaiog. При нажатии любой из них форма автоматически закрывается (без выполнения обработ чиков события нажатия кнопок) и возвращает соответствующий результат.

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

Замечание При закрытии формы методом c l o s e всегда возвращается значение mrCancel ее свойства ModaiResuit. Скрытие формы методом Hide не изме няет значение свойства ModaiResuit.

В принципе разработчик может самостоятельно создать любую модальную форму, однако полезно учитывать, что для выполнения типовых действий Delphi предлагает ряд предопределенных диалогов. Наиболее простые диа логи реализуются с помощью специальных процедур и функций, в более общих случаях удобно использовать специальные компоненты — стандарт ные диалоги. Кроме того, ряд диалоговых форм расположены на странице Dialogs (Диалоги) в Хранилище объектов.

140 Delphi. Быстрый старт 6.4. Процедуры и функции, реализующие диалоги Процедура ShowMessage, функции MessageDlg И MessageDlgPos отображают окно (панель) вывода сообщений;

функции inputBox и inputQuery отобра жают окно (панель) для ввода информации. Рассмотрим ShowMessage и MessageDlg.

Процедура ShowMessage (const Msg: String) отображает ОКНО сообщения С кнопкой ОК. Заголовок содержит название исполняемого файла приложе ния, а строка Msg выводится как текст сообщения.

Пример. Отображение простейшего окна сообщений.

Рассмотрим отображение простейшего окна сообщений (рис. 6.6) из про граммы dlgwin.exe.

procedure TForml.btnDialoglClick(Sender: TObject);

begin ShowMessage('Простейшее диалоговое окно');

end;

Рис. 6.6. Простейшее окно сообщения Функция MessageDlg (const Msg: String;

AType: TMsgDlgType;

AButtons: TMsgDlgButtons;

HelpCtx: L o n g i n t ) : Word отображает ОКНО сообщений в центре экрана и позволяет получить ответ пользователя. Пара метр Msg содержит отображаемое сообщение.

Окно сообщений может иметь различный тип и наряду с сообщением содержать картинки. Тип окна сообщения определяется параметром дтуре, который может принимать следующие значения:

• mtwarning — окно содержит черный восклицательный знак в желтом треугольнике и заголовок Warning;

• mtError — окно содержит белый косой крест в красном круге и заголо вок Error;

• mtinformation — окно содержит синюю букву "i" в белом круге и заголо вок Information;

• mtconf irmation — окно содержит синий знак "?" в белом круге и заголо вок Confirmation;

Часть I. Основные средства Delphi • mtcustom — окно не содержит картинки, в заголовке выводится название исполняемого файла приложения.

Параметр AButtons задает набор кнопок окна и может принимать любые комбинации следующих значений:

• mbYes — кнопка с надписью Yes;

• mbNo — кнопка с надписью No;

• тьок — кнопка с надписью ОК;

• mbcancei — кнопка с надписью Cancel;

• mbHelp — кнопка с надписью Help;

• mbAbort — кнопка с надписью Abort;

• mbRetry — кнопка с надписью Retry;

• mbignore — кнопка с надписью Ignore;

• mbAii — кнопка с надписью All.

ДЛЯ параметра AButtons имеются две КОНСТанты mbYesNoCancel И mbOKCancel, определяющие предопределенные наборы кнопок:

П mbYesNoCancel = [mbYes, mbNo, mbCancel];

• mbOKCancel = [mbOK, mbCancel].

При нажатии любой из этих кнопок, кроме кнопки Help, закрывается диа лог и возвращается функцией MessageDig модальный результат (свойство ModaiResuit), который путем анализа можно использовать для управления выполнением приложения.

Параметр Heipctx определяет контекст (тему) справки, которая появляется во время отображения диалога при нажатии пользователем клавиши .

Обычно значение этого параметра равно нулю.

Пример. Использование функции MessageDig.

procedure TForml.btnTestDateClick(Sender: TObject);

var rez : TModalResu.lt;

begin if length(edtDate.Text) < 8 then begin rez := MessageDig('Неправильная дата!' + #10#13'Исправить автоматически?', mtError, [mbOK, mbNo], 0);

if rez = mrOK then edtDate.Text := DateToStr(Date);

if rez = mrNo then if edtDate.CanFocus then edtDate.SetFocus;

end;

end;

142 Delphi. Быстрый старт При нажатии на кнопку btnTestDate производится простейшая проверка даты. Код даты вводится в поле редактирования edtDate, размещенное на форме. Если длина даты меньше допустимой, выдается предупреждение и запрос на автоматическую коррекцию. При утвердительном ответе пользова теля в поле даты записывается текущая дата, при отрицательном — фокус передается полю ввода даты.

6.5. Стандартные диалоги В Delphi имеется десять компонентов, находящихся на странице Dialogs Па литры компонентов (рис. 6.7) и реализующих диалоги общего назначения.

Эти диалоги используются многими Windows-приложениями для выполне ния таких операций, как открытие, сохранение и печать файлов, поэтому их часто называют стандартными. Например, текстовый процессор Microsoft Word использует большинство из нижеперечисленных диалогов. Поскольку стандартные диалоги определяются средой Windows, то их внешний вид, в том числе язык интерфейсных элементов, зависит от версии установлен ной на компьютере Windows.

Internet] F sM t D c i n C b ]Q e ot D l g [Win a l e) e i o u e. R D r i o s s a.

Рис. 6.7. Страница Dialogs Палитры компонентов На странице Dialogs Палитры компонентов содержатся следующие компо ненты, реализующие стандартные диалоги:

• OpenDialog — выбор открываемого файла;

• saveDialog — выбор сохраняемого файла;

• OpenPictureDialog — выбор открываемого графического файла;

• SavePictureDialog — выбор сохраняемого графического файла;

• Fontoiaiog — настройка параметров шрифта;

• coiorDiaiog — выбор цвета;

• PrintDialog — вывод на принтер;

• PrinterSetupDialog — выбор принтера и настройка его параметров;

• FindDialog — ввод строки текста для поиска;

• RepiaceDiaiog — ввод строк текста для поиска и для замены.

Для использования стандартного диалога соответствующий ему компонент должен быть помещен на форму и его свойствам установлены нужные зна Часть I. Основные средства Delphi чения. После этого следует связать вызов диалога с каким-либо событием.

Чаще всего таким событием является выбор пункта меню или нажатие кнопки.

Для вызова любого стандартного диалога используется метод Execute — функция, возвращающая логическое значение. При закрытии диалога кноп кой ОК (Открыть или Сохранить) функция Execute возвращает значение True, а при отмене диалога — значение False.

После закрытия стандартного диалога он возвращает через свои свойства значения, выбранные или установленные в процессе диалога. Например, при открытии файла возвращаемым значением является имя открываемого файла (openDialogl.FileName), а при выборе цвета — новый цвет (Со l o r Dialogl. Color).

Рассмотрим диалоги выбора имени файла, которые используются в процес сах открытия и сохранения файла. Часто эти диалоги называют диалогами открытия/сохранения файла. Хотя диалог позволяет только выбрать имя файла, последующее же открытие или сохранение этого файла программи руется дополнительно.

Компонент openDialog реализует диалог открытия файла, при запуске это го диалога появляется окно (рис. 6.8) в котором можно выбрать имя откры ваемого файла. В случае успешного закрытия диалога (нажатием кнопки Open) в качестве результата возвращается выбранное имя файла.

Jj 14._введение в БД LJ 28_Настройка параметров npw» Ш 15._Проектирование БД СЗ 29_Организация обмена даными -1) 16._Технология создания ИС •Zi 30_Подготовка приложения к рг li 17._Компоненты доступа к данным • U 31_Библиотеки, пакеты и компс U li 1О._Визуальные компоненты для работы с данными CJaaa li 19._Навигационный способ доступа к данныч '_Uaaa _1| 20_Реляционный способ доступа к данным С] ааа li 21._Работа с отчетами LJ After Khomonenko 1}22_Инструментальные средства ЛБД Dcdr _D 23_Введение в удаленные БД Qwork 1} 24_Работа с удаленными БД fJNotes,doc 1125._Инструментальные средства удаленных БД 1М1ДДД -J 26_Трехуровневые приложения :

±1, : _ Open -{Оглавление Delphi 6.doc Filename;

Cancel Files afjype: • * (Текстовые ф й ы (*.txl* doc).

, ал _J zl Рис. 6.8. Диалог открытия файла 144 Delphi. Быстрый старт Компонент saveDialog предлагает стандартный диалог сохранения файла, который отличается от диалога открытия файла только своим заголовком.

Основными свойствами компонентов OpenDialog и SaveDialog являются следующие:

• FileName типа s t r i n g — указывает имя и полный путь файла, выбранно го в диалоге. Имя файла отображается в строке редактирования с назва нием имя файла и является результатом диалога;

• T i t l e типа string — задает заголовок окна. Если свойство T i t l e не ус тановлено, то по умолчанию используется заголовок Open для OpenDialog И заголовок Save — Д Я SaveDialog;

Л • i n i t i a i o i r типа s t r i n g — определяет каталог, содержимое которого отображается при вызове окна диалога. Если каталог не задан, то ото бражается содержимое текущего каталога;

• DefauitExt типа string — задает расширение, автоматически подстав ляемое к имени файла, если пользователем расширение имени не указано;

• F i l t e r типа s t r i n g — задает маски имен файлов, отображаемых в рас крывающемся списке под названием Files of type. В окне диалога видны имена файлов, которые совпадают с указанной маской (на рис. 6.8 это файлы с расширениями ТХТ и DOC). По умолчанию значением F i l t e r является пустая строка, что соответствует отображению имен файлов всех типов;

• Fiiterindex типа integer — указывает, какая из масок фильтра отобра жается в списке. По умолчанию свойство Fiiterindex имеет значение 1, и используется первая маска;

• options типа TOpenOptions — используется для настройки параметров, управляющих внешним видом и функциональными возможностями диа лога. Каждый параметр (флажок) может быть включен или выключен.

Свойство options имеет около двух десятков параметров, к числу важ нейших из них можно отнести следующие:

• ofCreatePrompt — при вводе несуществующего имени файла выдается запрос на создание файла;

• ofNoLongNames — имена файлов отображаются как короткие (не более 8 символов для имени и 3 символа для расширения);

• ofoidstyieDialog — создает окно диалога в стиле Winows 3.11.

Фильтр представляет собой последовательность значений, разделенных зна ком I. Каждое значение состоит из описания и маски, также разделенных знаком I. Описание представляет собой обычный текст, поясняющий поль зователю данную маску. Маска является шаблоном отображаемых файлов Часть I. Основные средства Delphi и состоит из имени и расширения. Если для одного описания приводится несколько масок, то они разделяются знаком ;

.

Пример. Формирование фильтра.

OpenDialogl.Filter :=='Текстовые файлы!*.txt;

*.docIВсе файлы|*.*';

Здесь фильтр формируется с двумя масками — маской для текстовых фай лов и маской для всех файлов. В примере под текстовыми понимаются фай лы типов DOC и ТХТ.

Так как в раскрывающемся списке диалога отображается только описание фильтра, то для удобства целесообразно включить в описание и маску, на пример, следующим образом:

OpenDialogl.Filte r:= 'Текстовые файлы *.txt;

*.doc|*.txt;

*.doc' + '|Все файлы *.*!*.*';

Фильтр обычно формируется при проектировании приложения. Для этого из Инспектора объектов щелчком в области значения свойства F i l t e r вы зывается Редактор фильтра (Filter Editor). Рабочее поле Редактора фильтра представляет таблицу (рис. 6.9), состоящую из двух колонок с заголовками Filter Name (Имя фильтра) и Filter (Фильтр). Значения фильтра вводятся построчно, при этом в левой колонке указывается описание фильтра, в пра вой — соответствующая маска.

Filer Editor JFilter Filler Name ЕШ '.МЛ doc Все Файлы (".") Help Рис. 6.9. Редактор фильтра Стандартные диалоги выбора имени файла для открытия или сохранения файла вызываются на экран методом Execute. Эта функция в качестве ре зультата возвращает логическое значение, позволяющее определить, как за крыт диалог. Если пользователь в процессе диалога нажал кнопку Open или 146 Delphi. Быстрый старт Save, то диалог считается принятым, и функция Execute возвращает значе ние True. Если диалог был закрыт любым другим способом, то он считается отвергнутым, и функция возвращает значение False.

Пример. Использование стандартного диалога OpenDiaiog.

procedure TForml.Button2Click(Sender: TObject);

begin if OpenDialogl.Execute then Mernol.Lines.LoadFromFile(OpenDialogl.FileName);

end;

При нажатии на кнопку Button2 появляется диалог OpenDialogl выбора имени файла для открытия. При выборе имени текстового файла его содер жимое загружается в компонент Memoi. Напомним, что многострочный редактор Memo позволяет работать с текстами в коде ANSI. При отмене диа лога OpenDialogl открытия файла не происходит.

Компоненты OpenPictureDialog И SavePictureDialog вызывают СТЭНДарт ные диалоги открытия и сохранения графических файлов. Эти стандартные диалоги отличаются от OpenDiaiog и saveDialog виДом окон и установлен ными значениями свойства Filter.

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

• страница New:

• пустая форма Form;

• страница Forms:

• справочное окно About Box;

• форма Dual List Box с двумя списками;

• форма Quick Report List отчета;

• форма Quick Report Master/Detail отчета;

• страница Dialogs:

• диалоговое окно Dialog with Help с кнопкой Help (два варианта фор мы, различающиеся расположением кнопок);

• диалоговое окно Password Dialog для ввода пароля;

• обычный диалог Standard Dialog (два варианта формы, различающиеся расположением кнопок).

Часть I. Основные средства Delphi При добавлении в проект новой формы Delphi автоматически вставляет пус тую форму Form, к которой разработчик добавляет необходимые интерфейс ные компоненты. Новая форма добавляется при выборе пункта меню File | New | Form (Файл | Новый | Форма).

Иногда лучше выбрать подходящий к конкретной ситуации шаблон, чем использовать пустую форму. Например, при вводе пароля таким шаблоном является Password Dialog (Диалог ввода пароля) (рис. 6.10). Эта форма имеет заголовок Password Dialog, имя PasswordDig и содержит надпись Labeii и две КНОПКИ закрытия Диалога (OKHa): OKBtn И CancelBtn.

I :" Password Dialog Eri r p s v cd i.e s sk r !

UI C ne &cl H Рис. 6.10. Шаблон диалогового окна Password Dialog Для кнопок закрытия диалога установлены следующие значения свойства ModalResult:

• OKBtn — mrOK;

О CancelBtn — mrCancel.

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

После этого окно Password Dialog можно вызвать на экран с помощью мето да showModai следующим образом:

PasswordDig.ShowModai;

Аналогично можно использовать шаблоны других форм из хранилища объ ектов. Кроме того, возможно сохранение в хранилище своих форм, которые планируется использовать в других проектах.

Кроме шаблонов форм, в Хранилище объектов находятся мастера (wizards) — специальные программы-утилиты, позволяющие достаточно удобно создавать формы. Мастера Хранилища объектов позволяют создать, например, диалоговое окно, форму для работы с базами данных или отчет.

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

Мастера в Windows достаточно часто используются для различных ситуаций, например, при построении диаграмм в пакете Microsoft Office или при уста новке в компьютер нового оборудования.

Глава Работа с меню Практически все приложения Windows имеют меню, которое является рас пространенным элементом пользовательского интерфейса. Меню представ ляет собой список объединенных по функциональному признаку пунктов, каждый из которых обозначает команду или вложенное меню (подменю).

Выбор пункта меню равносилен выполнению соответствующей команды или раскрытию подменю.

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

Пункт меню представляет собой объект типа TMenuitem. Отдельный пункт меню обычно виден как текстовый заголовок, описывающий назначение пункта меню. Пункт меню может быть выделен (маркирован) для указания на включенное состояние. Класс TMenuitem используется для представления пунктов главного и контекстных меню. Основные свойства пункта меню:

• Bitmap типа TBitmap — определяет изображение пиктограммы, разме щаемое слева от заголовка пункта меню. По умолчанию свойство имеет значение n i l, и изображение отсутствует;

• Break типа тмепиВгеак — задает, разделяется ли меню на колонки.

Свойство Break может принимать одно из трех значений:

• mbNone — меню не разделяется (по умолчанию);

• mbBreak — пункты меню, начиная с текущего, образуют новую колонку;

• mbBreakBar — пункты меню, начиная с текущего, образуют новую колонку, котороая отделена линией;

• caption типа string — содержит строку текста, отображаемую как заго ловок пункта меню. Если в качестве заголовка указать символ "-", то на месте соответствующего пункта меню отображается разделительная Часть I. Основные средства Delphi линия. При этом, несмотря на отображение линии, свойство caption по-прежнему имеет значение "-";

П checked типа Boolean — определяет, является ли пункт выделенным.

Если свойству установлено значение True, то пункт выделен и в его заго ловке появляется специальная отметка. По умолчанию свойство checked имеет значение False, и пункт меню не имеет отметки;

• AutoCheck типа Boolean — определяет автоматическое изменение значе ния свойства checked на противоположное при выборе пользователем пункта меню (в Delphi 6);

• count типа integer — задает количество подпунктов в данном пункте меню. Это свойство есть у каждого пункта меню. Если какой-либо пункт не содержит подпунктов, то свойство Count имеет значение нуль;

• Enabled типа Boolean — определяет, активен ли пункт, т. е. будет ли он реагировать на события от клавиатуры и мыши. Если свойству Enabled установлено значение False, то пункт меню неактивен и его заголовок обесцвечен. По умолчанию свойство Enabled имеет значение True, и пункт меню активен;

• items типа TMenuitems — является массивом подпунктов текущего пункта меню. Каждый пункт меню, имеющий подпункты (вложенное меню), перечисляет их в свойстве items. Это свойство позволяет полу чить доступ к подпунктам по их позициям в массиве: items [0], items [l] и т. д.;

• Radioitem типа Boolean — определяет вид отметки, появляющейся в заголовке пункта. Если свойству установлено значение False (по умол чанию), то в качестве отметки используется значок в виде галочки, в противном случае пункт отмечается жирной точкой;

• shortcut типа TSortCut — определяет комбинацию клавиш для активи зации пункта меню. Определить комбинации клавиш можно также с по мощью свойства caption, но свойство shortcut предоставляет для этого более широкие возможности. Обозначение комбинаций клавиш, установ ленных через свойство shortcut, появляется справа от заголовка элемен та меню. Наиболее просто задать комбинацию клавиш при конструиро вании через Инспектор объектов, выбрав нужную комбинацию из предлагаемого списка. Кроме того, назначить комбинации клавиш можно С ПОМОЩЬЮ ОДНОИМеННОЙ фуНКЦИИ Shortcut (Key: Word;

Shift:

TShiftstate) : TShortCut. Параметр shift определяет управляющую клавишу, удерживаемую при нажатии алфавитно-цифровой клавиши, на которую указывает параметр Key. Если в процессе выполнения програм мы, например, для пункта меню mnuTest требуется задать комбинацию клавиш +, то это можно выполнить следующим образом:

mnuTest.Shortcut:= Shortcut(Word( "Г 1 ), [ssAlt]);

150 Delphi. Быстрый старт П v i s i b l e типа Boolean — определяет, виден ли пункт на экране. Если свойству v i s i b l e установлено значение False, то пункт меню на экране не отображается. По умолчанию свойство visible имеет значение True, и пункт виден в меню.

Основным событием, связанным с пунктом меню, является событие onclick, возникающее при выборе пункта с помощью клавиатуры или мыши.

В приложении для генерации события Onclick или для имитации выбора пункта меню можно использовать метод click. Вызов этой процедуры экви валентен выбору соответствующего пункта меню пользователем.

Пример. Имитация выбора пункта меню.

procedure TForml.ButtonlClick(Sender: TObject);

begin mnuLockltem.Click;

end;

Нажатие кнопки Buttoni приводит к тому же эффекту, что и выбор пункта Меню mnuLockltem.

Для создания меню при разработке приложения используется Конструктор меню. Меню также можно создавать или изменять динамически — непо средственно в ходе выполнения приложения.

7.1. Главное меню Главное меню располагается в верхней части формы под ее заголовком (рис. 7.1) и содержит наиболее общие команды приложения. В Delphi глав ное меню представлено компонентом MainMenu.

ш Работа с меню Цвет Формы Управление пунктами меню Выход Р и с. 7. 1. Главное меню По внешнему виду главное меню представляет собой строку, и его также называют строчным. Если пункты меню не умещаются на форме в одну строку, то они автоматически переносятся на следующую строку (рис. 7.2).

При изменении размеров формы соответствующим образом меняются раз меры и размещение пунктов строчного меню. Отметим, что уменьшение ширины формы ограничено размером самого длинного заголовка, имеюще гося в меню.

При проектировании приложения на форме видны компонент MainMenu и соответствующая ему строка меню. Отображаемая строка меню выглядит Часть I. Основные средства Delphi и ведет себя так же, как и при выполнении программы. Для перехода на этапе проектирования приложения в процедуру обработки события onclick пункта меню следует выбрать этот пункт с помощью клавиатуры или мыши.

l.iaixi \ж Работа с меню Цвет Формы У правление пунктами меню Выход Рис. 7. 2. Главное меню с двумя строками 7.2. Контекстное меню Контекстное (всплывающее) меню появляется при нажатии правой кнопки мыши и размещении указателя на форме или в области некоторого управ ляющего элемента. Обычно контекстное меню содержит команды, влияю щие только на тот объект, для которого вызвано это меню, поэтому такое меню также называют локальным. На рис. 7.3 показан примерный вид кон текстного меню.

- Название Переместить - - ' • Цвет И сксиное состояние Р и с. 7. 3. Контекстное меню Контекстное меню в Delphi представляется компонентом PopupMenu. Его основными свойствами являются следующие:

П AutoPopup типа Boolean — определяет, появляется ли контекстное меню при щелчке правой кнопки мыши и размещении указателя на компонен те, использующем это меню. Если свойство AutoPopup имеет значение True (по умолчанию), то контекстное меню при щелчке мыши появляет ся автоматически. Если свойство AutoPopup имеет значение False, то появления меню не происходит. Однако в этом случае можно активи зировать меню программно, используя метод Popup. Процедура Popup (х, Y: integer), где х и Y— координаты меню относительно левого верхнего угла экрана монитора, выводит на экран указанное контекстное меню, например, PopupMenul.Popup(200, 200);

О Alignment типа TPopupAiignment — определяет место появления кон текстного меню по отношению к указателю мыши. Свойство Alignment может принимать следующие значения:

• paLeft — указатель определяет левый верхний край меню (по умол чанию);

Delphi. Быстрый старт pacenter — указатель определяет для меню центр по горизонтали;

• • paRight — указатель определяет правый верхний край меню.

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

Пример. Задание контекстного меню для формы.

Forml.PopupMenu := PopupMenu1;

Данный оператор задает для формы Forml контекстное меню PopupMenui.

7.3. Конструктор меню Для создания и изменения меню в процессе разработки приложения в среде Delphi предназначен Конструктор меню (Menu Designer). Запуск Конструк тора меню можно выполнить по команде Menu Designer (Конструктор ме ню) контекстного меню компонента MainMerm или PopupMenu, а также с по мощью двойного щелчка мыши на этих же компонентах. Предварительно один из этих компонентов следует добавить на форму. Напомним, что ком поненты MainMenu и PopupMenu размещаются на странице Standard (Стан дартная ) Палитры компонентов.

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

!«- Forml MainMenul Цвет Формы Управление пунктами Выход [ j • Отметка •Блокировка ' •'.-. Видимость •33 Insert Ins И e( с > eel Dl e '"""~:"" Ce t Sb eu r ae umn Dl Rg t f+ i h. S j cM n..

ee t e u S v A T m l t..

ae s e pae I s r F m T m l t..

n et r e pae o D l t T m l t s.

e e e p e.

e a I s r Fo B s uc..

n et r m e o r e Рис. 7.4. Вид меню при конструировании При работе с Конструктором меню используются команды его контекстного меню (рис. 7.4), вызываемого щелчком правой кнопкой мыши при разме Часть I. Основные средства Delphi щении указателя в области Конструктора меню. С их помощью можно выполнить такие действия, как добавление (Insert) и удаление (Delete) пунк та меню, создание подменю (Create Submenu), выбор меню (Select Menu).

При конструировании меню можно также перемещать указателем мыши пункты меню и подменю по технологии drag-and-drop. Используемый со вместно с Конструктором меню Инспектор объектов позволяет управлять свойствами отдельных пунктов меню. В частности, наименование пункта меню задается путем присвоения нужного значения его свойству caption.

7.4. Динамическая настройка меню С помощью Конструктора создание и настройка меню ведется при создании приложения. Кроме того, меню можно создавать или изменять динамически непосредственно при выполнении приложения. Например, возможно:

• создать новое меню любого типа или удалить его;

• заблокировать или разблокировать отдельные пункты;

П сделать пункт меню видимым или невидимым;

• добавить или удалить пункт меню;

• изменить название пункта;

• установить или убрать отметку пункта;

• переключить форму с одного главного меню на другое.

Эти возможности обеспечиваются установкой свойствам пунктов меню тре буемых значений и вызовом соответствующих методов.

Для добавления пунктов меню используются методы Add и i n s e r t, для уда ления пунктов меню используется метод Delete.

Процедура Add (item: TMenuitem) добавляет определяемый параметром item элемент в конец подменю, которое вызвало этот метод. Если подменю не существовало, то оно создается.

Пример. Добавление пункта меню.

procedure Forml.mnuItemAddClick(Sender :TSender);

var Newltem :TMenuitem;

begin Newltem : TMenuitem.Create(Self);

= Newltem.Caption := 'Новый элемент1;

mnuFile.Add(Newltem) ;

end;

Добавление нового пункта производится в конец списка команд меню Файл. Добавляемый пункт имеет заголовок Новый элемент. Предварительно НОВЫЙ ПуНКТ СОЗДаеТСЯ КОНСТруКТОрОМ C r e a t e.

154 Delphi. Быстрый старт Процедура I n s e r t (Index: I n t e g e r ;

Item: TMenuItem), В ОТЛИЧИе ОТ предыдущего метода, добавляет новый пункт меню на указанное положение.

Параметр index определяет позицию в массиве элементов меню, на которую вставляется новый пункт. Если значение параметра index выходит за преде лы допустимого диапазона, например, больше, чем число подэлементов модифицируемого пункта меню, то возникает исключительная ситуация.

Процедура Delete (index: integer) удаляет указанный пункт меню. Если удаляемый пункт имеет подпункты, то они также удаляются.

Пример. Удаление пункта меню.

procedure Forml.mnuItemDeleteClick(Sender :TSender);

begin if mnuFile.Items[2].Caption = 'Второй элемент' then mnuFile.Delete(2);

end;

Процедура выполняет удаление пункта из подменю Файл. Удаляемый пункт имеет заголовок Второй элемент и находится на второй позиции. Предвари тельно производится проверка, действительно ли удаляется пункт с нужным названием.

Форма может иметь более одного главного меню. Это используется, например, в случае, когда одно из них содержит заголовки на английском языке, а другое — на русском. Для реализации такой возможности на форму следу ет поместить два компонента MainMenu и подготовить соответствующие ме ню. После этого при выполнении программы возможно подключение к форме любого из этих меню. Для подключения к форме главного меню ис пользуется С О С В Menu формы.

В ЙТО Пример. Переключение между двумя главными меню.

if Forml.Menu = EnglishMenu then Forml.Menu := RussianMenu else Forml.Menu := EnglishMenu;

Меню ИМеЮТ названия EnglishMenu И RussianMenu. Код, ВЫПОЛНЯЮЩИЙ Пе реключение меню, может быть включен в соответствующий обработчик.

Напомним, что Menu является одним из свойств формы, указывающим на главное меню, которое в настоящий момент является активным.

ЧастьII Работа с базами данных Глава 8. Введение в базы данных Глава 9. Компоненты для работы с данными Глава 10. Операции с данными Глава 11. Подготовка отчетов Глава Введение в базы данных 8.1. Основные понятия Для успешного функционирования различных организаций требуется нали чие развитой информационной системы, которая реализует автоматизиро ванный сбор, обработку и манипулирование данными.

8.1.1. Банки данных Современной формой информационных систем являются банки данных, включающие в свой состав следующие составляющие:

• вычислительную систему;

П систему управления базами данных (СУБД);

О одну или несколько баз данных (БД);

• набор прикладных программ (приложений БД).

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

СУБД представляет собой совокупность языковых и программных средств, предназначенных для создания, ведения и использования БД. По характеру использования СУБД разделяют на персональные и многопользовательские.

Персональная СУБД обеспечивает возможность создания локальных БД, работающих на одном компьютере. К персональным СУБД относятся Para dox, dBase, FoxPro, Access и другие.

Многопользовательские СУБД позволяют создавать информационные системы, функционирующие в архитектуре "клиент-сервер". К много 158 Delphi. Быстрый старт пользовательским СУБД относятся Oracle, Informix, SyBase, Microsoft SQL Server, InterBase и др.

В состав языковых средств современных СУБД входят:

• язык описания данных, предназначенный для описания логической структуры данных;

• язык манипулирования данными, обеспечивающий выполнение основ ных операций над данными — ввод, модификацию и выборку;

• язык структурированных запросов (Structured Query Language, SQL), обеспечивающий управление структурой БД и манипулирование данными, а также являющийся стандартным средством доступа к удаленным БД;

• язык запросов по образцу (Query By Example, QBE), обеспечивающий визуальное конструирование запросов к БД.

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

• иерархическую;

• реляционную;

• сетевую;

• объектно-ориентированную.

Большинство современных БД для персональных компьютеров являются реляционными. При последующем изложении материала речь пойдет имен но о реляционных БД.

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

Иногда термин БД трактуют в широком смысле слова и обозначают им не только саму БД, но и приложения, обрабатывающие ее данные.

Система Delphi не является СУБД в буквальном смысле этого слова, но об ладает возможностями полноценной СУБД. Предоставляемые Delphi средст ва обеспечивают создание и ведение локальных и клиент-серверных БД, а также разработку приложений для работы практически с любыми БД.

Назвать Delphi обычной СУБД мешает, наверное, только то, что, с одной стороны, она не имеет своего формата таблиц (языка описания данных) и использует форматы таблиц других СУБД, например, dBase, Paradox или InterBase. Это вряд ли является недостатком, поскольку названные форматы хорошо себя зарекомендовали. С другой стороны, в плане создания прило жений различного назначения, в том числе приложений БД, возможности Delphi не уступают возможностям специализированных СУБД, а зачастую и превосходят их.

Часть II. Работа с базами данных 8.1.2. Архитектуры информационных систем В зависимости от взаимного расположения приложения и БД можно выделить:

• локальные БД;

• удаленные БД.

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

Расположение БД в значительной степени влияет на разработку приложе ния, обрабатывающего содержащиеся в этой базе данные. Delphi приложение осуществляет доступ к БД через BDE (Borland Database Engine — процессор баз данных фирмы Borland). BDE представляет собой совокупность динамических библиотек и драйверов, обеспечивающих дос туп к данным. Приложение через BDE передает запрос к базе данных, а об ратно получает требуемые данные. BDE должен устанавливаться на всех компьютерах, на которых выполняются Delphi-приложения, осуществляю щие работу с БД. Отметим, что при установке Delphi на компьютер по умолчанию также устанавливается BDE.

Локальные БД располагаются на том же компьютере, что и работающие с ними приложения. В этом случае информационная система имеет локаль ную архитектуру (рис. 8.1). Работа с БД происходит, как правило, в одно пользовательском режиме. При необходимости можно запустить на компью тере другое приложение, одновременно осуществляющее доступ к этим же данным. Для управления совместным доступом к БД необходимы специаль ные средства контроля и защиты. Эти средства могут понадобиться, напри мер, в случае, когда приложение пытается изменить запись, которую редак тирует другое приложение. Каждая разновидность БД осуществляет подобный контроль своими способами и обычно имеет встроенные средства разграничения доступа.

База данных BDE Приложение Компьютер пользователя Рис. 8. 1. Локальная архитектура Для доступа к локальной БД процессор баз данных BDE использует стан дартные драйверы, которые позволяют работать с форматами БД dBase, Paradox, FoxPro, а также с текстовыми файлами.

Удаленная БД размещается на компьютере-сервере сети, а приложение, осуществляющее работу с этой БД, находится на компьютере пользователя.

160 Delphi. Быстрый старт В этом случае речь идет об архитектуре клиент-сервер, когда информацион ная система делится на неоднородные части — сервер и клиент БД.

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

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

Достоинствами такой архитектуры являются:

• снижение нагрузки на сеть;

• повышение безопасности информации;

• уменьшение сложности клиентских приложений.

Отметим, что локальные приложения БД называют одноуровневыми, а кли ент-серверные приложения БД — многоуровневыми.

Далее рассматривается работа с локальными БД dBase и Paradox. Отметим, что многие примеры можно также применить и при разработке приложений для работы с удаленными БД.

8.2. Реляционные базы данных Реляционная БД состоит из взаимосвязанных таблиц. Каждая таблица со держит информацию об объектах одного типа, а совокупность всех таблиц образует единую БД.

8.2.1. Таблицы баз данных Таблицы, образующие БД, находятся в каталоге (папке) на жестком диске.

Таблицы хранятся в файлах и похожи на отдельные документы или элек тронные таблицы (например, табличного процессора Microsoft Excel), их можно перемещать и копировать обычным способом, например, с помощью Проводника Windows. Однако, в отличие от документов, таблицы БД под держивают многопользовательский режим доступа, т. е. могут одновременно использоваться несколькими приложениями.

Для одной таблицы создается несколько файлов, содержащих данные, ин дексы, ключи и т. п. Главным из них является файл с данными, имя этого файла является именем таблицы, которое задается при ее создании. В неко тором смысле понятие таблицы и ее главного файла являются синонимами, при выборе таблицы выбирается именно ее главный файл: для таблицы dBase им является файл с расширением DBF, а для таблицы Paradox — с расширением DB. Имена остальных файлов таблицы назначаются автоматически — все файлы имеют одинаковое имя, совпадающее с именем таблицы, и разные расширения, указывающие на содержимое соответст вующего файла.

Часть II. Работа с базами данных Каждая таблица БД состоит из строк и столбцов и предназначена для хра нения данных об однотипных объектах информационной системы. Строка таблицы называется записью, столбец таблицы — полем (рис. 8.2). Каждое поле должно иметь уникальное в пределах таблицы имя.

Поле Запись Рис. 8. 2. Таблица БД Поле содержит данные одного из допустимых типов, например, строкового, целочисленного или даты. При вводе значения в поле таблицы автоматиче ски производится проверка соответствия типа значения и типа поля. В слу чае, когда эти типы не совпадают, а преобразование типа значения невоз можно, генерируется исключительная ситуация.

Особенности организации таблиц зависят от конкретной СУБД, используе мой для создания и ведения БД. Например, в таблице dBase нет поля авто инкрементного типа (с автоматически наращиваемым значением) и в ней нельзя определить ключ. Подобные особенности необходимо учитывать при выборе типа (формата) таблицы, так как они влияют не только на организа цию БД, но и на построение приложения для работы с этой БД. Однако, несмотря на все различия таблиц, существуют общие правила создания и ведения БД, а также разработки приложений, которые и будут далее рассмотрены.

Основу таблицы составляет описание ее полей, каждая таблица должна иметь хотя бы одно поле. Понятие структуры таблицы является более широ ким и включает в себя:

П описание полей;

• ключ;

• индексы;

О ограничения на значения полей;

162 Delphi. Быстрый старт П ограничения ссылочной целостности между таблицами;

• пароли.

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

Отметим, что отдельные элементы структуры зависят от формата таблиц, например, для таблиц dBase нельзя задать ограничения ссылочной целост ности. Все элементы структуры задаются на физическом уровне (уровне таблицы) и действуют для всех программ, выполняющих операции с БД, включая средства разработки и ведения БД (например, программу Database Desktop). Многие из этих элементов (например, ограничения на значения полей или поля просмотра) можно также реализовать в приложении про граммно, однако в этом случае они действуют только в пределах своего приложения.

С таблицей в целом можно выполнять следующие операции:

• создание (определение структуры);

• изменение структуры (реструктуризация);

• переименование;

• удаление.

При создании таблицы задаются структура и имя таблицы. При сохранении на диске создаются все необходимые файлы, относящиеся к таблице.

Их имена совпадают с именем таблицы.

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

Однако название таблицы и ее файлов остается прежним.

При переименовании таблица получает новое имя, в результате чего новое имя также получают все ее файлы. Для этого используются соответствую щие программы (утилиты), предназначенные для работы с таблицами БД, например, Database Desktop или Data Pump.

Замечание Таблицу нельзя переименовать, просто изменив названия всех ее файлов, например, с помощью Проводника Windows.

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

Часть II. Работа с базами данных 8.2.2. Ключи и индексы Ключ представляет собой комбинацию полей, данные в которых однозначно определяют каждую запись в таблице. Простой ключ состоит из одного поля, а составной (сложный) — из нескольких полей. Поля, по которым построен ключ, называют ключевыми. В таблице может быть определен только один ключ. Ключ обеспечивает:

О однозначную идентификацию записей таблицы;

• предотвращение повторения значений ключа;

П ускорение выполнения запросов к БД;

D установление связи между отдельными таблицами БД;

• использование ограничений ссылочной целостности.

Ключ также называют первичным ключом или первичным (главньш) индексом.

Информация о ключе может храниться в отдельном файле или совместно с данными таблицы. Например, в БД Paradox для этой цели используется отдельный файл (ключевой файл или файл главного индекса) с расширени ем РХ. В БД Access вся информация содержится в одном общем файле с расширением MDB. Значения ключа располагаются в определенном по рядке. Для каждого значения ключа имеется уникальная ссылка, указываю щая на расположение соответствующей записи в таблице (в главном ее фай ле). Поэтому при поиске записи выполняется не последовательный просмотр всей таблицы, а прямой доступ к записи на основании упорядо ченных значений ключа.

Ценой, которую разработчик и пользователь платят за использование такой технологии, является увеличение размера БД вследствие необходимости хранения значений ключа, например, в отдельном файле. Размер этого фай ла зависит не только от числа записей таблицы (что достаточно очевидно), но и от полей, составляющих ключ. В ключевом файле, кроме ссылок на соответствующие записи таблицы, сохраняются и значения самих ключевых полей. Поэтому при вхождении в состав ключа строковых полей большого размера размер ключевого файла может оказаться соизмеримым с размером файла с данными таблицы.

Таблицы различных форматов имеют свои особенности построения ключей.

Вместе с тем существуют и общие правила, состоящие в следующем.

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

П Ключ должен быть достаточным и неизбыточным, т. е. не содержать поля, которые можно удалить без нарушения уникальности ключа.

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

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

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

Удобным вариантом создания ключа является использование для него поля соответствующего типа, которое автоматически обеспечивает поддержку уникальности значений. Для таблиц Paradox таким является поле автоин крементного типа, еще одно достоинство которого заключается в неболь шом размере (4 байта). В то же время в таблицах dBase и InterBase поле по добного типа отсутствует, и программист должен обеспечивать уникальность значений ключа самостоятельно, например, используя специальные генераторы.

Отметим, что при создании и ведении БД правильным подходом считается задание в каждой таблице ключа даже в том случае, если на первый взгляд он не нужен. В примерах таблиц, которые приводятся при изложении мате риала, как правило, ключ создается, и для него вводится специальное авто инкрементное поле С именем Code ИЛИ Number.

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

Индексы при их создании именуются. Как и в случае с ключом, в зависи мости от СУБД, индексы могут храниться в отдельных файлах или совмест но с данными. Создание индекса называют индексированием таблицы.

Использование индекса обеспечивает:

• увеличение скорости доступа (поиска) к данным;

• сортировку записей;

• установление связи между отдельными таблицами БД;

• использование ограничений ссылочной целостности.

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

Таким образом, использование индекса повышает скорость доступа к дан ным в таблице за счет того, что доступ выполняется не последовательным, а индексно-последовательным методом.

Часть II. Работа с базами данных Сортировка представляет собой упорядочивание записей по полю или груп пе полей в порядке возрастания или убывания их значений. Индекс служит для сортировки таблиц по индексным полям. В Delphi записи набора Table можно сортировать только по индексным полям. Набор данных Query позволяет выполнить средствами SQL сортировку по любым полям, однако и в этом случае для индексированных полей упорядочивание записей вы полняется быстрее.

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

Ключевые поля обычно автоматически индексируются. В таблицах Para dox ключ также является главным (первичным) индексом, который не именуется. Для таблиц dBase ключ не создается, и его роль выполняет один из индексов.

Замечание Создание ключа может привести к побочным эффектам. Так, если в таблице Paradox определить ключ, то записи автоматически упорядочиваются по его значениям, что в ряде случаев является нежелательным.

Таким образом, использование ключей и индексов позволяет:

П однозначно идентифицировать записи;

П избегать дублирования значений в ключевых полях;

• выполнять сортировку таблиц;

• ускорять операции поиска в таблицах;

• устанавливать связи между отдельными таблицами БД;

• использовать ограничения ссылочной целостности.

Одной из основных задач БД является обеспечение быстрого доступа к дан ным (поиска данных).

8.2.3. Способы доступа к данным При выполнении операций с таблицами используется один из следующих способов доступа к данным:

П навигационный;

• реляционный.

166 Delphi. Быстрый старт Навигационный способ доступа заключается в обработке каждой отдельной записи таблицы. Этот способ обычно используется в локальных БД или в удаленных БД небольшого размера. Если необходимо обработать несколько записей, то все они обрабатываются поочередно.

Реляционный способ доступа основан на обработке сразу группы записей, при этом если необходимо обработать одну запись, то обрабатывается груп па, состоящая из одной записи. Так как реляционный способ доступа осно вывается на SQL-запросах, то его также называют SQL-ориентированным.

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

Способ доступа к данным выбирается программистом и зависит от средств доступа к БД, используемых при разработке приложения. Например, в при ложениях, создаваемых в Delphi, для реализации навигационного способа доступа можно использовать компоненты таЫе или Query, для реляционно го — компонент Query.

8.2.4. Связь между таблицами В частном случае БД может состоять из одной таблицы, например, с днями рождения сотрудников организации. Однако обычно реляционная БД состоит из взаимосвязанных таблиц. Организация связи (отношений) между таблицами называется связыванием или соединением таблиц.

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

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

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

Особенности использования индексов зависят от формата связываемых таб лиц. Так, для таблиц dBase индексы строятся по одному полю и нет деления на ключ (главный или первичный индекс) и индексы. Для организации свя зи в главной и подчиненной таблицах выбираются индексы, составленные по полям совпадающего типа, например, целочисленного.

Часть II. Работа с базами данных Для таблиц Paradox в качестве полей связи главной таблицы должны ис пользоваться поля ключа, а для подчиненной таблицы — поля индекса.

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

Главная таблица Ключ М_Code Ключевое поле Подчиненная таблица Индекс 1 (внешний ключ) D_Number D_Code Ключевое Индексное поле поле Рис. 8.3. Схема связи между таблицами Paradox В главной таблице определен ключ, построенный по полю M_Code автоин крементного типа. В подчиненной таблице определен ключ по полю D_Number также автоинкрементного типа и индекс, построенный по полю D_code целочисленного типа. Связь между таблицами устанавливается по полям D_code и M_code. Индекс по полю DCode является внешним клю чом. В названия полей включены префиксы, указывающие на принадлеж ность поля соответствующей таблице. Так, названия полей главной таблицы начинаются буквой м (Master), а названия полей подчиненной таблицы на чинаются буквой D (Detail). Подобное именование полей облегчает ориента цию в их названиях, особенно при большом количестве таблиц.

Замечание Как отмечалось, поля связи должны быть индексированными, хотя, строго го воря, это требование не всегда является обязательным. При доступе к данным средствами языка SQL можно связать (соединить) между собой таблицы и по неиндексированным полям. Однако в этом случае скорость выполнения опера ций будет низкой.

Связь между таблицами определяет отношение подчиненности, при котором одна таблица является главной (родительской, или мастером — Master), а вторая — подчиненной (дочерней, или детальной — Detail). Саму связь (от ношение) называют связь "главный-подчиненный", "родительский дочерний" или "мастер-детальный". Существуют следующие виды связи:

168 Delphi. Быстрый старт П отношение "один-к-одному";

• отношение "один-ко-многим";

• отношение "много-к-одному";

• отношение "много-ко-многим".

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

Типичным примером является, например, организация учета выдачи книг в библиотеке, для которой удобно создать следующие две таблицы:

• таблицу карточек читателей, содержащую такую информацию о читателе, как фамилия, имя, отчество, дата рождения и домашний адрес;

• таблицу выдачи книг, в которую заносится информация о выдаче книги читателю и о возврате книги.

В этой ситуации главной является таблица карточек читателей, а подчинен ной — таблица выдачи книг. Один читатель может иметь на руках несколь ко книг, поэтому одной записи в главной таблице может соответствовать несколько записей в подчиненной таблице. Если читатель сдал все книги или еще не брал ни одной книги, то для него в подчиненной таблице запи сей нет. После связывания обеих таблиц при выборе записи с данными чи тателя в таблице выдачи книг будут доступны только записи с данными о книгах, находящихся на руках этого читателя.

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

Работа со связанными таблицами имеет следующие особенности.

О При изменении (редактировании) связанного поля может нарушиться связь между записями двух таблиц. Поэтому при редактировании поля связи записи главной таблицы нужно соответственно изменять и значе ния поля связи всех подчиненных таблиц.

• При удалении записи главной таблицы нужно удалять и соответствующие ей записи в подчиненной таблице (каскадное удаление).

О При добавлении записи в подчиненную таблицу значение ее поля связи должно быть установлено равным значению поля связи главной таблицы.

Ограничения по установке, изменению полей связи и каскадному удалению записей могут быть наложены на таблицы при их создании. Эти ограниче Часть II. Работа с базами данных ния, наряду с другими элементами, например, описаниями полей и индексов, входят в структуру таблицы и действуют для всех приложений, которые вы полняют операции с БД. Указанные ограничения можно задать при созда нии или реструктуризации таблицы, например, в среде программы Database Desktop, которая позволяет устанавливать связи между таблицами при их создании.

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

• организацию связи между таблицами;

• установку значения поля связи подчиненной таблицы (это может также выполняться автоматически);

П контроль (запрет) редактирования полей связи;

• организацию (запрет) каскадного удаления записей.

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

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

8.2.5. Механизм транзакций Информация БД в любой момент времени должна быть целостной и непро тиворечивой. Одним из путей обеспечения этого является использование механизма транзакций.

Транзакция представляет собой выполнение последовательности операций.

При этом возможны две ситуации.

• Успешно завершены все операции. В этом случае транзакция считается успешной, и все изменения в БД, которые были произведены в рамках транзакции отдельными операциями, утверждаются. В результате БД пе реходит из одного целостного состояния в другое.

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

Таким образом, успешная транзакция переводит БД из одного целостного состояния в другое. Использование механизма транзакций необходимо:

• при выполнении последовательности взаимосвязанных операций с БД;

• при многопользовательском доступе к БД.

170 Delphi. Быстрый старт Транзакция может быть неявной или явной. Неявная транзакция стартует автоматически, а по завершении также автоматически подтверждается или отменяется. Явной транзакцией управляет программист с использованием компонента Database и/или средств SQL.

Часто в транзакцию объединяются операции над несколькими таблицами, когда производятся действия по внесению в разные таблицы взаимосвязанных изменений. Пусть осуществляется перенос записей из одной таблицы в другую. Если запись сначала удаляется из первой таблицы, а затем зано сится во вторую таблицу, то при возникновении сбоя, например из-за пере рыва в энергопитании компьютера, возможна ситуация, когда запись уже удалена, но во вторую таблицу не попала. Если запись сначала заносится во вторую таблицу, а затем удаляется из первой таблицы, то при сбое воз можна ситуация, когда запись будет находиться в двух таблицах. В обоих случаях имеет место нарушение целостности и непротиворечивости БД.

Для предотвращения подобной ситуации операции удаления записи из одной таблицы и занесения ее в другую таблицу объединяются в одну тран закцию. Выполнение этой транзакции гарантирует, что при любом ее результате целостность БД нарушена не будет.

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

В первую очередь бизнес-правила реализуют следующие ограничения БД:

• задание допустимого диапазона значений;

• задание значения по умолчанию;

• требование уникальности значения;

• запрет пустого значения;

• ограничения ссылочной целостности.

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

Вместо заданных на физическом уровне бизнес-правил или в дополнение к ним можно определить бизнес-правила на программном уровне. Действие этих правил распространяется только на приложение, в котором они Часть II. Работа с базами данных реализованы. Для программирования в приложении бизнес-правил исполь зуются компоненты и предоставляемые ими средства. Достоинство такого подхода заключается в легкости изменения бизнес-правил и определении правил "своего" приложения. Недостатком является снижение безопасности БД, связанное с тем, что каждое приложение может устанавливать свои пра вила управления БД.

8.2.7. Форматы таблиц Delphi не имеет своего формата таблиц, но поддерживает, как свои собст венные, два типа локальных таблиц — dBase и Paradox. Каждая из этих таб лиц имеет свои особенности.

Таблицы dBase являются одним из первых появившихся форматов таблиц для персональных компьютеров и поддерживаются многими системами, ко торые связаны с разработкой и обслуживанием приложений, работающих с БД. Основные достоинства таблиц dBase: простота использования и со вместимость с большим числом приложений.

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

• DBF — таблица с данными;

• DBT — данные больших двоичных объектов, или BLOB-данные (Binary Large OBject). К ним относятся двоичные, Memo- и OLE-поля. Memo поле также называют полем комментариев;

• MDX — поддерживаемые индексы;

• NDX — индексы, непосредственно не поддерживаемые форматом dBase.

При использовании таких индексов программист должен обрабатывать их самостоятел ьно.

Имя поля в таблице dBase должно состоять из букв и цифр и начинаться с буквы. Максимальная длина имени составляет 10 символов. В имена нель зя включать специальные символы и пробел.

К недостаткам таблиц dBase относится то, что они не поддерживают автома тическое использование парольной защиты и контроль целостности связей, поэтому программист должен кодировать эти действия самостоятельно.

Таблицы Paradox являются достаточно развитыми и удобными для создания БД. Можно отметить следующие их достоинства:

• большое количество типов полей для представления данных различных типов;

• поддержка целостности данных;

• организация проверки вводимых данных;

Delphi. Быстрый старт П поддержка парольной защиты таблиц.

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

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

В табл. 8.1 содержится список типов полей для таблиц Paradox 7. Для каждого типа приводится символ, используемый для обозначения этого типа в программе Database Desktop, и описание значений, которые может содер жать поле рассматриваемого типа.

Таблица 8.1. Типы полей таблиц в Paradox Обозначение Описание значения Тип Alpha A Строка символов. Длина не более 255 символов Number Число с плавающей точкой. Диапазон - 1 0 3 0 7 — N 10 308. Точность 15 цифр мантиссы Money Денежная сумма. Отличается от типа Number $ тем, что в значении отображается денежный знак. Обозначение денежного знака зависит от установок Windows Short S Целое число. Диапазон - 32 768 — 32 Longlnteger I Целое число. Диапазон — 2 147 483 648 — 2 147 483 BCD # Число в двоично-десятичном формате Date D Дата. Диапазон 01.01.9999 до н.э.— 31.12. Time Время Timestamp Дата и время Memo Строка символов. Длина не ограничена. Пер M вые 240 символов хранятся в файле таблицы, остальные в файле с расширением MB Formatted Строка символов. Отличается от типа Memo Memo тем, что строка может содержать форматиро ванный текст Graphic Графическое изображение. Форматы BMP, PCX, TIF, GIF и EPS. При загрузке в поле изо бражение преобразуется к формату BMP. Для хранения изображения используется файл с расширением MB Часть h Работа базами данных 1 с Таблица 8.1 (окончание) Тип Обозначение Описание значения OLE Данные в формате, который поддерживается технологией OLE. Данные хранятся в файле с расширением MB Logical Логическое значение. Допустимы значения True (истина) и False (ложь). Разрешается использование прописных букв Autoincrement Автоинкрементное поле. При добавлении к таблице новой записи в поле автоматически заносится значение, на единицу большее, чем в последней добавленной записи. При удалении записи значение ее автоинкре метного поля больше не будет использова но. Значение автоинкреметного поля дос тупно для чтения и обычно используется в качестве ключевого поля Последовательность байтов. Длина не огра Binary ничена. Байты содержат произвольное дво ичное значение. Первые 240 байтов хранят ся в файле таблицы, остальные в файле с расширением MB Последовательность байтов. Длина не более Bytes 255 байтов (~ Замечание ) При работе с таблицей в среде программы Database Desktop значения полей типа Graphic, B i n a r y, Memo и OLE не отображаются.

Имя поля в таблице Paradox должно состоять из букв (допускается кирил лица) и цифр и начинаться с буквы. Максимальная длина имени составляет 25 символов. В имени можно использовать такие символы, как пробел, #, $ и некоторые другие. Не рекомендуется использовать символы., ! и |, так как они зарезервированы в Delphi для других целей.

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

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

Определенным недостатком таблиц Paradox является наличие относительно большого количества типов файлов, требуемых для хранения содержащихся 174 Delphi. Быстрый старт в таблице данных. При копировании или перемещении какой-либо таблицы из одного каталога в другой необходимо обеспечить копирование или пере мещение всех файлов, относящихся к этой таблице. Файлы таблиц Paradox имеют следующие расширения:

• DB — таблица с данными;

• MB — BLOB-данные;

• РХ — главный индекс (ключ);

П XG* и YG* — вторичные индексы;

П VAL — параметры для проверки данных и целостности ссылок;

• TV и FAM — форматы вывода таблицы в программе Database Desktop.

С Замечание ) Указанные файлы создаются только, если в них есть необходимость;

конкрет ная таблица может не иметь всех приведенных файлов.

8.3. Средства для работы с базами данных Хотя Delphi не имеет своего формата таблиц БД, она, тем не менее, обеспе чивает мощную поддержку большого количества различных СУБД Средства Delphi, предназначенные для работы с БД, можно разделить на два вида:

• инструментальные средства;

• компоненты.

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

Компоненты предназначены для создания приложений, осуществляющих операции с БД.

8.3.1. Инструментальные средства Для операций с БД система Delphi предлагает набор инструментальных средств, перечисленных ниже.

• Borland Database Engine (BDE) — процессор баз данных, который пред ставляет собой набор динамических библиотек и драйверов, предназна ченных для организации доступа к БД из Delphi-приложений. BDE явля ется центральным звеном при организации доступа к данным.

О BDE Administrator — утилита для настройки различных параметров BDE.

• Database Desktop — программа создания и редактирования таблиц, SQL запросов и запросов QBE.

Часть II. Работа с базами данных 175_ П SQL Explorer — Проводник БД, позволяющий просматривать и редакти ровать БД и словари данных.

• SQL Builder — программа визуального конструирования SQL-запросов.

• Data Pump — программа для переноса данных между БД.

8.3.2. Компоненты Кроме компонентов, Delphi также предоставляет разработчику специальные объекты, например, объекты типа TFieid. Как и другие управляющие элементы Delphi, связанные с БД, компоненты делятся на визуальные и невизуальные.

Невизуальные компоненты предназначены для организации доступа к дан ным, содержащимся в таблицах. Они представляют собой промежуточное звено между данными таблиц БД и визуальными компонентами.

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

Основная часть компонентов, используемых для работы с БД, находится на страницах Data Access, Data Controls, BDE и QReport Палитры компонентов.

Замечание Состав страниц Палитры компонентов, а также состав расположенных на них компонентов различаются в зависимости от версии Delphi. Ниже приведены страницы Палитры компонентов, соответствующие Delphi 6. В предыдущих версиях страница BDE отсутствует, а большинство ее компонентов, включая Table и Query, расположено на странице Data Access.

На странице Data Access (рис. 8.4) находятся невизуальные компоненты, предназначенные для организации доступа к данным:

П DataSource - источник данных;

О c i i e n t o a t a s e t - клиентский набор данных;

О DataSetProvider - провайдер набора данных.

em Data Access Рис. 8. 4. Страница Data Access 176 Delphi. Быстрый старт На странице Data Controls (рис. 8.5) находятся визуальные компоненты, предназначенные для управления данными:

• DBGrid — сетка (таблица);

• DBNavigator — навигационный интерфейс;

П DBText — надпись;

• DBEdit — однострочный редактор;

• овмето — многострочный редактор;

• DBimage — графический образ;

• DBListBox — простой список;

• DBComboBox — комбинированный список;

• овсьесквох — независимый переключатель;

• DBRadioGroup — группа зависимых переключателей;

• DBLookupListBox — простой список, формируемый по полю другого на бора данных;

• DBLookupComboBox — комбинированный список, формируемый по полю другого набора данных;

• DBRichEdit — полнофункциональный тестовый редактор;

• DBCtrlGrid — модифицированная сетка;

• DBChart — диаграмма.

m | DataA:cess DslaCor,t-o s | dLE>ne;

s | DoiaSraa 1 3 E C • 'S3 AH'LI Рис. 8.5. Страница Data Controls На странице BDE (рис. 8.6) находятся компоненты, предназначенные для управления данными с использованием BDE:

• Table — набор данных, основанный на таблице БД;

• Query — набор данных, основанный на SQL-запросе;

• storedProc — вызов хранимой процедуры сервера;

• DataBase — соединение с БД;

• Session — текущий сеанс работы с БД;

• BatchMove — выполнение операций над группой записей;

• updateSQL — модификация набора данных, основанного на SQL-запросе;

Часть II. Работа с базами данных 177_ П NestedTabie — вложенная таблица;

• BDECiientDataSet — клиентский набор данных.

iress j DateSnao BDE. j ADO ] InterBa Рис. 8.6. Страница BDE На странице QReport (рис. 8.7) находятся компоненты (в основном визуаль ные), предназначенные для построения отчетов:

П QuickRep — отчет;

• QRSubDetaii — полоса отчета для таблиц, связанных отношением "глав ный-подчиненный";

П QRStringsBand — строковая полоса отчета;

• QRBand — полоса отчета;

П QRChiidBand — дочерняя полоса отчета;

• QRGroup — группа;

• QRLabel — надпись;

• QRDBText — текстовое поле набора данных;

• QRExpr — выражение;

• QRSysData — системная информация;

• QRMemo — многострочный текст;

• QRExprMemo — многострочное выражение;

• QRRichText — форматированный текст;

• QRDBRichText — форматированный текст поля набора данных;

• QRShape — геометрическая фигура;

• QRimage — графический образ;

• QRDBimage — графический образ поля набора данных;

• QRCompositeReport — составной отчет;

• QRPreview — окно просмотра отчета;

• QRTextFiiter — текстовый фильтр;

• QRCSvFiiter — CSV-фильтр;

О QRHTMLFiiter — HTNL-фильтр;

• QRChart — диаграмма.

178 Delphi. Быстрый старт | Decision Cube QReport | Dialoas j Win 3.1 | Samples | ActiveX | C M | WebSnao | Servers | indvQ O+ Рис. 8.7. Страница QReport Названия многих компонентов, предназначенных для работы с данными, содержат префиксы, например, DB ИЛИ QR. Префикс DB означает, что визуальный компонент связан с данными и используется для построения интерфейсной части приложения. Такие компоненты размешаются на форме и предназначены для управления данными со стороны пользова теля. Префикс QR означает, что компонент используется для построения отчетов. Эти компоненты размещаются на компоненте QuickRep отчета и его элементах, например, на полосе QRBand, и служат для оформления внешнего вида отчета.

8.4. Технология создания информационной системы В качестве первого примера использования возможностей Delphi по работе с БД рассмотрим технологию создания простой информационной системы.

Эту информационную систему можно создать без программирования, она не требует написаний кода: все необходимые операции выполняются с помо щью программы Database Desktop, Конструктора формы и Инспектора объ ектов. При создании информационной системы основными являются сле дующие этапы:

• создание БД;

• создание приложения.

В простейшем случае БД состоит из одной таблицы. Если таблицы уже имеются, то первый этап не выполняется. Отметим, что совместно с Delphi поставляется большое количество примеров приложений, в том числе и приложений БД. Файлы таблиц для этих приложений находятся в каталоге Program Files\Shared Files\Borland Shared\Data. Готовые таблицы можно ис пользовать также и для своих приложений.

8.5.Созданиетаблицбазыданных Для работы с таблицами БД при проектировании приложения удобно ис пользовать программу Database Desktop, которая позволяет выполнять сле дующие действия:

П создание таблицы;

• изменение структуры;

• редактирование записей.

Часть II. Работа с базами данных Кроме того, с помощью Database Desktop можно выполнять и другие дейст вия над БД (создание, редактирование и выполнение визуальных запросов и SQL-запросов, операции с псевдонимами).

Процесс создания новой таблицы начинается по команде File | New | Table (Файл | Создать | Таблица) и происходит в интерактивном режиме. При этом разработчик должен:

• выбрать формат (тип) таблицы;

• задать структуру таблицы.

В начале создания новой таблицы в окне Create Table (Создание таблицы) (рис. 8.8) выбирается ее формат. По умолчанию предлагается формат табли цы Paradox версии 7, который мы и будем использовать. Для таблиц других форматов, например, dBase IV, действия по созданию таблицы практически не отличаются.

I Create Table • Iable type:

Cancel' | Hp el Рис. 8.8. Выбор формата таблицы После выбора формата таблицы появляется окно определения структуры таблицы (рис. 8.9), в котором выполняются следующие действия:

• описание полей;

• задание ключа;

• задание индексов;

П определение ограничений на значения полей;

• определение условий (ограничений) ссылочной целостности;

О задание паролей;

О задание языкового драйвера;

• задание таблицы для выбора значений.

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

После определения структуры таблицы ее необходимо сохранить, нажав кнопку Save as (Сохранить как) и указав расположение таблицы на диске и ее имя. В результате на диск записывается новая таблица, первоначально пустая, при этом все необходимые файлы создаются автоматически.

180 Delphi. Быстрый старт I Create Paradox 7 Table: ( llnlitled ) -field tostet: Table eioperties:

jKeyj [ j Secondary Indexes J>J Field Name 20 i Post :

' 15;

indName Salary 5|BirthOay Right-dlck or press Spacebai to choose a field type Help Рис. 8.9. Определение структуры таблицы 8.5.1. Описание полей Центральной частью окна определения структуры таблицы является список Field roster (Список полей), в котором указываются поля таблицы. Для каж дого поля задаются:

• имя — в столбце Field Name;

• тип — в столбце Туре;

П размер — в столбце Size.

Имя поля вводится по правилам, установленным для выбранного формата таблиц. Правила именования и допустимые типы полей таблиц Paradox опи саны во введении в БД.

Тип поля можно задать, непосредственно указав соответствующий символ, например, А ДЛЯ СИМВОЛЬНОГО ИЛИ I ДЛЯ целочисленного поля, или выбрать его из списка, раскрываемого при нажатии клавиши <Пробел> или щелч ком правой кнопки мыши в столбце Туре (Тип). Список содержит все типы полей, допустимые для заданного формата таблицы. В списке подчеркнуты символы, используемые для обозначения соответствующего типа, при выбо ре типа эти символы автоматически заносятся в столбец Туре (Тип).

Размер поля задается не всегда, необходимость его указания зависит от типа поля. Для полей определенного типа, например, автоинкрементно го (+) или целочисленного (i), размер поля не задается. Для поля стро Часть II. Работа с базами данных 181_ кового типа размер определяет максимальное число символов, которые могут храниться в поле.

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

Ключ создается указанием его полей. Для указания ключевых полей в столбце ключа (Key) нужно установить символ *, переведя в эту позицию курсор и нажав любую алфавитно-цифровую клавишу. При повторном на жатии клавиши отметка о принадлежности поля ключу снимается. В струк туре таблицы ключевые поля должны быть первыми, т. е. верхними в списке полей. Часто для ключа используют автоинкрементное поле (см. рис. 8.9).

Напомним, что для таблиц Paradox ключ также называют первичным индек сом (Primary Index), а для таблиц dBase ключ не создается, и его роль вы полняет один из индексов.

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

• Secondary Indexes — индексы;

• Validity Checks — проверка правильности ввода значений полей (выбира ется по умолчанию);

• Referential Integrity — ссылочная целостность;

• Password Security — пароли;

• Table Language — язык таблицы (языковой драйвер);

• Table Lookup — таблица выбора;

• Dependent Tables — подчиненные таблицы.

После выбора какого-либо пункта этого списка в правой части окна опреде ления структуры таблицы появляются соответствующие элементы, с помо щью которых выполняются дальнейшие действия.

Состав данного списка зависит от формата таблицы. Так, для таблицы dBase он содержит только пункты Indexes (Индексы) и Table Language (Язык таблицы).

8.5.2. Задание индексов Задание индекса сводится к определению:

• состава полей;

• имени.

П параметров;

182 Delphi. Быстрый старт Эти элементы устанавливаются или изменяются при выполнении операций создания, изменения и удаления индекса.

Для выполнения операций, связанных с заданием индексов, необходимо выбрать пункт Secondary Indexes (Вторичные индексы) комбинированного списка, при этом под списком появляются кнопки Define (Определить) и Modify (Изменить), список индексов и кнопка Erase (Удалить). В списке индексов выводятся имена созданных индексов, на рис. 8.9 это индекс ind Name.

Напомним, что для таблиц Paradox индекс также называют вторичным ин дексом.

Создание нового индекса начинается с нажатия кнопки Define (Опреде лить), являющейся всегда доступной. Это приводит к появлению окна De fine Secondary Index (Задание вторичного индекса), в котором задаются со став полей и параметры индекса (рис. 8.10).

Define Secondary Index Fields: i d x d fields:

n ee Cdoe arly a Bt D y rh a i ill C a g older •,1 ' j hn e _ и i mill i n -'• •* • Index o p t i o n s — Г Case sensitive, f ~ U n i q u e Г" Descending, P" Mainlained OK Cancel Help Рис. 8.10. Окно задания индекса В списке Fields (Поля) окна выводятся имена всех полей таблицы, включая и те, которые нельзя включать в состав индекса, например, графическое поле или поле комментария. В списке Indexed Fields (Индексные поля) со держатся поля, которые включаются в состав создаваемого индекса. Пере мещение полей между списками выполняется выделением нужного поля (полей) и нажатием расположенных между списками кнопок с изображе нием горизонтальных стрелок. Имена полей, которые нельзя включать в состав индекса, выделяются в левом списке серым цветом. Поле не мо жет быть повторно включено в состав индекса, если оно уже выбрано и находится в правом списке.

Часть II. Работа с базами данных Замечание При работе с записями индексные поля обрабатываются в порядке следования этих полей в составе индекса. Это нужно учитывать при указании порядка по лей в индексе.

Изменить порядок следования полей в индексе можно с помощью кнопок с изображением вертикальных стрелок, имеющих общее название Change or der (Изменение порядка). Для перемещения поля (полей) необходимо его (их) выделить и нажать нужную кнопку.

Переключатели, расположенные в нижней части окна задания индекса, по зволяют указать следующие параметры индекса:

• Unique — индекс требует для составляющих его полей уникальных значений;

• Maintained — если таблица открыта, индекс автоматически не модифицируется;

П Case sensitive — для полей строкового типа учитывается регистр сим волов;

• Descending — сортировка выполняется в порядке убывания значений.

Так как для таблиц dBase нет ключей, то для них использование параметра Unique (Уникальный) является единственной возможностью обеспечить уникальность записей на физическом уровне (уровне организации таблицы), не прибегая к программированию.

После задания состава индексных полей и нажатия кнопки ОК появля ется окно Save Index As (Сохранить индекс как), в котором указывается имя индекса (рис. 8.11). Для удобства обращения к индексу в его имя можно включить имена полей, указав какой-нибудь префикс, например ind. Нежелательно образовывать имя индекса только из имен полей, так как для таблиц Paradox подобная система именования используется при автоматическом образовании имен для обозначения ссылочной целост ности между таблицами. После повторного нажатия ОК сформирован ный индекс добавляется к таблице, и его имя появляется в списке ин дексов.

(Save Index As HI Jndeji rams.

,j d a e i Nml n |". OK | ' C n e ] acl Hl | ep Рис. 8. 1 1. Задание имени индекса 184 Delphi. Быстрый старт Созданный индекс можно изменить, определив новый состав полей, пара метров и имени индекса. Изменение индекса не отличается от процесса его создания. После выделении индекса в списке и нажатия кнопки Modify (Изменить) снова открывается окно задания индекйа (см. рис. 8.10). При нажатии кнопки ОК появляется окно сохранения индекса (рис. 8.11), со держащее имя изменяемого индекса, которое можно исправить или оставить прежним.

Для удаления индекса его нужно выделить в списке индексов и нажать кнопку Erase (Удалить). В результате индекс удаляется без предупреждаю щих сообщений.

Кнопки Modify (Изменить) и Erase (Удалить) доступны, только если индекс выбран в списке.

8.5.3. Задание ограничений на значения полей Задание ограничений на значения полей заключается в указании для полей:

• требования обязательного ввода значения;

• минимального значения;

О максимального значения;

• значения по умолчанию;

П маски ввода.

( Замечание ^ Установленные ограничения задаются на физическом уровне (уровне таблицы) и действуют для любых программ, выполняющих операции с таблицей: как для систем типа Database Desktop, так и для приложений, создаваемых в Delphi.

Дополнительно к этим ограничениям или вместо них в приложении можно так же задать программные ограничения.

Для выполнения операций, связанных с заданием ограничений на значения полей, нужно выбрать пункт Validity Checks (Проверка значений) комбини рованного списка Table properties (Свойства таблицы) (см. рис. 8.9).

8.5.4. Задание ссылочной целостности Понятие ссылочной целостности относится к связанным таблицам и прояв ляется в следующих вариантах взаимодействия таблиц:

О запрещается изменение поля связи или удаление записи главной табли цы, если для нее имеются записи в подчиненной таблице;

• при удалении записи в главной таблице автоматически удаляются соот ветствующие ей записи в подчиненной таблице (каскадное удаление).

Часть II. Работа с базами данных Для выполнения операций, связанных с заданием ссылочной целостности, необходимо выбрать пункт Referential Integrity (Справочная целостность) комбинированного списка Table properties (Свойства таблицы) (см. рис. 8.9).

8.5.5. Задание паролей Пароль позволяет задать права доступа пользователей (приложений) к таб лице. Если для таблицы задать пароль, то он будет автоматически запраши ваться при каждой попытке открытия таблицы.

( Замечание Пароль действует на физическом уровне и его действие распространяется на все программы, выполняющие доступ к таблице: как на программы типа Data base Desktop, так и на создаваемые приложения Delphi.

Для выполнения операций, связанных с заданием пароля, нужно выбрать стро ку Password Security (Защита паролем) в комбинированном списке Table proper ties (Свойства таблицы) окна определения структуры таблицы (см. рис. 8.9).

8.5.6. Задание языкового драйвера Для задания языкового драйвера нужно выбрать пункт Table Language (Язык таблицы) комбинированного списка Table properties (Свойства таблицы) ок на определения структуры таблицы (см. рис. 8.9).

8.5.7. Изменение структуры таблицы Структуру существующей таблицы можно изменить, выполнив команду Ta ble | Restructure (Таблица | Изменение структуры) после предварительного выбора таблицы в окне программы Database Desktop. В результате открыва ется окно определения структуры таблицы, и дальнейшие действия не отли чаются от действий, выполняемых при создании таблицы.

Замечание При изменении структуры таблицы с ней не должны работать другие приложе ния, в том числе Delphi. Поэтому предварительно необходимо закрыть Delphi или приложение, в котором компоненты Table связаны с перестраиваемой таблицей. Другим вариантом является отключение активности компонентов Table, связанных с перестраиваемой таблицей, для чего свойству A c t i v e этих компонентов через Инспектор объектов устанавливается значение False.

Переименование таблицы следует выполнять из среды программы Database Desktop, а не из среды Windows, например, с помощью Проводника. Для этого при работе со структурой таблицы можно нажать кнопку Save as... (Сохранить как) и указать новое имя таблицы. В результате в указанном каталоге диска появятся все необходимые файлы таблицы. При этом старая таблица также сохраняется. Информация о названии таблицы используется внутри ее фай Delphi. Быстрый старт лов, поэтому простое переименование всех файлов таблицы приведет к ошиб ке при попытке обратиться к таблице.

Если необходимо просто ознакомиться со структурой таблицы, то выполняется команда Table | Into Structure (Таблица | Структура). В результате появляется окно определения структуры таблицы, но элементы, с помощью которых в структуру таблицы могут быть внесены изменения, заблокированы. Просмотр структуры возможен также для таблицы, с которой связаны другие приложения.

8.5.8. Работа с псевдонимами Для работы с псевдонимами БД можно использовать инструментальное средство Alias Manager (Менеджер псевдонимов) (рис. 8.12), вызываемый по команде Tools | Alias Manager (Сервис | Менеджер псевдонимов) меню про граммы Database Desktop.

[Alias M n g r aae |7 P bc a a u l Os i D t b s i n t c re ty in u e aa ae s o ur nl s.

D t b s alias: I aa ae Diivertype;

( T N A D JJ SA D R I" So p bj ai s s o l hw u ls la e n y P t : | A 0 KDE 4 P ' ah D B 0 _ \ X M L Г Show pioigct aliases only f Show at aliases i. •• 'firowse...

OK Cne | acl fiemove Hl ep Рис. 8. 1 2. Окно Менеджера псевдонимов С помощью Менеджера псевдонимов можно создавать (кнопка New) и уда лять (кнопка Remove) псевдонимы. Имя псевдонима вводится (для нового) или выбирается (для существующего) в списке Database alias (Псевдонимы БД). Кроме того, можно изменять параметры псевдонимов: тип драйвера (список Driver type) и путь (поле Path). Путь можно ввести вручную или вы брать в окне просмотра каталогов, вызываемом нажатием кнопки Browse (Обзор).

Информация о псевдонимах сохраняется в конфигурационном файле idapi.cfg процессора баз данных.

Часть II. Работа с базами данных 8.6. Создание приложения Для примера рассмотрим создание приложения, позволяющего перемещать ся по записям таблицы БД, просматривать и редактировать поля, удалять записи из таблицы, а также вставлять новые. Файл проекта приложения обычно не требует от разработчика выполнения каких-либо действий. По этому при создании приложения главной задачей является конструирование форм, в простейшем случае — одной формы.

Вид формы приложения на этапе проектирования показан на рис. 8.13, где на форме размещены КОМПОНеНТЫ T a b l e l, DataSourcel, DBGridl И DBNavigatorl.

I W Приложение без кода НИН j D R S _ ':

A D E S1 | LAST_NAMES CYT I • Davis J n ie en rf 1 2 4 51 0 Danbeiiji S. : W l s y 039.0 t elee Jones Aithui 2906 1 H n e e t 045 0 u n w l S L s At s o lo 1 Parker D ba er 1 0 3 5 7 S uh S Ah ro 299 4 o t t t et n ;

ae Dv 3 9 0 5 1 1 O k n S L s lo 0 4 9 0 aa d t o At s l S we a yr 1"* • Рис. 8.13. Форма приложения для работы с БД Компонент Tablel обеспечивает взаимодействие с таблицей БД. Для связи с требуемой таблицей нужно установить соответствующее значение свойст вам DataBaseName, указывающему Путь К БД, И TableName, указывающему имя таблицы. После задания таблицы для открытия набора данных свойству Active должно быть установлено значение True.

с Замечание Значение True свойству A c t i v e нужно устанавливать после задания таблицы БД, то есть после установки нужных значений свойств DataBaseName и TableName.

Имя таблицы лучше выбирать из раскрывающегося списка в поле значения свойства TableName. Если путь к БД (СВОЙСТВО DataBaseName) задан пра вильно, то в этом списке отображаются главные файлы всех доступных таблиц.

В рассматриваемом приложении использована таблица клиентов, входящая в состав поставляемых с Delphi примеров, ее главный файл — clients.dbf.

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

7 3ак. 64!

188 Delphi. Быстрый старт Компонент DataSourcel является промежуточным звеном между компонен том таЫе 1, соединенным с реальной таблицей БД, и визуальными компо нентами DBGridl и DBNavigatorl, с помощью которых пользователь взаи модействует с этой таблицей. На компонент Tabiel, с которым связан компонент DataSourcel, указывает свойство DataSet последнего.

Компонент DBGridl отображает содержимое таблицы БД в виде сетки, в которой столбцы соответствуют полям, а строки — записям таблицы. По умолчанию пользователь может просматривать и редактировать данные.

Компонент DBNavigatorl позволяет пользователю осуществлять перемеще ние по таблице, редактировать, вставлять и удалять записи. Компоненты DBGridl и DBNavigatorl связываются со своим источником данных — ком понентом DataSourcel — через свойства DataSource.

Взаимосвязь компонентов приложения и таблицы БД и используемые при этом свойства компонентов показаны на рис. 8.14.

DataSource DBGridl • DataBaseName TableName Client.dbf •1 Tabiel DataSourcel DataSource DBNavigatorl Active Таблица Форма приложения БД Рис. 8.14. Взаимосвязь компонентов приложения и таблицы БД При разработке приложения значения всех свойств компонентов можно за дать с помощью Инспектора объектов. При этом требуемые значения можно набрать в поле значений или выбрать из раскрывающихся списков. В по следнем случае приложение создается с помощью мыши и не требует набо ра каких-либо символов с клавиатуры. В табл. 8.2 приведены компоненты, используемые для работы с таблицей БД, основные свойства и их значения.

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

Для автоматизации процесса создания формы, использующей компоненты для операций с БД, можно вызвать Database Form Wizard (Мастер форм баз данных). Этот Мастер расположен на странице Business Хранилища объектов.

Мастер позволяет создавать формы для работы с отдельной таблицей, а так же со связанными таблицами, при этом можно использовать наборы данных Table И И Query.

Л Часть II. Работа базами данных с Таблица 8.2. Значения свойств компонентов Свойства Значения Компонент Tablel DataBaseName dbdemos TableName clients.dbf Active true DataSourcel DataSet Tablel DBGridl DataSource DataSourcel DBNavigatorl DataSource DataSourcel Глава Компоненты для работы с данными 9.1. Компоненты доступа к данным Компоненты доступа к данным являются невизуальными. В этом разделе рассматриваются основные компоненты доступа к данным.

9.1.1. Наборы данных Таблицы БД располагаются на диске и являются физическими объектами.

Для операций с данными, содержащимися в таблицах, используются наборы данных. В терминах системы Delphi набор данных представляет собой сово купность записей, взятых из одной или нескольких таблиц БД. Записи, вхо дящие в набор данных, отбираются по определенным правилам, при этом в частных случаях набор данных может включать в себя все записи из связан ной с ним таблицы или не содержать ни одной записи. Набор данных яв ляется логической таблицей, с которой можно работать при выполнении приложения. Взаимодействие таблицы и набора данных напоминает взаи модействие физического файла и файловой переменной.

Замечание В отличие от Delphi, многие СУБД вместо термина набор данных используют термины выборка или таблица.

В Delphi для работы с наборами данных служат такие компоненты, как T a b l e И Query, КОТОрые ЯВЛЯЮТСЯ ПРОИЗВОДНЫМИ ОТ Класса TDBDataSet — потомка класса TDataSet (через класс TBDEDataSet). Они имеют схожие с базовыми классами характеристики и поведение, но каждый из них имеет Часть II. Работа с базами данных Ю1_ и свои особенности. Рассмотрим наиболее общие характеристики наборов данных.

Расположение БД, с таблицами которой выполняются операции, указывает свойство DatabaseName типа string. Значением свойства является имя ката лога, в котором находится БД (файлы ее таблиц), или псевдоним, ссылаю щийся на этот каталог. Если для БД определен псевдоним (alias), то его можно выбрать через Инспектор объектов в раскрывающемся списке.

Замечание;

Желательно задавать имя БД через псевдоним. Это заметно облегчает пере нос приложения и файлов БД в другие каталоги и на другие компьютеры, так как для обеспечения работоспособности приложения после изменения распо ложения БД достаточно изменить название каталога, на который ссылается псевдоним БД. Псевдоним можно создать с помощью программ Database Desktop или BDE Administrator.

Для компонента Table использование свойства DatabaseName является един ственной возможностью задать местонахождение таблиц БД. Для компонен та Query дополнительно можно указать в запросе SQL путь доступа к каж дой таблице.

Замечание При задании расположения БД программным способом набор данных предва рительно необходимо закрыть, установив его свойству A c t i v e значение False. В противном случае генерируется исключительная ситуация.

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

Число записей, составляющих набор данных, определяет свойство RecordCount типа Longint. Это свойство доступно для чтения при выпол нении приложения. Управление числом записей в наборе данных осуществ ляется косвенно — путем отбора записей тем или иным способом, напри мер, с помощью фильтрации или SQL-запроса (для компонента Query).

Пример. Перебор всех записей набора данных.

var i: integer;

Tablel.First;

for i := 1 to Tablel.RecordCount do begin // Здесь можно расположить операторы, выполняющие // обработку очередной записи Tablel.Next;

end;

192 Delphi. Быстрый старт Перебор всех записей набора данных осуществляется в цикле, для чего пе ременная i цикла последовательно принимает значения от 1 до RecordCount. Перед началом цикла вызовом метода F i r s t выполняется пе реход к первой записи набора данных. В цикле для перехода к следующей записи вызывается метод Next.

Для локальных таблиц dBase или Paradox составляющие набор данных запи си последовательно нумеруются, начиная с единицы. Номер записи в наборе данных определяет свойство RecNo типа Longint, которое доступно во время выполнения программы.

Номер текущей записи можно узнать, например, так:

Editl.Text := IntToStr(Tablel.RecNo);

Замечание При изменении порядка сортировки или фильтрации нумерация записей также изменяется.

Для таблиц Paradox свойство RecNo можно использовать для перехода к тре буемой записи, установив в качестве значения свойства номер записи.

Пример. Переход к записи с указанным номером.

Tablel.RecNo := StrToInt(Editl.Text);

Здесь выполняется переход к записи, номер которой содержится в поле ре дактирования Editl. Эта запись становится текущей.

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

П навигационный;

• реляционный.

Навигационный способ доступа заключается в обработке каждой отдельной записи набора данных. Этот способ обычно используется в локальных БД или в удаленных БД небольшого размера. При навигационном способе дос тупа каждый набор данных имеет невидимый указатель текущей записи.

Указатель определяет запись, с которой могут выполняться такие операции, как редактирование или удаление. Поля текущей записи доступны для про смотра. Например, компоненты DBEdit и DBText отображают содержимое соответствующих полей именно текущей записи. Компонент DBGrid указы вает текущую запись с помощью специального маркера.

В разрабатываемом приложении навигационный способ доступа к данным МОЖНО р е а л и з о в а т ь, ИСПОЛЬЗУЯ ЛЮбоЙ ИЗ КОМПОНеНТОВ T a b l e ИЛИ Query.

Реляционный способ доступа основан на обработке группы записей. Если требуется обработать одну запись, все равно обрабатывается группа, Часть II. Работа с базами данных состоящая из одной записи. При реляционном способе доступа исполь зуются SQL-запросы, поэтому его называют также SQL ориентированным. Реляционный способ доступа ориентирован на работу с удаленными БД и является для них предпочтительным. Однако его можно использовать и для локальных БД.

9.1.2. Состояния наборов данных Наборы данных могут находиться в открытом или закрытом состояниях, на что указывает свойство Active типа Boolean. Если свойству Active уста новлено значение True, то набор данных открыт. Открытый компонент Table содержит набор данных, соответствующий данным таблицы, связан ной с ним через свойство TableName. Для открытого компонента Query на бор данных соответствует результатам выполнения SQL-запроса, содержащегося в свойстве SQL этого компонента. Если свойство Active имеет значение False (по умолчанию), то набор данных закрыт, и его связь с БД разорвана.

Набор данных может быть открыт на этапе разработки приложения. Если при этом к набору данных через источник данных DataSource подключены визуальные компоненты, например, DBGrid или DBEdit, то они отображают соответствующие данные таблицы БД.

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

Если по каким-либо причинам открытие набора данных невозможно, то при попытке установить свойству Active значение True выдается сообщение об ошибке, а свойство Active сохраняет значение False. Одной из причин не возможности открытия набора данных может быть неправильное значение СВОЙСТВ TableName ИЛИ SQL.

Замечание На этапе проектирования свойству A c t i v e наборов данных автоматически ус танавливается значение False при изменении значения свойств DataBaseName, TableName или SQL.

Пример. Управление состоянием набора данных.

Рассмотрим управление состоянием набора данных с помощью свойства Active, которое используется для открытия и закрытия набора данных Queryl.

procedure TForml.ButtonlClick(Sender: TObject);

194 Delphi. Быстрый старт begin Queryl.Active := false;

Queryl.SQL.Clear;

Queryl.SQL.Add("select * from Examplel.db');

Queryl.Active := true;

end;

Управлять состоянием набора данных можно также с помощью методов Open И Close.

Процедура Open открывает набор данных, ее вызов эквивалентен установке свойству Active значения True. Процедура close закрывает набор данных, ее вызов эквивалентен установке свойству Active значения False.

При открытии набора данных любым способом возникают события BeforeOpen И AfterOpen ТИПа TDataSetNotifyEvent, Который описывается следующим образом:

type TDataSetNotifyEvent = procedure(DataSet: TDataSet) of object;

В этом описании параметр DataSet определяет набор данных, для которого произошло событие.

При Закрытии Набора ДаННЫХ ВОЗНИКаЮТ СОбыТИЯ BeforeClose И AfterClose типа TDataSetNotifyEvent.

Отметим, что закрытие набора данных автоматически не сохраняет текущую запись, т. е. если набор данных при закрытии находился в режимах редак тирования или вставки, то произведенные изменения данных в текущей за писи будут потеряны. Поэтому перед закрытием набора данных необходимо проверять его режим и при необходимости принудительно вызывать метод Post, сохраняющий сделанные изменения. Одним из вариантов сохранения изменений является вызов метода post в обработчике события BeforeClose, возникающего непосредственно перед закрытием набора данных.

Пример. Сохранение изменений при закрытии набора данных.

procedure TForml.TablelBeforeClose(DataSet: TDataSet);

begin if (Tablel.State = dsEdit) or (Tablel.State = dslnsert) then Tablel.Post;

end;

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

Замечание При закрытии приложения событие BeforeClose не генерируется, и несохра ненные изменения теряются.

Часть II. Работа с базами данных 9.1.3. Режимы наборов данных Наборы данных могут находиться в различных режимах. Текущий режим набора данных определяется свойством s t a t e типа TDataSetstate, которое доступно для чтения во время выполнения приложения. Для перевода набора данных в требуемый режим используются специальные методы. Они могут вызываться явно (указанием имени метода) или косвенно (путем управления соответствующими визуальными компонентами, например, навигатором DBNavigator И И сеткой DBGrid).

Л Выделим следующие основные режимы набора данных.

• dsinactive — неактивность;

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

П dsBrowse — осуществляется навигация по записям набора данных и просмотр данных. В этот режим набор данных переходит следующим образом:

• из режима dsinactive — при установке свойству Active значения True;

ИЗ режима dsEdit — При ВЫЗОВе методов P o s t И И Cancel;

Л • ИЗ режима d s l n s e r t — при ВЫЗОВе Методов P o s t И И C a n c e l.

Л • • dsEdit — редактирование текущей записи. В этот режим набор данных переходит из режима dsBrowse при вызове метода Edit.

• dsinsert — вставка новой записи. В данный режим набор данных пере ходит ИЗ режима dsBrowse при вызове методов Insert, InsertRecord, Append И И AppendRecord.

Л • dsCalcFields — расчет вычисляемых полей. Используется обработчик события OnCalcFields.

• dsSetKey — поиск записи, удовлетворяющей заданному критерию. В этот режим набор данных переходит из режима dsBrowse при вызове методов SetKey, SetRangeXXX, FindKey, GotoKey, FindNearest ИЛИ GotoNearest. Возможен только для компонента ттаЫе, так как для ком понента Query отбор записей осуществляется средствами языка SQL.

• d s F i i t e r — фильтрация записей. В этот режим набор данных автоматически переходит из режима dsBrowse каждый раз, когда выполняется обработчик события onFiiterRecord. В режиме блокируются все попытки изменения за писей. После завершения работы обработчика события OnFiiterRecord на бор данных автоматически переводится в режим dsBrowse.

Delphi. Быстрый старт Взаимосвязи между основными режимами наборов данных показаны на рис. 9.1, где приведены также некоторые методы и свойства, с помощью которых набор данных переходит из одного режима в другой.

Post, Cancel StRangeXXX EditRandeXXX + Рис. 9. 1. Взаимосвязи режимов наборов данных Иногда при описании операций, выполняемых с записями набора данных, под режимом редактирования подразумевается не только режим dsEdit из менения полей текущей записи, но и режим dsinsert вставки новой запи си. Тем самым режим редактирования понимается в широком смысле слова как режим модификации набора данных.

При выполнении программы определить режим набора данных можно с помощью одноименных свойств s t a t e типа TDataSetstate самого набора данных и связанного с ним источника данных DataSource. При изменении режима набора данных для источника данных DataSource генерируется со бытие OnStateChange типа TNotifyEvent.

Пример. Анализ режима набора данных.

procedure TForml.DataSourcelStateChange(Sender: TObject);

begin case DataSourcel.State of dslnactive: Labell.Caption := 'Набор данных закрыт';

dsBrowse: Labell.Caption := 'Просмотр набора данных';

dsEdit: Labell.Caption := 'Редактирование набора данных';

dsinsert: Labell.Caption := 'Вставка записи в набор данных' Часть II. Работа с базами данных else Label1.Caption := Режим набора данных не определен';

end;

end;

Здесь определяется режим набора данных, связанного с источником данных Datasourcei, и информация об этом режиме выводится в надписи Labeii.

При этом используется свойство s t a t e источника данных. Код, выполняю щий анализ режима, помещен в обработчик события onstateChange компо нента DataSourcel.

9.1.4. Доступ к полям Каждое поле набора данных представляет собой отдельный столбец, для ра боты с которым в Delphi служат объект Field типа TFieid и объекты произ водных ОТ него ТИПОВ, например, TIntegerField, TFloatField И И Л TStringFieid. Для доступа к этим объектам и, соответственно, к полям за писей набор данных имеет соответствующие методы и свойства, доступные при выполнении приложения.

Для доступа к полям удобно использовать метод FieidByName. Функция FindField(const FieldName: String): TFieid Возвращает ДЛЯ набора дан ных поле, имя которого указывает параметр FieldName. Если заданное па раметром FieldName поле не найдено, то генерируется исключительная си туация.

С Замечание ^ Имя поля, определяемое параметром FieldName, является именем физиче ского поля таблицы БД, заданным при создании таблицы, а не именем (свойст вом Name) объекта F i e l d, которое создано для этого поля.

Для набора данных Query имя FieldName физического поля можно переоп ределить в тексте SQL-запроса.

Метод FieidByName часто используется для доступа к значению поля теку щей записи совместно с такими свойствами объекта Field, как AsString, Asinteger, AsFioat или AsBooiean, которые соответственно позволяют об ращаться к значению поля как к строковому, целочисленному, веществен ному или логическому значению.

Пример. Чтение содержимого полей текущей записи.

Var x: integer;

Label1.Caption := Tablel.FieidByName('Name').AsString;

x := Tablel.FieidByName('Number').Asinteger;

198 Delphi. Быстрый старт Здесь строковое значение поля Name отображается в надписи Labeii, а пе ременной х присваивается целочисленное значение поля Number. Если же поле Number содержит значение, которое нельзя интерпретировать как целое число, то генерируется исключительная ситуация.

9.1.5. Особенности набора данных Table Компонент Table представляет собой набор данных, который в некоторый момент времени может быть связан только с одной таблицей БД. Этот на бор данных формируется на основе навигационного способа доступа к дан ным, поэтому компонент Table рекомендуется использовать для локальных БД, таких как dBase или Paradox. При работе с удаленными БД следует ис пользовать компонент Query.

Связь между таблицей и компонентом Table устанавливается через его свойство TabieName типа TFiieName, которое задает имя таблицы (и имя файла с данными таблицы). При задании значения свойству TabieName ука зываются имя файла и расширение имени файла.

На этапе разработки приложения имена всех таблиц доступны в раскры вающемся списке Инспектора объектов. В этот список попадают табли цы, файлы которых расположены в каталоге, указанном свойством DatabaseName.

Замечание При смене имени таблицы на этапе проектирования приложения свойству A c t i v e набора данных автоматически устанавливается значение False. При задании имени таблицы программным способом набор данных предварительно необходимо закрыть, установив его свойству A c t i v e значение False. В про тивном случае генерируется исключительная ситуация.

Пример. Задание имени таблицы БД.

procedure TForml.ButtonlClick(Sender: TObject) ;

begin if OpenDialogl.Execute then begin Tablel.Active := false;

Tablel.TabieName := OpenDialogl.FileName;

Tablel.Active := true;

end;

end;

Здесь нажатие кнопки Buttoni приводит к появлению диалогового окна выбора имени файла. При выборе файла таблицы его имя устанавливается в качест ве значения свойства TabieName. Набор данных Tablel предварительно Часть II, Работа с базами данных закрывается и снова открывается уже после смены таблицы. Тип таблицы определяется автоматически по расширению имени файла.

Свойство ТаЫеТуре типа TTtabieType определяет тип таблицы. Для локаль ных таблиц это свойство может принимать следующие значения:

П ttDefauit — тип таблицы автоматически определяется по расширению файла;

• ttParadox — таблица Paradox ;

• ttDBase — таблица dBASE;

• ttFoxPro — таблица FoxPro;

• ttASCii — текстовый файл, содержащий данные в табличном виде (ASCII-таблица).

Если свойство таЫеТуре имеет значение ttDefauit (по умолчанию), то тип таблицы определяется по расширению файла:

• DB или отсутствует — таблица Paradox;

• DBF — таблица dBASE;

• TXT — текстовый файл (ASCII-таблица).

По умолчанию в состав набора данных Table попадают все записи связан ной с ним таблицы. Для отбора записей, удовлетворяющих определенным условиям, используются фильтры.

Чтобы запретить пользователям изменять содержание записей, можно ис пользовать свойство Readonly типа Boolean. По умолчанию оно имеет значение False, что предоставляет пользователю право на модификацию записей.

В наборе данных Table возможно указание текущего индекса, требуемого для выполнения операций:

• сортировки записей;

• поиска записей;

• установки связей между таблицами.

Текущий индекс устанавливается с помощью свойства indexName или indexFieidNames типа string. На этапе разработки приложения текущий индекс выбирается из списка индексов, заданных при создании таблицы.

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

Значением свойства indexName является имя индекса, заданное при созда нии таблицы, а значением свойства indexFieidNames является имя поля, для которого был создан индекс. Если используется индекс, состоящий из не скольких полей, то для свойства indexName по-прежнему задается имя этого 200 Delphi. Быстрый старт индекса, а для свойства IndexFieidNames через точку с запятой перечисля ются имена полей, входящие в этот индекс.

Пример. Задание текущего индекса.

Tablel. IndexNarne : = ' indName' ;

Table2.IndexFieidNames := 'Name';

Здесь компоненты Tablel и таЫе2 связаны с одной таблицей, для поля Name которой определен индекс indName. Этот индекс устанавливается в ка честве текущего для обоих наборов данных.

Для таблиц Paradox сделать текущим индексом ключ (главный индекс) можно только с помощью свойства indexFieidNames, перечислив ключевые поля таблицы, так как ключ не имеет имени и поэтому недоступен через СВОЙСТВО IndexName.

Задать ключ в качестве текущего индекса можно так:

Tablel.IndexFieidNames := 'Name;

Post;

BirthDay';

Для таблицы Paradox, с которой связан компонент Tablel, определен ключ, в который входят поля Name, Post и BirthDay. Этот ключ устанавливается в качестве текущего индекса таблицы.

С Замечание ^ Свойства IndexName и IndexFieidNames взаимозависимы. При установке значения одного из них другое автоматически очищается.

Индекс, устанавливаемый текущим, должен существовать. Если индекс, зада ваемый как значение свойства IndexName или IndexFieidNames, для табли цы не существует, то возникает исключительная ситуация.

При смене таблицы, с которой ассоциирован компонент Table, значения свойств IndexName и IndexFieidNames не изменяются автоматически, по этому программист должен самостоятельно установить нужные значения.

Получить доступ к полям в составе текущего индекса можно с помощью С О С В IndexFieldCount И IndexFields.

ВЙТ 9.1.6. Особенности набора данных Query Компонент Query представляет собой набор данных, записи которого фор мируются в результате выполнения SQL-запроса и основаны на реляцион ном способе доступа к данным. В отличие от компонента Table, набор дан ных Query может включать в себя записи более чем одной таблицы БД.

Текст запроса, на основании которого в набор данных отбираются записи, содержится в свойстве SQL типа TStrings. Запрос включает в себя команды Часть II. Работа с базами данных на языке SQL и выполняется при открытии набора данных. Запрос SQL иногда называют SQL-программой.

При формировании запроса на этапе разработки приложения можно ис пользовать текстовый редактор (рис. 9.2), вызываемый через Инспектор объектов двойным щелчком в области значения свойства SQL.

(string Ls Editor it г 1<пез 1-|. = ТГ * FROM ^ersonnel TZ'-P, BY P Name Cd e io.. I e e dt r. „Cancel Help Рис. 9.2. Редактирование запроса SQL SQL-запрос также можно формировать и изменять динамически, внося из менения в его текст (значение свойства SQL компонента Query), непосред ственно при выполнении приложения.

с Замечание В процессе формирования SQL-запроса проверка его правильности не произ водится, и если в запросе имеются ошибки, то они выявляются только при от крытии набора данных. Одним из вариантов предотвращения ошибок в SQL запросе является его предварительная отладка, например, с помощью про граммы Database Desktop.

Пример. Создадим приложение — простейший редактор, позволяющий под готавливать и выполнять SQL-запросы.

На рис. 9.3 показана форма приложения при его выполнении. Кроме визу альных компонентов, форма содержит два компонента доступа к данным Queryl и DataSourcel, которые при выполнении приложения не видны.

Редактирование SQL-запроса осуществляется с помощью компонента Memol.

Набранный запрос выполняется при нажатии кнопки Buttoni с надписью Выполнить, а результат выполнения отображается в компоненте DBGridi.

202 Delphi. Быстрый старт \Ш Редактор SQL-запросов Результат выполнения SQL-запросе P_Coda |P_Nome IP.Birthday IP^Poaitipn [P^Salaiy JPJsltj ^ 1 Иванов И.Л. 19.10,1962 Директор 6 700.00р.

1 Кузнецов Ф.Е. 27.01.1980 Водитель :2 400.00р.

2 Семенов П.P. 12.051977 Менеджер | 4 500.00р.

3 Сидоров В А 03111973 Менеджер 4 ЗОО.ООр SQL-запрос SELECT * FROM Personnel?

ORDER BYP Name [[Выполнить] Р и с. 9. 3. Форма приложения-редактора SQL-запросов При наличии в тексте SQL-запроса ошибки генерируется исключительная ситуация и выдается сообщение об ошибке (рис. 9.4), а результат запроса оказывается не определенным. При этом набор данных Queryl автоматиче ски закрывается.

Invalid ue o k y od s f ew r.

Tknb oe : y L e Nm e: i u br.

n Р и с. 9. 4. Сообщение об ошибке Значения СВОЙСТВ DataSet ИСТОЧНИКОВ данных DataSourcel И DataSource сетки DBGridl, с помощью которых организуется взаимодействие компонен тов Queryl, DataSourcel и DBGridl, устанавливаются при создании формы.

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

Приведем код модуля uSQLEdit формы Formi приложения:

unit uSQLEdit;

Pages:     | 1 | 2 || 4 | 5 |



© 2011 www.dissers.ru - «Бесплатная электронная библиотека»

Материалы этого сайта размещены для ознакомления, все права принадлежат их авторам.
Если Вы не согласны с тем, что Ваш материал размещён на этом сайте, пожалуйста, напишите нам, мы в течении 1-2 рабочих дней удалим его.