Добавление данных

[roxy7]

Здравствуйте! Добрые люди, подскажите, пожалуйста.

После нажатия кнопки "Добавить", в подчиненной таблице в столбце Номер учебной группы должны записи добавиться автоматически, так как
Схемма данных.zip

Но они у меня не отображаются никак. Помогите разобраться в моей программе:
Добавление данных.zip

Свойства MasterSource и MasterFields компонента AdoTable тоже не помогли(

[Прик]

... в подчиненной таблице в столбце Номер учебной группы должны записи добавиться автоматически, так как [Схема данных.zip]

Не совсем так. Вернее, совсем не так.
Утверждение, что "должны записи добавиться автоматически" ни на чем не основаны. Схема отношения таблиц справедлива при чтении данных, когда связи между строками таблиц уже существуют.
При добавлении же, связи еще не установились и с какого перепугу что-то там должно появляться автоматом? Тем более на форме клиентской программы.

Допустим, мы ввели в поля формы все значения, но значение "Номер учебной группы" не записываем в таблицу. Откуда БД будет "знать" что добавляемая строка относится к какой-то конкретной группе?

Нет, батенька, номер группы тоже надо записать в подчиненную таблицу. Вот тогда схема эта будет "работать". Да и то, как сказано выше, только при объединении данных этих двух таблиц через селективный запрос (SELECT).

Другое дело, если мы хотим использовать активную строку из главной таблицы для чтения из нее номера группы.
Здесь да, можно взять номер группы и подставить ее в табличное поле слушателей. Для пользователя группа будет введена как бы автоматически:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOTable2.Insert;
  ADOTable2.FieldByName('Слушатель учебного курса').AsString := Edit1.Text;;
  ADOTable2.FieldByName('Год рождения').AsInteger := StrToInt(Edit2.Text);
  ADOTable2.FieldByName('Номер школы').AsInteger := StrToInt(Edit3.Text);
  ADOTable2.FieldByName('Класс').AsInteger := StrToInt(Edit4.Text);
  ADOTable2.FieldByName('Номер учебной группы').AsInteger := 
        ADOTable1.FieldByName('Номер учебной группы').AsInteger;
  ADOTable2.Post;
end;

Кстати.
- добавление записей одновременно в таблицу групп и слушателей как-то не очень понятно.
Такое возможно только, если в каждой группе всегда по одному слушателю. Если же в группе может быть больше одного слушателя, то добавлять в эти таблицы записи нужно отдельно;
- создавать первичный ключ в таблице на поле, которое может не иметь уникальных значений не принято (попросту нельзя). Надо сделать отдельное поле для первичного ключа (типа Счетчик, к примеру). Речь о таблице слушателей.
- отображение записей в подчиненной таблице надо фильтровать в зависимости от активной строки в главной таблице. Так чтобы в подчиненной таблице показывались слушатели из одной группы (та, которая активная в главной). А это делается через фильтр ADOTable или при использовании ADOQuery условиями в запросе.

[roxy7]

Сообщение от Прик

Не совсем так. Вернее, совсем не так.
Утверждение, что "должны записи добавиться автоматически" ни на чем не основаны. Схема отношения таблиц справедлива при чтении данных, когда связи между строками таблиц уже существуют.
При добавлении же, связи еще не установились и с какого перепугу что-то там должно появляться автоматом? Тем более на форме клиентской программы.

Допустим, мы ввели в поля формы все значения, но значение "Номер учебной группы" не записываем в таблицу. Откуда БД будет "знать" что добавляемая строка относится к какой-то конкретной группе?

Нет, батенька, номер группы тоже надо записать в подчиненную таблицу. Вот тогда схема эта будет "работать". Да и то, как сказано выше, только при объединении данных этих двух таблиц через селективный запрос (SELECT).

Другое дело, если мы хотим использовать активную строку из главной таблицы для чтения из нее номера группы.
Здесь да, можно взять номер группы и подставить ее в табличное поле слушателей. Для пользователя группа будет введена как бы автоматически:

procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOTable2.Insert;
  ADOTable2.FieldByName('Слушатель учебного курса').AsString := Edit1.Text;;
  ADOTable2.FieldByName('Год рождения').AsInteger := StrToInt(Edit2.Text);
  ADOTable2.FieldByName('Номер школы').AsInteger := StrToInt(Edit3.Text);
  ADOTable2.FieldByName('Класс').AsInteger := StrToInt(Edit4.Text);
  ADOTable2.FieldByName('Номер учебной группы').AsInteger := 
        ADOTable1.FieldByName('Номер учебной группы').AsInteger;
  ADOTable2.Post;
end;

Кстати.
- добавление записей одновременно в таблицу групп и слушателей как-то не очень понятно.
Такое возможно только, если в каждой группе всегда по одному слушателю. Если же в группе может быть больше одного слушателя, то добавлять в эти таблицы записи нужно отдельно;
- создавать первичный ключ в таблице на поле, которое может не иметь уникальных значений не принято (попросту нельзя). Надо сделать отдельное поле для первичного ключа (типа Счетчик, к примеру). Речь о таблице слушателей.
- отображение записей в подчиненной таблице надо фильтровать в зависимости от активной строки в главной таблице. Так чтобы в подчиненной таблице показывались слушатели из одной группы (та, которая активная в главной). А это делается через фильтр ADOTable или при использовании ADOQuery условиями в запросе.

Понятно. Спасибо Вам большое!