Использование графических операций

Использование графических операций.
Класс Tcanvas
Многие компоненты имеют свойство Canvas (TForm, TImage).
Canvas – это область, в которую можно выводить различные графические
изображения.
Свойство Canvas предоставляет возможность управлять областью рисунка во
время работы приложения.
Свойства:
 Font - шрифт;
 Pen – задает тип карандаша, используемого для рисования
линий и границ фигур;
 Brush – кисть. Позволяет задать цвет и шаблон заполнения.
Методы:
 MoveTo(x,y) – перемещение точки в позицию (x,y);
 LineTo(x,y) – рисование линии из текущего положения
курсора в точку (х,у);
 Line(x1,y1,x2,y2) – проведение линии от точки (x1,y1) в
точку (x2,y2);
 TextHeight(‘00’) – возвращает высоту (в пикселах)
указанной строки с учетом текущего шрифта;
 TextWidth(‘00’) – ширина указанной строки с учетом
текущего шрифта;
 TextOut(x,y,’Текст’) – вывод строки с координаты (x,y).
Примеры:
1) Пунктирная красная линия на форме:
With Form1.Canvas do
Begin
Pen.Style:=psDot; //пунктир
Pen.Width:=4; //толщина линии
Pen.Color:=clRed; //цвет линии
MoveTo(100,200);
LineTo(150,80);
End;
2) Закрашенный прямоугольник красного цвета:
With Form1.Canvas do
Begin
Brush.Style:=bsDiagCross;
Rectangle(125,180,90,68); //прямоугольник
Font.Color:=clRed;
Font.Size:=20;
TextOut(130,140,’Test’);
End;
3) Вывести таблицу на форме:
В OnClick кнопки:
Var i,Y,h: Integer;
S: Integer;
Begin
Y:=10;
Canas.Font.Size:=12;
S:=’Test №1’;
Canvas.TextOut(10,Y,S) ;
//рисуем вертикальную линию
Canvas.MoveTo(Canvas.TextWidht(st’00’),Y);
Canvas.LineTo(Canvas.TextWidth(S+’00’)), Height – Y);
h:=Round(Canvas.TextHeight(‘0’)*1,2);
Y:=Y+h;
//рисуем горизонтальную линию
Canvas.MoveTo(10,Y);
Canvas.LineTo(Width-10, Y);
//Вывод цифр
For i:=1 to 10 do
Begin
Y:=Y+h;
Canvas.TextOut(10, Y, IntToStr(i));
End;
End.
Использование принтера
Для использования принтера создан специальный класс TPrinter в модуле
Printers.
Свойства:
Все свойства доступны только во время работы приложения.
 Canvas – область страницы, в которую выводится
информация.
 PageNumber – номер текущей страницы. Значение этого
свойства увеличивается автоматически на 1 при каждом
вызове метода NewPage.
Методы:
 NewPage – переход на следующий лист бумаги
(PageNumber:=PageNumber+1).
 BeginDoc – посылает информацию на принтер, но печать не
начинается.
 EndDoc – завершает работу с принтером и начинается
печать этого метода.
Пример:
Вывести на принтер таблицу (как в примере 3)
Var i,Y,h: Integer;
S: Integer;
Begin
Printer.Orientation:=poPortrait;
//расположение на
горизонтально //
листе:
portrait
–
вертикально,
LandScape
Printer.Title:=’Проба’ //заголовок в очереди на печать
Printer.BeginDoc;
With Printer do
Begin
Y:=10;
Canas.Font.Size:=12;
S:=’Тест №1’;
Canvas.TextOut(10,Y,S) ;
//вертикальная линия
Canvas.MoveTo(Canvas.TextWidht(st’00’),Y);
Canvas.LineTo(Canvas.TextWidth(S+’00’)), PageHeight – Y);
//горизонтальная линия
Canvas.MoveTo(10,Y);
Canvas.LineTo(PageWidth-10, Y);
//Вывод цифр
For i:=1 to 10 do
Begin
Y:=Y+h;
Canvas.TextOut(10, Y, IntToStr(i));
End;
End;
Printer.EndDoc;
End.
–
Закладки (Win32)
1) TTabControl – набор закладок.
Используется для представления одноименных данных. Пример – картотека.
Текст метки всегда может изменяться при изменении закладки (но на все закладках
метка одна).
Свойства:
 Tab: TString – набор названий закладок;
 TabWidth – ширина закладок;
 TabHeight – высота закладок (если эти свойства равны
нулю, то высота и ширина закладок зависят от заголовка
закладки);
 TabPosition – местоположение закладок:
o tpTop
o tpBottom
o tpLeft
o tpRight
 TabIndex – содержит индекс выбранной закладки
(нумерация с нуля);
 MultiLine: Boolean. Если MultiLine=true, то закладки могут
располагаться в несколько рядов; если MultiLine=false, то в –
один ряд (может быть скроллер).
Методы:
 Tabs.Add; – добавить;
 Tabs.Delete; – удалить.
Пример:
В OnCreate формы:
Var i: Integer;
Begin
For i:=1 to 5 do
TabControl1.Tabs.Add(IntToStr(i));
End.
События:
 OnChanging – возникает перед выбором закладки (с
помощью этого события можно запретить, например, выбор
закладки. Для этого AllowChange := False);
 OnChange – возникает после выбора закладки
Пример:
В метку выводить дату и время
В TabControl1.Change
Case TabControl1.TabIndex of
0: Label1.Caption:= DateToStr(Date);
1: Label1.Caption:= TimeToStr(Time);
end;
2) TPageControl – набор страниц с закладками.
Отличие от предыдущего:
Может содержать не одну, а несколько страниц, каждая из которых
может включать свой набор компонентов. (Добавить страницу – правой
кнопкой мыши – NewPage; Удалить страницу – выделить страницу, а не
компонент, нажать Delete; Размещение компонентов: если выделить весь
компонент и поместить двойным щелчком, например, кнопку, то этот
компонент окажется на всех страницах).
Свойства:




TabWidth – ширина закладок;
TabHeght – высота закладок;
TabPosition – местоположение закладок;
MultiLine. Если MultiLine=true, то закладки могут
располагаться в несколько рядов; если MultiLine=false, то в –
один ряд (может быть скроллер).;
 ActivePage – содержит ссылку на активную страницу;
 PageCount – количество страниц;
 Pages[Index] – возвращает ссылку на страницу по ее
индексу.
Методы:
 Function FindNextPage(CurPage: TTAbSheet; GoForward,
CheckTabVisible: Boolean) – ищет следующую страницу,
где CurPage – текущая страница; GoFoward – если «истина»,
то поиск идет от первой к последней странице, если «ложь»–
наоборот, CheckTabVisible – если «истина», то из поиска
исключаются все «невидимые» страницы. Эта функция
возвращает номер следующей страницы.
3) THeaderControl – управляющий заголовок. Многоколоночный заголовок
с регулируемыми размерами секций.
Пример:
Error!
Секция 1 Секция 2
Edit
Memo
Секция 3
Button
БАЗЫ ДАННЫХ
Применение Delphi для разработки программ,
предназначенных для создания и обслуживания баз данных.
База Данных (БД) – электронное хранилище информации, доступ к которому
может осуществляться с одного или нескольких компьютеров.
СУБД – система управления БД – это программное средство,
предназначенное для создания, наполнения, редактирования и удаления БД.
СУБД по расположению различают:
1) Локальные – все части СУБД расположены на компьютере пользователя;
2) Распределенные (клиент-серверные СУБД) – большая часть программноаппаратных средств централизована и расположена на мощном сервере,
остальная небольшая часть (клиенты) расположена на компьютерах
пользователей, которые могут быть удалены на значительное расстояние,
но рассматриваются как единое целое.
Единицей БД является таблица, у которой строки – записи и столбцы – поля.
БД, не хранящаяся в виде таблиц, между которыми существует связи, является
реляционными.
В реляционной БД таблицы нормализованы.
Достоинство нормализации:
Уменьшение избыточности, что ведет к экономии памяти носителей
информации.
Недостатки нормализации:
 При больших объемах данных создается очень много таблиц, т.е.
сложно проследить взаимосвязи (уменьшатся видимость);
 При одном запросе в БД может потребоваться поиск по нескольким
таблицам, что ведет к снижению скорости.
Таблицы взаимодействуют по правилу: «ГЛАВНАЯ – ПОДЧИНЕННАЯ».
(master)
(detail)
Мы будем работать с СУБД Paradox 7.0 (Для каждой таблицы индексы и
memo-поля создают отдельный файл).
№№
ФИО
№ группы Дата Рождения
1 Васильев
П-25
10.02.84
2
Потапов
П-21
15.03.83
3
Иванов
П-23
16.07.85
Основные понятия
Ключи и индексы
Primary Key – первичный ключ – одно или группа полей, которые
однозначно идентифицируют каждую запись.
Требования:
 уникальность значения;
 таблицы всегда отсортированы по первичному ключу (по
умолчанию).
Наиболее простой способ создания первичного ключа – создать
дополнительное поле типа «autoincrement (+)» (внутренний счетчик) – нет
повторений с удаленными записями.
Внешний ключ – столбец одной таблицы, значение которого совпадает со
значением первичного ключа другой таблицы (для связи таблиц).
Вторичные ключи – Secondary Indexes – создаются при необходимости
поиска и сортировки данных. Вторичные ключи создаются по тем полям, которые
часто участвуют в поиске и сортировке. Уникальность значения не требуется.
По всем полям, по которым построены ключи, СУБД автоматически строит
физические индексы – специальный механизм, обеспечивающий быстрый доступ к
элементам.
Сущность индексов:
Они хранят отсортированные по возрастанию значения индексных
полей и указатели на записи в таблице. Каждый индекс хранится в
отдельном файле.
Почему не индексируют все поля таблицы?
 потому что резко увеличивается объем БД (создается много лишних
файлов);
 при модификации таблицы система автоматически обновит все свои
физические индексы, что увеличивает затраты времени.
Индекс по полю ФИО:
№ ФИО
Указатель на запись
1 Васильев 1
3 Потапов 2
2 Иванов
3
Индексы по номеру группы:
№ № группы Указатель на запись
1 П-21
2
2 П-25
1
3 П-23
3
На построение индексов первый раз может уйти много времени (в
зависимости от объема БД), но это только первый раз. Зато для поиска по этим
индексированным полям можно применять быстрые методы поиска.
Вторичные индексы могут строиться и по нескольким полям. Например,
построим индекс по группе и ФИО (порядок включения полей в индекс важен!)
Индекс по группе и ФИО (in Group FIO):
№
№ группы
ФИО
1
П-21
Потапов
2
П-25
Васильев
3
П-23
Иванов
Указатель на запись
2
1
3
Создание таблицы
1) Запустить утилиту DataBase Desktop (DBD). Она предназначена для
создания, редактирования, просмотра таблиц (через Пуск или Tools);
2) Установить рабочую директорию, где будет храниться БД (В DBD:
File/Working Directory) или псевдоним;
3) File/New Table (формат Paradox 7.0);
4) Создание полей;
В начале всегда указывают первичный ключ.
Требования к имени поля:
 не более 25 символов;
 имя поля не может начинаться с пробела;
 внутри может быть пробел;
 нельзя использовать: (, ), [, ], {, }, ,  , #.
