Автоматизированная система распределения мест и оценок качества олимпиадных заданий
Категория реферата: Рефераты по педагогике
Теги реферата: реферат на тему биография, налоги реферат
Добавил(а) на сайт: Sapaljov.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
Application.Terminate; end; end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N10Click(Sender: TObject); begin try if Application.MessageBox('Хотите сохранить текущий вид таблицы?','Подтвердите',mb_YesNo+mb_IconAsterisk)=idNo then Exit else begin
Config:=TIniFile.Create(GetCurrentDir+'Config.ini'); with Config do begin
WriteString('GRID_CONFIG','FIO',IntToStr(DBGrid1.Columns[0].Width));
WriteString('GRID_CONFIG','MARK1',IntToStr(DBGrid1.Columns[1].Width));
WriteString('GRID_CONFIG','MARK2',IntToStr(DBGrid1.Columns[2].Width));
WriteString('GRID_CONFIG','MARK3',IntToStr(DBGrid1.Columns[3].Width));
WriteString('GRID_CONFIG','MARK4',IntToStr(DBGrid1.Columns[4].Width));
WriteString('GRID_CONFIG','MARK5',IntToStr(DBGrid1.Columns[5].Width));
WriteString('GRID_CONFIG','MARK6',IntToStr(DBGrid1.Columns[6].Width));
WriteString('GRID_CONFIG','SUMMARK',IntToStr(DBGrid1.Columns[7].Width));
WriteString('GRID_CONFIG','SCHOOL',IntToStr(DBGrid1.Columns[8].Width));
UpdateFile; end;
Config.Free;
Application.MessageBox('Настройки успешно сохранены!','Сообщение',mb_Ok+mb_IconAsterisk); end; except
Application.MessageBox('Ошибка сохранения
настроек!','Ошибка',mb_Ok+mb_IconHand);
Exit;
end;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject); var i:integer;
begin
OpenDialog1.InitialDir:=GetCurrentDir+'Bases';
if OpenDialog1.Execute then begin try with Table1 do begin
Active := False;
DatabaseName := 'Olymp';
TableType := ttParadox;
TableName := ExtractFileName(OpenDialog1.FileName);
Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата