Анализ конъюнктуры рынка ФГУП Почта России — страница 14

  • Просмотров 3579
  • Скачиваний 25
  • Размер файла 594
    Кб

FORM "C:\FOXPRO\VFP98\PODPISKA\АБОНЕНТЫ.SCX" CLOSE ALL *Вывод на экран формы «Подписчики на издания2 PROCEDURE PRO7 DO FORM "C:\FOXPRO\VFP98\PODPISKA\PODPISCHIKI.SCX" CLOSE ALL *Запрос по городу PROCEDURE PRO10 CLEAR store space(20) to R @10,10 SAY "ВВЕДИТЕ НАЗВАНИЕ ГОРОДА" GET R READ SELECT KAT.КОДИЗДАНИЯ,НАИМЕНОВАН,ПЕРИОДИЧН,АБОНЕНТЫ.ФАМИЛИЯ,ИМЯ,ОТЧЕСТВО,НАС_ПУНКТ,УЛИЦА,ДОМ,КВАРТИРА,СРОКНАЧАЛА,СРОКОКОНЧ from KAT,АБОНЕНТЫ where АБОНЕНТЫ.НАС_ПУНКТ=R.AND.KAT.КОДИЗДАНИЯ=АБОНЕНТЫ.КОДИЗДАНИЯ ORDER BY KAT.КОДИЗДАНИЯ

*Запрос по улице PROCEDURE PRO11 CLEAR store space(20) to Y store space(20)to R @10,10 SAY "ВВЕДИТЕ НАЗВАНИЕ НАСЕЛЁННОГО ПУНКТА" GET Y READ CLEAR @10,10 SAY 'ВЕДИТЕ НАЗВАНИЕ УЛИЦИ' GET R READ SELECT KAT.КОДИЗДАНИЯ,НАИМЕНОВАН,ПЕРИОДИЧН,АБОНЕНТЫ.ФАМИЛИЯ,ИМЯ,ОТЧЕСТВО,НАС_ПУНКТ,УЛИЦА,ДОМ,КВАРТИРА,СРОКНАЧАЛА,СРОКОКОНЧ from KAT,АБОНЕНТЫ where АБОНЕНТЫ.НАС_ПУНКТ=Y.and.АБОНЕНТЫ.УЛИЦА=R.AND.KAT.КОДИЗДАНИЯ=АБОНЕНТЫ.КОДИЗДАНИЯ ORDER BY KAT.КОДИЗДАНИЯ clear *Запрос по коду издания PROCEDURE PRO12 CLEAR R=0 @10,10 SAY

'ВВЕДИТЕ КОД ИЗДАНИЯ' GET R READ SELECT KAT.КОДИЗДАНИЯ as 'Код_издания',НАИМЕНОВАН as 'Наименование',ВИД,АБОНЕНТЫ.ФАМИЛИЯ,НАС_ПУНКТ,УЛИЦА,ДОМ,КВАРТИРА,KAT.ПЕРИОДИЧН*KAT.ЦЕНА1ЭКЗ as 'Цена_за_мес',KAT.ПЕРИОДИЧН*KAT.ЦЕНА1ЭКЗ*(АБОНЕНТЫ.СРОКОКОНЧ-АБОНЕНТЫ.СРОКНАЧАЛА) as 'Итого_за_подписку' FROM KAT,АБОНЕНТЫ WHERE KAT.КОДИЗДАНИЯ=R.AND.KAT.КОДИЗДАНИЯ=АБОНЕНТЫ.КОДИЗДАНИЯ ORDER BY KAT.КОДИЗДАНИЯ CLEAR *Запрос по наименованию издания PROCEDURE PRO13 CLEAR STORE SPACE(30) TO R @10,10 SAY 'ВВЕДИТЕ

НАИМЕНОВАНИЕ ИЗДАНИЯ' GET R READ SELECT KAT.КОДИЗДАНИЯ,НАИМЕНОВАН,ВИД,АБОНЕНТЫ.ФАМИЛИЯ,НАС_ПУНКТ,УЛИЦА,ДОМ,КВАРТИРА,KAT.ПЕРИОДИЧН*KAT.ЦЕНА1ЭКЗ AS 'Цена_за_мес',KAT.ПЕРИОДИЧН*KAT.ЦЕНА1ЭКЗ*(АБОНЕНТЫ.СРОКОКОНЧ-АБОНЕНТЫ.СРОКНАЧАЛА)as 'Итого_за_подписку' FROM KAT,АБОНЕНТЫ WHERE KAT.НАИМЕНОВАН=R.AND.KAT.КОДИЗДАНИЯ=АБОНЕНТЫ.КОДИЗДАНИЯ ORDER BY KAT.КОДИЗДАНИЯ CLEAR *Запрос по виду издания PROCEDURE PRO14 CLEAR store space(20) to R @10,10 SAY "ВВЕДИТЕ ВИД ИЗДАНИЯ" GET R READ SELECT

KAT.КОДИЗДАНИЯ,НАИМЕНОВАН,ПЕРИОДИЧН,ЦЕНА1ЭКЗ,KAT.ПЕРИОДИЧН*KAT.ЦЕНА1ЭКЗ as 'Цена_за_мес' FROM KAT WHERE KAT.ВИД=R CLEAR *Запрос по срокам подписки PROCEDURE PRO16 CLEAR NDAT=' ' KDAT=' ' @10,10 SAY "ВВЕДИТЕ ДАТУ НАЧАЛА ПОДПИСКИ АБОНЕНТА" GET NDAT READ CLEAR @10,10 SAY "ВВЕДИТЕ ДАТУ ОКОНЧАНИЯ ПОДПИСКИ АБОНЕНТА" GET KDAT READ SELECT АБОНЕНТЫ.КОД_АБОНЕН,ФАМИЛИЯ,ИМЯ,ОТЧЕСТВО,СРОКНАЧАЛА,СРОКОКОНЧ,KAT.КОДИЗДАНИЯ,НАИМЕНОВАН FROM KAT, АБОНЕНТЫ WHERE

СРОКНАЧАЛА>CTOD(NDAT).AND.СРОКОКОНЧ<CTOD(KDAT).AND.KAT.КОДИЗДАНИЯ=АБОНЕНТЫ.КОДИЗДАНИЯ ORDER BY АБОНЕНТЫ.КОД_АБОНЕН CLEAR *Предварительный просмотр отчёта «Обзор каталога газет и журналов» PROCEDURE PRO17 CLEAR CLOSE ALL REPORT FORM "C:\FOXPRO\VFP98\PODPISKA\K.frx" PREVIEW RETURN *Предварительный просмотр отчёта «Абоненты(группировка по городу)» PROCEDURE PRO18 CLEAR CLOSE ALL REPORT FORM "C:\FOXPRO\VFP98\PODPISKA\АБОНЕНТЫ.frx" PREVIEW RETURN *Предварительный просмотр отчёта «Обзор подписчиков на издания»»