Некоторые типы:
 Alpha – строка [1..255];
 Integer, хотя в списке его нет;
 Number – числовое поле с плавающей точкой длиной 8 байт
(положительные и отрицательные числа);
 Short – [-32768..+32767] – 2 байта;
 Memo – > 255 символов; 1 – 240 символов хранятся в БД, а остальные в
Memo-файлах с расширением *.mb (для примечаний).
5) После задания имени, типа, задать первичный ключ (*);
6) Определение дополнительных свойств таблицы:
- установка необходимых параметров:
Validity Checks - проверка правильности (относится
только к конкретному полю);
Referential Integrity – ссылочная целостность таблицы
(для построения внешних ключей);
Secondary Indexes – построение вторичных ключей.
-включение и выключение
заполнения поля;
- минимальное значение;
- максимальное значение;
- значение поля по умолчанию;
- шаблон изображения поля.
обязательного
Назначение опций в окне создания вторичного ключа:
 Unique – создание уникального ключа;
 Maintained – индекс обновляется автоматически в момент открытия
таблицы;
 Case Sensitive – учет регистра;
 Ascending – сортировка значений индексных полей по возрастанию;
 Descending – сортировка значений индексных полей по убыванию.
7) Сохранить таблицу (Save).
Редактировать и заполнять данные можно двумя способами:
1) Используя DBD:
 Открыть таблицу Table\Open;
 Table\Edit Data – перейти в режим редактирования (просмотр – View
Data)
2) В работающем приложении. Данные автоматически сохраняются.
Некоторые средства Delphi для создания
и использования приложений для работы с БД
Просмотр структуры БД:
DBD; Restructure – изменять (только в режиме Table.Active = False или
Table.Close, т.е. только при закрытом наборе данных)
Просматривать Info Restructure – в любом режиме.
BDE – Borland database Engine – машина БД, представляющая собой набор
DLL – библиотек, обеспечивающих низкоуровневый доступ к локальным и клиентсерверным БД. BDE не является частью программы, а является связующим звеном
между БД и программой. BDE должна быть установлена на каждом компьютере,
который использует приложения, работающие с БД, написанные на Delphi. BDE
позволяет работать с различными форматами данных. Начиная с Delphi 5.0
появились новые технологии, позволяющие работать без ИВУ – ADO, InterBase
Express, у них есть свои плюсы и минусы.
Схема взаимодействия БД с программой:
БД
1)
2)
3)
BDE
Программа
BDE Administrator – это утилита для установки псевдонимов (имен) БД, а
также параметров на конкретном компьютере;
Data Base Desktop (DBD) – средство для создания, редактирования,
хранения, просмотра таблиц БД для локальной БД;
SQL Explorer – эта утилита включает многие функции BDE Administrator и
DBD: просмотр и создание псевдонимов, просмотр структуры и
содержимого БД, но не создание; формирование запросов с БД, используя
язык SQL;
4)
5)
Невизуальные компоненты для работы с БД: закладка Data Access –
служит для связи приложения с таблицами БД, для формирования запросов
и для другой работы с данными.
(имеют общего предка)
 Ttable
Эти компоненты обеспечивают
 TQuery
связь и работу с БД
 TDataSource – обеспечивает связь между визуальными и
невизуальными компонентами при работе с БД.
Визуальные компоненты для работы с БД: закладка Data Controls:
 TDbGrid позволяет целиком увидеть всю таблицу;
 TDbText – метка;
 TDbEdit – для вывода записей и полей БД, можно привязаться к
конкретному полю БД.
- локальная архитектура:
База Данных
BDE
Невизуальный
компонент
-
DataBaseName – путь (или псевдоним) до БД
TableName – имя таблицы;
TDataSourse
DataSet:= Table1;
Визуальные
компоненты
DataSource – номер компонента TDataSource;
- клиент – серверная архитектура:
Сервер
БД
Сервер БД
BDE
BDE
BDE
Программа
Программа
Программа
клиент
клиент
клиент
Создание приложения
1) Поместить на форму компоненты TTable,
(следовательно Table1, DataSource1, DbGrid1);
2) Table1.DataBaseName:=’путь до базы’;
Table1.TableName:=’имя таблицы’;
3) DataSource1.DataSet:=Table1;
4) DbGrid1.DataSource:=DataSource1;
5) Table1.Active:=True;
{Table1.Open}
TDataSource,
TDbGrid
Создание псевдонимов
Псевдоним Alias содержит информацию для обеспечения доступа к БД.
В paradox 7.0 – это путь до БД.
1) Путь\Delphi\BDE Administrator
2) В Object\New
3) Database Driver Name
Выбираем «STANDARD» и нажимаем ОК
4)
В PATH выбираем путь до каталога с БД.
4) Изменить имя «STANDARD1» на имя псевдонима БД (например, MyBase).
5) Object\Applay.
Объединение таблиц
Table Group
G_N G_Name
№
Группа
1
2
3
4
П-21
П-22
П-23
П-24
Table Stud
St_N FIO
№
ФИО
1
Потапов
2
Васильев
3
Андреев
Kol_Std
Количество
Ball
Балл
28
26
30
25
1,5
1,7
1,2
1,8
Number
N
1
2
1
KS1
КС1
1
1,5
1,7
KS2
КС2
1,3
1,2
2
Задача: Соединить две таблицы по группе.
Построение внешнего ключа:
Внешний ключ строится у подчиненной таблицы:
Table Properties \ Referential Integrity
Нажимаем ОК, далее всплывает следующее окошко, где задаем имя и
сохраняем.
Нажимаем ОК. После этого становятся активными кнопки «Erase» и «Modify», с
помощью которых мы можем соответственно удалить или модифицировать
внешний ключ.
Далее – сохранить ключ (SAVE) – во время этого главная таблица должна
быть закрыта.
Автоматически после построения внешнего ключа система строит вторичный
ключ по полю внешнего ключа (чтобы посмотреть: Properties / Secondary Indexes).
Создание приложения
1) Поместить на форму компоненты: TTable (2), TDataSource (2), TDbGrid (2);
2) Установить все связи БД для открытия таблицы;
3) Объединить таблицы в приложении
Объединение таблиц в приложении
Свойства TTable:
 MasterSource: TDataSource – содержит источник главной
