Экзамен

Цель, поставленная перед началом разработки, достигнута. Разработанная база выполняет следующие задачи:

содержит подробные сведения о студентах группы, которые сдают экзамен; о сдаваемых предметах; о преподавателях, ведущих предметы.

позволяет в любое время просматривать информацию об оценках, которые получают студенты на экзамене, а также легко модифицировать ее (добавлять, редактировать, удалять: при работе с ней учебной части);

— обеспечивает вычисление средней оценки по группе и средней оценки по каждому предмету;

— обеспечивает фильтрацию предметов по количеству часов и по фамилии преподавателя;

— база данных позволяет частично автоматизировать получение информации о сдаче студентами сессии, а также облегчает рабочую деятельность учебной части. В курсовойработе были изложены теоретические основы проектирования и разработки баз данных. А именно, были подробно описаны основные принципы проектирования реляционных баз данных и этапы физической реализации проектируемой базы данных. Был проведен анализ предметной области, выявлены входные и выходные данные. Было проведено даталогическое и инфологическое проектирование создаваемой базы данных. Были определены сущности, атрибуты, взаимосвязи между сущностями, ключи базы данных. Построена диаграмма ER-типа с учетом всех сущностей и их связей. Создана схема проектируемой базы данных. Проведено проектирование ER-модели в реляционную модель. А также, было осуществленоописание структуры и основных методов (процедур и функций) приложения. Приведены результаты тестирования с примерами визуальных форм приложения. Данная база данных обладает рядом преимуществ и недостатков. Преимуществами являются:

легкость и удобство в исполнении;

— широкие возможности расширения базы данных;

— быстрый поиск необходимых данных;

— легко переносится с одного компьютера на другой;

— возможность добавления, редактирования и удаленияданных таблиц. Недостатками являются:

не высокий уровень безопасности.

СПИСОК ЛИТЕРАТУРЫ

Баженова И.Ю. Delphi 7. Самоучитель программиста — М.:КУДИЦ-Образ, 2004. — 448 с. Балдин К.

В. Информационные системы в экономике: Учебник / К. В. Балдин.

— ИНФРА — М, 2008. — 395 с. Гарсиа-Молина Г., Ульман Дж., Уидом Дж. Системы баз данных. Полный курс. Пер.

с англ.: — М.: Изд. дом «Вильямс», 2004. — 1088 с. Дейт К.

Введение

в системы баз данных: проектирование. Реализация и управление. Пер. с англ. — СПб.: БХВ-Петербург, 2004. — 324 с. Кузин А. В. Базы данных: учебное пособие / А. В. Кузин, С. В. Левонисова.

— 5-е издание, исправ., — Москва: Академия, 2012. — 320 с. Кузнецов С. Д.

Основы баз данных. — 2-е изд. — М.: Интернет-Университет Информационных Технологий; БИНОМ. Лаборатория знаний, 2007.

— 484 с. Малыхина М. П. Базы данных: основы, проектирование, использование, 2-е изд. перераб. и доп. — СПб.: БХВ-Петербург, 2007. — 528 с. Фараонов В. В. Программирование баз данных в Delphi 7 / В. В. Фараонов.

СПб.: Питер, 2004

Фленов М. Е. Библия Delphi — 3-е изд., перераб. и доп. — СПб.: БХВ-Петербург, 2011. — 688 с. Хомоненко А. Д., Цыганков В. М., Мальцев М. Г. Базы данных: Учебник для высших учебных заведений / Под ред.

