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

*Запрос по улице

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   

*Предварительный  просмотр отчёта «Обзор подписчиков  на издания»»

PROCEDURE PRO19

CLEAR

CLOSE ALL

REPORT FORM "C:\FOXPRO\VFP98\PODPISKA\KAT.frx"  PREVIEW

RETURN   
 
 
 
 
 
 
 
 
 
 
 

    Приложение В   Основные формы

Основная  форма «Каталог газет и журналов» иллюстрирована на рисунке 5 

 

Рисунок 5- Основная форма «Каталог газет  и журналов» 
 
 
 
 
 
 
 
 
 
 
 

Основная  форма «Абоненты» показана на рисунке 6 

Рисунок 6- Основная форма «Абоненты» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Основная  форма «Подписчики на издания» показана на рисунке 7 

Рисунок 7- Основная форма «Подписчики на издания» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение  Г Основные  запросы 

Основной  запрос «Запрос по городу» иллюстрирован  на рисунке 8  

                               
 
 
 
 
 
 
 
 
 
 
 
 

 

                                Рисунок 8- Основной запрос «Запрос по городу»

                      Основной запрос «Запрос по улице» представлен на рисунке 9 

 
 
 
 
 
 
 
 
 
 
 
 
 

             

                     

 
 
 
 
 
 
 
 
 
 
 
 
 

 

                                 
 
 
 
 
 
 
 
 
 
 

Рисунок 9- Основной запрос «Запрос по улице» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Приложение  Д Вспомогательные  запросы

    Вспомогательный  запрос «Запрос по коду издания» продемонстрирован на рисунке 10

  
 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Рисунок 10- Вспомогательный запрос «Запрос по коду издания» 
 

Вспомогательный запрос «Запрос по наименованию издания» представлен на рисунке 11

 
 
 
 
 
 
 
 
 
 
 
 
 
 

 
 

Вспомогательный запрос «Запрос по виду издания» приведен на рисунке 12 
 
 
 
 
 
 
 
 
 
 
 

Рисунок 11- Вспомогательный запрос «Запрос по наименованию издания» 

Вспомогательный запрос «Запрос по виду издания» представлен  на рисунке 12

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Рисунок 12- Вспомогательный запрос «Запрос по виду издания» 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Вспомогательный запрос «Запрос по виду издания» приведен на рисунке 13  

 
 
 
 
 
 
 

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Рисунок 13- Вспомогательный запрос «Запрос  по виду издания»