Ðåôåðàò: Àâòîìàòèçèðîâàííàÿ ñèñòåìà ðàñïðåäåëåíèÿ ìåñò è îöåíîê êà÷åñòâà îëèìïèàäíûõ çàäàíèé
Label3: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
ModalResult:=mrNo;
end;
procedure TForm6.BitBtn2Click(Sender: TObject);
var
Comm:TStringList;
begin
try
with Form1.Table1 do begin
Active := False;
DatabaseName := 'Olymp';
TableType := ttParadox;
TableName := Edit1.Text;
if not Form1.Table1.Exists then begin
with FieldDefs do begin
Clear;
with AddFieldDef do begin
Name := 'Counter';
DataType := ftInteger;
Required := True;
end;
with AddFieldDef do begin
Name := 'FIO';
DataType := ftString;
Size := 25;
end;
with AddFieldDef do begin
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;
ind,per,block1,block2,block3,coun,coun1,coun2,coun3,n1,n2,n3,k:double;
p1,p2,p3:array [1..50] of double;
GrPar, GrPercent, parm:array[1..200] of double;
MCon, Default,maxb:string;
sbl1,sbl2,sbl3:double;
kn, kp:array[1..3] of double;
srbl1,srbl2,srbl3,sdxq1,sdxq2,sdxq3:double;
dx1,dx2,dx3,sigm1,sigm2,sigm3,m:double;
begin
try
with Query1 do
begin
Active:=False;
SQL.Clear;
SQL.Add('Select * from "'+Form1.Table1.TableName+'"');
ExecSQL;
end;
Query1.Active:=True;
Ñòðàíèöû: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13