Информатика -продвинутый курс



         

ПРЕДСТАВЛЕНИЕ ОБ ЯЗЫКАХ УПРАВЛЕНИЯ РЕЛЯЦИОННЫМИ БАЗАМИ ДАННЫХ ТИПА dBASE - часть 29


case dl=2

do APPN

case dl=l

do NEWBD

case dl=4

do SERVIS3

case dl=5

do DOC

case dl=6

store 8 to d2

endcase

loop

enddo

return

_____________ модуль DOP.PRG ______________

DOP.PRG осуществляет запрос на классы, по результатам ввода формирует логическую переменную kkk. используемую в некоторых других модулях для контроля за номерами классов, kkk принимает значение «истина», если поле «класс» соответствует введенным номерам, и «ложь» - в противоположном случае.

Программа 142

store 0 to kl

store to kl

store Т to pp

*** запрос на классы

@ 10,1 say 'Какие классы*

do while pp

@ 10,13 get kl picture '99-99'

read

if val($(kl,l,2))<12 .and. val($(kl,4,2))<l2

store F to pp

endif

loop

enddo

*** Формирование логической переменной kkk

if val ($(kl,4,2))=0

store 12 to kl

else

store val($(kl,4,2))+l to kl

endif

store 'Kлacc>val ($ (kl, 1,2))—1 .and. Knacc<kl' to kkk

return

____________ модуль

SERV1S2.PRG _________________

Этот модуль позволяет внести изменения в записи БД. Классы, в которых будет производиться корректировка, пользователь указывает, отвечая на запрос до вызова настоящей программы.

Программа 143

erase

set colon off

set talk off

goto top

if val(dd)=l

do shapka

else do shapkal

endif

store 1 to numl ,num2

store Т to log

store ' ' to rl

store 0 to pointer, num

store 't' to dl

count to num

do while num1<num .and. num2<num .and. log

store 10 to line

store 't' to dl

@ 21,25 say 'Нажмите«к>> для перехода к другим записям

@ 22,25 say "или ВВОД для внесения изменений'

if val(dd)=l

do newws2

else

do newws21

endif

skip - line + 10

store 10 to line

do i zm2

store pointer+1 to pointer

loop

if num1<num

skip

endif

enddo

_____________ модуль SHAPKA.PRG _____________

Программа 144

erase

text

таблица 1

Класс

Сохранение контингента

Неуспевающие

Второгодники, их успеваем.

Пропуски

Работа с трудными учащимися и их семьями

Конец года

Четверти 1 2 3 4

Четверти

1 2 3 4

Четверти 1 2 3 4

Без ув. причин

По болезни

Состоящ.

на учете

Трудные семьи

<


Содержание  Назад  Вперед