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

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;

Chart1.Enabled:=True;

except

Application.MessageBox('Ошибка инициализации БД. Возможно не установлен
BDE, или база не открыта.','Ошибка',mb_Ok+MB_ICONHAND);

Chart1.Enabled:=False;

Exit; end; if Query1.RecordCount=0 then begin

Application.MessageBox('В БД нет ни одной записи.','Сообщение',mb_Ok+MB_ICONASTERISK);

Exit; end;
Cf1:=TIniFile.Create(GetCurrentDir+'Config.ini'); try with Cf1 do begin

MCon:=ReadString('MARK_CONFIG','MARKS_TYPE',Default); if MCon='ONE_IN_ONE' then begin maxb:=ReadString('MARK_CONFIG','MARKS_VALUE',Default); end;

MCon:=ReadString('BLOCK_CONFIG','NUM_BLOCKS',Default); end;
NumI:=StrToInt(maxb);

Cf1.Free; except
Application.MessageBox('Ошибка чтения из INI-файла. Проверьте конфигурацию.','Ошибка',mb_Ok+mb_IconHand);
Exit; end; for i:=0 to 200 do begin

GrPar[i]:=0;

GrPercent[i]:=0; parm[i]:=0; end; per:=0; ind:=0;
Query1.First; 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;

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





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