Информатика и выч. техника \ Базы данных

Создание базы данных "Киностудии", страница 6

Запрос добавления новой записи в таблицу фильмов (форма приведена на рис. 31).

public tmp(2)

if reccount("films") > 0

      SELECT MAX(id_film) FROM films INTO ARRAY tmp

else

      tmp[1] = -1

endif

INSERT INTO films (название,id_city,дата_выпуска,продолжительность,id_prod,id_film,id_study);

VALUES (thisform.text1.value,val(thisform.combo1.value),thisform.text2.value,thisform.text3.value,;

val(thisform.combo2.value),tmp[1]+1,val(thisform.combo3.value))

thisform.text1.value=""

thisform.text2.value=""

thisform.text3.value=""

thisform.Combo1.refresh

thisform.Combo2.refresh

thisform.Combo3.refresh

messagebox("Новый фильм добавлен в базу!")

Запрос добавления новой записи в таблицу персонала(форма приведена на рис. 33).

if reccount("people") > 0

      SELECT MAX(id_ppl) FROM people INTO ARRAY tmp

else

      tmp[1] = -1

endif

INSERT INTO people (фамилия, имя,отчество,дата_рождения,id_city,адрес_проживания,годовой_доход,состояние,id_ppl,пол,актерство,руководительство);

VALUES (thisform.text1.value,thisform.text2.value,thisform.text3.value,thisform.text4.value,;

val(thisform.combo1.value),thisform.text5.value,thisform.text6.value,thisform.text7.value,tmp[1]+1,;

thisform.combo2.value,thisform.combo3.value,thisform.combo4.value)

thisform.text1.value = ""

thisform.text2.value = ""

thisform.text3.value = ""

thisform.text4.value = ""

thisform.text5.value = ""

thisform.text6.value = ""

thisform.text7.value = ""

messagebox("Новый человек добавлен в базу!")

Запрос добавления новой записи в таблицу киностудий (форма приведена на рис. 30).

public tmp(2)

if reccount("studies") > 0

      SELECT MAX(id_study) FROM studies INTO ARRAY tmp

else

      tmp[1] = -1

endif

INSERT INTO studies (название,id_city,id_presid,адрес,дата_основания,id_study);

VALUES (thisform.text1.value,val(thisform.combo1.value),val(thisform.combo2.value),;

thisform.text2.value,thisform.text3.value,tmp[1]+1)

thisform.text1.value=""

thisform.text2.value=""

thisform.text3.value=""

thisform.Combo1.refresh

thisform.Combo2.refresh

messagebox("Новая киностудия добавлена в базу!")

Выводы

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

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

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

1) Малыхина М.П. Базы данных: основы, проектирование, использование, 2-е изд. перераб. и доп. – СПб.: БХВ-Петербург, 2006. – 528 с.: ил.

2) Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. проф. А.Д. Хомоненко. – 5-е изд., доп. – М.: Бином-Пресс; СПб.: КОРОНА принт, 2006. – 736 с.

3) Интернет-учебник: «Иллюстрированный самоучитель по Visual FoxPro»

Скачать файл