Курсовая работа: Базы данных в Delphi

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.

Часть 2. Заполнение базы данных.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Label2: TLabel;

К-во Просмотров: 1580
Бесплатно скачать Курсовая работа: Базы данных в Delphi