Декомпозиционная диаграмма «Сессия»

. Концептуальное проектирование

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

При анализе информационных потоков процессов предметной области были выделены сущности, представленные на рисунках 5 и 6.

Физическая концептуальная схема

Логическая концептуальная схема

Рассмотрим более подробно каждую сущность

Сущность «Dogovor» - «Договор».

Поля:

«dog_number» - номер договора,

«company» - компания, с которой заключили договор,

«summa» - сумма, положенная по договору,

«dog_type» - тип договора.

Сущность «Student» - «Студент».

Поля:

«shifr» - шифр студента (студенческого билета),

«spec_shifr» - шифр специальности,

«dog_number» - номер договора,

«shifr_gr» - шифр группы,

«FIO» - Ф.И.О. студента,

«nomer_pasporta» - номер паспорта,

«adres» - адрес, по которому проживает,

«pol» - пол,

«birthday» - дата рождения.

Сущность «Gruppa» - «Группа».

Поля:

«shifr_gr» - шифр группы,

«name_gr» - название группы,

«kurs» - курс,

«semestr» - семестр,

Сущность «Specialnost» - «Специальность».

«spec_shifr» - шифр специальности,

«name» - название специальности.

Сущность «Normativ» - «Норматив». Это ассоциативная сущность для реализации связи «многие ко многим» между сущностями «student» и «Predmet». Кроме наследуемых атрибутов первичного ключа содержит также три поля.

Поля:

«shifr_predmeta» - шифр предмета,

«shifr» - шифр студента (студенческого билета),

«exam» - экзамен,

«zachet» - зачет,

«kursovic» - курсовая работа (проект).

Сущность «Predmet» - «Предмет».

Поля:

«shifr_predmeta» - шифр предмета,

«shifr_disc» - шифр дисциплины,

«spec_shifr» - шифр специальности,

«semestr» - семестр.

Сущность «Disciplina» - «Дисциплина».

Поля:

«shifr_disc» - шифр дисциплины,

«name_disc» - название дисциплины.

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

Неидентифицирующая связь «один ко многим» между сущностями «Договор» и «Студент» необходима, потому что студент может учиться по нескольким договорам. Связь неидентифицирующая, так как номер договора не входит в состав первичного ключа сущности «Студент».

Неидентифицирующая связь «один ко многим» между сущностями «Специальность» и «Студент» необходима, потому что студент может учиться на нескольких специальностях. Связь неидентифицирующая, так как шифр специальности не входит в состав первичного ключа сущности «Студент».

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

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

В сущности «Договор» в полях компания и сумма договора возможны нулевые значения, т. к. если студент на бюджетной основе, то компании, заключившей договор на определенную сумму нет.

В сущности «Норматив» в полях экзамен, зачет и курсовая работа (проект) возможны нулевые значения, т. к. по одному предмету может проводиться только экзамен, а зачет с курсовой работой отсутствовать или экзамен с курсовой работой будит, а зачета не и т.д.

Все остальные связи исключают null-значения.

база учет данные целостность

4. Целостность данных

В системе присутствуют как идентифицирующие, так и неидентифицирующие связи. Между ними могут применяются следующие стратегии ограничения целостности: запрещающая(restrict), каскадная(cascade) и set null - стратегия. Запрещающая стратегия на удаление и модификацию родителя, а также на вставку и модификацию потомка поддерживается автоматически при указании конструкции Foreign key. Однако в системе присутствует не только запрещающая стратегия, но также производится поддержание целостности данных с помощью триггеров. Коды триггеров, реализующих стратегии ограничения целостности базы данных приведены в приложении В.

На вставку, удаление, модификацию и выборку во всех таблицах никаких ограничений нет.

Для таблицы «студент» написан триггер, который после удаления студента, удаляет данные о нем из других связанных таблиц.

Для таблицы «норматив» создан триггер, при помощи которого можно вставлять новый норматив для уже существующего студента, но если такого студента в базе нет, то выдается сообщение об ошибке.

B таблице «договор», созданный триггер позволяет изменять значения из таблицы и автоматически вносить изменения в другие таблицы, содержащие данные из этой.

5. Описание приложения

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

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

Переход на внешнюю форму производится при нажатии на кнопку ЗАКРЫТЬ.

Выход из приложения осуществляется при нажатии на кнопку ВЫХОД.

Форма действий базы данных

Форма работы с таблицей

Заключение

В ходе выполнения данной курсовой работы были освещены основные этапы проектирования базы данных: описание предметной области, описание бизнес процессов, описание концептуальной схемы и целостности данных.

В результате выполнения данной работы была создана база данных и реализована программа, работающая с ней.

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

В данной курсовой работе реализовывался учет движения студентов по факультету.

Список литературы

1. Селко Дж. Программирование на SQL для профессионалов [Текст]/ Селко Дж. - М.: «Лори», 2004 - 442 с. - ISBN 5-85829-219-2.

. Грофф Дж., Вайнберг П. Энциклопедия SQL [Текст] 3-е изд. (+ CD)/ Грофф Дж., Вайнберг П. - СПб.: «Питер», 2003 - 896 с. - ISBN 5-88782-077-2, ISBN 966-552-103-9.

