I. Теоретическая часть

Begin

Begin

Begin

Begin

s:=0;

table1.First;

fori:=1totable1.RecordCountdo begin

s:=s+table1.fieldbyname('kolvo').asinteger; table1.Next;

end;

label1.Caption:=inttostr(s);

end;

procedureTForm1.BitBtn2Click(Sender: TObject);vars:real;

i:longint; begin

s:=0;

table1.First;

fori:=1totable1.RecordCountdo begin

s:=s+table1.fieldbyname('cena').asfloat; table1.Next;

end;

label2.Caption:=floattostr(s);

end;

procedureTForm1.BitBtn3Click(Sender: TObject);vars:real;

s:=table1.fieldbyname('kolvo').asfloat*table1.fieldbyname('cena').asfloat; label3.Caption:=floattostr(s);

end;

Практическое задание №4

Вывести в компонент ListBox1 содержимое всех полей текущей записи (начиная с первого). Расположите на форме компоненты в соответствии с рисунком:

Напишите обработчик события OnClick для кнопки:

procedureTForm1.Button1Click (Sender: TObject);

varn:integer;

forn:=0totable1.FieldCount-1do

ListBox1.Items.Add (table1.Fields[n].AsString);

end;

После этого запустите программу и щелкните по кнопке на форме. В ListBox вы увидите список содержимого полей текущей записи набора данных. Содержимое каждого поля интерпретируется как строковое значение и добавляется к списку ListBox.

Задание для самостоятельной работы

1. Теперь попробуйте вывести в компонент ListBox1 содержимое всех полей текущей записи начиная с последнего (Подсказка: цикл с уменьшением параметра for … downto … do).

2. Используя общую схему обработки всех записей НД, выведите в компонент ListBox1 содержимое всехзаписей извсехполей

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

Table1.first;//первая запись

While nottable1.eofdo//пока не конец таблицы

…

Table1.next;//следующая запись

End;

Практическая работа 6. Тема: Работа с записями: сортировка.

Цели:

1. Изучить операцию работы с записями: сортировку.

2. Научиться индексировать таблицу и сортировать данные в ней.

3. Развивать навыки самостоятельной работы.

4. Воспитывать усидчивость, ответственность.

Ход работы