begin

           Close;

           Open;

           Y := FieldByName('SUM(kapital)').Value;     { или .AsString }

           Label1.Caption := Y;

         end; 

    Компоненты  для односвязной формы 

    Такая форма содержит одну связь и две  таблицы: главную и подчиненную.

    Таблицы связаны между собой через  столбцы, имеющие одинаковые значения в строках. Связь между таблицами возможна только по тем столбцам, которые имеют индексы.

    Для такой формы нужны следующие  компоненты:

    TTable   - для каждой таблицы по 1 шт.

    TDataSource  - для каждой таблицы по 1 шт.

    TDBGrid  - для каждой таблицы по 1 шт.

    TDBNavigator  - 1 шт. (общая) 

    Основные  свойства этих компонент

    Тема 16. Обработка исключительных ситуаций

    Исключительная  ситуация – это событие, прерывающее  нормальное выполнение программы. Иначе  говоря, исключительная ситуация является ошибкой, возникающей во время выполнения программы.

    В Object Pascal определены две конструкции для работы с исключительными ситуациями.

    Блок  try … except

    Блок  try … except используется для реакции на конкретную исключительную ситуацию. 

    try

      statement1;

      statemant2;

      …

    except

      on Exception1 do statemant3;

      on Exception2 do statemant4;

      …

      else statementN

    end; 

    Если  при выполнении операторов, расположенных  в разделе try, не возникает исключительная ситуация, то обращения к разделу except вообще не происходит.

    Если  в разделе try возникает исключительная ситуация, то управление сразу передается разделу except.

    Раздел  except содержит набор операторов on … do, определяющих реакцию на исключительные ситуации. Между ключевыми словами on и do указывается имя класса исключительной ситуации. Оператор, расположенный после слова do, предназначен для ее обработки.

    Исключительные  ситуации, возникающие во время выполнения программы, описываются в языке  Object Pascal с помощью специального объектного типа Exception. На базе этого типа определен ряд дочерних классов, соответствующих наиболее типичным исключительным ситуациям. 

    procedure TForm1.Button1Click(Sender: TObject);

    var a,b,c: double;

    begin

    TRY

      a:=StrToInt(Edit1.Text);

      b:=StrToInt(Edit2.Text);

      c:=a/b;

      ShowMessage ('Результат ='+FloatToStr(c));

    EXCEPT  on EZeroDivide do ShowMessage ('Ошибка деления на 0');

                    on EConvertError do ShowMessage ('Неверный формат числа');

    END;

    end;

    Блок try … finally

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

    try

      statement1;

      statement2;

      …

    finally

      statement3;

      statement4;

      …

      statementN;

    end; 

    В данной конструкции сначала выполняются  операторы, расположенные в разделе  try. Если при их выполнении не возникло исключительной ситуации, то выполняются операторы, расположенные в разделе finally. Если же при выполнении операторов в разделе try возникает исключительная ситуация, то управление сразу передается первому оператору раздела finally.