. Клайв К. SQL. Справочник [Текст]/ Клайв К., Клайв Д., Хант Б. - М.: «Кудиц-Образ», 2006 - 832 с. - ISBN 5-9579-0114-8, ISBN 5-596-00481-8.

. Дарахвелидзе П.Г. Программирование в Delphi 7 [Текст]/ Дарахвелидзе П.Г., Марков Е.П. - СПб.: «БХВ - Петербург», 2005 - 784 с. - ISBN 5-94157-116-Х.

Приложение А

Триггеры к базе данных

1.При удалении студента из таблицы «студент», все данные автоматически удаляются и из других таблиц тоже.

set term!!;TRIGGER «T1» FOR «STUDENT»AFTER DELETEbeginfrom normativnormativ.shifr = old. shifr;!!

set term!!;

. При вставке какого-либо студента в таблицу «норматив», осуществляется проверка на наличие такого студента в базе, иначе при помощи функции exception not_st выдается сообщение об ошибке.

create exception not_st 'Такого студента нет!!!'

term!!;TRIGGER «T2» FOR «NORMATIV»BEFORE INSERTvariable kolvo int;count (student.shifr) from student, normativnew.shifr = student.shifr into: kolvo;(:kolvo = 0)exception not_st;!!

set term!!;

. При изменении данных таблицы «договор», изменяются эти данные из других таблиц.

set term!!;TRIGGER T3 FOR dogovorAFTER updatebeginstudentstudent.dog_number = new.dog_numstudent.dog_num= old.dog_num;!!

set term!!;

Приложение Б

Листинг программы на Delphimain_unit;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, IBCustomDataSet, IBTable, IBDatabase, ExtCtrls, DBCtrls, Grids,, IBQuery, StdCtrls;= class(TForm): TIBDatabase;: TIBTransaction;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TPanel;: TLabel;: TButton;: TButton;: TButton;: TButton;Button1Click (Sender: TObject);IBDatabase1AfterConnect (Sender: TObject);Button2Click (Sender: TObject);Button3Click (Sender: TObject);Button4Click (Sender: TObject);Button11Click (Sender: TObject);Button5Click (Sender: TObject);Button6Click (Sender: TObject);Button10Click (Sender: TObject);Button7Click (Sender: TObject);Button8Click (Sender: TObject);Button9Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm1;

{$R *.dfm}spec, disc, gruppa, predmet, students, vedomost, n_st, sp_gr, st_disc;TForm1. Button10Click (Sender: TObject);. Hide;. Show;;TForm1. Button11Click (Sender: TObject);. Hide;. Show;;TForm1. Button1Click (Sender: TObject);. Connected:=true;;TForm1. Button2Click (Sender: TObject);. Hide;.show;;TForm1. Button3Click (Sender: TObject);.hide;.show;;TForm1. Button4Click (Sender: TObject);. Hide;. Show;;TForm1. Button5Click (Sender: TObject);. Hide;. Show;;TForm1. Button6Click (Sender: TObject);. Terminate;;TForm1. Button7Click (Sender: TObject);. Hide;. Show;;TForm1. Button8Click (Sender: TObject);. Hide;. Show;;TForm1. Button9Click (Sender: TObject);. Hide;. Show;;TForm1.IBDatabase1AfterConnect (Sender: TObject);('OK');;

.

unit vedomost;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, main_unit, DB, IBCustomDataSet, IBTable, ExtCtrls, DBCtrls,, DBGrids;= class(TForm): TButton;: TDataSource;: TDataSource;: TDataSource;: TDBGrid;: TDBNavigator;: TDBGrid;: TDBGrid;: TIBTable;: TIBTable;: TIBTable;: TDBNavigator;: TDBNavigator;Button1Click (Sender: TObject);FormShow (Sender: TObject);

{Private declarations}

{Public declarations};: TForm7;

{$R *.dfm}TForm7. Button1Click (Sender: TObject);. Hide;. Show;;TForm7. FormShow (Sender: TObject);. Active:=true;. Active:=true;. Active:=true;;.

unit gruppa;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, main_unit, StdCtrls, DB, IBCustomDataSet, IBTable, ExtCtrls, DBCtrls,, DBGrids;= class(TForm): TButton;: TDataSource;: TDBGrid;: TDBNavigator;: TIBTable;Button1Click (Sender: TObject);FormShow (Sender: TObject);

{Private declarations}

{Public declarations};: TForm4;

{$R *.dfm}TForm4. Button1Click (Sender: TObject);.hide;.show;;TForm4. FormShow (Sender: TObject);. Active:=true;;.

unit predmet;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, main_unit, StdCtrls, DB, IBCustomDataSet, IBTable, ExtCtrls, DBCtrls,, DBGrids;= class(TForm): TButton;: TDataSource;: TDBGrid;: TDBNavigator;: TDataSource;: TDataSource;: TIBTable;: TIBTable;: TDBGrid;: TDBNavigator;: TDBGrid;: TDBNavigator;: TIBTable;: TLabel;: TLabel;Button1Click (Sender: TObject);FormShow (Sender: TObject);

{Private declarations}

{Public declarations};: TForm5;

{$R *.dfm}TForm5. Button1Click (Sender: TObject);. Hide;. Show;;TForm5. FormShow (Sender: TObject);. Active:=true;. Active:=true;. Active:=true;;.

unit students;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, main_unit, DB,, IBTable, IBQuery;= class(TForm): TDBGrid;: TDBNavigator;: TDataSource;: TIBTable;: TButton;: TDataSource;: TDataSource;: TDataSource;: TDBGrid;: TDBGrid;: TDBGrid;: TDBNavigator;: TDBNavigator;: TDBNavigator;: TIBTable;: TIBTable;: TIBTable;Button1Click (Sender: TObject);FormShow (Sender: TObject);

{Private declarations}

{Public declarations};: TForm6;

{$R *.dfm}TForm6. Button1Click (Sender: TObject);. Hide;. Show;;TForm6. FormShow (Sender: TObject);. Active:=true;. Active:=true;. Active:=true;. Active:=true;;.

unit disc;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, main_unit, ExtCtrls, DBCtrls, DB, IBCustomDataSet, IBTable, Grids,, StdCtrls;= class(TForm): TDataSource;: TDBGrid;: TIBTable;: TDBNavigator;: TButton;Button1Click (Sender: TObject);FormShow (Sender: TObject);

{Private declarations}

{Public declarations};: TForm3;

{$R *.dfm}TForm3. Button1Click (Sender: TObject);. Hide;. Show;;TForm3. FormShow (Sender: TObject);. Active:=true;;.

unit spec;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, main_unit, ExtCtrls, DBCtrls, Grids, DBGrids, DB, IBCustomDataSet,, StdCtrls;= class(TForm): TDataSource;: TLabel;: TIBTable;: TDBGrid;: TDBNavigator;: TButton;FormShow (Sender: TObject);Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm2;

{$R *.dfm}TForm2. Button1Click (Sender: TObject);. Hide;. Show;;TForm2. FormShow (Sender: TObject);. Active:=true;;.

unit n_st;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, IBCustomDataSet, IBQuery, StdCtrls, ExtCtrls, Grids, DBGrids;= class(TForm): TDBGrid;: TDataSource;: TLabeledEdit;: TButton;: TButton;: TIBQuery;Button2Click (Sender: TObject);Button1Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm8;main_unit;

{$R *.dfm}TForm8. Button1Click (Sender: TObject);LabeledEdit1. Text='' then showmessage ('Ââåäèòå ôàìèëèþ ñòóäåíòà!'). Close;.SQl.clear;.SQL. Add ('Select shifr, fio');.SQL. Add ('From student, normativ');.SQL. Add ('Where student.fio =:p1 And student.shifr = normativ.shifr and (normativ.exam = 5 or normativ.exam = 4 or normativ.exam is null) and (normativ.zachet = 1 or normativ.zachet is null) ');.SQL. Add ('and (normativ.kursovik = 5 or normativ.kursovik = 4 or normativ.kursovik is null)');. ParamByName('p1').AsString:=LabeledEdit1. Text;. Open;;

;TForm8. Button2Click (Sender: TObject);. Hide;. Show;;.

unit sp_gr;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, StdCtrls, ExtCtrls, IBCustomDataSet, IBQuery;= class(TForm): TIBQuery;: TButton;: TButton;: TLabeledEdit;: TDataSource;: TDBGrid;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm9;main_unit;

{$R *.dfm}TForm9. Button1Click (Sender: TObject);. Hide;. Show;;TForm9. Button2Click (Sender: TObject);LabeledEdit1. Text='' then showmessage ('Ââåäèòå íîìåð ãðóïïû!'). Close;.SQl.clear;.SQL. Add ('select shifr, fio');.SQL. Add ('from student, gruppa');.SQL. Add ('where gruppa.shifr_gr =:g1 and gruppa.shifr_gr = student.shifr_gr');.SQL. Add ('order by fio');. ParamByName('g1').AsString:=LabeledEdit1. Text;. Open;;

;.

unit st_disc;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, DB, Grids, DBGrids, IBCustomDataSet, IBQuery;= class(TForm): TDBGrid;: TDataSource;: TButton;: TButton;: TLabeledEdit;: TIBQuery;Button1Click (Sender: TObject);Button2Click (Sender: TObject);

{Private declarations}

{Public declarations};: TForm10;main_unit;

{$R *.dfm}TForm10. Button1Click (Sender: TObject);. Hide;. Show;;TForm9. Button2Click (Sender: TObject);LabeledEdit1. Text='' then showmessage ('Ââåäèòå íîìåð ãðóïïû!'). Close;.SQl.clear;

IBQuery1.SQL. Add (' select fio, name_disc');.SQL. Add (' from student, normativ, predmet, disciplina');.SQL. Add (' where student.fio =:g1 student.shifr = normativ.shifr and normativ.shifr_predmeta = predmet.shifr_predmeta and predmet.shifr_disc =disciplina.shifr_disc');

IBQuery1. ParamByName('g1').AsString:=LabeledEdit1. Text;. Open;;.

Больше работ по теме: