Каталог Индекс раздела
Назад Оглавление Вперед

Лабораторная работа 15.

НАПИСАНИЕ ПРОСТЕЙШИХ ПРОГРАММ, С ИСПОЛЬЗОВАНИЕМ ОПЕРАТОРОВ IF-ELSE-ENDIF, DOENDDO, DO CASE-OTHERWISE-ENDCASE.

 

Цель работы :

получение практических навыков в разработке и отладке программ, написанных на языке СУБД семейства dBASE.

Темы для предварительной проработки:

Основные команды создания командных файлов.

Синтаксис и назначение операторов IF-ELSE-ENDIF,DO-ENDDO,DO CASE-OTHERWISE-ENDCASE.

Разработка программы.

Разработка программы,использующей вышеперечисленные операторы.

Программа по усмотрению преподавателя должна выполнять следующие функции:

Порядок выполнения работы.

1. Обратитесь к команде создания командного файла PR3.PRG

CREATE COMMAND A:PR3.PRG

2. Войдя в текстовый редактор СУБД,наберите текст программы.

3. Запомните файл PR3.PRG,нажав клавиши Ctrl/W или Ctrl/End.

4.Выполните программу командой

DO A:PR3.PRG

5.При необходимости редактирования обратитесь к файлу PR3.PRG при помощи команды

MODIFY COMMAND A:PR3.PRG

6. Продемонстрируйте правильность выполнения вашей программы преподавателю.

Содержание отчeта.

  1. Тема лабораторной работы.
  2. Цель работы.
  3. Индивидуальное задание.
  4. Выбор метода.
  5. Спецификация и структура программы.
  6. Текст программы с комментариями.
  7. Результаты работы программы с пояснениями.

Примеры решения задачи.

1. Пусть нужно написать программу, выводящую на экран список сотрудников по номеру отдела.

Входной параметр программы - база A:PRIM.DBF, проиндексированная по фамилиям сотрудников.

Текст программы:

*ПРОГРАММА PR3.PRG

*СПИСОК СОТРУДНИКОВ ОТДЕЛА ИЗ БД ПО КОДУ ОТДЕЛА (МАХ N ОТДЕЛА=99)

SET TALK OFF

CLEAR

USE A:PRIM.DBF INDEX FIOIND

P=0

DO WHILE P=0

INPUT 'ВВЕДИТЕ КОД ОТДЕЛА ' TO OTDEL

IF OTDEL<>99

CLEAR

? ' СПИСОК СОТРУДНИКОВ ОТДЕЛА ',OTDEL

DO WHILE .NOT.EOF()

IF OTD=OTDEL

?UPPER(FIO)

SKIP

ELSE

SKIP

ENDIF

ENDDO

ELSE

P=1

ENDIF

GO TOP

ENDDO

Алгоритм программы выглядит следующим образом :

Программа выполняет следующие действия:

2. Пусть нужно написать программу, которая бы выполняла следующие действия:

Входной параметр программы - та же база A:PRIM.DBF.

Текст программы имеет следующий вид:

*ПРОГРАММА РR3.PRG

SET TALK OFF

CLEAR

USE A:PRIM.DBF

N=1

@ 4,10 SAY 'ДОБАВИТЬ ЗАПИСЬ - 1'

@ 5,10 SAY 'УДАЛИТЬ ЗАПИСЬ - 2'

@ 6,10 SAY 'ИЗМЕНИТЬ ЗАПИСЬ - 3'

@ 7,10 SAY 'ВВЕСТИ НОМЕР СТРОКИ МЕНЮ' GET N

READ

IF N=2.OR.N=3

INPUT 'ВВЕДИТЕ НОМЕР ЗАПИСИ' TO M

IF N=2

DELETE RECORD M

PACK

ELSE

EDIT M

ENDIF

ENDIF

IF N=1

APPEND

ENDIF

CLEAR

LIST

USE

SET TALK ON

Алгоритм программы выглядит следующим образом:

Программа выполняет следующие действия:

3. Пусть нужно составить программу,выполняющую такие же действия, что и предыдущая программа, но с использованием операторов DO CASE-OTHERWISE-ENDCASE.

Входной параметр - та же база A:PRIM.DBF

Текст программы имеет вид:

*PR3.PRG

*МЕНЮ МОДЕРНИЗИРОВАНО ЧЕРЕЗ ОПЕРАЦИЮ DO CASE

SET TALK OFF

CLEAR

USE A:PRIM.DBF

@ 2,5 SAY 'ГЛАВНОЕ МЕНЮ'

@ 4,10 SAY 'ДОБАВИТЬ ЗАПИСЬ - 1'

@ 5,10 SAY 'УДАЛИТЬ ЗАПИСЬ - 2'

@ 6,10 SAY 'ИЗМЕНИТЬ ЗАПИСЬ - 3'

@ 7,10 SAY 'ОТОБРАЗИТЬ БД - 4'

N=' '

@ 10,2 SAY 'ВВЕСТИ НОМЕР СТРОКИ МЕНЮ' GET N

READ

DO CASE

CASE N='1'

APPEND

CLEAR

LIST OFF

CASE N='2'

INPUT 'ВВЕДИТЕ НОМЕР ЗАПИСИ' TO M

DELETE RECORD M

PACK

CLEAR

LIST OFF

CASE N='3'

M=4

@ 12,3 SAY 'ВВЕДИТЕ НОМЕР ЗАПИСИ' GET M

READ

EDIT M

CLEAR

LIST OFF

OTHERWISE

LIST

ENDCASE

SET TALK ON

USE

Алгоритм программы имеет следующий вид:

Программа выполняет действия, аналогичные действиям, выполняемым в программе, рассмотренной в п.2, но с использованием операции DO-CASE-OTHERWISE ENDCASE.

 

РЕКОМЕНДУЕМАЯ ЛИТЕРАТУРА

  1. 1. Гринберг Ф., Гринберг Р. Самоучитель программирования на входном языке СУБД dBASE III. -М.: Мир, 1989.-453 с.
  2. Крамм Р. Системы управления базами данных dBASE II и dBASE III для персональных компьютеров. - М.: Финансы и статистика, 1988. - 283 с.
  3. Берещанский Д.Г. Практическое программирование на dBASE. - М.: Финансы и статистика, 1989. - 189 с.
  4. Программное обеспечение персональных ЭВМ.: Справ. пособие.-/А.А.Стогний, С.А.Ананьевский, Я.И.Барсук и др.; Под ред. А.А.Стогния - Киев: Наук.думка, 1989. - 368 с.
  5. Мартин Дж. Организация баз данных в вычислительных системах. - М.: Мир, 1980. - 662 с.

Каталог Индекс раздела
Назад Оглавление Вперед