Создание сводки успеваемости по всем предметам за месяц - Delphi БД - Ответ 4247825

@ghjuf · 15.03.2013, 21:16 **[ТС]**

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

не чего в голову не приходит

Добавлено через 9 часов 59 минут

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

Добавлено через 4 минуты

Добавлено через 1 час 18 минут

Delphi

procedure TForm1.TabSheet4Show(Sender: TObject);
begin
q1.SQL.Clear;
if edit8.Text='' then
exit
else
begin
q1.SQL.Add('select [id_predmet(FK)] as Предмет');
q1.SQL.Add('from Uspevaemost where [id_studenta(FK)]='+''''+Edit8.Text+'''');
end;
q1.Open;
 
end;

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

че делаю сам не пойму

Добавлено через 28 минут
те создал поля в ДБгриде Предмет и с 1 по 31.
и вот подключил как бы к Успеваемости.. пишу запрос на отображения по крайне мере пытаюсь.

Добавлено через 11 часов 43 минуты

SQL

1
2

SELECT Uspevaemost.[id_predmet(FK)], Uspevaemost.[ocenka], Uspevaemost.[data_ocenki], Anketa.Fam
FROM Predmet INNER JOIN (Anketa INNER JOIN Uspevaemost ON (Anketa.id_gruppi = Uspevaemost.[id_gruppi(FK)]) AND (Anketa.id_studenta = Uspevaemost.[id_studenta(FK)])) ON Predmet.id_predmet = Uspevaemost.[id_predmet(FK)];

Подскажите хоть с запросом.. вот в МС Access создал подобный запрос.. как его в делфи записать что б он у меня всеж работал..

и я не уверен что за месяц ток выводяться оценки..

Добавлено через 28 минут

Delphi

procedure TForm1.TabSheet4Show(Sender: TObject);
begin
q1.SQL.Clear;
if edit8.Text='' then
exit
else
begin
q1.SQL.Add('SELECT Uspevaemost.[id_predmet(FK)], Uspevaemost.[ocenka], Uspevaemost.[data_ocenki], Anketa.Fam');
q1.SQL.Add('FROM Predmet INNER JOIN (Anketa INNER JOIN Uspevaemost ON (Anketa.id_gruppi = '+edit5.Text);
q1.SQL.Add('AND (Anketa.id_studenta = Uspevaemost.[id_studenta(FK)])='+''''+Edit8.Text+''''+')');
q1.SQL.Add('ON Predmet.id_predmet = Uspevaemost.[id_predmet(FK)]');
end;
q1.Open;
 
end;

Вот собрал как то так код... но выдает ошбку..

Добавлено через 10 часов 24 минуты

Delphi

procedure TForm1.TabSheet4Show(Sender: TObject);
begin
q1.SQL.Clear;
if edit8.Text='' then
exit
else
begin
q1.SQL.Add('SELECT Predmet.Nazvanie_predmeta, Uspevaemost.ocenka, Uspevaemost.data_ocenki');
q1.SQL.Add('FROM Predmet INNER JOIN Uspevaemost ON Predmet.[id_predmet] = Uspevaemost.[id_predmet(FK)]');
q1.SQL.Add('WHERE [id_studenta(FK)]='+edit8.Text);
end;
q1.Open;
 
end;

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

Добавлено через 22 часа 23 минуты

создал я запрос SQL на выборку по месяцу..
в тексте программы вышло вот так.

Delphi

procedure TForm1.TabSheet4Show(Sender: TObject);
begin
Label8.Caption:=edit1.Text;
label9.Caption:=edit2.Text;
label10.Caption:=edit3.Text;
q1.SQL.Clear;
if edit8.Text='' then
exit
else
begin
q1.SQL.Add('SELECT Predmet.Nazvanie_predmeta, Uspevaemost.ocenka, Uspevaemost.data_ocenki');
q1.SQL.Add('FROM Predmet INNER JOIN Uspevaemost ON Predmet.[id_predmet] = Uspevaemost.[id_predmet(FK)]');
q1.SQL.Add('WHERE (([id_studenta(FK)]='+''''+edit8.Text+''''+')');
q1.SQL.Add('AND ([Uspevaemost]![data_ocenki]'+'like'+''''+FormatDateTime('*.mm.yyyy',cal.Date)+''''+')'+')');
 
end;
ShowMessage(q1.Sql.Text);
q1.Open;
 
end;

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

Вернуться к обсуждению:
Создание сводки успеваемости по всем предметам за месяц Delphi БД

Следующий ответ