И снова про ID

[artemavd]

огромное спасибо, дружище:-). Предмет добавляется, но почему то вместо правильного id=13 появляется число 443984900. Че Это такое?)

[S@fer]

но почему то вместо правильного id=13 появляется число 443984900. Че Это такое?)

попробуй по другому назвать переменную, или с помощью Table делать запись

Table.Insert;
Table.Fields[1].asInteger:=nom+1;
Table.Fields[2].asString:=Edit.text;
Table.Post;

[artemavd]

Уважаемый S@fer, я немного изменил Ваш код так:

var
 nov: integer;
begin
 nov:=12; //т.к. последний ID=12
 Form3.Table_add_predm.Last;
 Form3.Table_add_predm.Insert;
 Form3.Table_add_predm.FieldByName('ID_Predmet').AsInteger:=nov+1;
 Form3.Table_add_predm.FieldByName('Predmet').AsString:=Form3.Edit1.Text;
 Form3.Table_add_predm.Post;
end;

Почти нормально работает. Первое новое название предмета добавляется в конец колонок с номер ID равным 13. Так и должно быть. Но второй предмет добавляется ниже предыдущего, но с тем же тринадцатым номер, а должен быть уже ID равный 14. Что надо подправить в коде еще?

[S@fer]

Сообщение от artemavd

Уважаемый S@fer, я немного изменил Ваш код так:

var
 nov: integer;
begin
 nov:=12; //т.к. последний ID=12
 Form3.Table_add_predm.Last;
 Form3.Table_add_predm.Insert;
 Form3.Table_add_predm.FieldByName('ID_Predmet').AsInteger:=nov+1;
 Form3.Table_add_predm.FieldByName('Predmet').AsString:=Form3.Edit1.Text;
 Form3.Table_add_predm.Post;
end;

Почти нормально работает. Первое новое название предмета добавляется в конец колонок с номер ID равным 13. Так и должно быть. Но второй предмет добавляется ниже предыдущего, но с тем же тринадцатым номер, а должен быть уже ID равный 14. Что надо подправить в коде еще?

Где поиск максимального номера?
каждый раз nom у тебя равен 12, ик нему присваевается 1, итого получается 13

[artemavd]

Как надо подправить мой код?). В событии ComboBox-a я делал процедуру получения максимального значения.
Код поиска максимального значения:

var
 nomer_predm:integer;
begin
 Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT ID_Predmet FROM table_predmety2 WHERE Predmet="'+
                                                      Form1.ComboBox3.Text+'"');
 Query_zapros.Active:=True;
 nomer_predm:=Query_zapros.FieldByName('ID_Predmet').AsInteger;
 Form1.Label12.Caption:='Номер предмета = '+IntToStr(nomer_predm);
end;

[Stilet]

Код поиска максимального значения:

Стоп, а групповые операции+MAX() уже не в моде?

[IT-man]

var
 nomer_predm:integer;
begin
 Query_zapros.Active:=False;
 Query_zapros.SQL.Clear;
 Query_zapros.SQL.Add('SELECT max(ID_Predmet) as m FROM table_predmety2 WHERE Predmet="'+
                                                      Form1.ComboBox3.Text+'"');
 Query_zapros.Active:=True;
 nomer_predm:=Query_zapros.FieldByName('m').AsInteger;
 Form1.Label12.Caption:='Номер предмета = '+IntToStr(nomer_predm);
end;

[artemavd]

IT-man, добавив max у меня появляется ошибка, что поле ID_Predmet не найдено, а когда его нету, то все работает нормально. Неужели нельзя сделать то, что мне надо?

[artemavd]

А как сбросить счетчик ID? Чтобы нажав на кнопку, у меня ID снова с нуля начилнался.

[S@fer]

artemavd, Ну так соедени свой код в посте #68 (Выбор максимального ID) и #73 (Добавление новой записи).