Материал: Автоматизация процесса контроля знаний учащихся ГОУ СОШ №21 г. Смоленск

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
78
12. Дональд Эрвин Кнут, Искусство программирования, том 4А.
Комбинаторные алгоритмы , часть 1 / М.: Издательский дом «Вильямс»,
2016
13. Дино Эспозито, Андреа Сальтарелло, Microsoft .NET:
архитектура корпоративных приложений 2-е издание 1 / М.: Издательский
дом «Вильямс», 2016
14. Жуков А., «Изучаем Delphi», Питер, 2016, 452 с.
15. Информационные технологии в бизнесе / Под ред. М. Желейн –
СПб: Питер, 2015
16. Кандзюба С. П., Громов В. Н, «Delphi 6/7. Базы данных и
приложения», DiaSoft, 2017, с.56
17. Кириллов, В. В. Введение в реляционные базы данных / В. В.
Кириллов, Г. Ю. Громов. – Спб.: БХВ-Петербург, 2016.
18. Калашян, А.Н. Структурные модели бизнеса: DFD- технологии.
Учебник /А.Н. Калашян, Г.Н. Калянов/ - М.: Финансы и статистика, 2018.
19. Конноли Т., Бегг К., Страчан А. База данных: проектирование,
реализация и сопровождение. Теория и практика, 2-е изд.: Пер. с англ.: Уч.
пос. - М.: Издательский дом «Вильямс», 2016.
20. Коберн А. Быстрая разработка программного обеспечения.: Пер.
с англ. - М.: ЛОРИ, 2017.
21. Коберн А. Современные методы описания функциональных
требований к системам.: Пер. с англ. - М.: ЛОРИ, 2017.
22. Кристиан Нейгел, Билл Ивьен, Джей Глинн, Карли Уотсон,
Морган Скиннер, C++ 5.0 и платформа .NET 4.5 для профессионалов / М.:
Диалектика, 2016
23. Леффингуэлл Д., Уидриг Д. Принципы работы с требованиями
к программному обеспечению. Унифицированный подход: Пер. с англ. - М.:
Издательский дом «Вильямс», 2016
79
24. Маклаков, С. В. BPwin ERwin CASE-средства разработки
информационных систем / М., Диалог-МИФИ, 2015
25. Натан Марц, Джеймс Уоррен, Принципы и практика построения
масштабируемых систем обработки данных в реальном времени / М.:
Издательский дом «Вильямс», 2016
26. Мартин Фаулер, Предметно-ориентированные языки
программирования (Signature Series) / М.: Диалектика, 2015
27. Малахов А. Н., Максюков Н. И. Никишин В. А. Высшая
математика: учебное пособие / Московский государственный университет
экономики, статистики и информатики. - М.: МЭСИ, 2016
28. Михеева В., Харитонова И «MS Access 2007», БВХ-Петербург,
2017., с.56-59
29. Олифер В.Г., Олифер Н.А. Основы сетей передачи данных //
[Электронное издание]. (http://www.intuit.ru). Проверено 11.02.2016.
30. Петров В. Н., «Информационные системы», Питер, 2017, с. 56-
128
31. Притыкин Д. А. BPwin 4.0: пришел, увидел, реорганизовал.
Мнение пользователя. [Электронный документ]. (http://info-
system.ru/designing/methodology/bpwin/bpwin.html). Проверено 12.02.2016.
32. Робинсон С., «Microsoft Access 2007», Питер, 2017, с.22.
33. Скрипкин К.Г. Экономическая эффективность
информационных систем. - М.: ДМК Пресс, 2016
34. Тельнов Ю.Ф. Интеллектуальные информационные системы:
учебное пособие / Московский государственный университет экономики,
статистики и информатики. - М.: МЭСИ, 2015
35. Тамре Л. Введение в тестирование программного обеспечения :
Пер. с англ. - М.: Издательский дом «Вильямс», 2016
36. Тарасов, С. В. СУБД для программиста. Базы данных изнутри. -
М.: СОЛОН-Пресс, 2017.
80
37. Федоров А., Елманова Н., «ADO в Delphi», БВХ -Санкт-
Петербург, 2016, с.85-93.
38. Фаронов В., «Программирование баз данных в Delphi», Питер,
2016, с. 159-163
39. Фаронов В., «Delphi 7. Руководство программиста», Нолидж,
2017, с.26-28.
40. Харитонова И., «Access 2007», Питер, 2017, с.256-262
41. Шафер, Дональд, Ф., Управление программными проектами:
достижение оптимального качества при минимуме затрат.: Пер. с англ. - М.:
Издательский дом «Вильямс», 2017.
81
Приложение 1
ПРОЦЕДУРА ВЫВОД Н/А.
Эта процедура выбирает из таблицы только тех учеников, у которых нет оценок.
Запускается процедура кликом по клавише меню N8.
procedure TfrmGlav.N8Click(Sender: TObject);
begin
Т.к. нам нужны все не аттестованные, то необходимо вывести все записи, в
которых средний балл равен "0". А т.к. средний балл может быть не проставлен, то
добавляется условие на пустое множество
ADOTable1.Filter := 'sred=null or sred=0'; Ставим фильтр по столбцу средний
балл и отбираем все записи со значением 0 или пустое.
ADOTable1.Filtered := true; Запускаем фильтрацию.
end;
После выполнения отображаются выбранные записи, все остальные скрываются.
ПРОЦЕДУРА ВЫВОД ДВОЕЧНИКОВ.
Процедура будет выбирать из таблицы все строки, в полях которых находится
хотя бы одна двойка.
Запускается процедура кликом по клавише меню N8.
procedure TfrmGlav.N9Click(Sender: TObject);
Для выполнения процедуры потребуются следующие переменные
i-переменная цикла.
filter- содержит анализируемую строку.
var
i:integer;
filter:string;
begin
В цикле получим строку вида: "дата1=2" or "дата2=2" or "дата3=2" ...Т.е строки,
в которых есть двойки.
for i:=3 to ADOTable1.FieldCount-1 do
Filter :='['+ADOTable1.Fields[i].FullName + ']=2 OR '+ Filter;
Удалим последние 4 символа, т.е. " OR "
Delete(Filter,length(Filter)-3,4);
Если в таблице нет полей с датами, то фильтровать не надо!
if filter='' then exit;
ADOTable1.Filter := filter; В свойство фильтра запишем полученную строку
ADOTable1.Filtered := true; В установим фильтрацию
end;
ПРОЦЕДУРА СОРТИРОВКА ПО ФАМИЛИИ.
Данная процедура предназначена для сортировки учеников по фамилии от А до Я
и обратно.
Запускается процедура кликом по клавише меню N8.
procedure TfrmGlav.N15Click(Sender: TObject);
Ставим условие, что если список отсортирован по убыванию, то отсортировать по
убыванию.
begin
if (ADOTable1.Sort <> 'Фамилия DESC') then
82
ADOTable1.Sort := 'Фамилия DESC'
else
ADOTable1.Sort := 'Фамилия ASC';
Отображение клавиши.(Нажата, Не нажата)
n15.Checked := not n15.Checked;
n16.Checked := false;
end;
ПРОЦЕДУРА СОРТИРОВКА ПО УСПЕВАЕМОСТИ.
Данная процедура сортирует фамилии учеников в зависимости от их
успеваемости, по какому либо предмету, в двух направлениях: от неуспевающих к
отличникам и наоборот.
Ставим условие, что если список отсортирован по убыванию, то отсортировать,
иначе, отсортировать по возрастанию.
procedure TfrmGlav.N16Click(Sender: TObject);
begin
if (ADOTable1.Sort <> 'SRED ASC') then
ADOTable1.Sort := 'SRED ASC'
else
ADOTable1.Sort := 'SRED DESC';
Отображение клавиши.(Нажата, Не нажата)
n16.Checked := not n16.Checked;
n15.Checked := false;
end;
ПРОЦЕДУРА ОБНОВИТЬ.
Процедура предназначена для обновления таблицы в DBGrid1, также
сбрасываются все фильтры и сортировки.
procedure TfrmGlav.ToolButton7Click(Sender: TObject);
begin
выкл. Фильтр и сортировки.
ADOTable1.Filter := '';
ADOTable1.Filtered := false;
ADOTable1.Sort := '';
end;
ПРОЦЕДУРА ОТКРЫТЬ БАЗУ.
Если необходимо сменить базу, для отображения в программе следует
использовать данную процедуру. С помощью объекта OpenDialog предоставляется
возможность сменить обращение к базе в ADOBaseOsn(ADOConnection)
procedure TfrmGlav.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
if OpenDialog1.FileName<>'' then
begin
frmStart.ADOBaseOsn.Close; Закрываем базу.
frmStart.ADOBaseOsn.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Sourc='+
OpenDialog1.FileName+';Persist Security Info=False'; Путь к новой базе.
Источник: https://baza.diplomsite.ru/previewfile/2097

Смотрите также:

17. Введение 18. Линейные программы 19. Ветвления 20. Программирование циклических алгоритмов
Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Сборные железобетонные ребристые плиты перекрытия
_-___-~1
_3 тема - Диффузия
_Роджерс Карл, Брак и его альтернативы
_Штерн Вильям, Дифференциальная психология и ее методические основы