Разработка информационной системы по регистрации абитуриентов в учебном заведении

 

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

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

Содержание

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

Введение

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

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

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

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

Заключение

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

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

Приложение 2

Приложение 3

Приложение 4

Приложение 5

Приложение 6

Приложение 7

Введение

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

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

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

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

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

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

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

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

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

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

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

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

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

Данные хранятся в файле. Для просмотра данных был использован компонент 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);,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];.StringGrid1.Cells[1,1]:=Form5.StringGrid1.Cells[1,1];.StringGrid1.Cells[2,1]:=Form5.StringGrid1.Cells[2,1];.StringGrid1.Cells[3,1]:=Form5.StringGrid1.Cells[3,1];(Form5.StringGrid1.Cells[9,1]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[9,1]);(Form5.StringGrid1.Cells[10,1]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[10,1]);(Form5.StringGrid1.Cells[11,1]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[11,1]);(Form5.StringGrid1.Cells[12,1]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[12,1]);(Form5.StringGrid1.Cells[13,1]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[13,1]);.StringGrid1.Cells[4,1]:=inttostr(i1+i2+i3+i4+i5);.Close;;:=Form1.StringGrid1.RowCount-1;i:= 1 to (Form5.StringGrid1.RowCount-1) do begin.StringGrid1.Cells[0,i]:=Form5.StringGrid1.Cells[0,i];.StringGrid1.Cells[1,i]:=Form5.StringGrid1.Cells[1,i];.StringGrid1.Cells[2,i]:=Form5.StringGrid1.Cells[2,i];.StringGrid1.Cells[3,i]:=Form5.StringGrid1.Cells[3,i];(Form5.StringGrid1.Cells[9,i])<> '' then:=StrToInt(Form5.StringGrid1.Cells[9,i]);(Form5.StringGrid1.Cells[10,i]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[10,i]);(Form5.StringGrid1.Cells[11,i]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[11,i]);(Form5.StringGrid1.Cells[12,i]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[12,i]);(Form5.StringGrid1.Cells[13,i]) <> ' ' Then:=StrToInt(Form5.StringGrid1.Cells[13,i]);.StringGrid1.Cells[4,i]:=IntToStr(i1+i2+i3+i4+i5);.StringGrid1.RowCount:=j+1;:=Form1.StringGrid1.RowCount;;.Close;;;

Приложение 2

//Процедура позволяющая делать подсказкуTForm5.ShowHint(Sender: TObject);length(Application.Hint)>0 then.StatusBar1.SimplePanel:=True;.StatusBar1.SimplePanel:=False;.StatusBar1.SimplePanel:=False;;

Приложение 3

//Сохранение данныхTForm5.N3Click(Sender: TObject);: TextFile;, k: Integer;not SaveDialog1.Execute then exit;(f, SaveDialog1.FileName);(f);StringGrid1 do(f, ColCount);(f, RowCount);i := 0 to ColCount - 1 dok := 0 to RowCount - 1 do(F, Cells[i, k]);;(F);;

Приложение 4

//Все данные из таблицы экспортируются в Excel

procedure TForm5.N14Click(Sender: TObject);fontdialog1.Execute then.Font.Assign(fontdialog1.Font);;TForm5.N16Click(Sender: TObject);, WorkBook, Sheet,rows: Variant;,b,a1,b1 : integer;:=CreateOleObject('Excel.Application');.SheetsInNewWorkbook:=1;:=Excel.WorkBooks.Add;:=WorkBook.WorkSheets[1];:=StringGrid1.ColCount;:=0;:=WorkBook.WorkSheets[1].rows;.Rows[2].Font.bold:=true;.Rows[2].Font.Size:=12;a>a1 do:=StringGrid1.RowCount;:=0;b>b1 do.Cells[b1+2, a1+2]:=StringGrid1.Cells[a1, b1];:=b1+1;;:=a1+1;;.Cells.Columns.AutoFit;.Visible:=True;;

Приложение 5

//Открытие файловTForm5.N2Click(Sender: TObject);: TextFile;, i, k: Integer;: String;not OpenDialog1.Execute then exit;(f, OpenDialog1.FileName);(f);StringGrid1 do(f, iTmp);:= iTmp;(f, iTmp);:= iTmp;i := 0 to ColCount - 1 dok := 0 to RowCount - 1 do(f, strTemp);[i, k] := strTemp;;;(f);;

Приложение 6

//Добавление записей в таблицу

procedure er();

