И снова про ID

[artemavd]

Вопрос во вложении.
Код внесения данных в таблицу №1:

var
 i,h:integer;
begin
 for i:=1 to 25 do
 begin
  if Form1.SG9.Cells[0,i] <> '' then
   begin
 Table1.Append;
 Table1.Edit;
 Table1.FieldByName('ФАМИЛИЯ').AsString:=Form1.SG9.Cells[1,i];
 Table1.FieldByName('ИМЯ').AsString:=Form1.SG9.Cells[2,i];
 Table1.FieldByName('ОТЧЕСТВО').AsString:=Form1.SG9.Cells[3,i];
 Table1.Post;
 Table1.Refresh;
    end;
 end;
end;

Код внесения данных в таблицу №2:

var
 i:integer;
begin
 for i:=1 to 25 do
 begin
  if Form1.SG2.Cells[0,i] <> '' then
   begin
 Table2.Append;
 Table2.Edit;
 Table2.FieldByName('ДВОЕК').AsString:=Form1.SG2.Cells[0,i];
 Table2.FieldByName('ТРОЕК').AsString:=Form1.SG2.Cells[1,i];
 Table2.FieldByName('ЧЕТВЕРОК').AsString:=Form1.SG2.Cells[2,i];
 Table2.FieldByName('ПЯТЕРОК').AsString:=Form1.SG2.Cells[3,i];
 Table2.Post;
 Table2.Refresh;
    end;
 end;
end;

Код внесения данных в таблицу №3:

var
 i:integer;
begin
 for i:=1 to 25 do
 begin
  if Form1.SG3.Cells[0,i] <> '' then
   begin
 Table3.Append;
 Table3.Edit;
// Table3.FieldByName('ID').AsString:=Form2.Table1.IndexFields[0].Text;
 Table3.FieldByName('КО').AsString:=Form1.SG3.Cells[0,i];
 Table3.FieldByName('СБ').AsString:=Form1.SG3.Cells[1,i];
 Table3.FieldByName('КУ').AsString:=Form1.SG3.Cells[2,i];
 Table3.FieldByName('У').AsString:=Form1.SG3.Cells[3,i];
 Table3.FieldByName('О').AsString:=Form1.SG3.Cells[4,i];
 Table3.FieldByName('ЧО').AsString:=Form1.SG3.Cells[5,i];
 Table3.Post;
 Table3.Refresh;
    end;
 end;
end;

Код внесения данных в таблицу №3:

begin
 Table4.Append;
 Table4.Edit;
 Table4.FieldByName('ГОД').AsString:=Form1.Edit3.Text;
 Table4.FieldByName('ПРЕДМЕТ').AsString:=Form1.ComboBox3.Text;
 Table4.Post;
 Table4.Refresh;
end;

[S@fer]

Автоинкрементное поле - это поле счетчик, при удалении записей из базы, этот счетчик не обновлется, т.е. если было 30 записей, и удалить 10, то счечик все-равно поставит следующий ID 31, а не 21.

Что бы номера ставились по порядкую , то нужно сделать это поле просто числовым,
Затем при новой записи выбираем максимальное число

SELECT Max(ID) FROM table_information.db

, прибавляем к нему единицу и записываем в базу., Только надо будет еще учесть если будет удалена строка из середины таблицы, то поле ID необходимо будем обновить (чтобы данные опять шли по порядку)

[artemavd]

А без запроса нельзя это сделать?)

[S@fer]

Попробуй сделать так

Query.last;
Nomer:=Query.FildByName('ID').AsInteger;
Nomer:=Nomer+1;

Но это будет работать если э тебя таблица отсортирована по возростанию (от 1 до n) по полю ID
По моему проще и правильнее это сделать запросом

[artemavd]

Я попробую щас сделать то, что Вы предложили. А, кстати, куда именно вставить этот код?)

[S@fer]

куда именно вставить этот код?

перед самой записью в таблицу

 
Table1.last;
Nomer:=Table1.FildByName('ID').AsInteger;
Nomer:=Nomer+1;

Table1.Append;
 Table1.Edit;
 Table1.FildByName('ID').AsIntegerNomer:=Nomer;
 Table1.FieldByName('ФАМИЛИЯ').AsString:=Form1.SG9.Cells[1,i];
 Table1.FieldByName('ИМЯ').AsString:=Form1.SG9.Cells[2,i];
 Table1.FieldByName('ОТЧЕСТВО').AsString:=Form1.SG9.Cells[3,i];
 Table1.Post;
 Table1.Refresh;

[artemavd]

S@fer, Спасибо тебе и с этим . У меня тут другой вопрос. Как сделать, чтобы у меня из ComboBox-a всем имеющимся записям в табице присваивалось одно и тоже значение? То есть если в базе есть два ученика, то в таблице предметов им обоим доолжно присваиваться одно и тоже значение из combobox-a? Я пробовал так:

for i:=1 to 25 do
 if Form1.ComboBox3.Text <> ' ' then
 Table4.FieldByName('ПРЕДМЕТ').AsString:=Form1.ComboBox3.Text+FloatToStr(i);

Но это не дало результата.

[S@fer]

for i:=1 to 25 do
 if Form1.ComboBox3.Text <> ' ' then
 Table4.FieldByName('ПРЕДМЕТ').AsString:=Form1.ComboBox3.Text+FloatToStr(i);

Этот код дословно обозначает:
Перезаписать ячейку в поле "Предмет" 25 раз, причем в цикле присваевается значение в ячейке "текст в комбобоксе1" ,"текст в комбобоксе2",...,"текст в комбобоксе25".
В итоге получится

Table4.FieldByName('ПРЕДМЕТ').AsString:='текст в комбобоксе25';

Покажи польностью код записи

[artemavd]

Вот:

var
 i,Nomer4:integer;
begin
 Table4.Last;
 Nomer4:=Table4.FieldByName('ID').AsInteger;
 Nomer4:=Nomer4 + 1;

 Table4.Append;
 Table4.Edit;
 Table4.FieldByName('ID').AsInteger:=Nomer4;
 Table4.FieldByName('ГОД').AsString:=Form1.Edit3.Text;
 Table4.FieldByName('ПРЕДМЕТ').AsString:=Form1.ComboBox3.Text;
 Table4.Post;
 Table4.Refresh;
end;

И год также как и предмет надо сделать. Как надо сделать?

[S@fer]

Немного непонятно, тебе нужно обновить записи или добавить новые?
Каким образом связаны таблицы Ученики и предмет?