База данных "Кафедра"

stify">sql.Add('and g.gruppa='''+sp_gr[combobox2.itemindex]+'''');

sql.Add('and d.disciplina_p='''+sp_disc[combobox4.itemindex]+'''');

sql.Add('and p.fio='''+sp_prep[combobox5.itemindex]+'''');

open;

end;

end; 

    В результате при установлении всех условий выборки и нажатии кнопки «Вывести» мы получим данные об успеваемости за весь семестр. Но если нам необходимо узнать данные только первой аттестационной ведомости, второй аттестационной ведомости или итоговой ведомости, мы можем выбрать с помощью одного из трех Checkbox, которые сгруппированы в GroupBox.

    Т.е. при нажатии Checkbox1 мы увидим данные первой аттестационной ведомости  

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

query2.FieldByName('lc2').Visible:=checkbox1.Checked;

query2.FieldByName('pr2').Visible:=checkbox1.Checked;

query2.FieldByName('srs2').Visible:=checkbox1.Checked;

query2.FieldByName('examen').Visible:=checkbox1.Checked;

query2.FieldByName('itog').Visible:=checkbox1.Checked;

end; 

,Checkbox2 – второй

procedure TForm2.CheckBox2Click(Sender: TObject);

begin

query2.FieldByName('lc1').Visible:=checkbox2.Checked;

query2.FieldByName('pr1').Visible:=checkbox2.Checked;

query2.FieldByName('srs1').Visible:=checkbox2.Checked;

query2.FieldByName('examen').Visible:=checkbox2.Checked;

query2.FieldByName('itog').Visible:=checkbox2.Checked;

end; 

,а Checkbox3 – итоговая ведомость

procedure TForm2.CheckBox3Click(Sender: TObject);

begin

query2.FieldByName('lc1').Visible:=checkbox3.Checked;

query2.FieldByName('pr1').Visible:=checkbox3.Checked;

query2.FieldByName('srs1').Visible:=checkbox3.Checked;

query2.FieldByName('lc2').Visible:=checkbox3.Checked;

query2.FieldByName('pr2').Visible:=checkbox3.Checked;

query2.FieldByName('srs2').Visible:=checkbox3.Checked;

end; 

Рисунок17 - Ведомость при выполнениях условий выборки

3.3. Автоматизация работы системы Uchebnii_plan

Для  автоматизации работы с таблицей Uchebnii_plan разместим на форме 3Query, 2DataSource, 1DBgrid, 2Combobox, 2Checkbox, 3Button, 4Label. Установим значения компонентов, как на рисунке 18.

Рисунок 18 - Учебный план 

    Соединим  Query1 и Query2, Query3  с базой данных. Установим значение DataSource1 в DataSource=Query2, DataSource2 в DataSource=Query2. Работа формы заключается в том, что мы выбираем при помощи Combobox значения дисциплины, шифра специальности и нажав кнопку «Показать» в Edit1, Edit2 мы увидим семестр и количество кредитов, а также просмотр всего учебного плана. Здесь мы применяем уже не статический, а динамический SQL, т.е. SQL-код для выборки стоит уже не в свойствах компонента Query, а применяется программно.  

    Для заполнения Combobox необходимыми значениями полей из разных таблиц мы объявляем в переменные: 

    sp_shifr: TstringList;//список шифров специальностей из таблицы Specialnost 

    sp_disc: TstringList;//список дисциплин из таблицы Disciplina 

    А для того, чтобы в Combobox появились значения необходимо написать обработчик события FormCreate для Form3: 

procedure TForm3.FormCreate(Sender: TObject);

begin

combobox1.Clear; combobox2.Clear;

//shifr specialnost

sp_shifr:=TstringList.Create;

query1.Close;

with query1 do

begin

close;

sql.Clear;

sql.Add('select shifr_specialnost');

sql.Add('from specialnost');

sql.Add('order by shifr_specialnost');

open;

while not eof do

begin

combobox2.Items.Add(fields[0].asstring);

sp_shifr.Add(fields[0].asstring);

next;

end;

end;

//disciplina

sp_disc:=TstringList.Create;

query1.Close;

with query1 do

begin

close;

sql.Clear;

sql.Add('select disciplina_p');

sql.Add('from disciplina');

sql.Add('order by disciplina_p');

open;

while not eof do

begin

combobox1.Items.Add(fields[0].asstring);

sp_disc.Add(fields[0].asstring);

next;

end;

end; 

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

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

procedure TForm3.Button2Click(Sender: TObject);

begin

with query3 do begin

query3.Close; sql.Clear;

sql.Add('select d.disciplina_p, s.shifr_specialnost, d.semestr, u.kol_vo_kreditov');

sql.Add('from uchebnii_plan u, specialnost s, disciplina d ');

sql.Add('where (u.kod_disciplina=d.kod_disciplina)');

sql.Add('and (u.shifr_specialnost=s.shifr_specialnost)');

//sql.Add('u.semestr=d.semestr');   open;

end;

end; 
 

Рисунок 19 - Учебный план в откомпилированном  виде.

 

ЗАКЛЮЧЕНИЕ 

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

     Эффективность автоматизированных информационных управляющих  систем в значительной мере зависит от того, насколько обеспечивается скорость доступа к данным, их полнота, достоверность, непротиворечивость. И практически везде информационная система представляет собой интегрированную систему, ядро которой представляет база данных. Основным направлением в разработке автоматизированных информационных систем в настоящее время является ориентация на использование СУБД, базирующихся на SQL– серверах [7].

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

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

Для физической реализации базы данных в качестве целевой СУБД использована Delphi7.  Данная система позволяет хранить и обрабатывать информацию о студентах кафедры, группах, специальностях, дисциплинах и преподавателях, а также позволяет создавать рабочий учебный план и производить учет успеваемости студентов по результатам аттестаций и экзамена. В качестве сервера для администрирования базы данных был выбран Interbase, т.к. InterBase представляет собой полнофункциональный SQL- сервер. Языком администрирования InterBase является интерактивный SQL, который используется в специальных утилитах (типа WISQL или DBD), позволяющих в интерактивном режиме вводить запросы с использованием команд SQL, посылать их для выполнения на сервер и получать результаты в предназначенном для этого окне. Встроенный SQL используется в прикладных программах, позволяя им посылать запросы к серверу и обрабатывать полученные результаты, в том числе комбинируя set-ориентированный и record-ориентированный подходы. 
 

 

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Архангельский А.Я. Delphi5. Спр-ное пособие. – М.: ЗАО Изд. БИНОМ,2001
2. Астахова И.Ф. и др. SQL в примерах и задачах.  Из-во Питер, 2001
3. Бобровский С. Delphi5. Учеб. курс. Изд. Дом ПИТЕР, 2001
4. Бойко В.В., Савинков В.М. Проектирование баз данных информационных систем. – М.: Финансы и статистика, 1989
5. Бондарь А. InterBase и Firebird. Прак. рук-во для умных польз. и нач. разработчиков. «БХВ-Петербург», 2007
6. Боровиков В.В. MS ACCESS 2002. Программирование и разработка БД и приложении. М.Фин. и стат-ка,2002
7. Дарахвилидзе П., Марков Е. Программирование в Delphi7. Санкт-Петербург, «БХВ-Петербург», 2003
8. Дейв Энсон, Йен Стивенсон. Проектирование баз данных. Oracle.   /Пер. с англ. –К.:Издательская группа BHV, 1999
9. Диго С.М. Проектирование и использование баз данных. М.: ФС, 1995
10. Епанешников . А.М. Епанешников В.А. Delphi. Проектирование СУБД. М., Диалог МИФИ 2001
11. Калянов Г.М. CASE-технологии. Консалтинг и автоматизации бизнес-процессов. 2-е изд. –М.:Горячая линия¾Телеком, 2000
12. Кандзюба С.П., Громов В.Н. Delphi6/7. Базы данных и приложения. Лекции и упражнения. -К.:Издательство «ДиаСофт ЮП», 2002
13. Кириллов В.В. Структурированный язык запросов SQL. – СПб.: ИТМО, 1994
14. Культин Н.Б. Delphi6. Программирование на Object Pascal. Изд-во.: БХВ Санкт-Петербург, 2002
15. Маклаков С.В. BPWin и ERWin. CASE -средства разработки информационных систем. М. ДИАЛОГ-МИФИ, 2000
16. Маклаков С.В. Моделирование бизнес-процессов с BPWin4.0. М. ДИАЛОГ-МИФИ, 2002
17. Петров В.Н. Информационные системы. СПб.: Питр,2002
18. Томас Конноли, Каролин Бегг, Анна Срачан. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. М., СПб., К., 2000 2- изд
19. Фаронов В.В. Delphi 3. Учебный курс. М.:”Ноллидж”, 1998
20. Федоров А., Елманова Н. Базы данных для всех. – М.: КомпьПресс, 2001
21. Фролов А.В., Фролов Г.В. БД в Интернете: Прак РУК. по созд Web-приложений с БД. М.: Изд-во-ТД “Русс. Ред”, 2000
22. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных. . ¾ СПб.:КОРОНА принт, 2000
23. Шейкер Т.Д. Разработка приложений в системе Delphi. Владивосток: Изд-во ДВГТУ, 2006.
24. Шумаков П.В. Delphi3 и разработка приложений БД. М.Изд-во «Нолидж», 1998
25. Чекалов А.П. Базы данных: от проектирования до разработки приложения. – СПб.: БХВ-Петербург, 2003
26. Чекалов А.П.  Базы данных: Delphi, SQL сервера. – СПб.: БХВ-Петербург, 2003

ПРИЛОЖЕНИЯ 
 

ТЕМЫ  САМОСТОЯТЕЛЬНЫХ РАБОТ

по  дисциплине Проектирование баз данных

для студентов специальностей Информатика, ИС, ВТиПО

1. Проектирование базы данных контроля экспортно-импортных валютных операций банка
1. Проектирование базы данных учета материальных ценностей
2. Проектирование базы данных распределения и использования водных ресурсов
3. Проектирование базы данных расчета сдельной заработной платы
4. Проектирование базы данных ссудного портфеля
5. Проектирование базы данных расчетно-кредитного отдела банка
6. Проектирование БД формирования себестоимости готовой продукции
7. Проектирование базы данных расчетов с потребителями
8. Проектирование базы данных сбора страховых платежей и их возмещения
9. База данных расчетов с абонентами за телекоммуникационные услуги
10. Проектирование базы данных выдачи и погашения кредитов
11. Проектирование базы данных учета материальных запасов на оборотном складе
12. Проектирование базы данных налогообложения физических лиц
13. Проектирование базы данных накопительного пенсионного фонда
14. Проектирование базы данных клиентов кредитного отдела
15. Проектирование базы данных пассажирского автотранспорта
16. Проектирование базы данных регистрации кассовых аппаратов
17. Проектирование базы данных регистрации индивидуальных налогоплательщиков (ИНН)
18. Проектирование базы данных Железнодорожных перевозок
19. Проектирование базы данных кассы автовокзала
20. Проектирование базы данных формирования библиотечного фонда
21. Базы данных диссертационного фонда научно-технической библиотеки
22. Базы данных регистрации и учета архивных документов
23. Формирование информационного фонда адресного бюро
24. Формирование информационного фонда агентства по продаже, покупке и обмену жилищного фонда
25. Формирование информационного фонда справочного бюро абонентов телекоммуникационных услуг
26. Базы данных учета документов отдела кадров
27. Формирование каталога информационно-педагогического модуля
28. Проектирование базы данных по продаже автомобилей
29. Проектирование базы данных по продаже коммерческой недвижимости
30. Проектирование базы данных строительного оборудования и материалов
31. Проектирование базы данных по продаже комплектующих персональных компьютеров
32. Проектирование базы поисковых каталогов юридических услуг
33. Проектирование базы данных бюро по трудоустройству населения
34. Проектирование государственного земельного кадастра
35. Проектирование базы картографической информации для автовладельцев
36. Проектирование базы данных сбыта готовой продукции
37. Проектирование базы данных учета основных средств.
38. Проектирование базы данных складского учета
39. Автоматизация учета труда и его оплаты
40. Проектирование базы данных оперативного учета производства.
41. Проектирование базы данных расчета с абонентами энергокомбината.
42. Проектирование базы данных налогообложения юридических лиц.
43. Проектирование базы данных "Депозиты"
44. Проектирование базы данных учета потребления воды населением
45. Проектирование базы данных отдела кадров