118
sql.add('select * from polomki where
cd_pol='+form1.ADOQuery4cd_vop.AsString);
open;
end;
excelapp.range['A'+inttostr(3+i)]:=form1.ADOQuery2nam.AsString;
excelapp.range['B'+inttostr(3+i)]:=form1.ADOQuery2metod.AsString;
excelapp.range['C'+inttostr(3+i)]:=form1.ADOQuery4kol.AsString;
excelapp.range['A'+inttostr(3+i)].borders.linestyle:=1;
excelapp.range['B'+inttostr(3+i)].borders.linestyle:=1;
excelapp.range['C'+inttostr(3+i)].borders.linestyle:=1;
end;
form1.adoquery4.Next;
end;
//Вывод отчета на экран
ExcelApp.cells[1,2]:=Заявки';
ExcelApp.Visible := true;
excelapp:=unassigned;
end;
end.