таблицы, т.е. определяет имя главной таблицы в связи
«главный - подчиненный»;
tbTableMasterSource:=dsGroup;
 MasterFields: String – поле главной таблицы, по которому
построен внешний ключ
Num_Grp
NumGrp  G_N
G_N
В Available Indexes хранятся все существующие индексы подчиненной
таблицы. Тут надо выбрать поле, по которому выбран внешний ключ (NumGrp). В
итоге в поле MasterFields: G_N.
Работа с визуальными компонентами
У всех визуальных компонентов 2 свойства (закладка TControls), которые
всегда лучше устанавливать:
 DataSource;
 DataFields.
Создание объектов столбцов у компонента dbGrid:
Это нужно для того, чтобы работать отдельно с каждым полем.
1) Вызвать редактор столбцов:
 через инспектор объектов Columns;
 правой кнопкой на компоненте Column Editor;
2) Add – добавляет пустой дополнительный столбец, не связанный ни с каким
полем. Чтобы связать с каким-либо полем используем свойство FieldName;
3) AddAllFields – все столбцы становятся объектами.
Формирование списка возможных значений объекта столбца:
1) Вызвать редактор, выделить нужный столбец;
2) Свойство PickList – заполнить списком значений;
3) Установить свойство Button Style = cbsAuto (при работе приложения в
момент редактирования полей выбранного столбца-объекта в него
автоматически будут помещаться ComboBox со списком, набранным нами).
Как перенести свое приложение на другой компьютер?!
Наша база в папке BASE и там же Project.exe;
В OnCreate формы:
Var S: String;
Begin
If Table1.Active then
Table1.Active:= False;
S:=ExtractFilePath(Application.Exename)+’Base’;
Table1.DataBaseName:=S;
Table1.Active:=True;
End.
Работа с TTable
1) Обращение к полю – Value (as String, as Integer, as Boolean). В этом случае
тип данных и тип поля должны строго совпадать.
Запись в поле:
 Table1.Fields[1].asString:=…
 Table1.FieldByName(‘FIO’).Value:=…
 Table1FIO.asString:=… (у компонента Table есть редактор полей, и
каждое поле можно сделать отдельным объектом, и в этом случае
имя объекта = сам компонент + имя поля)
 Table1.[‘FIO’]:=…
2) Перемещение по таблице
 Table1.First, Table1.Next, Table1.Prior, Table1.Last – перемещение на
соответствующую позицию
 Table1.MoveBy(N) – перемещение через N записей
 Движение записей:
Table1.First;
While not Table1.EOF do
Begin
…
Table1.Next;
End;
3) Добавление записи из Edit1:
Table1.Insert; - режим вставки
Table1.Fields[1].asString:=Edit1.Text;
…
Table1.Post; – сохранить редактирование
Table1.Cancel; – отменить редактирование
4) Удаление записи:
Table1.Delete – удаляет все записи поля и устанавливает курсор на
следующую запись
5) Редактирование записей
Table1.Edit – таблица в режиме редактирования
Редактирование текущего значения выделенного поля:
Table1.Fields[dbGrid1.SelectedFields.Field№-1].asString:=Edit1.text;
Table1.Post;
6) Программный доступ к записям без использования видимых компонентов:
Table1.Open; – открыт набор данных
If not Table1.IsEmpty then
While not Table1.EOF do
Begin
…
Table1.Next;
End;
Table1.Close;
7) Создание вычисляемого поля
1. Компоненты TTable. В редакторе полей:
New Fields;
Add Fields – для создания полей объектов;
2. В окне необходимо заполнить:
Name KSSr (например, средний контрольный срок)
Type ◘ Calculated
Таблица tbStd:
St_Num
G_Num
1
4
FIO
Андреев
KS1
1.5
KS2
2
KSSr
3. TTable → onCalcFields;
Пример:
Var KS1,KS2:integer;
Code:integer; S:String;
Begin
Val(tbStd KS1.asString, KS1, Code); //если «0» – число перевелось
If (Code <> 0) then KS1:=0;
Val(tbStd KS2.asString, KS2, Code);
If Code <> 0 then KS2:=0;
Str((KS1+KS2)/2 :2:2, S);
//перевод обратно в строку
tbStd KSSr.asString:=S;
End;
Пример:
S_Num
1
G_Num
4
F (фамилия)
I (имя)
O (отчество)
FIO
Создание виртуального поля «FIO» - аналогично:
Ttable → onCalcFields:
tbStd FIO.asString:=tbStd F.asString+’ ’+tbStd I.asString+’ ’+tbStd O.asString;
8) Поиск данных
1. Поиск методом перебора
Пример: Поиск фамилии по имени (имя – в Edit):
Table1.First;
While (not Table1.EOF) and (Table1.Name <> Edit1.Text) do Table1.Next;
2. Поиск по заданному шаблону. Точный поиск.
Table1.IndexName:=’inName’; – должен быть построен индекс inName. Поиск
по отсортированному набору данных.
Вариант1: Table1.Setkey; – переход в режиме поиска данных dsSetKey.
Table1[‘Name’]:=Edit1.Text; – установка шаблона поиска
Table1.Gotokey; – осуществляет поиск и переводит курсор на
найденную запись. Если запись не найдена – ничего не происходит и курсор
остаётся на прежней позиции.
Вариант2: Table1.Findkey([Edit1.Text]); – находит запись, удовлетворяющую
критерию поиска и делает ее текущей. Поиск ведется по полю, по которому
построен вторичный ключ, находящийся в свойстве находящийся в свойстве
IndexName в данный момент.
3. Поиск наилучшего совпадения
Вариант1: Table1.IndexName:=’inName’;
Table1.Setkey;
Table1[‘Name’]:=Edit1.Text;
Table1.GotoNearest;
Вариант2: Table1.FindNearest([Edit1.Text]);
4. Поиск в группе по составному индексу.
Таблица tbGrp:
N
G_Name
KolStd
Таблица tbStd:
Num
NumGrp
FIO
NumGrp→N
Пример: Поиск студентов в указанной группе
Edit1
Точный поиск:
Edit1 → onKeyUp:
tbStd.IndexName:=’inGrpStd’; – внешний ключ, включающий два поля
 группа (главное)
 студенты
