Автоматизированная информационная система «Приемная комиссия»

Автор работы: Пользователь скрыл имя, 12 Июня 2013 в 19:40, курсовая работа

Описание работы

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

Содержание работы

1.ВВЕДЕНИЕ………………………………………………………………4
2.АНАЛИТИЧЕСКИЙ РАЗДЕЛ……………………………………………6
2.1.Характеристика предметной области………………………..6
2.2. Описание и выбор инструментальных средств……………….7
2.2.1. Delphi…………………………………………………8
2.2.2. Microsoft Access……………………………………….12
2.2.3.MySQL…………………………………………………13
2.2.4. Microsoft SQL Server…………………………….......14
2.3. Постановка комплекса задач системы………………………15
2.4. Структурная схема документооборота системы…………….19
3. ПРОЕКТНЫЙ РАЗДЕЛ……………………………………………………20
3.1. Проектирование и описание структуры базы данных………..20
3.2 Описание структуры и интерфейса программы……………….24
3.2.1 Модульная схема………………………..……………………….24
3.2.2 Элементы управления для ввода и отображения информации…25
3.2.3. Диалог пользователя с системой……………………………….…25
3.3.1. Установка и запуск программы…………………………………….27
3.3.2. Руководство пользователя по работе с программой…………….27
4. ЭКСПЕРИМЕНТАЛЬНЫЙ РАЗДЕЛ…………………………………………..29
4.1. Методика и результат испытаний системы……………..........29
5.ЗАКЛЮЧЕНИЕ……………………………………………………………….30
СПИСОК ЛИТЕРАТУРЫ………………………………………………………31
ПРИЛОЖЕНИЕ…………………………………………………………………32

Скачать архив (283.37 Кб) Сколько стоит заказать работу?
Файлы: 1 файл

Курсовой проект (Киркина).doc

— 710.50 Кб (Скачать файл)

procedure TForm1.Button3Click(Sender: TObject); Показать форму группы

begin

Form5.Show;

Form1.Hide;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

Begin                                          Заполнение списка групп

Form3.Table1.First;

While not Form3.Table1.Eof do

begin

form6.Combobox2.items.add(Form3.Table1.FieldByName('Cpecialnost').AsString);

Form3.Table1.Next;

end;

 

Form1.Hide;                                       Отображение формы зачисления   

Form6.Show;

 

 

Form6.Table2.First;                          Очистка таблицы баллов

While not Form6.Table2.Eof do

Form6.Table2.Delete;

 

 

 

Form6.Table2.Append;                    Заполнение таблицы баллов из таблицы групп

Form6.Table2.fieldbyname('Ball').asstring:='1';

Form6.Table2.fieldbyname('Num').asstring:='0';

Form6.Table2.Append;

Form6.Table2.fieldbyname('Ball').asstring:='2';

Form6.Table2.fieldbyname('Num').asstring:='0';

Form6.Table2.Append;

Form6.Table2.fieldbyname('Ball').asstring:='А';

Form5.Table1.Locate('Gruppa','А-101',[]);

Form6.Table2.fieldbyname('Num').asstring:=Form5.Table1.fieldbyname('Prohod.bal').asstring;

Form6.Table2.Append;

Form6.Table2.fieldbyname('Ball').asstring:='П';

Form5.Table1.Locate('Gruppa','П-101',[]);

Form6.Table2.fieldbyname('Num').asstring:=Form5.Table1.fieldbyname('Prohod.bal').asstring;

Form6.Table2.Append;

 


 

Form6.Table2.fieldbyname('Ball').asstring:='М';

Form5.Table1.Locate('Gruppa','М-101',[]);

Form6.Table2.fieldbyname('Num').asstring:=Form5.Table1.fieldbyname('Prohod.bal').asstring;

Form6.Table2.Append;

Form6.Table2.fieldbyname('Ball').asstring:='С';

Form5.Table1.Locate('Gruppa','С-101',[]);

Form6.Table2.fieldbyname('Num').asstring:=Form5.Table1.fieldbyname('Prohod.bal').asstring;

Form6.Table2.Append;

Form6.Table2.fieldbyname('Ball').asstring:='К';

