104
procedure TForm1.N20Click(Sender: TObject);
begin
CreateOtchetForm('Задайте интервал',4);
end;
end;
procedure TForm1.ZakazPostavTovarCalcFields(DataSet: TDataSet);
begin
ZakazPostavTovar.FieldByName('Stoim').Value:=ZakazPostavTovar.Fi
eldByName('Price').Value*ZakazPostavTovar.FieldByName('Num').Val
ue
end;
procedure TForm1.PostupTovarCalcFields(DataSet: TDataSet);
begin
PostupTovar.FieldByName('Stoim').Value:=PostupTovar.FieldByName(
'Price').Value*PostupTovar.FieldByName('num').Value;
PostupTovar.FieldByName('numpostup').Value:=PostupTovar.FieldByN
ame('num').Value;
end;
procedure TForm1.PostupTovarTCalcFields(DataSet: TDataSet);
begin
PostupTovarT.FieldByName('Stoim').Value:=PostupTovarT.FieldByNam
e('Price').Value*PostupTovarT.FieldByName('numpostup').Value;
end;
end.