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

UptoLike

ВУЗ: 

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

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

Рубрика: 

искомого человека», а через сложное свойство Font изменим шрифт на
полужирный.
8.3.
Справа от компоненты Label1 поместим на форму со страницы
Standart компоненту Edit и увеличим ее горизонтальный размер на
оставшуюся часть формы (размер этой компоненты должен быть
достаточным для ввода фамилии с максимально возможной длиной).
Свойство Text этой компоненты сделаем пустым.
8.4.
Ниже, под компонентами Label1 и Edit1, приблизительно в центре
формы поместим две кнопки BitBtn со страницы Additional палитры
компонент. Активизируем первую кнопку и изменим следующие ее
свойства: Caption на ОК, Kind на bkOK, ModalResult на mrOK и Name
на OKBtn. В результате мы получим стандартную кнопку ОК. Теперь
активизируем вторую кнопку и изменим ее свойства следующим
образом: Caption на Отмена, Kind на bkCancel, ModalResult на mrCancel
и Name на CancelBtn, т.е. создадим стандартную кнопку Cancel.
8.5.
Добавим в проект еще одну новую форму. Сохраним ее в файле
Search7-1.pas. Зададим ее свойству Caption значение «Поиск по дате
рождения». Придадим форме вид, аналогичный виду формы Form3, со
следующими изменениями: свойство Caption компоненты Label1 будет
иметь значение «Введите дату рождения человека», и под ней будет
размещена еще одна компонента Label со свойством Caption равным
«дата вводится через точку».
8.6.
Установим связь формы Form1 с формами Form3 и Form4, дописав
имеющуюся в форме Form1, в секции
implementation
строку
следующим образом:
USES
MyUnitReport, Search7, Search7-1;
9.
Для обеспечения работы с пунктом По фамилии подменю Поиск
активизируем данный пункт меню и в появившемся обработчике события
OnClick введем следующие строки:
procedure
TForm1.Family1-ptClick (Sender: TObject);
begin
IF
Form3.ShowModal = mrCancel
THEN
Exit;
Form1.Table1.IndexName := ‘FamilyIndex’;
Form1.Table1.SetKey;
Form1.Table1.FieldByName(‘Family’).AsString := Form3.Edit1.Text;
Form1.Table1.GotoNearest;
end;
Данный код заставляет всплыть диалог поиска (Form3) в модальном режиме
(метод ShowModal). Данный режим предполагает, что все сообщения,
поступающие в программу в случае открытого модального окна,
обрабатываются только этим окном. Если пользователь выбирает кнопку ОК,
то осуществляется поиск введенной строки. Если же выбирается кнопка
Отмена, то происходит отказ от выбранного действия, т.е. выход из
подпрограммы. Далее устанавливается вторичный индекс по полю, в котором
будет происходить поиск. После этого таблица устанавливается в режим

Страницы