beginForm5.StringGrid1.Cells[0,1] = ' ' then:= Form5.StringGrid1.RowCount;.StringGrid1.Cells[0,1]:=form2.Edit1.Text;.StringGrid1.Cells[1,1]:=form2.Edit2.Text;

Form5.StringGrid1.Cells[2,1]:=form2.Edit3.Text;.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2.Edit2.Text + ' ' + Form2.Edit3.Text + ' ' + 'добавлен в базу ';.StringGrid1.Cells[4,1]:=form2.MaskEdit1.Text;.StringGrid1.Cells[9,1]:=form13.Edit1.Text;.StringGrid1.Cells[13,1]:=form13.Edit2.Text;.StringGrid1.Cells[14,1]:=form13.Edit6.Text;

Form5.StringGrid1.Cells[16,1]:=form6.Edit1.Text;.StringGrid1.Cells[17,1]:=form6.Edit2.Text;.StringGrid1.Cells[18,1]:=form6.Edit3.Text;.StringGrid1.Cells[19,1]:=form6.Edit4.Text;.StringGrid1.Cells[20,1]:=form6.Edit5.Text;.StringGrid1.Cells[23,1]:=form8.Edit1.Text;.StringGrid1.Cells[24,1]:=form8.Edit3.Text;.StringGrid1.Cells[21,1]:=form8.Edit2.Text;.StringGrid1.Cells[22,1]:=form8.Edit4.Text;.StringGrid1.Cells[5,1]:=form12.Edit1.Text;.StringGrid1.Cells[6,1]:=form12.MaskEdit1.Text;.StringGrid1.Cells[7,1]:=form12.Edit2.Text;Form2.RadioButton1.Checked = True then.StringGrid1.Cells[8,1]:=Form2.RadioButton1.Caption.StringGrid1.Cells[8,1]:=Form2.RadioButton2.Caption;.StringGrid1.Cells[3,1]:=form13.Edit4.Text;.StringGrid1.Cells[0,1]:=form2.Edit1.Text;.StringGrid1.Cells[1,1]:=form2.Edit2.Text;.StringGrid1.Cells[2,1]:=form2.Edit3.Text;.StringGrid1.Cells[3,1]:=form13.Edit4.Text;.StringGrid1.Cells[4,1]:=form13.Edit5.Text;Form13.ComboBox1.Text = 'Физика' then.StringGrid1.Cells[10,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'Информатика' then

Form5.StringGrid1.Cells[11,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'История России' then.StringGrid1.Cells[12,i-1]:=Form13.Edit3.Text;Form4.CheckBox1.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox1.Caption+ ';';Form4.CheckBox2.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox2.Caption+ ';';Form4.CheckBox3.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox3.Caption+ ';';Form4.CheckBox4.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox4.Caption+ ';';Form4.CheckBox5.Checked = True then.StringGrid1.Cells[15,1]:=Form5.StringGrid1.Cells[15,1] + Form4.CheckBox5.Caption+ ';';.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.MaskEdit1.Clear;.Edit1.Clear;.Edit2.Clear;.Edit6.Clear;.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit1.Clear;.Edit3.Clear;.Edit2.Clear;.Edit4.Clear;.Edit1.Clear;.MaskEdit1.Clear;.Edit2.Clear;.Close;;:= Form5.StringGrid1.RowCount;.StringGrid1.RowCount:= Form5.StringGrid1.RowCount+1;.StringGrid1.Cells[0,i]:=form2.Edit1.Text;.StringGrid1.Cells[1,i]:=form2.Edit2.Text;.StringGrid1.Cells[2,i]:=form2.Edit3.Text;.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2.Edit2.Text + ' ' + Form2.Edit3.Text + ' ' + 'добавлен в базу ';.StringGrid1.Cells[4,i]:=form2.MaskEdit1.Text;.StringGrid1.Cells[9,i]:=form13.Edit1.Text;.StringGrid1.Cells[13,i]:=form13.Edit2.Text;.StringGrid1.Cells[14,i]:=form13.Edit6.Text;.StringGrid1.Cells[16,i]:=form6.Edit1.Text;.StringGrid1.Cells[17,i]:=form6.Edit2.Text;.StringGrid1.Cells[18,i]:=form6.Edit3.Text;.StringGrid1.Cells[19,i]:=form6.Edit4.Text;.StringGrid1.Cells[20,i]:=form6.Edit5.Text;.StringGrid1.Cells[23,i]:=form8.Edit1.Text;.StringGrid1.Cells[24,i]:=form8.Edit3.Text;.StringGrid1.Cells[21,i]:=form8.Edit2.Text;.StringGrid1.Cells[22,i]:=form8.Edit4.Text;.StringGrid1.Cells[5,i]:=form12.Edit1.Text;.StringGrid1.Cells[6,i]:=form12.MaskEdit1.Text;.StringGrid1.Cells[7,i]:=form12.Edit2.Text;Form2.RadioButton1.Checked = True then.StringGrid1.Cells[8,i]:=Form2.RadioButton1.Caption.StringGrid1.Cells[8,i]:=Form2.RadioButton2.Caption;.StringGrid1.Cells[3,i]:=form13.Edit4.Text;.StringGrid1.Cells[0,i]:=form2.Edit1.Text;.StringGrid1.Cells[1,i]:=form2.Edit2.Text;.StringGrid1.Cells[2,i]:=form2.Edit3.Text;.StringGrid1.Cells[3,i]:=form13.Edit4.Text;Form13.ComboBox1.Text = 'Физика' then.StringGrid1.Cells[10,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'Информатика' then.StringGrid1.Cells[11,i-1]:=Form13.Edit3.Text;Form13.ComboBox1.Text = 'История России' then.StringGrid1.Cells[12,i-1]:=Form13.Edit3.Text;Form4.CheckBox1.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox1.Caption+ ';';Form4.CheckBox2.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox2.Caption+ ';';Form4.CheckBox3.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox3.Caption+ ';';Form4.CheckBox4.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox4.Caption+ ';';Form4.CheckBox5.Checked = True then.StringGrid1.Cells[15,i-1]:=Form5.StringGrid1.Cells[15,i-1] + Form4.CheckBox5.Caption+ ';';.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.MaskEdit1.Clear;.Edit1.Clear;.Edit2.Clear;.Edit6.Clear;.Edit1.Clear;.Edit2.Clear;.Edit3.Clear;.Edit4.Clear;.Edit5.Clear;.Edit1.Clear;.Edit3.Clear;.Edit2.Clear;.Edit4.Clear;.Edit1.Clear;.MaskEdit1.Clear;

form12.Edit2.Clear;.Close;;

end;

Приложение 7

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

procedure TForm14.Button1Click(Sender: TObject);, j : Integer;, Shablon1, Shablon2: String;:= Form14.Edit1.Text;:= Form14.Edit2.Text;:= Form14.Edit3.Text;Form5.StringGrid1 doj:= 1 to RowCount - 1 do(Cells[0,j] = Shablon) and (Cells[1,j] = Shablon1) and (Cells[2,j] = Shablon2)then.Show;.Caption:=Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text;.Edit1.Text:=Cells[0,j];.Edit2.Text:=Cells[1,j];.Edit3.Text:=Cells[2,j];.Edit4.Text:=Cells[3,j];.MaskEdit1.Text:=Cells[4,j];.Edit5.Text:=Cells[5,j];.MaskEdit2.Text:=Cells[6,j];.Edit6.Text:=Cells[7,j];.Edit7.Text:=Cells[8,j];.Edit8.Text:=Cells[9,j];.Edit9.Text:=Cells[10,j];.Edit10.Text:=Cells[11,j];.Edit11.Text:=Cells[12,j];.Edit12.Text:=Cells[13,j];.Edit13.Text:=Cells[14,j];.Memo1.Text:=Cells[15,j];.Edit14.Text:=Cells[16,j];.Edit15.Text:=Cells[17,j];.Edit16.Text:=Cells[18,j];.Edit17.Text:=Cells[19,j];.Edit18.Text:=Cells[20,j];.Edit19.Text:=Cells[21,j];.Edit20.Text:=Cells[22,j];.Edit21.Text:=Cells[23,j];.Edit22.Text:=Cells[24,j];.Clear;.Clear;.Clear;

//Form14.Close;;Form5.StringGrid1 doj:= 1 to RowCount - 1 do(Cells[0,j] <> Shablon) and (Cells[1,j] <> Shablon1) and (Cells[2,j] <> Shablon2)then('Абитуриент' + ' ' +Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text + ' ' + 'не найден', mtInformation, [mbOk],0 );

end;;

Курсовая работа РАЗРАБОТКА ИНФОРМАЦИОННОЙ СИСТЕМЫ ПО РЕГИСТРАЦИИ АБИТУРИЕНТОВ В УЧЕБНОМ ЗАВЕДЕНИИ Соде

Больше работ по теме: