Задача: разработать ИС, имитирующую зачетную книжку студента, с использованием языка программирования Object Pascal, среды разработки Embarcadero RAD studio XE7 (также известной, как Embarcadero Delphi XE7) и с использованием базы данных или динамического списка.
Приложение представляет собой таблицу, аналогичную таблице в зачетке, в которую можно внести данные об успеваемости студента. Обработка данных, т.е. сохранение, загрузка и редактирование, осуществляется через динамический список. Хранятся данные в нетипизированном файле.
Исходники можно открыть и более ранними версиями IDE, например Delphi 7. Для компиляции в более ранних версиях IDE потребуется немного изменить исходный код, т.к. методы подключения библиотек, названия процедур и т.д. различаются, но сам рабочий код изменений не требует. Изменение исходного кода в этом случае легко осуществляется при помощи гугла и списка ошибок при компиляции.
Содержание архива: приложение, пояснительная записка, презентация.
Содержание пояснительной записки:
Введение
1 Исследование предметной области
2 Функциональная модель ИС
3 Проектная часть
3.1 Описание методов
3.2 Описание работы программы
Заключение
Список литературы
Пример исходного кода добавления записи в конец динамического списка
Procedure TAddForm.AddLast(First: pItem; x: tData); var N: pItem; Last: pItem; begin New(N); N^.Data:=x; N^.Next:=Nil; Last:=First; While(Last^.Next<>Nil) do Last:= Last^.Next; Last^.Next:=N; end; Procedure TAddForm.Reading(var x: tData); var Last: pItem; begin Last:=First; while Last^.Next<>Nil do Last:=Last^.Next; x.Number := Last^.Data.Number+1; x.SubType := Combobox1.Text; x.subject := Edit2.Text; x.Count := Edit3.Text; x.mark := Edit4.Text; x.Date := StrToDate(Edit5.Text); x.surname := Edit6.Text; x.semester := StrToInt(Edit7.Text); end;
savior