Проф. А. Д. Хомоненко. — 6-е изд., СПб.: КОРОНА принт, 2009. — 736 с. ПРИЛОЖЕНИЕ 1unitUnit1; //Модуль главной формыinterface// Определяет внешнее представление этого модуляuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls;type TForm1 = class (TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; Image1: TImage; Label1: TLabel; Label2: TLabel; N7: TMenuItem; N8: TMenuItem;procedure N2Click (Sender: TObject);procedure N3Click (Sender: TObject);procedure N5Click (Sender: TObject);procedure N6Click (Sender: TObject);procedure N4Click (Sender: TObject);procedure N7Click (Sender: TObject);procedure N8Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form1: TForm1;Implementation // Выполняет Interface этогомодуляuses Unit2, Unit3, Unit4, Unit5, Unit7, Unit6;// Частные модули{$R *.dfm}// Включение определений формыprocedure TForm1. N2Click (Sender: TObject);beginForm1.Close //Процедура для закрытия формыend;procedureTForm1.N3Click (Sender: TObject);(*Процедуры для главного меню программы, пункты которого позволяют открывать другие формы.*)beginForm2.ShowModal;end;procedure TForm1. N5Click (Sender: TObject);beginForm3.ShowModal;end;procedure TForm1. N6Click (Sender: TObject);beginForm4.ShowModal;end;procedure TForm1. N4Click (Sender: TObject);beginForm5.ShowModal;end;procedure TForm1. N7Click (Sender: TObject);beginForm7.ShowModal;end;procedure TForm1. N8Click (Sender: TObject);beginForm6.ShowModal;end;end.unitUnit2; //Модуль с таблицей базы данных Студентыinterface// Определяет внешнее представление этого модуляuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;type TForm2 = class (TForm) Table1: TTable; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; DBNavigator1: TDBNavigator; Button1: TButton;procedure Button1Click (Sender: TObject);procedure DBGrid1DrawColumnCell (Sender: TObject; constRect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);private{ Private declarations }public{ Public declarations }end;var Form2: TForm2;Implementation// Выполняет Interface этогомодуля{$R *.dfm}procedure TForm2. Button1Click (Sender: TObject);beginForm2.Close; //Процедура для закрытия формыend;procedureTForm2.Button2Click (Sender: TObject); (*Процедура для поиска данных по первым буквам фамилии*)beginQuery1.Close; //ЗакрытиепредыдущегоTQueryif not Query1. Prepared then Query1. Prepare; //ПодготовкаобъектаTQueryметодомPrepareQuery1.ParamByName ('Fam').Value := Edit1. Text;(*ПрисвоениенеобходимогозначениясвойствуParam*)Query1.Open; //Открытие объекта TQueryend;procedureTForm2.Button3Click (Sender: TObject); (*Процедурадобавленияданныхвтаблицу

Студенты*)beginTable1.Insert; //Этот метод используется для вставки данных в таблицуTable1. FieldByName ('id_stud').AsInteger:=StrToInt (Edit2.Text); (*Присвоение полям таблицы необходимых значений*)Table1.FieldByName ('Fam').AsString:=Edit3.Text;Table1.FieldByName ('Ima').AsString:=Edit4.Text;Table1.FieldByName ('Otch').AsString:=Edit5.Text;Table1.FieldByName ('data_rogd').AsDateTime:=StrToDate (Edit6.Text);Table1.FieldByName ('Pol').AsString:=Edit7.Text;Table1.FieldByName ('Adress').AsString:=Edit8.Text;Table1.Post; //Этот метод используется для сохранении данных на дискеEdit2. Clear; Edit3. Clear; Edit4. Clear; Edit5. Clear; Edit6. Clear; Edit7. Clear; Edit8. Clear; //Сбросполейвводаend;procedure TForm2. Button4Click (Sender: TObject); (*Процедурадляобновлениеданныхвтаблице*)beginTable1.Edit; //Редактированиетекущейзаписиif Edit3. Text<>'' then Table1. FieldByName ('Fam').AsString:=Edit3.Text; (*Еслиполенепустое, тогдаприсваиваемполюзначениевведенноевEdit3*)if Edit4. Text<>'' then Table1. FieldByName ('Ima').AsString:=Edit4.Text;if Edit5. Text<>'' then Table1. FieldByName ('Otch').AsString:=Edit5.Text;if Edit6. Text<>'' then Table1. FieldByName ('data_rogd').AsDateTime:=StrToDate (Edit6.Text);if Edit7. Text<>'' then Table1. FieldByName ('Pol').AsString:=Edit7.Text;if Edit8. Text<>'' then Table1. FieldByName ('Adress').AsString:=Edit8.Text;Table1.Post;Edit2.Clear; Edit3. Clear; Edit4. Clear; Edit5. Clear; Edit6. Clear; Edit7. Clear; Edit8. Clear;end;procedure TForm2. Button5Click (Sender: TObject); (*Процедураудалениязаписейизтаблицы*)begintryifApplication.MessageBox ('Delete?','BDE', MB_YESNO)=IDYES then (*Сообщениеоподтвержденииудаления*)beginTable1.Delete;//Удаление текущей записиend;excepton e: Exception doend;end;end.unitUnit6; //Модульформысфильтрациейinterfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls;type TForm6 = class (TForm) Table1: TTable; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Label3: TLabel; Edit2: TEdit; Button4: TButton; Button5: TButton; Label4: TLabel; Label5: TLabel;procedure Button1Click (Sender: TObject);procedureFormCreate (Sender: TObject);procedure Button2Click (Sender: TObject);procedure Button4Click (Sender: TObject);procedure Button3Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form6: TForm6;implementation{$R *.dfm}procedure TForm6. Button1Click (Sender: TObject);(*Процедураобеспечивающаяфильтрациювтаблице