Form5.Table1.Locate('Gruppa','К-101',[]);

Form6.Table2.fieldbyname('Num').asstring:=Form5.Table1.fieldbyname('Prohod.bal').asstring;

Form6.Table2.Append;

Form6.Table2.fieldbyname('Ball').asstring:='Р';

Form5.Table1.Locate('Gruppa','Р-101',[]);

Form6.Table2.fieldbyname('Num').asstring:=Form5.Table1.fieldbyname('Prohod.bal').asstring;

Form6.Table2.Append;

Form6.Table2.fieldbyname('Ball').asstring:='Э';

Form5.Table1.Locate('Gruppa','Э-101',[]);

Form6.Table2.fieldbyname('Num').asstring:=Form5.Table1.fieldbyname('Prohod.bal').asstring;

Form6.Table2.Post;

end;

 

procedure TForm1.Button4Click(Sender: TObject);            Отображение формы поступивших

begin 

Form1.Hide;

Form7.show;

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);    Вызов справки

begin

Application.HelpCommand(HELP_CONTENTS,10);

end;

 

end.

 

 

 

unit Unit2;

 

procedure TForm2.Button2Click(Sender: TObject);  Добавление введенного заявления в таблицу

 

begin

table1.Append;

table1.Edit;

Table1.FieldByName('fio').Text:=edit1.Text;

Table1.FieldByName('Adres_propisci').Text:=edit2.Text;

Table1.FieldByName('Uch.zav.(schcola,PTU)').Text:=edit3.Text;

Table1.FieldByName('Gragdanstvo').Text:=edit4.Text;

Table1.FieldByName('Document_udost.lichnost').Text:=edit5.Text;

Table1.FieldByName('Svedenia_o_otce').Text:=edit6.Text;

Table1.FieldByName('Svedenia_o_materi').Text:=edit7.Text;

Table1.FieldByName('EGE').Text:=Edit8.Text;

Table1.FieldByName('Prioritet_cpecialnostei').Text:=combobox1.Text;

Table1.FieldByName('Forma_obuchenia').Text:=combobox2.Text;


Table1.FieldByName('Lgoti').Text:=combobox3.Text;

Table1.FieldByName('Obchegitie').Text:=combobox4.Text;

Table1.Post;

end;

 

procedure TForm2.Button1Click(Sender: TObject); Вернуться на главную форму

begin

form2.Hide;

form1.Show;

end;

 

procedure TForm2.Button3Click(Sender: TObject); Удалить текущую запись из таблицы

begin

Table1.Delete;

end;

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

Application.HelpCommand(HELP_CONTENTS,30); Вызов справки

 

end;

 

end.

 

 

 

unit Unit3;

 

 

procedure TForm3.Button1Click(Sender: TObject); Добавление выбранного студента в таблицу

begin

If Table1.Locate('FIO',form2.Table1.FieldByName('FIO').AsString,[]) Then

MessageDlg('Уже есть в таблице!',mtError,[mbOk],0)

else

Begin

table1.Append;

table1.Edit;

Table1.FieldByName('FIO').Text:=form2.Table1.FieldByName('FiO').Text;

table1.FieldByName('Cpecialnost').Text:=form2.Table1.FieldByName('Prioritet_cpecialnostei').Text;

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Многоканальные  телекоммуникационные системы' then Table1.FieldByName('Eczamen').Text:='Математика, Физика'   ;

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Радиосвязь,радиовещание  и телевидение' then Table1.FieldByName('Eczamen').Text:='Математика, Русский' ;

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Сети  связи и системы коммутации' then Table1.FieldByName('Eczamen').Text:='Математика, Русский';

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Эксплуатация  средств связи' then Table1.FieldByName('Eczamen').Text:='Математика, Русский, Информатика';

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Автоматизированные системы обработки информации и управления' then Table1.FieldByName('Eczamen').Text:='Математика, Физика, Информатика';

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Информационная безопасность' then Table1.FieldByName('Eczamen').Text:='Математика, Физика, Информатика';

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Прикладная  информатика' then

 


