SQL / L4_BD

Лабораторная работа № 4

Тема: Создание командных файлов.

Порядок выполнения:

1. Разработать процедуру просмотра БД без возможности редактирования данных.

2. Разработать процедуру поиска записей в базе

данных и вывода данных на экран с возможностью редактирования ( изменения ,удаления). Выполнить поиск по нескольким полям каждого файла БД.

Вывести ,выборочно, данные из всех файлов БД.

Ввод/Вывод данных оформить командами форматного ввода-вывода (SAY и GET).

Внешние ключи каскадировать.

3. Разработать процедуру добавления записей в БД.

use proba.dbf

store space(20) to mfam

set date british

clear

define popup menu1 from 16,60 shadow

define bar 1 of menu1 prompt 'Просмотр'

define bar 2 of menu1 prompt 'Редактирование'

define bar 3 of menu1 prompt 'Создание'

define bar 4 of menu1 prompt '\-'

define bar 5 of menu1 prompt 'Выход'

on selection popup menu1 do pmenu1 with popup(),prompt(),bar()

activate popup menu1

procedure pmenu1

parameter mpopup,mprompt,mbar

if bar()=5

deactivate popup

endif

if bar()=2

clear

@ 4,9 to 6,50 doubl

@ 5,11 say 'Введите фамилию: ' get mfam

read

locate for fam=alltrim(mfam)

clear

@4,30 say 'ДАHHЫЕ О СОТРУДHИКЕ'

@5,9 TO 15,70 doubl

@5,51 say ' Сегодня '+dtoc(date())+' '

@6,11 say 'Фамилия, инициалы: ' get fam

@7,11 say 'Пол: ' get pol

@8,11 say 'Зарплата: ' get zarp

@11,10 to 11,69

@12,12 say 'Выход с сохр-м изм-ий - ^End, ...БЕЗ - Esc'

read cycle

endif

if bar()=1

browse

endif

if bar()=3

clear

append

endif

return

Пример программы в файлах proba.prg, proba.dbf.