помогите с программированием на Delphi

Denisy · 18.03.2008, 18:56

есть текст программы
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.

Часть 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;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit5: TEdit;
Button1: TButton;
private
{ Private declarations **
public
{ Public declarations **
end;

var
Form2: TForm2;

implementation

{$R *.DFM**

end.
помогите плиз скомпилировать это и выложите исходники

Добавлено через 2 часа 52 минуты
АП!не ужели ни кто не знает?