2020-01-14
299
Для автоматизации работы с таблицей 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
ПРИЛОЖЕНИЯ
ТЕМЫ САМОСТОЯТЕЛЬНЫХРАБОТ
по дисциплине Проектирование баз данных
