Связь таблиц через Master Source

[ArtInt]

Дело в том, что когда я рисовал связи для таблиц, не получалось у меня тривиального(простого) решения данной задачи через главную и подчиненную таблицу. В связи с чем и возник исходник PersonalInfo2, который до этого вылаживал.
Там за основу бралась таблица Criteria, поля которой являются уникальными для каждой таблицы.
Поэтому чтобы знать кому принадлежит данный критерий и для какого предмета в каком году, там введены поля IdPersonalInfo, IdPredmet, IdChetvert, idGod. в которых находятся индесы Id других таблиц.
Кстати в этом случае можно обойтись и без запросов, используя метод Locate для нескольких полей.

[artemavd]

Дык я так и не понял. Если я свяжу таблицу critery с таблицей infa по ID, то это будет неправильно?

[ArtInt]

Если получится, то связывай. Правильность на первом этапе определяется результатом работы, а уже потом оптимизацией кода.

[artemavd]

связал таблицы критериев и инфу по ID. Вроде бы при выборе фио ученика в
таблице критериев отображаются данные для этого ученика. А если я буду данные менять для какого то ученика через dbedit, то они в базе тоже поменяются?

[artemavd]

Вот такая ситуация возникла с БД после создания связи Master Source. Когда я в главную таблицу вношу данные ФИО для двух человек, например, Иванов_1 Иван_1 Иванович_1 и Иванов_2 Иван_2 Иванович_2 для первой четверти, и заношу их результаты по таблицам, то все нормально работает. При выборе, например, первого ученика, в других таблицах отображаются одна строка с его данными. Это правильно. Так и должно быть. Одна выбранная запись в главной таблице - по одной строке в подчиненных. Но когда я добавляю этих же учеников снова в главную таблицу, но уже, например, 2 четверть и их результаты разные, то когда я заношу эти результаты по дочерним таблицам, то получается вот что. Если я выбираю уже ранее занесенного Иванов_1, то в таблице critery у меня отображаются все данные, которые соответствуют для этого ученика. Это происходит во всех дочерних таблицах. В принципе это правильно. Если я вношу одного и того же ученика, но с разными результатами, то я и получу при его выборе в гриде все его данные, которые относятся к нему. Думаю это логично. Но последняя добавленная эта же запись, того же Иванов_1, но за другую четверть повторяется и при ее выборе не отображается строка с результатом. Все данные этого ученика отображаются только тогда, когда я выбираю запись когда первый раз еще внес. Вообщем возникла проблемка: как сделать, чтобы в главную таблицу не заносилась строка, если она уже в ней есть, но при этом данные, которые соответствуют вносимой строке отображались в дочерних таблицах? Вообщем, как сделать, чтобы не отображалась повторяющаяся строка, но остальное работало. Делать цикл на проверку уже имееющегося значения? Или как?

[ArtInt]

Насчет DBEdit я думаю, практическим путем уже убедился, что да будут тоже изменятся значение в таблице.
Про повторяющиеся значения Фамилий учеников, наверное лучше сделать проверку через метод Locate . То есть, примерно так:

if Locate(????????)=false then
begin//вставляем новые данные по фамилии
Table1.Insert;

Table1.Post;
////потом для дочерней код........
else//указатель перешел на найденную запись в главной таблице
  begin///запись существует, поэтому вставляем только для дочерней
   {код вставки в дочернюю таблицу}
  end;

Вообщем, образно, код выглядит примерно так.

[artemavd]

И как это можно сделать?

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
 i,h,Nomer:integer;
begin
//что писать вместо вопросов?
 if Locate(???) = False then
 for i:=1 to 25 do
   begin
   if Form1.SG9.Cells[1,i] <> '' then
   begin
 Table1.Insert;
 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;
    end;
    end;
end;

[ArtInt]

Примерно так

 if Form1.Adotable1.Locate('ФАМИЛИЯ',Form1.SG9.Cells[1,i],[loCaseInsensitive, loPartialKey])=false then

и возможно в цикле

[artemavd]

А остальной код оставить без изменения?

[artemavd]

А у меня же заносится не только фамилия, но имя и отчество. Могу ли я записать код таким образом:

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
 i,h,Nomer:integer;
begin
 if Form2.Table1.Locate('ФАМИЛИЯ;ИМЯ;ОТЧЕСТВО',VarArrayOf([Form1.SG9.Cells[1,i],Form1.SG9.Cells[2,i],Form1.SG9.Cells[3,i]),[loCaseInsensitive, loPartialKey]) = False then
 for i:=1 to 25 do
   begin
   if Form1.SG9.Cells[1,i] <> '' then
   begin
 Table1.Insert;
 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;
    end;
    end;
end;

A?