И снова про ID

[artemavd]

S@fer, у меня не получается компилировать Ваш пример .
Выдается ошибка:
[Fatal Error] Project1.dpr(5): Unit StdActns was compiled with a different version of StrUtils.TStringSearchOptions

[S@fer]

У меня нормально компилится
Поищи в гугле про ошибку
на всякий случай еще раз залью

[artemavd]

Спасибо, дружище. Пример работает. Щас попробую сделать окошко добавления нового предмета в том случае, если его нет в списке. Так будет правильнее, да?)

[S@fer]

Так будет правильнее, да?

Да лучше добавлять в новом окне, чтобы не было проблем с отображением в комбобоксе.

[artemavd]

Вот, пробую такой запрос сделать:

var
 nom: integer;
begin
 Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('SELECT COUNT(ID_Predmet) FROM table_predmety');
 Query_add_predm.Open;
 if not Form3.Query_add_predm.Eof then
   nom:=Form3.Query_add_predm.FieldByName('ID_Predmet').AsInteger + 1;
   Form3.Query_add_predm.Close;
end;

Но выдается ошибка, что не найдено поле ID_Predmet не найдено

[S@fer]

1)В таблице у тебя как называется поле (ид предмета)?
2) Зачем в запросе ты считаешь сколько всего записей, а затем переменной nom присваешь значение последний записи с добавлением единицы?

[artemavd]

1. поле где идентификаторы предмета у меня назвается ID_Predmet.
2. затем, что у меня всего в БД последний ID=12. Вот я и хотел от него сделать прибавление на 1цу.

[S@fer]

var
 nom: integer;
begin
 Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('SELECT Max(ID_Predmet) AS [Max_ID] FROM table_predmety');
 Query_add_predm.Active:=True;
 
   nom:=Form3.Query_add_predm.FieldByName('Max_ID').AsInteger + 1;
   Form3.Query_add_predm.Close;
end;

[artemavd]

Что значит Max_ID?
Я делаю так:

var
 nom: integer;
begin
 Query_add_predm.Active:=False;
 Query_add_predm.SQL.Clear;
 Query_add_predm.SQL.Add('SELECT MAX(ID_Predmet) AS MAX(ID_Predmet) FROM table_predmety');
 Query_add_predm.Active:=True;
   nom:=Form3.Query_add_predm.FieldByName('ID_Predmet').AsInteger + 1;
   Form3.Query_add_predm.Close;
end;

Выдается ошибка:
Invalid use of keyword.
Token: MAX(ID_Predmet).
Line Number: 1.

[S@fer]

Max(ID_Predmet) AS [Max_ID]

Max(ID_Predmet) - это вычисляемое поле, вычисляемому полю обязательно нужно присваивать имя,
вот MAX_ID и есть это имя.
Сделай как я написал без изменений и посмотри что у тебя будет в переменной nom