Проектирование баз данных в среде Delphi: Компьтерный методический материал к лабораторным работам. Блюдина Л.С. - 58 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

SetKey и потом таблице сообщается о поиске конкретной строки в поле
Family. В заключение вызывается GotoNearest и таблица подводится как
можно ближе к разыскиваемой записи, т.е. имеется возможность выполнять
частичные поиски, можно использовать неполное или неточное написание
фамилии.
10.
Для обеспечения работы с пунктом меню «По дате рождения»
необходимо проделать действия, аналогичные выполненным. Обработчик
события OnClick будет иметь следующий вид:
procedure
TForm1.Date-ptClick (Sender: TObject);
begin
IF
Form4.ShowModal = mrCancel
THEN
Exit;
Form1.Table1.IndexName := ‘BirthdayIndex’;
Form1.Table1.SetKey;
Form1.Table1.FieldByName(’Birthday’).AsString := Form4.Edit1.Text;
Form1.Table1.GotoNearest;
end;
11.
Активизируем теперь пункт меню По номеру подменю Сортировка и в
появившемся обработчике события OnClick введем следующие строки:
procedure
TForm1.Number-ptClick (Sender: TObject);
begin
Form1.Table1.IndexName := ‘Number’;
Form1.Table1.SetKey;
Form1.Table1.GotoNearest;
end;
12.
Определим действия, выполняемые пунктом меню По фамилии подменю
Сортировка, активизируя данный пункт меню и в появившемся обработчике
события OnClick запишем следующий код:
procedure
TForm1.Family2-ptClick (Sender: TObject);
begin
Form1.Table1.IndexName := ‘FamilyIndex’;
Form1.Table1.SetKey;
Form1.Table1.FieldByName(‘Family’).AsString := ‘A’;
Form1.Table1.GotoNearest;
end;
Во избежание возможности появления пустых записей в начале таблицы
после сортировки по фамилии производится поиск записи, поле Family
которой является ближайшим для согласования со строкой «A».
13.
Запустим программу командой Run|Run и убедимся в правильности
работы созданного меню.
14.
Закроем приложение либо кнопкой Выход, либо командой главного меню
Файл|Выход.
15.
Сохраним все изменения в проекте.

Страницы