Как связать две таблицы delphi?

Question

[xxx9x]

Добрый день! Я новичок, поэтому не судите строго.

Суть такова: у меня программа с базой данных, где есть 5 таблиц. В таблице продажи при добавлении я указываю консультанта из таблицы сотрудники. В самой таблице сотрудники у меня есть столбец "количество продаж". Суть в том, чтобы при добавлении какой-либо продажи, у меня в "количество продаж" у определенного сотрудника прибавлялось 1.
Я работаю через ADOTable. Надеюсь со скриншотами будет всё понятнее.

На кнопке сохранить в формочке "Добавление продажи" я решил вставить следующий код:

form1.ADOTable3.first; \\ ADOTable3 - таблица с сотрудниками, ADOTable2 - таблица с продажами
sotrud:=form1.ADOTable3.FieldByName('ФИО').asstring;
while not form1.ADOTable3.eof do
begin
if dbcombobox2.text = sotrud then \\ в dbcombobox отображаются ФИО из таблицы "сотрудники"
 \\ тут не знаю, какой код написать, чтобы в таблице сотрудники, в столбце кол-во продаж, у меня прибавлялось 1
end;

Скриншоты:

Answer 1

[Hemul GM]

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.

Comments

[xxx9x]

Решил все переделать через ADOQuery. Там куда-то нужно будет вставлять код "SELECT COUNT(*) FROM Продажи WHERE ID = 1"? Как это правильней сделать?

[Hemul GM]

xxx9x,

ADOQuery.Sql := 'тут запрос';
ADOQuery.Execute;

Запрос может быть не только SELECT, но и INSERT INTO, DELETE FROM, UPDATE и прочим.
Рекомендую для запросов не связывать ADOQuery и DataSet с DBGrid, т.к. это применимо только с SELECT.

[Hemul GM]

xxx9x, и ещё. Никогда не называй таблицы или переменные кириллицей. Используй всегда только латинские буквы.

[xxx9x]

Hemul GM, Спасибо большое