БД*)beginTable1.Filtered:=True;(* Выражение фильтра будет использоваться, когда свойство Filteredустановлено в True*)Table1.Filter:='kol_chasov>'+Edit1.Text;(* Свойство Filter используется для определения выражения фильтра, здесь количество часов должно быть больше чем значение введенное в Edit1*)end;procedure TForm6. FormCreate (Sender: TObject);beginTable1.FilterOptions:=[foCaseInsensitive]; (*регистрбуквнеучитывается*)Table1.Filtered:=False;end;procedure TForm6. Button2Click (Sender: TObject);(*Процедурадляотменыфильтрации*)beginTable1.Filtered:=False; (*отключениефильтрации*)Edit1.Text:=''; (*очистка поля от введенного фильтра*)Edit2.Text:='';end;procedureTForm6.Button4Click (Sender: TObject);(*Фильтрацияпоназваниюпредмета, причем в выражение фильтрации достаточно ввести первые буквы предмета*)var a: string[20]; begin Table1. Filtered:=True;a:='Nasvanie='; Table1. Filter:=a+''''+Edit2.Text+'*'+''''; (*чтобы поставить ' надо поставить две '*)end;procedure TForm6. Button3Click (Sender: TObject);beginForm6.Close;end;end.unit Unit7; //Модульформы

Вычисленияinterfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;type TForm7 = class (TForm) Label1: TLabel; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Button1: TButton; Table1: TTable; DataSource1: TDataSource; Button2: TButton; Label2: TLabel; Label3: TLabel; Label4: TLabel; Edit1: TEdit; Label5: TLabel; Button3: TButton; Label6: TLabel;procedure Button1Click (Sender: TObject);procedure Button2Click (Sender: TObject);procedure Button3Click (Sender: TObject);private{ Private declarations }public{ Public declarations }end;var Form7: TForm7;implementation{$R *.dfm}procedure TForm7. Button1Click (Sender: TObject);beginForm7.Close;end;procedure TForm7. Button2Click (Sender: TObject);varsum, sr: real; kol: integer; //Объявление локальных переменныхbeginsum:=0; kol:=0; //Присвоение начальных значенийTable1. First; //Установка первой записи таблицыWhilenotTable1. eofdo //Пока не конец таблицы выполняется циклbeginsum:=sum+Table1['ocenka']; kol:=kol+1; //Расчет суммы и количества оценокTable1. Next; //Следующая запись таблицыend;Sr:=sum/kol; //Расчет среднего значенияLabel3. Caption:=FloatTostr (sr); //Вывод среднего значения в Label3end;procedureTForm7.Button3Click (Sender: TObject);(*Процедурарасчетасреднейоценкипономерупредмета*)varsum, sr: real; kol: integer;beginsum:=0; kol:=0;Table1.First;While not Table1. eof dobeginifTable1['id_predmet']=edit1.textthenbegin (*Еслиследующеезначениеполя 'id_predmetравновведенномувedit1 тосчитаемсуммуиколичествооценок*)sum:=sum+Table1['ocenka']; kol:=kol+1; end;Table1.Next;end;Sr:=sum/kol; //Расчет среднего значенияLabel5. Caption:=FloatTostr (sr); //Вывод среднего значения в Label5end;end.