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

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.FormShow(Sender: TObject); var
Default, BCon, MCon:string;

i:integer; blocks, param:array [1..3] of double; begin
NumMarks:=0;
RadioGroup1.ItemIndex:=3; try
Conf1:=TIniFile.Create(GetCurrentDir+'Config.ini'); with Conf1 do begin

BCon:=ReadString('BLOCK_CONFIG','NUM_BLOCKS',Default);

Label2.Caption:='Количество блоков задач - '+Bcon;

MCon:=ReadString('MARK_CONFIG','MARKS_TYPE',Default);

SortType:=ReadString('SORT_CONFIG','SORT_TYPE',Default); if MCon='ONE_IN_ONE' then begin

NumMarks:=StrToFloat(ReadString('MARK_CONFIG','MARKS_VALUE',Default));

Label3.Caption:='Общий балл для всех задач равен
'+FloatToStr(NumMarks); end; if SortType='1' then Label4.Caption:='Слабый коллектив (1,2,3)'; if SortType='2' then Label4.Caption:='Сильный коллектив (1,3,2)'; if SortType='3' then Label4.Caption:='Смешанный коллектив'; end;

Conf1.Free; except
Application.MessageBox('Ошибка чтения из INI-файла. Проверьте конфигурацию.','Ошибка',mb_Ok+mb_IconHand);
Exit; end; try with Query1 do begin

Active:=False;

SQL.Clear;

SQL.Add('Select * from "'+Form1.Table1.TableName+'"');

ExecSQL; end;

Query1.Active:=True;

Chart1.Enabled:=True;

DBGrid1.Enabled:=True;

RadioGroup1.Enabled:=True; except

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

Chart1.Enabled:=False;

DBGrid1.Enabled:=False;

RadioGroup1.Enabled:=False;

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

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

RadioGroup1.Enabled:=False;

Exit; end; try with Query1 do begin

First; for i:=1 to RecordCount do begin if BCon='3' then begin blocks[1]:=FieldValues['MARK1']+FieldValues['MARK2']; blocks[2]:=FieldValues['MARK3']+FieldValues['MARK4']; blocks[3]:=FieldValues['MARK5']+FieldValues['MARK6']; param[1]:=(blocks[1]+blocks[2]+blocks[3])-3*NumMarks; param[2]:=2*(blocks[2]-0.5*(blocks[1]+blocks[3])); param[3]:=(blocks[3]-blocks[1])+NumMarks; end; if Bcon='2' then begin

blocks[1]:=FieldValues['MARK1']+FieldValues['MARK2']+FieldValues['MARK3'];

blocks[2]:=FieldValues['MARK4']+FieldValues['MARK5']+FieldValues['MARK6']; blocks[3]:=0; param[1]:=(blocks[1]+blocks[2])-3*NumMarks; param[2]:=(blocks[2]-blocks[1])+NumMarks; param[3]:=0; end; if Bcon='1' then begin

blocks[1]:=FieldValues['MARK1']+FieldValues['MARK2']+FieldValues['MARK3']+Fi eldValues['MARK4']+FieldValues['MARK5']+FieldValues['MARK6']; blocks[2]:=0; blocks[3]:=0; param[1]:=blocks[1]-NumMarks; param[2]:=0; param[3]:=0; end;

Edit;

FieldValues['PARAM1']:=param[1];

FieldValues['PARAM2']:=param[2];

FieldValues['PARAM3']:=param[3];

Next; end; end; except

Application.MessageBox('Неизвестная ошибка!','Ошибка',mb_Ok+MB_ICONHAND);

Exit; end; try with Query1 do begin

Active:=False;

SQL.Clear;

SQL.Add('select * from "'+Form1.Table1.TableName+'"');

SQL.Add('order by PARAM1 desc, PARAM2 desc, PARAM3 desc');

ExecSQL; end;
DataSource1.DataSet:=Query1;
DataSource1.Enabled:=True;
DBGrid1.DataSource:=DataSource1;
DBGrid1.Enabled:=True;
Query1.Active:=True; except
Application.MessageBox('Ошибка выполнения сортировки участников.
Проверьте конфигурацию.','Ошибка',mb_Ok+MB_ICONHAND);
Exit; end; end;

procedure TForm5.BitBtn1Click(Sender: TObject); begin
ModalResult:=mrOk; end;

procedure TForm5.RadioGroup1Click(Sender: TObject); var
SortStr:string; begin case RadioGroup1.ItemIndex of

0: SortStr:='order by PARAM1 desc';

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

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



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

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