tbStd.Findkey([tbGrpN.asInteger, Edit1.Text]); – на первом месте указывается
поле, входящее во внешний ключ-поле главной таблицы (в данном случае – поле N).
Неточный поиск:
tbStd.IndexName:=’inGrpStd’;
tbStd.FindNearest([tbGrp.asInteger, Edit1.Text]);
5. Метод Locate
Function Locate(const KeyFields:String; const KeyValues:Variant;
Options:TLocateOptions):Boolean;
Выдает:
True – если запись, удовлетворяющая критерию поиска, найдена. Данная
функция делает её текущей.
False – если запись не найдена; курсор остаётся на прежнем месте.
KeyFields – имена поисковых полей. Если их несколько, то поля разделяются «;»
KeyValues – значение полей;
Options : loCaseInsensitive; - без учёта регистров;
loPartialkey; - неточный поиск (поиск наилучшего совпадения);
[ ] - если не первый и не второй;
Locate позволяет искать поле по неотсортированным полям. Но если поле, по
которому осуществляется поиск, отсортировано, то Locate применяет быстрые
методы поиска, следовательно, время поиска сокращается.
Пример:
Table1.Locate(‘Name’, Edit1.Text,[ ]);
Метод LookUp
Находит запись, удовлетворяющую условиям поиска, но не делает её текущей, а
возвращает значения некоторых её полей.
Поиск только на точное совпадение.
Function LookUp(const KeyFields:String; const KeyValues:Variant;
const ResultFields:String):Variant;
ResultFields - перечисляет все поля, значение которых мы хотим получить.
Пример:
Edit1
поиск
Label:
KS1:
KS2:
В onClick Поиск:
Var LookUpResult:Variant;
Begin
LookUpResult:=Table1.LookUp(‘Name’, Edit.Text, ‘KS1;KS2’);
If VarType(LookUpResult)=VarNull then ShowMessage(‘не найдено’);
Else
Begin
Label1.Caption:=LookUpResult[0];
Label2.Caption:=LookUpResult[1];
End;
End;
Фильтрация записей
N
1
2
3
4
FIO
Васильев
Вербицкий
Давыдов
Потапов
Data
◘ CheckBox1
3
KS2
NumGroup
1
3
3
2
CheckBox2
Edit1
N группы
KS1
Edit2
Фамилия
4
CheckBox4
Фильтрация по заданному значению текущего индекса
В CheckBox1Click:
Var NumGrp:Integer;
Begin
If Edit1.Text=’ ’ then exit;
If CheckBox1.Checked then
Begin
NumGrp:=StrToInt(Edit1.Text);
tbStd.CancelRange;
tbStd.SetRange([NumGrp], [NubGrp]);
End
Else tbStd.CancelRange;
End;
SetRange(const StartValues, EndValues:Array of const) - показывает только те записи,
индексные поля которых лежат в диапазоне от StartValues до EndValues.
CancelRange - отменяет все предыдущие условия фильтрации.
Для работы обработчика свойство IndexName должно быть равно индексу,
построенному по тому полю, по которому начнётся фильтрация.
В данном примере:
IndexName:=’NumGroup’; – NumGroup - это имя вторичного индекса по полю
NumGroup
Фильтрация записей по заданному диапазону
значений текущего индекса
IndexName:=’NumGroup’;
В CheckBox2Click:
Var NumGrp1, NumGrp2:Integer;
Begin
If Edit1.Text=’ ’ then exit;
If CheckBox2.Checked then
Begin
NumGrp1:=StrToInt(Edit1.Text);
NumGrp2:=StrToInt(Edit2.Text);
tbStd.CancelRange;
tbStd.SetRange([NumGrp1], [NumGrp2]);
End;
Else tbStd.CancelRange;
//CheckBox1 не установлен
End;
Если IndexName перед фильтрацией не установлен, то по умолчанию – фильтр по
первичному ключу.
Сортировка. Выбор режима фильтрации для кнопки CheckBox3.
RadioGroup1Click:
Case RadioGroup1.ItemIndex of
//сортировка только одной несвязанной таблицы
0: tbStd.IndexName:=’inFio’;
1: tbStd.IndexName:=’NumGroup’;
End;
Если две таблицы («Group» – главная, «Stud» - подчинённая) и нужно
отсортировать студентов только третьей группы:
При наличие двух таблиц: чтобы сортировать студентов текущей группы (той, на
которой стоит указатель в таблице «Group»), нужно построить составной вторичный
индекс по двум полям у таблицы «Stud»:
1–ое поле – NumGroup
2-ое поле – FIO
RadioGroup1Click:
Case RadioGroup1.ItemIndex of
0: tbStd.IndexName:=’inGrpFio’;
1: tbStd.IndexName:=’NumGroup’;
End;
CheckBox3Click:
Var NumGrp:Integer;
f1,f2:String;
Begin
If CheckBox3.Checked then
Begin
If RadioGroup1.ItemIndex=1 then
Begin
NumGrp:=StrToInt(Edit1.Text);
NumGrp2:=StrToInt(Edit2.Text);
tbStd.SetRange([NumGrp1], [NumGrp2]);
End
Else
Begin
f1:=Edit1.Text;
f2:=Edit2.Text;
tbStd.SetRange([f1], [f2]);
End;
End
Else
tbStd.CancelRange;
End;
Выбор режима фильтрации
RadioGroup1.Click
в
CheckBox3.Click
использует
Фильтрация по составному индексу
◘ CheckBox4
CheckBox4Click:
Var NumGrp:Integer;
f:String;
Begin
tbStd.IndexName:=’inGrpFIO’;
if CheckBox4.Checked then
Begin
NumGrp:=StrToInt(Edit3.Text);
1
случай.
f:=Edit4.Text;
tbStd.CancelRange; // вывод записей из данной группы с фамилиями на
заданную букву
tbStd.SetRange([NumGrp, f], [NumGrp, f+’ЯЯ’]);
End;
End;
Рассмотренный механизм фильтрации позволяет отфильтровать только те записи,
у которых значение ключевых полей находятся в заданном диапазоне.
Фильтрация по заданному критерию.
Ttable:
Filter – задает фильтрующее выражение
Filtered:Boolean – запрещает/разрешает фильтрование
◘ FilterOptions; – определяет условие фильтрации
fo CaseInseSitive – учитывать регистр
fo NoPartialCompare – поиск по большему соответствию образцу
Пример: Вывести все записи со студентами третьей группы, у которых KS1>1.5
Свойства:
1. Filter: (KS1>1.5) and (NumGroup=3)
2. Filtered=True
tbStd.Filter:=Edit1.Text;
tbStd.Filtered:=CheckBox1.Checked; – фильтровать или нет; должен быть отмечен
галочкой.
Событие OnFilterRecord
Событие OnFilterRecord возникает при установке значения True в свойстве Filtered.
Procedure TForm1.tbStdFilteredRecord(Data Set:TDataSet; Var Accept:Boolean;);
Begin
Accept:=(DataSet[‘KS1’]>1.5) and (DataSet[‘KS1’]<=1.8);
End;
DataSet – имя фильтруемого набора данных
Accept =True – если текущая запись удовлетворяет условиям фильтрации.
Работа с компонентом TQuery.
Переходы в режимы изменения данных: вставка и т.д.
Совместное использование Ttable и TQuery.
TDB DataSet:
TTable
TQuery
Общие свойства:
- Active;
- EOF, BOF;
- DataBaseName;
- AutoCalcFields;
- FieldCount:integer -количество полей в наборе данных;
- Fields;
- Filter, Filtered, FilterOptions;
- RecNo:longint - номер текущей записи (только для чтения);
- RecordCount:longint - количество записей в текущем наборе данных;
- State - состояние набора данных;
Общие методы:
- Close;
- Cancel;
- ClearFields - очистка всех полей текущей записи;
- Delete;
- Insert;
- Edit;
- First, Next и др.;
- FieldByName;
- LookUp;
- Locate;
- Open;
- MoveBy;
- FindFields(var FileName:string) - ищет поле и, если оно найдено, возвращает
ссылку на это поле. Если поле не найдено, то
значение Null;
Схема работы Delphi–Приложения с базой данных (БД)
через компоненты TTable и TQuery.
(свойство DataSet)
TDataSource
↕
визуальные компоненты для работы с БД
TDBGrid
Пример:
Приложение 1
Таблица Stud:
DBGrid1
FIO
Data
Степанов
23.04.04
Ступин
19.12.04
Бондарь
03.07.05
N
1
2
3
KS1
DataSource1
KS2
NumGrp
Button:
Group
Form2
- нажали.
Stud
После этого в
GrpStd
объектов:
Table1: DataBaseName:=
TableName:=Stud.db;
Active:=False;
инспекторе
Query1: DataBaseName:=
SQL - пусто;
Active:=False;
DataSource: DataSet - пусто;
DBGrid1: DataSource:=DataSource1;
 В OnClick кнопки Group:
Query1.Close; – сначала закрываем набор данных
Query1.SQL.Clear; – очищаем свойство SQL
Query1.SQL.Add(‘Select * from Group’);
Query1.Open; – выполнение запроса
 Для кнопки Stud изменяется только:
Query1.SQL.Add(‘Select * from Stud’);
 Для кнопки GrpStd изменяется только:
Query1.SQL.Add(‘Select FIO, KolStd from Stud, Group’);
 Общий обработчик для всех кнопок:
Begin
Form1.Table1.Close;
Form1.DataSource1.DataSet:=Query1; //вывод в качестве набора данных
TQuery
If (Sender as TButton)=ButGroup then tag:=1; //ButGroup - имя кнопки Group
If (Sender as TButton)=ButStd then tag:=2;
//ButStd - имя кнопки Stud
If (Sender as TButton)=ButGrpStd then tag:=3; //ButGrpStd - имя кнопки GrpStd
With Query1 do
Begin
Close;
SQL.Clear;
Case tag of
1: SQL.Add(‘Select * from Group’);
2: SQL.Add(‘Select * from Stud’);
3: SQL.Add(‘Select FIO, KolStd from Stud, Group’);
End;
Open;
End;
Существует два способа выполнения запроса:
1. Метод Query1.Open. Для запросов типа Select применяется Open (возвращает
набор данных)
2. Метод Query1.ExecSQL. Для всех остальных видов запросов (Insert, UpDate,
Create и т.д.) используется ExecSQL.
Также запросы можно считывать из файла:
Query1.SQL.LoadFromFile(OpenDialog1.FileName);*.sql
Устанавливаем ширину столбцов:
 dbGrid1.Columns[n].Width:=m; - где n – номер столбца, m – задаваемая ширина
n-го столбца
 В OnClick кнопки Add:
Begin
DataSource1.DataSet:=Table1;
Table1.Open;
Case RadioGroup1.ItemIndex of
0: Table1.Insert;
1: Table1.Append; //добавляет запись в конец таблицы
End;
Ctrl+Del - удаление любой записи из таблицы
Form2 - Form2.Show; //(в OnClick)
В метке – имя поля, в dbEdit1 – значение поля (при выделении поля на Form1)
 В onActivate Form2:
Var S:String;
Begin
DBEdit1.DataSource:=Form1.DataSource1;
S:=Form1.DBGrid.Columns[Form1.DBGrid1.SelectedField.FieldNo-1].Title.Caption;
//Title - работа с заголовком
DBEdit1.DataField:=S; //DataField только связывает компоненты с указанным
//полем данных
Label1.Caption:=S;
End;
DBEdit1.DataField:=’FIO’; - не зависимо от того, на каком поле таблицы мы
кликнули в dbEdit1, выдаётся значение поля FIO текущей записи
Query1.Text - содержит текст запроса (только для чтения)
Edit1.Text:=Form1.Query1.Text;
Если на Form1 нажата Group, затем Form2, то в Edit1 на Form2 появится запрос:
Select * from Group;
//Edit1.Text:=Form1.Query1.FieldByName(‘FIO’).asString; - выдаётся значение
поля FIO текущей записи, НО ТОЛЬКО при наступлении события onActivate
Form2.
Добавим на Form2 кнопку Info и создадим Form3.
На Form3:
Form3
TPanel
TStringGrid
TButton
→
→
Form3.Close;
 В OnClick Info:
Var j:Integer;
Begin
For j:=0 to 5 do
StringGrid1.Cells[j,0]:=Form1.dbGrid1.Columns[j].Field.asString;
Пример 2:
Navigator1: DataSource:=Form1.DataSource;
ShowHint=True;
Unit1:
В Список Click:
If Edit1.Text=’ ’ then
Begin
ShowMessage(‘Ввести дату’);
ActiveControl:=Edit1;
Exit;
End;
Form2.Show;
Unit2:
В Form2.Activate:
Label1.Caption:=Form1.Edit1.Text; //связываем Query с dbGrid:
Form1.DataSource1.DataSet:=Form1.Query1;
dbGrid1.DataSource:=Form1.DataSource1;
with Form1.Query1 do
Begin
Close;
SQL.Clear;
SQL.Add(‘Select FIO, Data from Stud where Data>=:p’);
//в таблице Stud предварительно было добавлено поле «Data» типа Data
Params[0].AsDate:=StrToDate(From1.Edit1.Text); //или (Label1.Caption)
//при работе с параметрами нужно использовать явное преобразование типов, т.е.
свойства asXXXX
Open;
End;
dbGrid1.Columns[0].Width:=120;
dbGrid1.Columns[0].Title.Caption:=’Фамилия’;
dbGrid1.Columns[0].Title.Color:=clRed;
Insert Click:
If Not(Form1.Query1.RequestLive) then
Begin
Form1.Query1.Active:=False;
Form1.Query1.RequestLive:=True;
Form1.Query1.Active:=True;
End;
Form1.Query1.Insert;
Запрос с параметром
Select * from Stud where KS1>:p1 and KS2<=:p2;
Вариант1:
Params[0].asString:=’1.5’;
Params[1].asString:=’2’;
Вариант2:
ParamByName(‘p1’).asString:=’1.5’;
ParamByName(‘p2’).asString:=’2’;
Объединение таблиц, т.е. создание подчинённой связи
Таблица Stud – подчинённая таблица
Query2: DataSource:=DataSource1;
SQL:Select * from Stud where
NumGrp=:NumGrp; //имя параметра (NumGrp) должно быть таким же, как имя поля
главной таблицы, по которому осуществляется связь
TQuery и Параметры
Delphi позволяет составить “гибкую” форму запроса, называемую параметризованным
запросом. Такие запросы позволяют подставить значение переменной вместо отдельных слов в
выражениях “where” или “insert”. Эта переменная может быть изменена практически в любое
время. (Если используется локальный SQL, то можно сделать замену почти любого слова в
утверждении SQL, но при этом та же самая возможность не поддерживается большинством
серверов.)
select * from Stud where FIO like :Name
Двоеточие сообщает Delphi о необходимости заменить переменную NameStr некоторой
величиной, которая будет известна позже.
Cлово Namer выбрано абсолютно случайно. Использовать можно любое допустимое имя
переменной.
Есть два пути присвоить значение переменной в параметризованном запросе SQL. Один способ
состоит в том, чтобы использовать свойство Params объекта TQuery. Второй - использовать
свойство DataSource для получения информации из другого DataSet.
Вот ключевые свойства для достижения этих целей:
property Params[Index: Word];
function ParamByName(const Value: string);
property DataSource;
Если подставлять значение параметра в параметризованный запрос через свойство Params, то
обычно нужно сделать четыре шага:

