Лабораторная работа: Создание расчетных приложений и программы поиска в базе данных в среде Delphi 7 0

var x1,res:variant;

label 1,2,3,4,5;

begin

x1:=TableMater.Lookup('Mater',DBComboBox1.Text,'Code_metod');

TableX.First;

While not TableX.EOF do

1: if x1=TableX.FieldByName('Code_metod').AsInteger then

2: if strtofloat(Trim(MaskEdit1.Text))<=TableX.FieldByName('S').AsFloat then

3: if strtofloat(Trim(MaskEdit2.Text))<=TableX.FieldByName('V').AsFloat then

begin

res:=TableX.Lookup('Code_metod;S;V', VarArrayOf([x1, TableX.FieldByName('S').Asfloat, TableX.FieldByName('V').AsFloat]), 'X');

goto 5;

end

else

begin

TableX.Next;

goto 3;

end

else

begin

TableX.Next;

goto 2;

end

else

begin

TableX.Next;

goto 1;

end;

5: Maskedit3.Text:=res;