экзамен

ВВЕДЕНИЕ 3
ПОСТАНОВКА ЗАДАЧИ 4
1. Теоретические сведения по проектированию реляционных баз данных 6
1.1. Основные принципы проектирования реляционных баз данных 6
1.2. Этапы физической реализации проектируемой базы данных 8
2. Анализ предметной области: описание входной и выходной информации 11
3. Даталогическое и инфологическое проектирование 13
3.1. Определение сущностей, атрибутов, взаимосвязей между сущностями, ключей 13
3.2. Построение диаграмм ER-типа с учетом всех сущностей и их связей 14
3.3. Схема проектируемой базы данных 15
3.4. Проектирование ER-модели в реляционную модель 16
4. Описание структуры и основных методов (процедур и функций) приложения. 19
4.1. Создание таблиц и форм для ввода данных 19
4.2. Обработка данных в таблицах 24
5. Результаты тестирования с примерами визуальных форм приложения 30
СПИСОК ЛИТЕРАТУРЫ 36
ПРИЛОЖЕНИЕ 1 37

Цель, поставленная перед началом разработки, достигнута.Разработанная база выполняет следующие задачи:- содержит подробные сведения о студентах группы, которые сдают экзамен; о сдаваемых предметах; о преподавателях, ведущих предметы.- позволяет в любое время просматривать информацию об оценках, которые получают студенты на экзамене, а также легко модифицировать ее (добавлять, редактировать, удалять: при работе с ней учебной части);- обеспечивает вычисление средней оценки по группе и средней оценки по каждому предмету;- обеспечивает фильтрацию предметов по количеству часов и по фамилии преподавателя;- база данных позволяет частично автоматизировать получение информации о сдаче студентами сессии, а также облегчает рабочую деятельность учебной части.В курсовойработе были изложены теоретические основы проектирования и разработки баз данных. А именно, были подробно описаны основные принципы проектирования реляционных баз данных и этапы физической реализации проектируемой базы данных.Был проведен анализ предметной области, выявлены входные и выходные данные.Было проведено даталогическое и инфологическое проектирование создаваемой базы данных. Были определены сущности, атрибуты, взаимосвязи между сущностями, ключи базы данных. Построена диаграмма 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.