Разработка базы данных учета материально-технического оснащения кабинета специальной технологии колледжа №32 г.Москвы

 

 IF ISNULL(less1)

 less1[1]=' '

ENDIF

thisform.List1.Refresh 

Обработчик события кнопки “Последняя ” формы “Раздаточные материалы”. 

IF !EOF()

GO BOTTOM

ENDIF  

_screen.ActiveForm.Refresh( )  

ee1=thisform.Text1.Value

SELECT Uir_tab_lesson.nam_lesson;

FROM uir_tab_mat INNER JOIN uir_tab_lm ;

ON  Uir_tab_mat.mat_id = Uir_tab_lm.mat_id ;

INNER JOIN uir_tab_lesson ;

ON  Uir_tab_lm.lesson_id = Uir_tab_lesson.lesson_id;

WHERE  Uir_tab_mat.mat_id =ee1;

INTO ARRAY  less1

 

IF ISNULL(less1)

less1[1]=' '

ENDIF

thisform.List1.Refresh 

Обработчик события кнопки “Добавить ” формы “Раздаточные материалы”. 

PUBLIC new_mat_id as Integer

SET ORDER TO mat_id 

CALCULATE MAX(mat_id) TO new_mat_id

new_mat_id=new_mat_id+1 

CLEAR

SELECT uir_tab_mat

APPEND BLANK

ThisForm.Text1.Value=new_mat_id 

ee=thisform.Text1.Value

RELEASE less1

DIMENSION less1(20)

thisform.List1.Refresh

_screen.ActiveForm.Refresh( )

thisform.Command4.Visible= .T.

thisform.Command2.Enabled= .f. 

thisform.Commandgroup1.Command1.Enabled= .F.

thisform.Commandgroup1.Command2.Enabled= .F.

thisform.Commandgroup1.Command3.Enabled= .F.

thisform.Commandgroup1.Command4.Enabled= .F.

thisform.Commandgroup1.Command5.Enabled= .F.

thisform.Commandgroup1.Command8.Enabled= .F. 

Обработчик события кнопки “Удалить” формы “Раздаточные материалы”. 

tu=thisform.Text1.value

IF MESSAGEBOX('Вы уверены,  что хотите стереть запись?', 4 + 32 + 256, 'Выход')=6 

SELECT uir_tab_mat

SET EXCLUSIVE ON

DELETE

pack 

SELECT uir_tab_lm

SET EXCLUSIVE ON 

DELETE;

FROM Uir_tab_lm;

WHERE Uir_tab_lm.mat_id = tu 

PACK

_screen.ActiveForm.Release()

DO FORM uir_form21

MESSAGEBOX('Данные  удалены из таблицы!') 

ELSE 

_screen.ActiveForm.Refresh()

Endif 

Обработчик события кнопки “Открепить от урока” формы “Раздаточные материалы”. 

tu=thisform.Text1.value 

uuu=INPUTBOX('Введите  ID урока','Заявка')

IF EMPTY(uuu)=.f. then

DO WHILE Type(uuu)!='N'

MESSAGEBOX('Вы ввели  некорректное значение (ID числовое значение)')

uuu=INPUTBOX('Введите  ID урока','Заявка') 

ENDDO

ttz=val(uuu)

LOCAL ARRAY ss7(20)

SELECT Uir_tab_lm.mat_id;

FROM uir_tab_lm;

WHERE  Uir_tab_lm.mat_id = ttz;

INTO ARRAY ss7

If EMPTY(ss7)

MESSAGEBOX('Данная  кассета не содержится в списке')

ELSE 

SELECT uir_tab_lm

DELETE;

FROM Uir_tab_lm;

WHERE Uir_tab_lm.lesson_id =ttz and Uir_tab_lm.mat_id=tu 

PACK

THISFORMset.forms(2).visible=.f.

_screen.ActiveForm.Release()

DO FORM uir_form20

MESSAGEBOX('Связь разорвана!')

endif

ELSE thisform.Refresh

endif 

Обработчик события кнопки “Прикрепить к уроку” формы “Раздаточные материалы”. 
 

SELECT uir_tab_lm

uuu=INPUTBOX('Введите  ID урока','Заявка')

IF EMPTY(uuu)=.f. then

DO WHILE Type(uuu)!='N'

MESSAGEBOX('Вы ввели  некорректное значение (ID числовое значение)')

uuu=INPUTBOX('Введите  ID урока','Заявка') 

ENDDO

tz=val(uuu) 

LOCAL ARRAY ss6(20)

SELECT Uir_tab_lesson.nam_lesson;

FROM uir_tab_lesson;

WHERE  Uir_tab_lesson.lesson_id =tz;

INTO ARRAY ss6

If EMPTY(ss6)

MESSAGEBOX('Такого  значения ID нет в списке данных')

ELSE

LOCAL ARRAY ss5(20)

SELECT Uir_tab_lm.mat_id;

FROM uir_tab_lm;

WHERE  Uir_tab_lm.lesson_id = tz;

INTO ARRAY ss5

If EMPTY(ss5)=.f.

MESSAGEBOX('Такая  кассета уже есть в списке')

else

y=thisform.Text1.Value

INSERT INTO uir_tab_lm VALUES (tz,y) 

THISFORMset.forms(2).visible=.f.

_screen.ActiveForm.release 

DO FORM uir_form21

endif

endif

ELSE thisform.Refresh

endif 
 

Обработчик события кнопки “Сохранить” формы “Уроки (добавить новый)”. 

LOCAL qt as Character;

yy as Integer;

rt as Integer; 

wu=ThisForm.Text5.Value

yy=ThisForm.Text4.Value

qt=ThisForm.Combo2.Value

rt=ThisForm.Combo1.Value

wt=VAL(yy)

t=new_lesson_id 

IF EMPTY(wu)

   IF EMPTY(yy)

      IF EMPTY (qt)

         IF EMPTY(rt)

         MESSAGEBOX('Данные не были введены!')

         ELSE

         INSERT INTO uir_tab_lesson VALUES (t,rt,qt,wt,wu)

         MESSAGEBOX('Данные добавлены в таблицу!') 

         Thisform.Command1.Enabled= .f.

         _screen.ActiveForm.Release()

         DO FORM uir_form12

         ENDIF

      ELSE

      INSERT INTO uir_tab_lesson VALUES (t,rt,qt,wt,wu)

      MESSAGEBOX('Данные добавлены в таблицу!') 

      Thisform.Command1.Enabled= .f.

      _screen.ActiveForm.Release()

      DO FORM uir_form12   

      ENDIF

   ELSE

   INSERT INTO uir_tab_lesson VALUES (t,rt,qt,wt,wu)

   MESSAGEBOX('Данные добавлены в таблицу!') 

   Thisform.Command1.Enabled= .f.

   _screen.ActiveForm.Release()

   DO FORM uir_form12   

   ENDIF

ELSE

INSERT INTO uir_tab_lesson VALUES (t,rt,qt,wt,wu)

MESSAGEBOX('Данные  добавлены в таблицу!') 

Thisform.Command1.Enabled= .f.

_screen.ActiveForm.Release()

DO FORM uir_form12   

ENDIF 
 

Заключение  по работе. 

Целью учебно-исследовательской  работы являлось:

• Изучение СУБД Visual FoxPro 8.0.и языка программирования FoxPro.
• Изучение структурированного языка запросов SQL.
• Изучение особенностей предметной области.
• Проектирование базы данных (создание реляционной модели)
• Создание основных элементов базы данных: таблиц, форм, отчетов, запросов.
• Разработка обработчиков событий на языке FoxPro.
• Приобретение навыков работы с СУБД Visual FoxPro 8.0

Курсовой проект посвящен разработке базы данных для учета материально-технического оснащения кабинета специальной технологии колледжа №32 г.Москвы

В ходе УИР и КП создана база данных, отвечающая техническому заданию на курсовой проект, с использованием средств  FoxPro 8.0.

Проект позволил автоматизировать работу по подбору  необходимого материала к урокам и систематизировать хранение информации. Задача автоматизации учебного процесса актуальна и имеет хорошую перспективу дальнейшего развития. 
 

ЛИТЕРАТУРА 
 

1. Microsoft Visual FoxPro О. В. Бартеньев Диалог-МИФИ Москва 2005г.
2. Visual FoxPro С. Каратыгин А. Тихонов Л. Тихонова Издательство БИНОМ Москва 1999
3. http://www.firststeps.ru/foxpro/fx/fx1.html
4. http://omck.info/1subd.php
5. http://www.computerbooks.ru/books/Programming/Book-FoxPro-7/index.html
6. http://www.compdoc.ru/bd/foxpro/
7. http://www.linksoft.ru/working.html