Table1.FieldByName('Eczamen').Text:='Математика, Физика, Информатика';

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Экономика  и бухгалтерский учет' then Table1.FieldByName('Eczamen').Text:='Русский,  Информатика';

If  form2.Table1.FieldByName('Prioritet_cpecialnostei').Text='Техническое  обслуживание и ремонт радиоэлектронной техники' then Table1.FieldByName('Eczamen').Text:='Русский, Информатика,Математика';

table1.Post;

end;

end;

 

procedure TForm3.Button2Click(Sender: TObject);  Удаление текущей записи из таблицы

begin

table1.Delete;

end;

 

procedure TForm3.Button3Click(Sender: TObject);  Выставление введенных оценок

begin

Table1.Edit;

Table1.FieldByName('Rezultat_po_matematike').Text:=Edit1.Text;

Table1.FieldByName('Rezultat_po_russkomu').Text:=Edit2.Text;

Table1.FieldByName('Rezultat_po_fizike').Text:=Edit3.Text;

Table1.FieldByName('Rezultat_po_informatike').Text:=Edit4.Text;

Table1.Post;

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

 

procedure TForm3.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;   Выбор экзаменов

  Shift: TShiftState; X, Y: Integer);

begin

if  Table1.FieldByName('Eczamen').Text='Математика, Физика' then begin

  edit2.Visible:=false;

   edit4.Visible:=false;

    edit1.Visible:=true;

   edit3.Visible:=true;

end;

if Table1.FieldByName('Eczamen').Text='Математика, Русский' then  begin

  edit3.Visible:=false;

   edit4.Visible:=false;

   edit2.Visible:=true;

   edit1.Visible:=true;

end;

if Table1.FieldByName('Eczamen').Text='Математика, Русский, Информатика' then  begin

  edit3.Visible:=false;

  edit1.Visible:=true;

   edit2.Visible:=true;

   edit4.Visible:=true;

end;

if Table1.FieldByName('Eczamen').Text='Математика, Физика, Информатика' then  begin

  edit3.Visible:=true;

   edit4.Visible:=true;

   edit1.Visible:=true;

   edit2.Visible:=false;


 

end;

if  Table1.FieldByName('Eczamen').Text='Русский, Информатика' then begin

  edit1.Visible:=false;

   edit3.Visible:=false;

    edit2.Visible:=true;

   edit4.Visible:=true;

end;

if  Table1.FieldByName('Eczamen').Text='Русский, Информатика,Математика' then begin

  edit2.Visible:=true;

   edit4.Visible:=true;

    edit1.Visible:=true;

   edit3.Visible:=false;

end;

end;

 

procedure TForm3.Button4Click(Sender: TObject);  Вернуться на главную форму

begin

form3.Hide;

form1.Show;

end;

 

procedure TForm3.BitBtn1Click(Sender: TObject);   Вызов справки

begin

Application.HelpCommand(HELP_CONTENTS,40);

end;

 

end.

 

 

 

 

unit Unit5;

 

 

procedure TForm5.Button1Click(Sender: TObject); 

var

k,m,s,kk,r,e,a,p:Integer;

b:real;

begin

k:=0;

 

Form5.Table1.First;                 Очистка таблицы группы

while not Form5.Table1.Eof do

Form5.Table1.Delete;

 

 

Form3.Table1.First;                              подсчёт количества сдавших студентов

while not Form5.Table1.Eof do

begin

Form5.Table1.Next;

K:=K+1;

end;

 

end;


procedure TForm5.Button2Click(Sender: TObject);  Вернуться на главную форму

begin

Form1.Show;

Form5.Hide;

end;

 

procedure TForm5.BitBtn1Click(Sender: TObject);   Вызов справки

begin

Application.HelpCommand(HELP_CONTENTS,50);

end;

 

end.

 

 

 

unit Unit6;

 

 

procedure TForm6.Button2Click(Sender: TObject); Вернуться на главную форму

begin

Form6.Hide;

Form1.Show;

end;

 

procedure TForm6.ComboBox1Change(Sender: TObject);   Отображение информации по группе

begin

Table1.Filter:='Gruppa = '+#39+Combobox1.Text+#39;   

Table1.Filtered:=True;

 

table2.First;