Закрыть TQuery
 Подготовить объект TQuery, вызвав метод Prepare
Этот шаг выполняется в том случае, если данный текст запроса выполняется впервые, в
дальнейшем его можно опустить.

Присвоить необходимые значения свойству Params

Открыть TQuery
Вот фрагмент кода, показывающий как это может быть выполнено практически:
Query1.Close;
Query1.Prepare;
Query1.Params[0].AsString := ‘Ступин’;
Query1.Open;
Params - это индексированное свойство, которое имеет синтаксис как у свойства Fields для
TDataSet. Например, можно получить доступ к первой переменной в SQL запросе, адресуя
нулевой элемент в массиве Params:
Конечный результат (т.е. то, что выполнится на самом деле) - это следующее предложение SQL:
select * from Stud where FIO =‘Ступин’
Все, что произошло, это переменной :NameStr было присвоено значение "Аргентина" через
свойство Params..
Если в запросе содержится более одного параметра, то получить доступ к ним можно, изменяя
индекс у свойства Params
Например,
Select * from Stud where KS1>:p1 and KS2<=:p2;
Вариант1:
Query1.Params[0].asString:=’1.5’;
Query1.Params[1].asString:=’2’;
Вариант2:
Query1.ParamByName(‘p1’).asString:=’1.5’;
Query1.ParamByName(‘p2’).asString:=’2’;
Итак, параметризованные SQL запросы используют переменные, которые всегда начинаются с
двоеточия, определяя места, куда будут переданы значения параметров.
Прежде, чем использовать переменную Params, сначала можно вызвать Prepare. Этот вызов
заставляет Delphi разобрать ваш SQL запрос и подготовить свойство Params так, чтобы оно
"было готово принять” соответствующее количество переменных. Можно присвоить значение
переменной Params без предварительного вызова Prepare, но это будет работать несколько
медленнее.
Передача параметров через TDataSource
Речь пойдет о создании отношения однин-ко-многим между двумя таблицами с использованием
объекта TQuery. Этот способ более гибок, чем при использовании TTable, в том отношении, что
он не требует индексации по полям связи.
Объект TQuery имеет свойство DataSource, которое может использоваться для того, чтобы
создать связь с другим DataSet. Не имеет значения, является ли другой DataSet объектом TTable,
TQuery, или некоторым другим потомком TDataSet. Все что нужно для установления соединения это удостовериться, что у того DataSet есть связанный с ним DataSource.
Предположим, что Вы хотите создать связь между таблицами Group и Stud так, что каждый раз,
когда Вы просматриваете конкретную запись о группе, будут видны только студенты этой группы.
Рассмотрите следующий параметризованный запрос:
select * from Stud where NumGrp = :NumGrp
В этом запросе :NumGrp - связывающая переменная, которой должно быть присвоено значение
из некоторого источника. Delphi позволяет использовать поле TQuery.DataSource чтобы указать
другой DataSet, который предоставит эту информацию автоматически. Другими словами, вместо
того, чтобы использовать свойство Params и “вручную” присваивать значения переменной, эти
значения переменной могут быть просто взяты автоматически из другой таблицы. Кроме того,
Delphi всегда сначала пытается выполнить параметризованный запрос используя свойство
DataSource, и только потом (если не было найдено какое-то значение параметра) будет пытаться
получить значение переменной из свойства Params. При получении данных из DataSource
считается, что после двоеточия стоит имя поля из DataSource. При изменении текущей записи в
главном DataSet запрос будет автоматически пересчитываться.
Связывание двух таблиц. Создайте новый проект, положите на форму один набор TTable,
TDataSource и TDBGrid. Привяжите его к таблице Group. Положите на форму второй набор TQuery, TDataSource и TDBGrid и свяжите объекты между собой.
В свойстве SQL наберите текст запроса:
select * from Stud where NumGrp = :NumGrp
В свойстве DatabaseName для Query1 укажите путь
В свойстве DataSource для Query1 укажите DataSource1.
Поставьте Active = True и запустите программу.
Пример: Запрос с параметром. Работа с Датой. Режим Insert.
Создание списка допустимых значений, определённых с помощью
редактора полей при создании нового поля
1. Для формирования связи между таблицами необходимо вызвать редактор
полей (по правой кнопке Table) у подчиненной таблицы.
2. Необходимо вызвать контекстное меню (по правой кнопке) NewField
(команда). Появится окно.
Установить:
Field Properties
Name:Tovar1; //имя нового поля
Type:String; //выбрать тип
Size:15;
//размер строки
Field Type:
◘ LookUp
//будет поле выбора
LookUp Definition (раздел)
KeyFields - ключевое поле связи зависимой таблицы (подчинённой);
DataSet - имя таблицы источника допустимых значений;
LookUp Keys - ключевое поле связи исходной таблицы;
ResultField - имя поля из главной таблицы, которое используем для
выпадающей списка таблицы;