Последняя работа с ID :)

[artemavd]

Уважаемые программисты! Я, с вашей помощью, подошел к последней задачкой связанной с ID .
Суть задачи:
- имеется БД "Оценки".
- В ней есть колонка ID_Predmet.
- Есть БД table_predmety, в которой тоже есть колонка ID_Predmet. Нужно, чтобы при нажатии на кнопку в таблицу БД "Оценки" в колонку ID_Predmet заносился IDишник предмета выбранного в DBLookupComboBox-е. Также ID выбранного предмета появляется в Label.
Причем есть маленький нюанс: заносится IDишников должно столько строчек, сколько учеников вносится в БД "Оценки", т.е. сколько строк добавляется. Что можете предложить? .

[artemavd]

Все, с этой задачей саь разобрался . Решение оказалось проще, чем условие расписывать . На всякий случай выложу свое решение. Вдруг кому-нибудь пригодится. Итак, я объявил новую переменную типа integer и нужному полю присвоил значение этой переменной. В коде это выглядит так:

procedure TForm2.SpeedButton2Click(Sender: TObject);
var
 Nomer21:integer;
begin
 Table2.Last;
 Nomer21:=Form1.DBLookupComboBox1.KeyValue;

 Table2.Append;
 Table2.Edit;
 Table2.FieldByName('ID_Predmeta').AsInteger:=Nomer21;
 Table2.Post;
 Table2.Refresh;
 end;
end;

Вопрос в другом: как сделать, чтобы заносилось теперь название предмета? Для первого случая оказалось легко сделать установив такое свойство DBLookupComboBox1.KeyValue. А вот как быть с названием?

[Stilet]

Ченить типа такого.

Table2.FieldByName('Название_Predmeta'):=DBLookupComboBox1.DataSource.DataSet.FieldByName('Название');

[koma_grusha]

если из этого же Лукапа, то немного допишу в твой же код

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
 Table2.Last;
 Table2.Append;
 Table2.Edit;
 Table2.FieldByName('ID_Predmeta').AsInteger:=Form1.DBLookupComboBox1.KeyValue;
 Table2.FieldByName('Predmet').AsString:=Form1.DBLookupComboBox1.Text;
 Table2.Post;
 Table2.Refresh;
 end;
end;

а если нужно чтобы другой Лукап возвращал в KeyValue, не ID, а Predmet, то укажи это поле в KeyField

[artemavd]

Stilet, большое спасибо Только я чуть подправил Ваш код на такой:

Table2.FieldByName('ID_Predmeta'):=DBLookupComboBox1.ListSource.DataSet.FieldByName('Predmet');

koma_grusha спасибо ))

[Stilet]

Только я чуть подправил Ваш код на такой:

Ради бога, я ж не могу знать чего ты там кашеваришь.

[artemavd]

Stilet . У меня возможно последний вопрос по ID. Как сделать, чтобы счетчик ID начинался заново? А то ситуация такая. Если я в таблицу для проверки работоспосбности программы добавляю записи, а потом удаляю их, и, вроде бы полностью очищаю таблицу, и она, она пустая, то у меня ID следующиx записей начинаются со следующего номера, который идет по счету. То есть было две записи, я их удалил, казалось бы новые две записи должны иметь ID 1 и 2, а у меня следующие ID равны 3 и 4. Как избежать этого?

[maladoy]

почитай тут

[artemavd]

ALTER TABLE Test ALTER COLUMN CodeSecond IDENTITY (1, 1)

Что значит CodeSecond? Начало счетсчика? А просто кодом нельзя его обнулить?