Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата

  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);

Рекомендуем скачать другие рефераты по теме: реферат экологические проблемы, новшество.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки