Проектирование и разработка БД «Расписание занятий».
Заказать уникальную курсовую работу- 30 30 страниц
- 18 + 18 источников
- Добавлена 18.01.2021
- Содержание
- Часть работы
- Список литературы
- Вопросы/Ответы
1. Аналитическая часть 6
1.1 Анализ предметной области 6
1.2. Постановка цели и задач выполняемой работы 6
2. Проектная часть 12
2.1. Информационная модель задачи составления расписаний 12
2.2. Описание прототипа разработанного приложения 18
Заключение 24
Список использованных источников 26
Учебное пособие. - М.: Флинта, Изд-во Урал. ун-та, 2017. - 64 с.ПриложениеПрограммный кодunit Unit1;procedure TForm1.BitBtn1Click(Sender: TObject);begin with form1.ADOQuery1 do begin close;sql.Clear;sql.Add('select * from klass'); active:=true; end; form2.DBGrid1.Columns[0].Title.caption:='Класс'; form2.show;end;procedure TForm1.Button1Click(Sender: TObject);begin with form1.ADOQuery2 do begin close;sql.Clear;sql.Add('select * from prep'); active:=true; end; form3.Show;end;procedure TForm1.Button2Click(Sender: TObject);var i:integer;begin with form1.ADOQuery1 do begin close;sql.Clear;sql.Add('select * from klass'); active:=true; end; with form1.ADOQuery2 do begin close;sql.Clear;sql.Add('select * from prep order by predm'); open; end; form4.RzStringGrid1.RowCount:=form1.ADOQuery2.RecordCount+1; form4.RzStringGrid1.Cells[0,0]:='ФИОпреподавателя'; form4.RzStringGrid1.Cells[01,0]:='Предмет'; form4.RzStringGrid1.Cells[2,0]:='Количествочасов'; for i:=1 to form1.ADOQuery2.RecordCount do begin form4.RzStringGrid1.Cells[0,i]:=form1.ADOQuery2fio.AsString; form4.RzStringGrid1.Cells[1,i]:=form1.ADOQuery2predm.AsString; adoquery2.Next; end; form4.Show;end;procedure TForm1.Button3Click(Sender: TObject);var i,j,k,code:integer;label q,q1;begin with form1.ADOQuery5 do begin close;sql.Clear;sql.Add('delete from rasp');execsql; close;sql.Clear;sql.add('select * from rasp'); open; end; with form1.ADOQuery3 do begin close;sql.Clear;sql.Add('select * from uch_plan'); open; end; with form1.ADOQuery6 do begin close;sql.Clear;sql.add('select max(code_pos) from rasp'); open; end; code:=form1.ADOQuery6COLUMN1.AsInteger+1; for i:=1 to form1.ADOQuery3.RecordCount do begin for j:=1 to form1.ADOQuery3chas.AsInteger do begin with form1.ADOQuery7 do begin close;sql.Clear;sql.Add('select * from uch_plan where klass='+form1.Label1.Caption+trim(form1.ADOQuery3klass.AsString)+form1.Label1.Caption); open; end; q1: k:=1+random(45-form1.ADOQuery7.RecordCount); q: with form1.ADOQuery9 do begin close;sql.Clear;sql.Add('select * from rasp where (klass='+form1.Label1.Caption+trim(form1.ADOQuery3klass.AsString)+form1.Label1.Caption+') and (pos_r='+inttostr(k)+')'); open; end; if form1.ADOQuery9.RecordCount>0 then begin k:=k+1;goto q; end else begin with form1.ADOQuery9 do begin close;sql.Clear;sql.Add('select * from rasp where (code_pr='+form1.ADOQuery3code_prep.AsString+') and (pos_r='+inttostr(k)+')'); open; end; if form1.ADOQuery9.RecordCount=0 then form1.adoquery5.AppendRecord([code,k,form1.ADOQuery3code_prep.AsInteger,form1.ADOQuery3klass.Asstring]) else goto q1; code:=code+1; end;Application.ProcessMessages; statusbar1.SimpleText:=inttostr(j)+'/'+form1.ADOQuery3chas.AsString+'/'; end;Application.ProcessMessages; form1.ADOQuery3.Next; end;showmessage('Готово');end;procedure TForm1.Button4Click(Sender: TObject);var excelapp:variant; i,j:integer;beginExcelApp := CreateOleObject('Excel.Application');ExcelApp.workbooks.open('C:\rasp\rasp.xlt');ExcelApp.Visible := False; with form1.ADOQuery1 do begin close;sql.Clear;sql.add('select * from klass'); open; first; end; for i:=1 to form1.ADOQuery1.RecordCount do beginexcelapp.cells[2,2+i]:=form1.ADOQuery1klass.AsString; adoquery1.Next; end; adoquery1.First; for i:=1 to form1.ADOQuery1.RecordCount do begin with form1.ADOQuery9 do begin close;sql.Clear;sql.Add('select * from rasp where klass='+form1.Label1.Caption+trim(form1.ADOQuery1klass.AsString)+form1.Label1.Caption); open; end; for j:=1 to form1.ADOQuery9.RecordCount do begin with form1.ADOQuery2 do begin close;sql.Clear;sql.Add('select * from prep where code_prep='+form1.ADOQuery9code_pr.AsString); open; end; excelapp.cells[2+form1.ADOQuery9pos_r.AsInteger,2+i]:=trim(form1.ADOQuery2fio.AsString)+' '+trim(form1.ADOQuery2predm.AsString); adoquery9.Next; end; form1.ADOQuery1.Next; end;excelapp.visible:=true;excelapp:=unassigned;end;procedure TForm1.FormCreate(Sender: TObject);var f:textfile; srv:string;beginassignfile(f,'C:\rasp\connect.txt'); reset(f);readln(f,srv);closefile(f); form1.ADOConnection1.close; form1.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=rasp;Data Source='+srv+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096'; form1.ADOConnection1.Open;end;end.unit Unit2;procedure TForm4.Button1Click(Sender: TObject);var i:integer;begin for i:=1 to form4.RzStringGrid1.RowCount do begin with form1.ADOQuery4 do begin close;sql.Clear;sql.Add('select * from view_1 where (klass='+form1.Label1.Caption+trim(form1.ADOQuery1klass.AsString)+form1.Label1.Caption+') and (fio='+form1.Label1.Caption+trim(form4.RzStringGrid1.Cells[0,i])+form1.Label1.Caption+')'); open; end; if form1.ADOQuery4.RecordCount>0 then form4.RzStringGrid1.Cells[2,i]:=form1.ADOQuery4chas.AsString else form4.RzStringGrid1.Cells[2,i]:=''; end;end;procedure TForm4.RzBitBtn2Click(Sender: TObject);beginclose;end;procedure TForm4.RzBitBtn1Click(Sender: TObject);var i,kol,code:integer;beginkol:=0; for i:=1 to form4.RzStringGrid1.RowCount do begin if not (trim(form4.RzStringGrid1.Cells[2,i])='') then kol:=kol+strtoint(form4.RzStringGrid1.Cells[2,i]); end; if kol>40 then showmessage('Превышенобъемучебногоплана') else begin with form1.ADOQuery3 do begin close;sql.Clear;sql.Add('delete from uch_plan where klass='+form1.Label1.Caption+trim(form1.ADOQuery1klass.AsString)+form1.Label1.Caption);execsql; close;sql.Clear;sql.add('select * from uch_plan'); open; end; with adoquery1 do begin close;sql.Clear;sql.Add('select max(code_up) from uch_plan'); open; end; code:=1+form4.ADOQuery1COLUMN1.AsInteger; for i:=1 to form4.RzStringGrid1.RowCount do begin if not (trim(form4.RzStringGrid1.Cells[2,i])='') thenbeginwith form1.ADOQuery2 dobegin close;sql.Clear;sql.Add('select * from prep where fio='+form1.Label1.Caption+trim(form4.RzStringGrid1.Cells[0,i])+form1.Label1.Caption); open; end; form1.ADOQuery3.AppendRecord([code,form1.ADOQuery1klass.AsString,form1.ADOQuery2code_prep.AsInteger,form4.RzStringGrid1.Cells[2,i]]); code:=code+1; end; end;showmessage('Записано');end;end;end.
2. Боченина Н.В., Пикулик О.В., Боченина Н.В. Информационные технологии. - М.: Альфа-М: ИНФРА-М, 2013. - 336 с.
3. Ветрова О.А. Операционные системы и базы данных. - М.: МГУДТ, 2013. - 40 с.
4. Гагарина Л.Г., Румянцева Е.Л., Слюсарь В.В. Информационные технологии. - М.: ИД ФОРУМ: НИЦ Инфра-М, 2013. - 256 с.
5. Гвоздева В.А. Базы и банки данных. - М.: Альтаир-МГАВТ, 2015. - 76 с.
6. Гофман В.Э. Хомоненко А.Д., Работа с базами данных в Delphi. - СПб:БХВ-Петербург, 2014. - 628 с.
7. Дадян Э. Г., Зеленков Ю. А. Методы, модели, средства хранения и обработки данных: учебник. - Москва : Вузовский учебник, 2016. - 167с.
8. Карпузова В.И., Скрипченко, К.В. Чернышева, Н.В. Информационные технологии в менеджменте. - М.: Вузовский учебник: НИЦ ИНФРА-М, 2014. – 256с.
9. Колдаев В.Д. Структуры и алгоритмы обработки данных. - М.: ИЦ РИОР: НИЦ ИНФРА-М, 2014. - 296 с.
10. Помазанов В. В., Лунина Е. С. Информационные технологии в юридической деятельности : учебное пособие / В. В. Помазанов, Е. С. Лунина. - Краснодар: КубГАУ, 2017. - 178 с.
11. Литвинов В. А. Информационные технологии в юридической деятельности: учебное пособие / В.А. Литвинов. - Санкт-Петербург: Питер, 2016. - 320 с.
12. Шмелева С. В. Информационные технологии в юридической деятельности : конспект лекций / С. В. Шмелева. - Москва: Российский университет дружбы народов, 2018. - 72 с.
13. Федоров В. В. Информационные технологии в юридической деятельности таможенных органов: учебник / В. В. Федоров. - Санкт-Петербург: Интермедия, 2015. - 479 с.
14. Соболева И. А., Криветченко О. В., Мельчукова Л. В. Информационные технологии в юридической деятельности: учебное пособие / И. А. Соболева, О. В. Криветченко, Л. В. Мельчукова. - Новосибирск: Новосибирский государственный университет экономики и управления "НИНХ", 2015. – 199с.
15. Коннолли Т., Бегг К. Базы данных: проектирование, реализация и сопровождение: теория и практика. - Москва: Вильямс, 2017. - 1439 с.
16. Коряковский А.В. Информационные системы предприятия: Учебное пособие. - М.: НИЦ ИНФРА-М, 2016. - 283 с.
17. Лубянская Э.Б. Информационные системы в экономике: учебное пособие. - Воронеж: ФГБОУ ВО "Воронежский государственный технический университет", 2017. - 140 с.
18. Медведев М.А. Разработка информационных систем. Учебное пособие. - М.: Флинта, Изд-во Урал. ун-та, 2017. - 64 с.
Вопрос-ответ:
Какие задачи решает данная работа?
Данная работа посвящена проектированию и разработке базы данных для расписания занятий. Основная задача - создать информационную модель, которая позволит автоматизировать составление расписаний и упростить работу преподавателям и студентам.
Описание прототипа разработанного приложения
Прототип разработанного приложения представляет собой графический интерфейс, в котором пользователь может вводить информацию о занятиях, преподавателях, аудиториях и группах. Приложение позволяет автоматически создавать расписание на основе введенных данных, а также отображать расписание в удобной форме.
Какие источники использовались при создании работы?
При создании работы было использовано учебное пособие "Проектирование информационных систем" автора М. Флинта. Кроме того, были изучены различные статьи и руководства по разработке баз данных и составлению расписаний.
Какие технологии были использованы для разработки приложения?
Для разработки приложения был использован язык программирования Delphi и графическая библиотека VCL. Также была использована база данных MySQL для хранения информации о занятиях, преподавателях и группах.
Какие преимущества автоматизации составления расписаний?
Автоматизация составления расписаний позволяет сократить время, затрачиваемое на этот процесс, и сократить вероятность ошибок. Автоматическое расписание также может учитывать различные ограничения и предпочтения, что позволяет создать более оптимальное и удобное расписание для всех участников образовательного процесса.
Зачем нужно проектировать и разрабатывать базу данных "Расписание занятий"?
Проектирование и разработка базы данных "Расписание занятий" необходимы для автоматизации процесса составления и управления расписанием занятий. Это позволяет упростить и ускорить работу с расписанием, избежать ошибок при его составлении и обеспечить доступ к актуальным данным о занятиях для всех заинтересованных пользователей.
Какие задачи решаются при проектировании и разработке базы данных "Расписание занятий"?
При проектировании и разработке базы данных "Расписание занятий" решаются задачи определения структуры базы данных, выбора подходящих таблиц и полей для хранения информации о занятиях, разработки связей между таблицами, создания запросов для быстрого доступа к данным, разработки интерфейса для ввода и работы с расписанием.
Как выглядит информационная модель задачи составления расписаний?
Информационная модель задачи составления расписаний представляет собой схему базы данных, которая отображает структуру данных о занятиях, аудиториях, преподавателях и группах. Она включает в себя таблицы, поля и связи между ними, а также описывает, какие данные могут быть хранены и как они связаны между собой.
Какой прототип разработанного приложения описывается в статье?
В статье описывается прототип разработанного приложения для работы с расписаниями занятий. Оно позволяет пользователю добавлять, просматривать, редактировать и удалять записи в базе данных "Расписание занятий". Приложение обладает удобным интерфейсом, позволяющим легко и быстро выполнять нужные операции с расписанием.
Откуда можно получить дополнительные материалы по данной теме?
Дополнительные материалы по данной теме можно получить из учебного пособия "Проектирование и разработка баз данных" М. Флинта, изданного в Уральском университете в 2017 году. В нем представлены подробные материалы по проектированию баз данных, включая примеры, задания и программный код.
Для чего нужно проектирование и разработка БД Расписание занятий?
Проектирование и разработка базы данных Расписание занятий необходимы для автоматизации процесса составления расписаний, облегчения работы планировщиков и управления учебным процессом. Благодаря БД можно эффективно хранить и обрабатывать данные о занятиях, преподавателях, аудиториях и других элементах расписания.