БД Выявление лучшей группы колледжа

[turka86]

Привет всем!
У меня есть курсовой БД выявление лучшей группы колледжа.
Начал создать программу. Accesse создал БД kolledj.mdb из трех таблиц: student; sessia; predmet и подкл. к Дельфи ч/з технологии ADO/
Люди добрые помогите пжл. дальше создать программу. Заранее спасибо!

[Smitt&Wesson]

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

Привет всем!
У меня есть курсовой БД выявление лучшей группы колледжа.
Начал создать программу. Accesse создал БД kolledj.mdb из трех таблиц: student; sessia; predmet и подкл. к Дельфи ч/з технологии ADO/
Люди добрые помогите пжл. дальше создать программу. Заранее спасибо!

Ну, я экстрасенс. Ещё здесь парочка найдётся, например Аватар. Вы думаете, при таких исходных, мы всё бросим и будем Вам в мозги залезать, что-бы понять? Описывайте проблему конкретно. А лучше, читайте "Правила форума". Там всё описано, что, как, когда и где.

[Stilet]

помогите пжл.

1) Каков критерий "лучшести"?
2) Как выглядит структура и ее связи?

[turka86]

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

В общем программа выглядеть так: смотреть рис. во вложениях
Там на 4-DBgrid выводится результат "Лучшая группа"

У меня есть код, но с этим кодом не работает

Часть 1. Вычисление и вывод лучшей группы:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBTables;

type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Table2: TTable;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Button1: TButton;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
t, i, k, j, f: integer;
tmp: string;
 gr: array of string;
 tt: array [1..5, 1..5] of extended;

begin

table2.moveby(1);
i:=1;
  for   i:=1 to  3 do //3 это кол-во курсов
  begin
  for j:=1 to 2 do //2 кол-во групп на курсе
   begin
     table1.Filtered:=true;
     tmp:tmp+gr[j];
         table1.Filter:='kurs=1 and grup='+ tmp;

         table2.Filtered:=true;
         table2.Filter:='sessia=1';
         k:=table2.RecordCount;
         t:=0;
        table2.moveby(1);
         for f:=1 to k do
            begin
             t:=t+table2.fieldbyname('ocenka').value;
             table2.next;
             end;
         tt[1, 1]:=t/k;
             //table1.Filtered:=false;
       end;
   end;
   label1.caption:=(inttostr(t));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i:integer;
 sum:extended;
 begin
  table2.filter:='grup=2';
  for i:=1 to Table2.recordcount do
begin

Table2.moveby(i);

sum:=sum + strtoint(Table2.Fieldbyname('ocenka').value);

end;

sum:=sum/Table2.recordcount;
//abel1.caption:=floattostr(sum)+ label1.caption;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Form2.show;
end;

end.

Как преобразовать этот код, чтобы работало этот код по технологии ADO.
Помогите пжл! Заранее спасибо!

[xxbesoxx]

turka86 Вы не поняли что вас спрашивают на #3 Как выглядит структура и ее связи? на ваши БД покажите структура таблици , какой там связь ? или нету связь между таблицами?

for i:=1 to 3 do //3 это кол-во курсов
begin
for j:=1 to 2 do //2 кол-во групп на курсе

Не , так вы не получите не какой резултат .......... задача решается SQL -е , в SELECT -е если БД проектировал нормально

[turka86]

структура табл. показано на рисунке

[xxbesoxx]

А почему между " sesia и stud " связь один к одному ?

[turka86]

Здрасти! Добрый вечер!
Добрые программисты! Помогите пжл. сделать эту задание:
Определение лучшей группы колледжа путем вычисления среднего арифметического оценок по каждой группе и сравнение полученного результата с результатами остальных групп.
Связывал таблицы. Внешний вид прог. во вложенном рис.
Я написал след. код но неполучается определить лучшую группу.
Кто нибудь помогите пжл. исправить этот код. Заранее спс!

procedure TForm1.Button1Click(Sender: TObject);
begin
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Text:=
select * from sessia where ocenka like '5';
dm.ADOQuery1.Active:=True;

{var
t, i, k, j, f: integer;
tmp: string;
 gr: array of string;
 tt: array [1..5, 1..5] of extended;
begin
   dm.ADOTable2.moveby(1);
i:=1;
  for   i:=1 to  3 do //3 это кол-во курсов
  begin
  for j:=1 to 2 do //2 кол-во групп на курсе
   begin
     dm.ADOTable1.Filtered:=true;
     tmp:=tmp+gr[j];
         dm.ADOTable1.Filter:='kurs=1 and grup='+ tmp;

         dm.ADOTable2.Filtered:=true;
         dm.ADOTable2.Filter:='sessia=1';
         k:=dm.ADOTable2.RecordCount;
         t:=0;
        dm.ADOTable2.moveby(1);
         for f:=1 to k do
            begin
             t:=t+dm.ADOTable2.fieldbyname('ocenka').value;
             dm.ADOTable2.next;
             end;
         tt[1, 1]:=t/k;
             //table1.Filtered:=false;
       end;
   end;
   label1.caption:=(inttostr(t));  }
end;





procedure TForm1.BitBtn1Click(Sender: TObject);
var
 i:integer;
 sum:extended;
begin
    dm.ADOTable2.filter:='grup=2';
  for i:=1 to dm.ADOTable2.recordcount do
begin

dm.ADOTable2.moveby(i);

sum:=sum + strtoint(dm.ADOTable2.Fieldbyname('ocenka').value);

end;

sum:=sum/dm.ADOTable2.recordcount;
label1.caption:=floattostr(sum)+ label1.caption;
end;