Характеристика функциональных возможностей разрабатываемой программы в среде Delphi для регистрации абитуриентов. Описание алгоритма и структуры данной программы. Поиск данных в базе по заданным параметрам. Описание модулей и листинг программы.
Краткое сожержание материала:

Размещено на

Курсовая работа

РАЗРАБОТКА ИНФОРМАЦИОННОЙ СИСТЕМЫ ПО РЕГИСТРАЦИИ АБИТУРИЕНТОВ В УЧЕБНОМ ЗАВЕДЕНИИ

Содержание

информационная система регистрация абитуриент delphi

• Введение
• Постановка и описание задачи
• Описание алгоритма
• Структура программы
• Описание модулей программы
• Заключение
• Список литературы
• Приложение 1. Листинг программы
• Приложение 2
• Приложение 3
• Приложение 4
• Приложение 5
• Приложение 6
• Приложение 7

Введение

Целью данного курсового проекта разработать информационную систему по регистрации абитуриентов в учебном заведении.

Цель любой информационной системы является обработка данных об объектах реального мира. В широком смысле слова ИС -- это совокупность сведений о конкретных объектах реального мира в какой-либо предметной области. Под предметной областью принято понимать часть реального мира, подлежащего изучению для организации управления и, в конечном счете, автоматизации, например предприятие, вуз и т д.

Создавая информационную систему, пользователь стремится упорядочить информацию по различным признакам и быстро извлекать выборку с произвольным сочетанием признаков. Сделать это возможно, только если данные структурированы.

Структурирование -- это введение соглашений о способах представления данных.

Пользователями информационной системы могут быть различные прикладные программы, программные комплексы, а также специалисты предметной области, выступающие в роли потребителей или источников данных, называемые конечными пользователями.

Таким образом информационная система (ИТ) -- это поименованная совокупность структурированных данных, относящихся к определенной предметной области.

Постановка и описание задачи

Задачей данного курсового проекта является разработать систему регистрации абитуриентов в учебном заведении.

Данная программа должна иметь следующие функциональные возможности:

1. Ввод абитуриентов в базу.

2. Поиск абитуриентов в базе по заданным атрибутам.

3. Просмотр количества баллов набранных абитуриентами.

Описание алгоритма

Данные хранятся в файле. Для просмотра данных был использован компонент StringGrid [1] (см. Рис1).

Рис. 1 Форма Система регистрации абитуриентов в учебном заведении



Данные из таблицы сохраняются при помощи компоненты SaveDialog (см. Рис 2)

Рис 2. Диалоговое окно Сохранить как…

Структура программы

Добавления, поиска и просмотра проходного бала набранного абитуриентами

Добавления записей в базу

Поиск данных в базе по заданным параметрам

Описание модулей программы

Модуль UBAZA.pas

Процедура N16Click(Sender: TObject)

Формируется отчет в Excel.

Процедура N14Click(Sender: TObject)

Все данные из таблицы экспортируются в Excel (см. Приложение 4).

Процедура Button2Click(Sender: TObject)

Происходит считывание из таблицы находящийся на форме Система регистрации абитуриентов в учебном заведении и отображается в таблице формы Балы абитуриентов (см. Приложение1).

Процедура N9Click(Sender: TObject)

Открывает форму Поиск.

Процедура N8Click(Sender: TObject)

Удаляет строки в таблице.

Процедура N3Click(Sender: TObject)

Вызывается диалоговое окно Сохранить. Данные из таблицы StringGrid [1] сохраняются в отдельный файл (см. Приложение 3).

Процедура N2Click(Sender: TObject)

Вызывается для открытия файлов (см. Приложение 5).

Процедура ShowHint(Sender: TObject)

Позволяет делать подсказку для компонентов на панели инструментов (см. Приложение 2).

Также в данном модуле были использованы следующие процедуры: N6Click(Sender: TObject), N4Click(Sender: TObject) открытие закрытие формы.

Модуль UBal.pas

Процедура N2Click(Sender: TObject)

Вызывает диалоговое окно Открыть.

Процедура N3Click(Sender: TObject)

Вызывает диалоговое окно Сохранить.

Процедура Button1Click(Sender: TObject)

Оператором Form1.StringGrid1.RowCount:=2 удаляются строки из таблицы, и закрывается форма.

Процедура FormCreate(Sender: TObject)

В данной процедуре происходит визуальная настройка таблицы. В таблице отображаются названия столбцов.

Модуль UBlank.pas

Процедура Button6Click(Sender: TObject)

При нажатии на кнопку происходит вызов процедуры er().

Процедура procedure er()

Добавления записей в таблицу (см. Приложение 6).

Процедуры Button5Click(Sender: TObject), Button4Click(Sender: TObject), Button3Click(Sender: TObject), Button2Click(Sender: TObject), Button1Click(Sender: TObject) открывают формы.

Модуль USearch.pas

Процедура Button1Click(Sender: TObject)

Поиск данных в таблице по заданным параметрам (см. Приложение 7).

Заключение

В ходе выполнения курсового проекта были получены навыки по работе с компонентами в визуальной среде разработки Delphi. Разработанная программа продемонстрировала простоту в использовании, так как имеет привычный интерфейс. удовлетворяет условию поставленной задачи.

Список литературы

1. Архангельский А.Я. Программирование в Delphi для Windows. Версия 2006, 2007, Turbo Delphi. - M.: ООО «Бином-Пресс», 2007 г. -1248 с.: ил.

Приложение 1. Листинг программы

procedure TForm5.Button2Click(Sender: TObject);

var

i1,i2,i3,i4,i5,j:integer;

begin

//Проверка на "пустоту" в ячейках формы Балы абитуриентов

if (Form1.StringGrid1.Cells[0,1] = ' ') and (Form1.StringGrid1.Cells[1,1]= ' ') and (Form1.StringGrid1.Cells[2,1] = ' ') and (Form1.StringGrid1.Cells[3,1]= ' ') and (Form1.StringGrid1.Cells[4,1] = ' ') then

begin

//Происходит считывание из таблицы находящийся на форме Система

//регистрации абитуриентов в учебном заведении в таблицу формы Балы //абитуриентов

Form1.StringGrid1.Cells[0,1]:=Form5.StringGrid1.Cells[0,1];

Form1.StringGrid1.Cells[1,1]:=Form5.StringGrid1.Cells[1,1];

Form1.StringGrid1.Cells[2,1]:=Form5.StringGrid1.Cells[2,1];

Form1.StringGrid1.Cells[3,1]:=Form5.StringGrid1.Cells[3,1];

If (Form5.StringGrid1.Cells[9,1]) <> ' ' Then

i1:=StrToInt(Form5.StringGrid1.Cells[9,1]);

If (Form5.StringGrid1.Cells[10,1]) <> ' ' Then

i2:=StrToInt(Form5.StringGrid1.Cells[10,1]);

If (Form5.StringGrid1.Cells[11,1]) <> ' ' Then

i3:=StrToInt(Form5.StringGrid1.Cells[11,1]);

If (Form5.StringGrid1.Cells[12,1]) <> ' ' Then

i4:=StrToInt(Form5.StringGrid1.Cells[12,1]);

If (Form5.StringGrid1.Cells[13,1]) <> ' ' Then

i5:=StrToInt(Form5.StringGrid1.Cells[13,1]);

Form1.StringGrid1.Cells[4,1]:=inttostr(i1+i2+i3+i4+i5);

Form1.Close;

exit;

end

else

j:=Form1.Stri...