Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Практическая работа. Выведем на экран общую сумму количества товара (поле Kolvo)

Ведение в базы данных | Таблицы баз данных. | Таблицы Paradox | Практическая работа | Набор данных | Практическая работа | Самостоятельная работа | Режимы наборов данных | Практическая работа | Доступ к полям |


Читайте также:
  1. I I. Практическая часть - задача
  2. I. Работа над диссертацией
  3. I. Работа со справочной литературой.
  4. I. Учебная работа
  5. II ПРАКТИЧЕСКАЯ ЧАСТЬ
  6. II. Научно-исследовательская работа и практика
  7. III. Работа с претензиями клиентов

Выведем на экран общую сумму количества товара (поле Kolvo), общую стоимость каждой единицы товара (поле Cena) и общую стоимость товара (для текущей записи) для таблицы Tovar.db.

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

Для кнопок напишите соответствующие процедуры:

procedure TForm1.BitBtn1Click(Sender: TObject);

var s:integer;

i:longint;

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;

Begin

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

label3.Caption:=floattostr(s);

end;

 


Дата добавления: 2015-07-19; просмотров: 53 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Практическая работа| Редактор полей

mybiblioteka.su - 2015-2024 год. (0.005 сек.)