Разработка приложений баз данных в Delphi. Шейкер Т.Д. - 57 стр.

UptoLike

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

57
begin
B:=RecNo; //Запомнили номер записи
DisableControls;
First;
try
Result:=FieldValues[f];
except
ShowMessage('Ошибка при задании поля в Remember_rec');
exit;
end;
While not Eof do
begin
Next;
if (Result<FieldValues[f]) then Result:=FieldValues[f];
end;
EnableControls;
RecNo:=B; //Переместили курсор в начальное положение
end;
except
ShowMessage('Ошибка при выполнении функции Remember_rec');
end;
end;
При реализации функции Remember_rec использованы вложенные бло-
ки
try...except, что позволяет локализовать ошибки. Внутренний блок реа-
гирует на ошибки при задании имени поля.
2.10. Создание диаграмм
Для построения диаграмм в приложениях, использующих базы данных,
предназначен компонент DBСhart, который позволяет строить диаграммы раз-
личных типов, в том числе и объёмные. Важнейшим свойством DBСhart явля-
ется
Series[Index:Longint]:TChartSeries, представляющее собой мас-
сив диаграмм, выводимых в области компонента. Каждая серия содержит по-
следовательность значений, по которым выполняется построение графика (диа-
граммы). Один компонент DBChart позволяет построить несколько графиков в
одних координатах.
Для отображения серии данных используются классы
TAreaSeries,
TBarSeries, TLineSeries, TFastLineSeries, THorizBarSeries, TPie-
Series
, TPointSeries и др., соответствующие разным типам диаграмм.
   begin
    B:=RecNo; //Запомнили номер записи
     DisableControls;
     First;
     try
      Result:=FieldValues[f];
     except
      ShowMessage('Ошибка при задании поля в Remember_rec');
      exit;
    end;
    While not Eof do
      begin
       Next;
       if (Result