49346 (Учет товаров в фирме по продаже аудиотехники), страница 2
Описание файла
Документ из архива "Учет товаров в фирме по продаже аудиотехники", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "49346"
Текст 2 страницы из документа "49346"
IF y=1. OR. y=2
a=Zag(ALLTRIM(a),. f)
ENDIF
IsFind=. F.
Find=. F.
SCAN
DO CASE
CASE y=1
Find=Zag(ALLTRIM(A. nazv_f),. f) =a
CASE y=2
Find=A. tip_nosit=a
CASE y=3
Find=A. kod_post=a
ENDCASE
IF Find
IsFind=. T.
? 'Название фильма: ',A. nazv_f
? 'Тип носителя: ',A. tip_nosit
? 'Название носителя: ',B. nazv_nosit
? 'Продолжительность: ',A. prodol
? 'Качество: ',A. kachestvo
? 'Цена: ',A. zena
? 'Код поставщика: ',A. kod_post
? 'Название поставщика: ',C. nazv_post
? 'Адрес поставщика: ',C. adres_post
? 'Телефон поставщика: ',C. telef_post
? 'Жанр: ',A. janr
? 'Главный артист: ',A. gl_artist
? 'Код фильма: ',A. kod_f
WAIT 'Продолжить поиск? (ДА - любая клавища, НЕТ - ESC) ' WINDOW
IF LASTKEY() =27
EXIT
ENDIF
ENDIF
ENDSCAN
IF! IsFind
WAIT 'ПОИСК НЕ УДАЧНЫЙ' WINDOW
ENDIF
DEACTIVATE WINDOW FindWindow
ENDIF
DEACTIVATE POPUP SearchPopup
RETURN
PROCEDURE FiltrProc
SET CURSOR ON
y=BAR()
str=PROMPT()
DEFINE WINDOW FiltrWindow FROM 7,20 TO 12,60;
TITLE 'Фильтрация '+ str
ACTIVATE WINDOW FiltrWindow
@ 1,1 SAY 'Укажите ключ: '
DO CASE
CASE y=1
@ 1,15 GET a DEFAULT SPACE(20)
CASE y=2
@ 1,15 GET a DEFAULT SPACE(3)
CASE y=3
@ 1,15 GET a PICTURE '999' DEFAULT 0
CASE y=4
@ 1,15 GET a DEFAULT SPACE(18)
ENDCASE
@3,11 GET choice FUNCTION '*th \! Фильтр; \? Выход' DEFAULT 2 SIZE 1,6,4
READ CYCLE
DEACTIVATE WINDOW FiltrWindow
SET CURSOR OFF
IF choice=1
DO CASE
CASE y=1
SET FILTER TO a. nazv_f=alltrim(a)
CASE y=2
SET FILTER TO a. tip_nosit=a
CASE y=3
SET FILTER TO a. kod_post=a
CASE y=4
SET FILTER TO a. kachestvo=alltrim(a)
ENDCASE
DO BrowseData WITH 1
ENDIF
RETURN
FUNCTION Zag
PARAMETER p,k
PUSH KEY clear
s='абвгдежзийклмнопрстуфхцчшщыьъэюя'
z='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЫЬЪЭЮЯ'
IF k
REPLACE &p WITH CHRTRAN(&p,s,z)
ELSE
POP KEY
RETURN CHRTRAN(p,s,z)
ENDIF
POP KEY
RETURN
PROCEDURE EndProc
PARAMETER y
DO CASE
CASE BAR() =1. OR. y=1
ON KEY
SET HELP ON
SET RELATION TO
SET FILTER TO
DEACTIVATE WINDOW ALL
DEACTIVATE MENU
DEACTIVATE POPUP
CLEAR ALL
CANCEL
CASE BAR() =2. OR. y=2
QUIT
ENDCASE
POP KEY
CLOSE DATABASES
RETURN
Список использованной литературы
1. Четвериков В.Н, Ревунков Г.И., Самохволов Э.Н. Базы и банки данных.