Label10.Caption:=table2.FieldByName('Num').AsString;

Label12.Caption:=ComboBox1.Text;

 

 

 

If ComboBox1.Text='А-101' Then table2.Locate('Ball','А',[]);

If ComboBox1.Text='П-101' Then table2.Locate('Ball','П',[]);

If ComboBox1.Text='М-101' Then table2.Locate('Ball','М',[]);

If ComboBox1.Text='С-101' Then table2.Locate('Ball','С',[]);

If ComboBox1.Text='К-101' Then table2.Locate('Ball','К',[]);

If ComboBox1.Text='Р-101' Then table2.Locate('Ball','Р',[]);

If ComboBox1.Text='Э-101' Then table2.Locate('Ball','Э',[]);

 

Label17.Caption:=table2.FieldByName('Num').AsString;

If ComboBox1.Text='Группа' Then Label17.Caption:='Укажите группу';

 

Form5.Table1.Locate('Gruppa',ComboBox1.Text,[]);

label6.Caption:=Form5.Table1.fieldbyname('Kol-vo ludei').asstring;

If ComboBox1.Text='Группа' then label6.Caption:='Укаж.группу';

 

//расчет претендентов

//Form3.Table1

 

end;

 


procedure TForm6.DBGrid1CellClick(Column: TColumn);  Расчет проходного балла студента

var

b:Real;

begin

Label3.Caption:=Form3.table1.Fieldbyname('FIO').AsString;

 

If Form3.Table1.Fieldbyname('Eczamen').Asstring='Математика, Физика' then

b:=(form3.Table1.FieldByName('Rezultat_po_matematike').AsInteger+form3.Table1.FieldByName('Rezultat_po_fizike').AsInteger)/2;

 

If Form3.Table1.Fieldbyname('Eczamen').Asstring='Математика, Русский' then

b:=(form3.Table1.FieldByName('Rezultat_po_matematike').AsInteger+form3.Table1.FieldByName('Rezultat_po_russkomu').AsInteger)/2;

 

If Form3.Table1.Fieldbyname('Eczamen').Asstring='Математика, Русский, Информатика' then

b:=(form3.Table1.FieldByName('Rezultat_po_matematike').AsInteger+form3.Table1.FieldByName('Rezultat_po_russkomu').AsInteger+form3.Table1.FieldByName('Rezultat_po_informatike').AsInteger)/3;

 

If Form3.Table1.Fieldbyname('Eczamen').Asstring='Математика, Физика, Информатика' then

b:=(form3.Table1.FieldByName('Rezultat_po_matematike').AsInteger+form3.Table1.FieldByName('Rezultat_po_fizike').AsInteger+form3.Table1.FieldByName('Rezultat_po_informatike').AsInteger)/3;

 

If Form3.Table1.Fieldbyname('Eczamen').Asstring='Русский, Информатика' then

b:=(form3.Table1.FieldByName('Rezultat_po_russkomu').AsInteger+form3.Table1.FieldByName('Rezultat_po_informatike').AsInteger)/2;

 

If Form3.Table1.Fieldbyname('Eczamen').Asstring='Русский, Информатика,Математика' then

b:=(form3.Table1.FieldByName('Rezultat_po_matematike').AsInteger+form3.Table1.FieldByName('Rezultat_po_russkomu').AsInteger+form3.Table1.FieldByName('Rezultat_po_informatike').AsInteger)/3;

 

Table2.Edit;

Table2.next;

Table2.Edit;

Form5.Table1.Locate('Cpecialnost',Form3.Table1.FieldByName('Cpecialnost').asstring,[]);

Table2.FieldByName('Num').AsString:=Form5.Table1.FieldByName('Prohod.bal').AsString;

 

Table2.First;

Table2.Edit;

Table2.FieldByName('Num').AsString:=Floattostr(b);

 

Table2.Edit;

Table2.next;

Table2.Edit;

Form5.Table1.Locate('Cpecialnost',Form3.Table1.FieldByName('Cpecialnost').asstring,[]);

Table2.FieldByName('Num').AsString:=Form5.Table1.FieldByName('Prohod.bal').AsString;

 

Table2.First;

