Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

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

Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.



Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки