Разработка информационной системы по регистрации абитуриентов в учебном заведении
Курсовая работа
РАЗРАБОТКА ИНФОРМАЦИОННОЙ СИСТЕМЫ ПО
РЕГИСТРАЦИИ АБИТУРИЕНТОВ В УЧЕБНОМ ЗАВЕДЕНИИ
Содержание
информационная система
регистрация абитуриент 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)
Процедура 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;;