Table2.Edit;

Table2.FieldByName('Num').AsString:=Floattostr(b);

 

Table2.Edit;

Table2.next;

 


 

Table2.Edit;

Form5.Table1.Locate('Cpecialnost',Form3.Table1.FieldByName('Cpecialnost').asstring,[]);

Table2.FieldByName('Num').AsString:=Form5.Table1.FieldByName('Prohod.bal').AsString;

 

Table2.First;

Table2.Edit;

Table2.FieldByName('Num').AsString:=Floattostr(b);

 

Label10.Caption:=Floattostr(b);

Label12.Caption:=ComboBox1.Text;

 

 

If ComboBox1.Text='А-101' Then table2.Locate('Ball','А',[]);

If ComboBox1.Text='П-101' Then table2.Locate('Ball','П',[]);

If ComboBox1.Text='М-101' Then table2.Locate('Ball','М',[]);

If ComboBox1.Text='С-101' Then table2.Locate('Ball','С',[]);

If ComboBox1.Text='К-101' Then table2.Locate('Ball','К',[]);

If ComboBox1.Text='Р-101' Then table2.Locate('Ball','Р',[]);

If ComboBox1.Text='Э-101' Then table2.Locate('Ball','Э',[]);

 

Label17.Caption:=table2.FieldByName('Num').AsString;

If ComboBox1.Text='Группа' Then Label17.Caption:='Укажите группу';

 

end;

 

procedure TForm6.ComboBox1CloseUp(Sender: TObject);  Выбор группы

begin

If ComboBox1.Text='А-101' Then table2.Locate('Ball','А',[]);

If ComboBox1.Text='П-101' Then table2.Locate('Ball','П',[]);

If ComboBox1.Text='М-101' Then table2.Locate('Ball','М',[]);

If ComboBox1.Text='С-101' Then table2.Locate('Ball','С',[]);

If ComboBox1.Text='К-101' Then table2.Locate('Ball','К',[]);

If ComboBox1.Text='Р-101' Then table2.Locate('Ball','Р',[]);

If ComboBox1.Text='Э-101' Then table2.Locate('Ball','Э',[]);

 

Label17.Caption:=table2.FieldByName('Num').AsString;

If ComboBox1.Text='Группа' Then Label17.Caption:='Укажите группу';

 

end;

 

procedure TForm6.Button3Click(Sender: TObject); Перенос записи в таблицу зачислен

begin

If Label10.Caption='Label10' then

MessageDlg('Выберите кого зачислить!',mtError,[mbOk],0)

else

If ComboBox1.Text='Группа' Then

MessageDlg('Выберите куда зачислить!',mtError,[mbOk],0)

else

If Strtofloat(Label10.Caption)<Strtofloat(Label17.caption) then

if MessageDlg('Вы точно хотите зачислить  '+Label3.Caption+'? Результат ниже требуемого!',mtConfirmation,[mbYes,mbNo],0)=6 then

Begin

table1.Append;

table1.FieldByName('Fio').AsString:=Form3.Table1.FieldByName('Fio').AsString;


 

table1.FieldByName('God').AsString:=Edit1.Text;

table1.FieldByName('Cpec').AsString:=Form3.Table1.FieldByName('Cpecialnost').AsString;

table1.FieldByName('Gruppa').AsString:=ComboBox1.Text;

table1.post;

Form3.Table1.Delete;

End;

 

end;

procedure TForm6.ComboBox2Change(Sender: TObject);  Фильтрация по группе

begin

Form3.Table1.Filter:='Cpecialnost = '+#39+ComboBox2.Text+#39;

Form3.Table1.Filtered:=true;

end;

 

procedure TForm6.Button1Click(Sender: TObject);   Отключение фильтрации

begin

Form3.Table1.Filtered:=False;

end;

 

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

Application.HelpCommand(HELP_CONTENTS,70);   Вызов справки

end;

 

end.

 

 

 

unit Unit7;

 

 

procedure TForm7.Button1Click(Sender: TObject); Возвращение в главное меню

begin

Form7.Hide;

Form1.show;

end;

 

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

Информация о работе Автоматизированная информационная система «Приемная комиссия»