form1.ADOTable3.first; \\ ADOTable3 - таблица с сотрудниками, ADOTable2 - таблица с продажами
sotrud:=form1.ADOTable3.FieldByName('ФИО').asstring;
while not form1.ADOTable3.eof do
begin
if dbcombobox2.text = sotrud then \\ в dbcombobox отображаются ФИО из таблицы "сотрудники"
begin
ADOTable3.FieldByName('название поля с числом').AsInteger := ADOTable3.FieldByName('название поля с числом').AsInteger + 1;
Brake;
end;
end;
Но это очень плохой код. В твоём случае рекомендуется выполнять SQL запросы, а не манипулировать данными, которые были загружены. Запросом SQL ты бы написал всего одну строку кода и безо всяких циклов.
Так что подучи
как выполнять sql-запросы ADO в Delphi.
