I. Теоретическая часть. fori:=1totable1.RecordCountdo begin

Begin

Begin

Begin

Begin

s:=0;

table1.First;

for i:=1 to table1.RecordCount do begin

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

end;

label1.Caption:=inttostr(s);

end;

procedure TForm1.BitBtn2Click(Sender: TObject); var s:real;

i:longint; begin

s:=0;

table1.First;

for i:=1 to table1.RecordCount do begin

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

end;

label2.Caption:=floattostr(s);

end;

procedure TForm1.BitBtn3Click(Sender: TObject); var s:real;

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

end;

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

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

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

procedure TForm1.Button1Click (Sender: TObject);

var n:integer;

for n:=0 to table1.FieldCount-1 do

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

end;

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

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

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

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

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

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

While not table1.eof do //пока не конец таблицы

…

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

End;

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

Цели:

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

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

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

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

Ход работы

Дата добавления: 2014-11-06