[Hbrekk]

пишу диплом "электронный журнал"

есть таблицы Группы(id, name), Студенты(id, name, grupid), Предметы( id, name), Журнал(id, studentid, predmetid, data, ocenka)

нужно сделать:

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

помогите плиз не знаю как сделать

[Ildar-tsr]

Когда диплом сдавать? Какая СУБД? Читай про ADO компоненты (в делфи прям такая вкладка есть). Читай про построение простейших SQL запросов.
В принципе при должном упорстве, абсолютно НИЧЕГО НЕ ЗНАЯ, все это можно реализовать за неделю-две.
А вот когда у тебя появятся конкретные вопросы или проблемы с реализацией, вот тогда и обращайся сюда. Добрые люди помогут.

[Hbrekk]

диплом в начале июня
бд сделана через бде, в основном все для диплома готово, осталось только перечисленные пункты сделать, вот на них застрял надеюсь на вашу помощь

[NumLock]

используй параметризованые запросы в TQuery, свойство DataSource. при этом никакого кода писать не нужно.

[Ildar-tsr]

"по клику на группу что бы открывался список студенетов этой группы"
А где эти группы перечислены?

[Hbrekk]

Сообщение от Ildar-tsr

"по клику на группу что бы открывался список студенетов этой группы"
А где эти группы перечислены?

Группы(id, name)

[Ildar-tsr]

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

Группы(id, name)

Какой компонент используется для их отображения?

[Hbrekk]

Сообщение от Ildar-tsr

Какой компонент используется для их отображения?

DBGRID используется

[Ildar-tsr]

И когда ты выбрал строку (например группу 2) в гриде, ты хочешь чтоб в другом гриде отобразились все студики из 2 группы?

[Hbrekk]

Сообщение от Ildar-tsr

И когда ты выбрал строку (например группу 2) в гриде, ты хочешь чтоб в другом гриде отобразились все студики из 2 группы?

ну примерно так
по тыку на грид , форм2 открывается , в ней грид и в этом гриде собственно студики выбранной группы отображаются

[Ildar-tsr]

Для второго грида (где студики) пропиши запрос вроде этого:

Код:

select * from [Студенты] order by [name]

У грида есть событие onCellClick:

Код:

procedure TForm1.DBGrid1CellClick(Column: TColumnEh);
begin
  with TForm2.DBGrid1.DataSource.DataSet do
    begin
      if not Active then
        Open;
      Filter:= '(grupid = '+TForm1.DBGrid.DataSource.DataSet.FieldByName('id').AsString+')';
      Filtered:= true;
    end;
end;

[Hbrekk]

Только что сделал бд из 2 таблиц через BDE

Группы ( Id , Grp)
Студенты ( Id, Fio, Grp)

Подсоеденил
Добавил на форму Query ->Params ->add item -> 'idd'
также у Params ->DataType -> Integer
Написал SQL запрос

Код:

Select Id, Fio
From Stude
Where grp=:idd;

Activ->true

Прописал код на DBGrid1 -> OnCellClick

Код:

 
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin

      Query2.ParamByName('idd').Value:=DBEdit4.Text;
      Query2.Open;
      DBGrid4.Visible:=true;
      Query2.Active:=false;
      Query2.Active:=true;

end;

Все замечательно работает, но когда стал аналогично делать в дипломном проекте ,при клике на группу вылетает ошибка

http://s2.ipicture.ru/Gallery/Viewfull/10482455.html

Понять не могу что за ошибка, раз 10 переделывал в дипломной работе все она вылетает, гугл не помог. (

[Ildar-tsr]

Ну раз idd у тебя ftInteger, то нужно наверно так:

Код:

Query2.ParamByName('idd').Value:= StrToInt(DBEdit4.Text);

И что вообще за бред? Ты задал параметр, затем открыл кверик (хотя возможно он уже открыт=/), сделал грид видимым зачем то, если потом ты опять закрываешь-открываешь этот многострадальный кверик.

Код:

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  if Query2.Active then //если открыт, то
    Query2.Close;         //закрываем
  Query2.ParamByName('idd').Value:= StrToInt(DBEdit4.Text); //задаем значение параметра
  Query2.Open; //получаем результат запроса
  DBGrid4.Visible:=true; //отображаем грид
end;

[Hbrekk]

Код:

Query2.Active:=false;
Query2.Active:=true;

без этого бреда таблица не обновляется ))

проблему решил (DBEdit4 забывал подключить) написал как описано выше

Всем большое спасибо , кто давал подсказки)