Name := 'MARK1';

DataType := ftFloat;

Required := True;

end;

with AddFieldDef do begin

Name := 'MARK2';

DataType := ftFloat;

Required := True;

end;

with AddFieldDef do begin

Name := 'MARK3';

DataType := ftFloat;

Required := True;

end;

with AddFieldDef do begin

Name := 'MARK4';

DataType := ftFloat;

Required := True;

end;

with AddFieldDef do begin

Name := 'MARK5';

DataType := ftFloat;

Required := True;

end;

with AddFieldDef do begin

Name := 'MARK6';

DataType := ftFloat;

Required := True;

end;

with AddFieldDef do begin

Name := 'SUMMARK';

DataType := ftFloat;

Required := True;

end;

with AddFieldDef do begin

Name := 'SCHOOL';

DataType := ftString;

Size := 35;

end;

with AddFieldDef do begin

Name := 'PARAM1';

DataType := ftFloat;

Required:=False;

end;

with AddFieldDef do begin

Name := 'PARAM2';

DataType := ftFloat;

Required:=False;

end;

with AddFieldDef do begin

Name := 'PARAM3';

DataType := ftFloat;

Required:=False;

end;

with AddFieldDef do begin

Name := 'PLACE';

DataType := ftInteger;

Required:=False;

end;

end;

with IndexDefs do begin

Clear;

with AddIndexDef do begin

Name := '';

Fields := 'COUNTER';

Options := [ixPrimary];

end;

with AddIndexDef do begin

Name := 'VAL1';

Fields := 'PARAM1';

Options := [ixDescending];

end;

with AddIndexDef do begin

Name := 'VAL2';

Fields := 'PARAM2';

Options := [ixDescending];

end;

with AddIndexDef do begin

Name := 'VAL3';

Fields := 'PARAM3';

Options := [ixDescending];

end;

end;

CreateTable;

Application.MessageBox('Локальная база данных успешно создана!','Сообщение',mb_OK+mb_IconAsterisk);

end

else Application.MessageBox('Локальная база данных уже существует и открыта!','Сообщение',mb_OK+mb_IconAsterisk);

end;

except

Application.MessageBox('Ошибка создания базы данных!','Внимание',mb_OK+mb_IconHand);

Exit;

end;

Form1.Table1.Active:=True;

Form1.dsOlymp.DataSet:=Form1.Table1;

Form1.DBGrid1.DataSource:=Form1.dsOlymp;

Comm:=TStringList.Create;

Comm.Clear;

Comm.Add(Edit2.Text);

Comm.SaveToFile('Bases\'+Edit1.Text+'.olp');

Comm.Free;

Form1.Label1.Caption:='Описание БД: '+Edit2.Text;

ModalResult:=mrNo;

end;

end.

Модуль 6.

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

unit Unit7;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, Buttons, Grids, DBGrids, TeEngine, Series,

TeeProcs, Chart, DB, DBTables, INIFiles;

type

TForm7 = class(TForm)

Panel1: TPanel;

BitBtn1: TBitBtn;

Chart1: TChart;

Series1: TBarSeries;

DataSource1: TDataSource;

Query1: TQuery;

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label4: TLabel;

Label5: TLabel;

Chart2: TChart;

Series2: TBarSeries;

Chart3: TChart;

Series3: TLineSeries;

Series4: TBarSeries;

Series5: TBarSeries;

Label3: TLabel;

Series6: TLineSeries;

procedure BitBtn1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

Cf1:TIniFile;

implementation

uses Unit1, Unit5, foxsoft;

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

ModalResult:=mrOk;

end;

procedure TForm7.FormShow(Sender: TObject);

var

i,j,NumI,kl,kz,nz,gr:integer;