Автоматизированная система распределения мест и оценок качества олимпиадных заданий - Педагогика - Скачать бесплатно

 1: SortStr:='order by PARAM2 desc';
   2: SortStr:='order by PARAM3 desc';
   3: SortStr:='order by PARAM1 desc,PARAM2 desc,PARAM3 desc';
  end;
  if (SortType='1') and (RadioGroup1.ItemIndex=3) then SortStr:='order by
PARAM1 desc, PARAM3 desc, PARAM3 desc';
  with Query1 do
   begin
    Active:=False;
    SQL.Clear;
    SQL.Add('select * from "'+Form1.Table1.TableName+'"');
    SQL.Add(SortStr);
    ExecSQL;
    Active:=True;
   end;
end;

procedure TForm5.N11Click(Sender: TObject);
 var
  i,j,NumI:integer;
  ind,per:double;
  GrPar, GrPercent, parm:array[1..200] of double;
begin

  NumI:=StrToInt(FloatToStr(NumMarks));
  for i:=0 to 200 do
   begin
     GrPar[i]:=0;
     GrPercent[i]:=0;
     parm[i]:=0;
   end;
  per:=0;
  ind:=0;
  Query1.First;
  if Sender=N11 then
   begin

     for j:=1 to Query1.RecordCount do
         begin
           parm[j]:=Query1.FieldValues['PARAM1'];
           Query1.Next;
         end;
     ind:=-3*NumMarks;
     for i:=1 to 6*NumI+1 do
      begin
         for j:=1 to Query1.RecordCount do
           begin
             if ind=parm[j] then per:=per+1;
           end;
        GrPar[i]:=ind;
        GrPercent[i]:=per/Query1.RecordCount;
        per:=0;
        ind:=ind+1;
      end;
      Series1.Clear;
      Chart1.BottomAxis.Title.Caption:='Параметр 1';
      Chart1.BottomAxis.Minimum:=-3*NumMarks;
     Chart1.BottomAxis.Maximum:=ind-1;
      For i:=0 to 6*NumI+1 do
       begin
        Series1.AddXY(GrPar[i],GrPercent[i]);
       end;
  end;
  if Sender=N21 then
   begin
     for j:=1 to Query1.RecordCount do
         begin
           parm[j]:=Query1.FieldValues['PARAM2'];
           Query1.Next;
         end;
     ind:=-2*NumMarks;
     for i:=1 to 4*NumI+1 do
      begin
         for j:=1 to Query1.RecordCount do
           begin
             if ind=parm[j] then per:=per+1;
           end;
        GrPar[i]:=ind;
        GrPercent[i]:=per/Query1.RecordCount;
        per:=0;
        ind:=ind+1;
      end;
     Series1.Clear;
     Chart1.BottomAxis.Title.Caption:='Параметр 2';
     Chart1.BottomAxis.Minimum:=-2*NumMarks;
     Chart1.BottomAxis.Maximum:=ind-1;
     For i:=0 to 4*NumI+1 do
      begin
       Series1.AddXY(GrPar[i],GrPercent[i]);
      end;
  end;
  if Sender=N31 then
   begin
     for j:=1 to Query1.RecordCount do
         begin
           parm[j]:=Query1.FieldValues['PARAM3'];
           Query1.Next;
         end;
     ind:=-1*NumMarks;
     for i:=1 to 2*NumI+1 do
      begin
         for j:=1 to Query1.RecordCount do
           begin
             if ind=parm[j] then per:=per+1;
           end;
        GrPar[i]:=ind;
        GrPercent[i]:=per/Query1.RecordCount;
        per:=0;
        ind:=ind+1;
      end;
     Series1.Clear;
     Chart1.BottomAxis.Title.Caption:='Параметр 3';
     Chart1.BottomAxis.Minimum:=-1*NumMarks;
     Chart1.BottomAxis.Maximum:=ind-1;
     For i:=0 to 2*NumI+1 do
      begin
       Series1.AddXY(GrPar[i],GrPercent[i]);
      end;
   end;
   if Sender=N1 then
     begin
        for j:=1 to Query1.RecordCount do
         begin
           parm[j]:=Query1.FieldValues['SUMMARK'];
           Query1.Next;
         end;
     ind:=0;
     for i:=1 to 6*NumI+1 do
      begin
         for j:=1 to Query1.RecordCount do
           begin
             if ind=parm[j] then per:=per+1;
           end;
        GrPar[i]:=ind;
        GrPercent[i]:=per/Query1.RecordCount;
        per:=0;
        ind:=ind+1;
      end;
     Series1.Clear;
     Chart1.BottomAxis.Title.Caption:='Суммарный балл';
     Chart1.BottomAxis.Minimum:=0*NumMarks;
     Chart1.BottomAxis.Maximum:=ind-1;
     For i:=0 to 6*NumI+1 do
      begin
       Series1.AddXY(GrPar[i],GrPercent[i]);
      end;
     end;
  Query1.First;
end;

procedure TForm5.N3Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
   begin
    Series1.SeriesColor:=ColorDialog1.Color;
   end;
end;

procedure TForm5.N4Click(Sender: TObject);
begin
 if ColorDialog1.Execute then
  begin
   Chart1.Gradient.EndColor:=ColorDialog1.Color;
   Chart1.Gradient.StartColor:=clWhite;
  end;
end;

end.

Модуль 6.
Код этого модуля отвечает за окно и  сам  процесс  создания  локальной  базы
данных.
unit Unit6;

interface

uses
   Windows,  Messages,  SysUtils,  Variants,  Classes,  Graphics,  Controls,
Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, DB, DBTables;

type
  TForm6 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    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;