Автоматизированная система распределения мест и оценок качества олимпиадных заданий
Категория реферата: Рефераты по педагогике
Теги реферата: реферат на тему биография, налоги реферат
Добавил(а) на сайт: Sapaljov.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата
procedure BitBtn2Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var
Form4: TForm4;
Conf:TIniFile;
implementation
{$R *.dfm}
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
ModalResult:=mrCancel;
end;
procedure TForm4.BitBtn2Click(Sender: TObject);
begin try
Conf:=TIniFile.Create(GetCurrentDir+'Config.ini'); with Conf do begin case RadioGroup1.ItemIndex of
0: WriteString('BLOCK_CONFIG','NUM_BLOCKS','1');
1: WriteString('BLOCK_CONFIG','NUM_BLOCKS','2');
2: WriteString('BLOCK_CONFIG','NUM_BLOCKS','3'); end; case RadioGroup2.ItemIndex of
0: WriteString('SORT_CONFIG','SORT_TYPE','1');
1: WriteString('SORT_CONFIG','SORT_TYPE','2');
2: WriteString('SORT_CONFIG','SORT_TYPE','3'); end;
WriteString('MARK_CONFIG','MARKS_TYPE','ONE_IN_ONE');
WriteString('MARK_CONFIG','MARKS_VALUE',Edit1.Text);
UpdateFile; end;
Conf.Free;
Application.MessageBox('Настройки успешно
сохранены!','Сообщение',mb_Ok+mb_IconAsterisk);
ModalResult:=mrCancel; except
Application.MessageBox('Ошибка записи настроек в INI- файл!','Ошибка',mb_Ok+mb_IconHand);
Exit; end; end;
end.
Модуль 5.
Код этого модуля представляет собой программный вариант распределения
участников по местам, а также построение распределений по указанным
параметрам. Проще говоря, модуль отвечает за окно распределения по местам и
все действия, производимые в нем.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, StdCtrls, Grids, DBGrids, Buttons, DB, DBTables,
INIFiles,
TeeProcs, TeEngine, Chart, TeeFunci, Series, Menus;
type
TForm5 = class(TForm)
Panel1: TPanel;
Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.
Предыдущая страница реферата | 14 15 16 17 18 19 20 21 22 23 24 | Следующая страница реферата