15. Работа с компонентами Ползунок – компонент TrackBar, Полоса прокрутки – компонент ScrollBar, Отображение хода выполнения длительных операций - компоненты ProgressBar и Gauge;

16. Ползунок – компонент TrackBar

Находится на странице win32. Компонент TrackBar представляет собой элемент управления в виде ползунка, который пользователь может перемещать курсором мыши или клавишами во время выполнения. Таким образом, пользователь может управлять какими-либо процессами: громкостью звука, размером изображения и т. п. Основное свойство компонента – Position.

Свойство Orientation определяет ориентацию ползунка: trHorizontal – горизонтальная, trVertical – вертикальная.

Свойство TickMarks указывает размещение шкалы.

tmBottomRight – снизу или справа, tmTopLeft – сверху или слева, tmBoth – с обеих сторон.

TickStyle определяет способ изображения шкалы: tsAuto — автоматическая прорисовка шкалы, tsNone – отсутствие шкалы, tsManual – программное рисование шкалы.

Свойства LineSize и PageSize определяют, насколько смещается ползунок. Свойства SelStart и SelEnd позволяют визуально выделить на шкале некоторый диапазон, который о чем-то говорит пользователю. procedure TForm1.TrackBar1Change(Sender: TObject);

begin

with Trackbar1 do

Begin

Min:=1;

Max:= Form1.ClientWidth;

Frequency:=Max div 10;

Label1.Left:=Position

End;

end;

Полоса прокрутки – компонент ScrollBar

Находится на странице Стандартная. Похож на ползунок по своим функциям и компонент ScrollBar. Этот компонент представляет собой стандартную линейку прокрутки Windows. Основные свойства ScrollBar: Position, Min и Мах – те же, что у компонента TrackBar. Свойство Kind, определяющее горизонтальное или вертикальное расположение полосы и принимающее соответственно значения sbHorizontal или sbVertical. Событие, соответствующее перемещению пользователем бегунка полосы прокрутки, – OnScroll. ScrollPos – позиция бегунка, которую можно читать. ScrollCode, характеризующий вид перемещения бегунка.

Отображение хода выполнения длительных операций - компоненты ProgressBar и Gauge.

Отображение хода процесса можно осуществлять, задавая значение позиции – Position в ProgressBar или Progress в Gauge.

ProgressBar1.Position := (100 * Current) div Count;

или

Gauge1.Progress := (100 * Current) div Count;

соответственно для ProgressBar и Gauge.

У компонента ProgressBar есть два метода: 1) StepBy(Delta: Integer) – увеличение позиции на заданную величину Delta; 2) StepIt – увеличение позиции на один шаг, величина которого задается свойством Step.

17. Работа с компонентом таймер Timer;

Предназначен для отсчетов интервалов времени. Расположен на странице System.

Свойство Interval определяет промежуток времени в мсек от включения таймера до наступления события OnTimer. Включенный таймер постоянно генерирует это событие через интервалы времени, задаваемые свойством Interval. Событие генерируется , если свойство Enabled имеет значение True. Минимальное значение свойства Interval равно 10 мсек.

Для компонента ProgressBar1 установим значения свойств

Max=1000

Min=0

Step=10.

Для компонента Timer1 установим свойство Interval=100 мсек.

В процедуре, запускаемой событием OnTimer, запишем программный код

procedure TForm1.Timer1Timer(Sender: TObject);

begin

ProgressBar1.StepIt

end;

Процедура декодирования времени

DecodeTime(Time, H,M,S,ms) , Данная процедура возвращает значение вренени.

Где Time – системное время, H, – час, M – мин, S – сек, ms – мсек.

Последние четыре параметра являются выходными.

Для события OnTimer запишем процедуру

procedure TForm1.Timer1Timer(Sender: TObject);

Var

H,M,S,MS: Word;

begin

DecodeTime(Time,H,M,S,ms);

Edit1.Text:=IntToStr(H)+' час '+ IntToStr(M)+' мин '+IntToStr(S)+' сек '

end;

Функция GetTickCount возвращает количество мсек, прошедших с момента запуска. procedure TForm1.Button1Click(Sender: TObject);

Var

N:Integer;

begin

N:=GetTickCount;

ProgressBar1.Position:=ProgressBar1.Min;

While GetTickCount<=N+10000 do

ProgressBar1.Position:= (100*(GetTickCount-N)) div 10000;

ProgressBar1.Position:=ProgressBar1.Min;

end;

18. Основные сведения о работе с базами данных;

База данных с правильной структурой обеспечивает доступ к обновленным и точным сведениям. Простая база данных может состоять всего из одной таблицы. Большинство баз данных включают несколько таблиц. Например, в одной таблице могут храниться сведения о продуктах, во второй — сведения о заказах, а в третьей — сведения о клиентах.

Каждая строка называется также записью, а каждый столбец, или тип элемента, называется также полем. Записи позволяют комбинировать данные. Поля представляют собой отдельные элементы данных — типы элементов для каждой строки.

Правильная структура базы данных подразумевает:

• распределение данных по тематическим таблицам в целях сокращения объема повторяющихся данных;

• добавление в Access данных, необходимых для объединения сведений, которые содержатся в таблицах;

• возможность поддержания и отслеживания точности и целостности данных;

• соответствие требованиям к обработке данных и созданию отчетов.

Процесс разработки базы данных включает следующие шаги.

• Определение цели создания базы данных

Это позволяет подготовиться к выполнению следующих шагов.

• Поиск и организация необходимых данных

Следует собирать все данные, которые необходимо сохранить в базе данных.

• Распределение данных по таблицам

Распределите элементы данных по группам или темам, например «Продукты» или «Заказы».

• Преобразование элементов данных в столбцы

Каждый элемент данных будет введен в отдельное поле и станет столбцом таблицы

• Задание первичных ключей

Выберите первичные ключи таблиц. Первичный ключ — столбец для однозначного определения каждой записи.

• Создание связей между таблицами

Проанализируйте все таблицы и определите, как данные одной таблицы связаны с данными других таблиц.

• Усовершенствование структуры

Проверьте структуру базы данных на наличие ошибок. Создайте таблицы и добавьте несколько записей с образцами данных. Проанализируйте полученные результаты.

• Применение правил нормализации

Примените правила нормализации, чтобы проверить правильность структуры таблиц.

Цели создания базы данных:

Для базы данных небольшого объема: «База данных клиентов содержит сведения о клиентах и используется для рассылки сообщений электронной почты и отчетов».

При создании более сложной базы данных для большого количества пользователей описание цели может состоять из нескольких параграфов; необходимо указать время и способы использования базы данных различными пользователями.