Delphi+ADO+Access

[Turpa]

Есть 4 таблицы ...
1) Группы
2) Студенты
3) Диски
4) Любимые диски
Нужно создать каталог CD дисков студента
Зделал связь таблиц 1 и 2 (выбираю группу , вижу всех студентов етой группы)
как зделать чтоб в 4ую(любимые диски) таблицу при нажатии кнопки добавить на дб навигаторе, добавлялся id выбранного студента и id выбранного диска ?

[mihali4]

Довольно сумбурно...
Но попробую ответить, как я понял...
Видимо, нужно обрабатывать событие Table4AfterInsert:

procedure TForm1.Table4AfterInsert(DataSet: TDataSet);
begin
Table4.FieldByName('idstud').Value:=Table2.FieldByName('id').Value;
Table4.FieldByName('iddisk').Value:=Table3.FieldByName('id').Value;
end;

[Turpa]

Вот смотри
Таблица #1(Студенты)
1)ПК
2)Фам
3)Имя
4)Отч

Таблица #2(Диски)
1)Пк
2)Название
3)Тип
4) Жанр
...
Таблица #3(Любимые диски)
1)Пк
2)Пк_студ
3)Пк_диска

Вот нужно чтоб я выбрал в таблице №1 студента , потом вибираю во 2ой таблице диск
Нажимаю + на навигаторе 3ей таблицы и в неё вносяться ПК выбранного студента и диска ...

[mihali4]

Ну, если так трудно заменить имена переменных в моем ответе, сделаю сам:

procedure TForm1.Любимые дискиAfterInsert(DataSet: TDataSet);
begin
Любимые диски.FieldByName('Пк_студ').Value:=Студенты.FieldByName('Пк').Value;
Любимые диски.FieldByName('Пк_диска').Value:=Диски.FieldByName('Пк').Value;
end;

[Turpa]

Из за чего может быть такая ошибка ?
[Error] Unit1.pas(40): Illegal character in input file: 'З' ($C7)
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(41): Illegal character in input file: 'З' ($C7)
[Error] Unit1.pas(41): Missing operator or semicolon
[Error] Unit1.pas(41): Missing operator or semicolon

[mihali4]

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

Из за чего может быть такая ошибка ?
[Error] Unit1.pas(40): Illegal character in input file: 'З' ($C7)
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(40): Missing operator or semicolon
[Error] Unit1.pas(41): Illegal character in input file: 'З' ($C7)
[Error] Unit1.pas(41): Missing operator or semicolon
[Error] Unit1.pas(41): Missing operator or semicolon

Как правило, если в процессе компиляции возникают ошибки, курсор ставится на то место, где возникла первая из них...
Отсюда и плясать надо, т.е. перепроверить указанную курсором строку.

P.S. Не люблю Access, но, тем не менее, сомневаюсь, что есть резон употреблять в ЛЮБОЙ базе данных имена таблиц, полей и т.д., написанные русскими буквами...

[Turpa]

Вот что у меня получилось .... а зделать тему ету не могу ... 8(((

[mihali4]

Интересно, для кого я тут распинаюсь?
1. Где обработка procedure TForm1.ADOTable3AfterInsert, о которой я писал?
2. Кто будет в программе открывать таблицы? Пушкин А.С.? Где при создании формы ADOTable.Open для всех таблиц?

[Turpa]

Так ... всё зделал ! Заработало ЕЕЕ ! =))))))))))))
Теперь такой вопросик ...
Есть таблица дисков (с полями наименование,жарн,носитель и тд ...
Как зделать классификацию ?
Чтоб я например в комбо боксе выбрал например "Рок" и мне выдал вес список рока ...

[mihali4]

ADOQuery.SQL.Text:='select * from ДИСКИ where ЖАНР="РОК"'
Т.е. вместо ADOTable использовать ADOQuery.
Другой вариант - наложение фильтра, т.е.
ADOTable2.Filter:='ЖАНР="РОК"';
При этом не забываем ставить в свойствах ADOTable2.Filtered:=True;

И самое главное - про базы данных читаем, читаем, читаем...