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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Данные хранятся в файле. Для просмотра данных был использован компонент StringGrid (см. Рис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 сохраняются в отдельный файл (см. Приложение 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.StringGrid1.RowCount-1;

begin

For i:= 1 to (Form5.StringGrid1.RowCount-1) do begin

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

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

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

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

if (Form5.StringGrid1.Cells[9,i])<> '' then

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

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

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

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

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

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

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

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

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

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

Form1.StringGrid1.RowCount:=j+1;

j:=Form1.StringGrid1.RowCount;

end;

Form1.Close;

end;

end;

Приложение 2

//Процедура позволяющая делать подсказку

Procedure TForm5. ShowHint (Sender: TObject);

begin

if length (Application.Hint)>0 then

begin

Form5.StatusBar1.SimplePanel:=True;

Form5.StatusBar1.SimplePanel:=False;

end

else

Form5.StatusBar1.SimplePanel:=False;

end;

Приложение 3

//Сохранение данных

procedure TForm5. N3Click (Sender: TObject);

var

f: TextFile;

i, k: Integer;

begin

if not SaveDialog1. Execute then exit;

AssignFile (f, SaveDialog1. FileName);

Rewrite (f);

with StringGrid1 do

begin

Writeln (f, ColCount);

Writeln (f, RowCount);

for i := 0 to ColCount — 1 do

for k := 0 to RowCount — 1 do

Writeln (F, Cells[i, k]);

end;

CloseFile (F);

end;

Приложение 4

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

procedure TForm5. N14Click (Sender: TObject);

begin

if fontdialog1. Execute then

StringGrid1.Font.Assign (fontdialog1.Font);

end;

procedure TForm5. N16Click (Sender: TObject);

var

Excel, WorkBook, Sheet, rows: Variant;

a, b, a1,b1: integer;

begin

Excel:=CreateOleObject ('Excel.Application');

Excel.SheetsInNewWorkbook:=1;

WorkBook:=Excel.WorkBooks.Add;

Sheet:=WorkBook.WorkSheets[1];

a:=StringGrid1.ColCount;

a1:=0;

Rows:=WorkBook.WorkSheets[1].rows;

Rows.Rows[2].Font.bold:=true;

Rows.Rows[2].Font.Size:=12;

while a>a1 do

begin

b:=StringGrid1.RowCount;

b1:=0;

while b>b1 do

begin

Sheet .Cells[b1+2, a1+2]: =StringGrid1.Cells[a1, b1];

b1:=b1+1;

end;

a1:=a1+1;

end;

Sheet.Cells.Columns.AutoFit;

Excel.Visible:=True;

end;

Приложение 5

//Открытие файлов

procedure TForm5. N2Click (Sender: TObject);

var

f: TextFile;

iTmp, i, k: Integer;

strTemp: String;

begin

if not OpenDialog1. Execute then exit;

AssignFile (f, OpenDialog1. FileName);

Reset (f);

with StringGrid1 do

begin

Readln (f, iTmp);

ColCount := iTmp;

Readln (f, iTmp);

RowCount := iTmp;

for i := 0 to ColCount — 1 do

for k := 0 to RowCount — 1 do

begin

Readln (f, strTemp);

Cells[i, k] := strTemp;

end;

end;

CloseFile (f);

end;

Приложение 6

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

procedure er ();

begin

if Form5. StringGrid1.Cells[0,1] = ' ' then

begin

i:= Form5. StringGrid1.RowCount;

Form5.StringGrid1.Cells[0,1]: =form2.Edit1.Text;

Form5.StringGrid1.Cells[1,1]:=form2.Edit2.Text;

Form5.StringGrid1.Cells[2,1]:=form2.Edit3.Text;

Form5.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2. Edit2.Text + ' ' + Form2. Edit3.Text + ' ' + 'добавлен в базу ';

Form5.StringGrid1.Cells[4,1]: =form2.MaskEdit1.Text;

Form5.StringGrid1.Cells[9,1]:=form13.Edit1.Text;

Form5.StringGrid1.Cells[13,1]:=form13.Edit2.Text;

Form5.StringGrid1.Cells[14,1]:=form13.Edit6.Text;

Form5.StringGrid1.Cells[16,1]:=form6.Edit1.Text;

Form5.StringGrid1.Cells[17,1]:=form6.Edit2.Text;

Form5.StringGrid1.Cells[18,1]:=form6.Edit3.Text;

Form5.StringGrid1.Cells[19,1]:=form6.Edit4.Text;

Form5.StringGrid1.Cells[20,1]:=form6.Edit5.Text;

Form5.StringGrid1.Cells[23,1]:=form8.Edit1.Text;

Form5.StringGrid1.Cells[24,1]:=form8.Edit3.Text;

Form5.StringGrid1.Cells[21,1]:=form8.Edit2.Text;

Form5.StringGrid1.Cells[22,1]:=form8.Edit4.Text;

Form5.StringGrid1.Cells[5,1]:=form12.Edit1.Text;

Form5.StringGrid1.Cells[6,1]:=form12.MaskEdit1.Text;

Form5.StringGrid1.Cells[7,1]:=form12.Edit2.Text;

if Form2. RadioButton1.Checked = True then

Form5.StringGrid1.Cells[8,1]: =Form2.RadioButton1.Caption

else

Form5.StringGrid1.Cells[8,1]:=Form2.RadioButton2.Caption;

Form5.StringGrid1.Cells[3,1]:=form13.Edit4.Text;

Form1.StringGrid1.Cells[0,1]:=form2.Edit1.Text;

Form1.StringGrid1.Cells[1,1]:=form2.Edit2.Text;

Form1.StringGrid1.Cells[2,1]:=form2.Edit3.Text;

Form1.StringGrid1.Cells[3,1]:=form13.Edit4.Text;

Form1.StringGrid1.Cells[4,1]:=form13.Edit5.Text;

if Form13. ComboBox1. Text = 'Физика' then

Form5.StringGrid1.Cells[10,i-1]: =Form13.Edit3.Text;

if Form13. ComboBox1. Text = 'Информатика' then

Form5.StringGrid1.Cells[11,i-1]: =Form13.Edit3.Text;

if Form13. ComboBox1. Text = 'История России' then

Form5.StringGrid1.Cells[12,i-1]: =Form13.Edit3.Text;

if Form4. CheckBox1.Checked = True then

Form5.StringGrid1.Cells[15,1]: =Form5.StringGrid1.Cells[15,1] + Form4. CheckBox1.Caption+ ';';

if Form4. CheckBox2.Checked = True then

Form5.StringGrid1.Cells[15,1]: =Form5.StringGrid1.Cells[15,1] + Form4. CheckBox2.Caption+ ';';

if Form4. CheckBox3.Checked = True then

Form5.StringGrid1.Cells[15,1]: =Form5.StringGrid1.Cells[15,1] + Form4. CheckBox3.Caption+ ';';

if Form4. CheckBox4.Checked = True then

Form5.StringGrid1.Cells[15,1]: =Form5.StringGrid1.Cells[15,1] + Form4. CheckBox4.Caption+ ';';

if Form4. CheckBox5.Checked = True then

Form5.StringGrid1.Cells[15,1]: =Form5.StringGrid1.Cells[15,1] + Form4. CheckBox5.Caption+ ';';

form2.Edit1.Clear;

form2.Edit2.Clear;

form2.Edit3.Clear;

form2.MaskEdit1.Clear;

form13.Edit1.Clear;

form13.Edit2.Clear;

form13.Edit6.Clear;

form6.Edit1.Clear;

form6.Edit2.Clear;

form6.Edit3.Clear;

form6.Edit4.Clear;

form6.Edit5.Clear;

form8.Edit1.Clear;

form8.Edit3.Clear;

form8.Edit2.Clear;

form8.Edit4.Clear;

form12.Edit1.Clear;

form12.MaskEdit1.Clear;

form12.Edit2.Clear;

Form2.Close;

exit;

end

else

begin

i:= Form5. StringGrid1.RowCount;

Form5.StringGrid1.RowCount:= Form5. StringGrid1.RowCount+1;

Form5.StringGrid1.Cells[0,i]: =form2.Edit1.Text;

Form5.StringGrid1.Cells[1,i]:=form2.Edit2.Text;

Form5.StringGrid1.Cells[2,i]:=form2.Edit3.Text;

Form5.StatusBar1.Panels[0].Text:=Form2.Edit1.Text + ' ' + Form2. Edit2.Text + ' ' + Form2. Edit3.Text + ' ' + 'добавлен в базу ';

Form5.StringGrid1.Cells[4,i]: =form2.MaskEdit1.Text;

Form5.StringGrid1.Cells[9,i]:=form13.Edit1.Text;

Form5.StringGrid1.Cells[13,i]:=form13.Edit2.Text;

Form5.StringGrid1.Cells[14,i]:=form13.Edit6.Text;

Form5.StringGrid1.Cells[16,i]:=form6.Edit1.Text;

Form5.StringGrid1.Cells[17,i]:=form6.Edit2.Text;

Form5.StringGrid1.Cells[18,i]:=form6.Edit3.Text;

Form5.StringGrid1.Cells[19,i]:=form6.Edit4.Text;

Form5.StringGrid1.Cells[20,i]:=form6.Edit5.Text;

Form5.StringGrid1.Cells[23,i]:=form8.Edit1.Text;

Form5.StringGrid1.Cells[24,i]:=form8.Edit3.Text;

Form5.StringGrid1.Cells[21,i]:=form8.Edit2.Text;

Form5.StringGrid1.Cells[22,i]:=form8.Edit4.Text;

Form5.StringGrid1.Cells[5,i]:=form12.Edit1.Text;

Form5.StringGrid1.Cells[6,i]:=form12.MaskEdit1.Text;

Form5.StringGrid1.Cells[7,i]:=form12.Edit2.Text;

if Form2. RadioButton1.Checked = True then

Form5.StringGrid1.Cells[8,i]: =Form2.RadioButton1.Caption

else

Form5.StringGrid1.Cells[8,i]:=Form2.RadioButton2.Caption;

Form5.StringGrid1.Cells[3,i]:=form13.Edit4.Text;

Form1.StringGrid1.Cells[0,i]:=form2.Edit1.Text;

Form1.StringGrid1.Cells[1,i]:=form2.Edit2.Text;

Form1.StringGrid1.Cells[2,i]:=form2.Edit3.Text;

Form1.StringGrid1.Cells[3,i]:=form13.Edit4.Text;

if Form13. ComboBox1. Text = 'Физика' then

Form5.StringGrid1.Cells[10,i-1]: =Form13.Edit3.Text;

if Form13. ComboBox1. Text = 'Информатика' then

Form5.StringGrid1.Cells[11,i-1]: =Form13.Edit3.Text;

if Form13. ComboBox1. Text = 'История России' then

Form5.StringGrid1.Cells[12,i-1]: =Form13.Edit3.Text;

if Form4. CheckBox1.Checked = True then

Form5.StringGrid1.Cells[15,i-1]: =Form5.StringGrid1.Cells[15,i-1] + Form4. CheckBox1.Caption+ ';';

if Form4. CheckBox2.Checked = True then

Form5.StringGrid1.Cells[15,i-1]: =Form5.StringGrid1.Cells[15,i-1] + Form4. CheckBox2.Caption+ ';';

if Form4. CheckBox3.Checked = True then

Form5.StringGrid1.Cells[15,i-1]: =Form5.StringGrid1.Cells[15,i-1] + Form4. CheckBox3.Caption+ ';';

if Form4. CheckBox4.Checked = True then

Form5.StringGrid1.Cells[15,i-1]: =Form5.StringGrid1.Cells[15,i-1] + Form4. CheckBox4.Caption+ ';';

if Form4. CheckBox5.Checked = True then

Form5.StringGrid1.Cells[15,i-1]: =Form5.StringGrid1.Cells[15,i-1] + Form4. CheckBox5.Caption+ ';';

form2.Edit1.Clear;

form2.Edit2.Clear;

form2.Edit3.Clear;

form2.MaskEdit1.Clear;

form13.Edit1.Clear;

form13.Edit2.Clear;

form13.Edit6.Clear;

form6.Edit1.Clear;

form6.Edit2.Clear;

form6.Edit3.Clear;

form6.Edit4.Clear;

form6.Edit5.Clear;

form8.Edit1.Clear;

form8.Edit3.Clear;

form8.Edit2.Clear;

form8.Edit4.Clear;

form12.Edit1.Clear;

form12.MaskEdit1.Clear;

form12.Edit2.Clear;

Form2.Close;

end;

end;

Приложение 7

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

procedure TForm14. Button1Click (Sender: TObject);

var

i, j: Integer;

Shablon, Shablon1, Shablon2: String;

begin

Shablon:= Form14. Edit1.Text;

Shablon1:= Form14. Edit2.Text;

Shablon2:= Form14. Edit3.Text;

with Form5. StringGrid1 do

for j:= 1 to RowCount — 1 do

if (Cells[0,j] = Shablon) and (Cells[1,j] = Shablon1) and (Cells[2,j] = Shablon2) then

begin

Form7.Show;

Form7.Caption:=Edit1.Text + ' ' + Edit2. Text + ' ' + Edit3. Text;

Form7.Edit1.Text:=Cells[0,j];

Form7.Edit2.Text:=Cells[1,j];

Form7.Edit3.Text:=Cells[2,j];

Form7.Edit4.Text:=Cells[3,j];

Form7.MaskEdit1.Text:=Cells[4,j];

Form7.Edit5.Text:=Cells[5,j];

Form7.MaskEdit2.Text:=Cells[6,j];

Form7.Edit6.Text:=Cells[7,j];

Form7.Edit7.Text:=Cells[8,j];

Form7.Edit8.Text:=Cells[9,j];

Form7.Edit9.Text:=Cells[10,j];

Form7.Edit10.Text:=Cells[11,j];

Form7.Edit11.Text:=Cells[12,j];

Form7.Edit12.Text:=Cells[13,j];

Form7.Edit13.Text:=Cells[14,j];

Form7.Memo1.Text:=Cells[15,j];

Form7.Edit14.Text:=Cells[16,j];

Form7.Edit15.Text:=Cells[17,j];

Form7.Edit16.Text:=Cells[18,j];

Form7.Edit17.Text:=Cells[19,j];

Form7.Edit18.Text:=Cells[20,j];

Form7.Edit19.Text:=Cells[21,j];

Form7.Edit20.Text:=Cells[22,j];

Form7.Edit21.Text:=Cells[23,j];

Form7.Edit22.Text:=Cells[24,j];

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

//Form14.Close;

end;

with Form5. StringGrid1 do

begin

for j:= 1 to RowCount — 1 do

if (Cells[0,j] <> Shablon) and (Cells[1,j] <> Shablon1) and (Cells[2,j] <> Shablon2) then

MessageDlg ('Абитуриент' + ' ' +Edit1.Text + ' ' + Edit2. Text + ' ' + Edit3. Text + ' ' + 'не найден', mtInformation, [mbOk], 0);

end;

end;