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

UptoLike

ВУЗ: 

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

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

Рубрика: 

begin
Form2.Visible := True;
end;
Свойство Visible обеспечивает отображение формы на экране после своего
создания.
7.
Добавим в форму Form1 со страницы Additional палитры компонент
компоненту Bevel. Поместим ее позади компонент Label6, Label7 и Button1.
Теперь эта группа компонент будет выделяться на форме. Изменим ее
свойство Style на bsRaised (она будет выпуклой).
8.
Создадим теперь вышеуказанную форму. Для этого выполним следующие
действия:
8.1.
Добавим в проект форму командой главного меню File|New Form.
8.2.
Изменим свойство Caption формы Form2 на «Постраничный
просмотр» и сохраним форму под именем MyExUnitQuery.pas.
8.3.
В тексте модуля Form2 в секции
implementation
напишем
следующую строчку для связи данной формы с Form1:
USES
MyExUnitDB5;
Перейдем снова к форме Form1. В тексте ее модуля установим связь с
Form2, для чего в секции
implementation
допишем:
USES
MyExUnitQuery;
8.4.
В верхний левый угол формы поместим компоненту ComboBox со
страницы Standart палитры компонент. Изменим ее свойство Text на A.
Затем активизируем свойство Items и в появившемся окне редактора
введем на каждой строке последовательно по одной букве от «А» до
«Я», за исключением, быть может, букв «Ь» и «Ъ». Завершим ввод
нажатием кнопки ОК.
8.5.
Со страницы Standart палитры компонент с помощью мыши
поместим рядом с компонентой ComboBox1 компоненту Button.
Изменим ее свойство Caption на «Страница». Затем активизируем
кнопку и в появившемся обработчике события OnClick введем
оператор, задающий отображение в форме результатов выполнения
запроса в компоненте Query1. Обработчик будет иметь следующий
вид:
procedure
TForm2.Button1ClickSender: TObject);
begin
WITH
Form1.Query1
DO
BEGIN
Close;
Prepare;
Params[0].AsString := ComboBox1.Text + ‘%’;
Open;
END;
end
;
9.
Поместим на форму Form2 еще одну компоненту Button, справа от
компоненты Button1. Изменим ее свойство Caption на Назад. При помощи

Страницы