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

UptoLike

ВУЗ: 

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

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

Рубрика: 

5.5.
Аналогичным образом создадим элемент меню Сортировка,
который включает в себя пункты По номеру (свойство Name –
Number_pt) и По фамилии (свойство Name – Family2_pt).
5.6. Закроем конструктор меню. Отметим, что на форме Form1 уже
отображено создаваемое меню, и следующим шагом будет обеспечение
работы всех пунктов данного меню.
6.
При выборе пункта меню Печать будет выводиться в режиме
предварительного просмотра отчет, созданный в лаб./раб. № 3, т.е. список
людей с имеющимися у них телефонами. Для того чтобы этот пункт меню
стал рабочим, необходимо выполнить следующие действия:
6.1.
Добавим в проект файл MyUnitReport2.pas из лаб./раб. № 3 и
сохраним его под именем MyUnitReport.pas. В тексте модуля формы
Form2 (форма с отчетом) изменим раздел объявления используемых
модулей в секции
implementation
USES
MyExUnitDB3;
на раздел
USES
MyExUnitDB7;
6.2.
В тексте модуля формы Form1 в секции
implementation
напишем
следующую строчку для связи данной формы с формой Form2:
USES
MyUnitReport;
6.3.
В форме Form1 активизируем пункт меню Печать и в появившемся
обработчике события OnClick введем оператор, задающий отображение
отчета в режиме предварительного просмотра:
procedure
TForm1.Print-ptClick (Sender: TObject);
begin
Form2.QuickRep1.Preview;
end;
7.
Для обеспечения работы пункта меню Выход выполним следующие
действия: активизируем данный пункт меню и в появившемся обработчике
события OnClick введем оператор, обеспечивающий завершение работы:
procedure
TForm1.Exit-ptClick (Sender: TObject);
begin
Close;
end;
8.
Для обеспечения поиска по фамилии и по дате рождения нам потребуется
еще два окна, в каждом из которых будет осуществляться запрос у
пользователя строки, которую надо найти. Для создания этих окон выполним
следующее:
8.1.
Добавим в проект новую форму. Изменим размер формы,
уменьшив ее значительно по вертикали и слегка увеличив по
горизонтали (в результате должен получиться узкий прямоугольник).
Изменим также свойство Caption формы на «Поиск по фамилии».
Сохраним форму в файле Search7.pas.
8.2.
Со страницы Standart поместим на форму, в ее верхнюю часть,
компоненту Label. Изменим ее свойство Caption на «Введите фамилию

Страницы