Анализ конъюнктуры рынка ФГУП Почта России (стр. 4 из 4)

4. бесплатное распространение в сети internet.

СУБД VFoxPro совместима с более ранними версиями FoxPro. Поэтому приложения, разработанные в более ранних версиях FoxPro, могут быть адаптированы с ее помощью в среду Windows 9x ,МЕ, ХР. VisualFoxPro обладает высокой скоростью в обслуживании БД. Приложение VisualFoxPro может одновременно работать как с собственными, так и сетевыми таблицами, расположенными на других компьютерах локальной сети.

Для упрощения процесса разработки баз данных и приложений имеется большое количество Мастеров, Конструкторов и Построителей.

На данный момент времени проблема технического и программного обеспечение стоит довольно остро, необходима одна централизованная база данных на все отделения связи, но это может серьезно повлиять на бюджет предприятия, ведь потребуется привлечения крупных специалистов, а автоматизация отдельных процессов как, например, подписки поможет лишь справится только с временными трудностями. Базы данных «Подписка» создавалась для ,,,,,,,,,,,,,,,,,,,,,,,,,, Почтамта. Главная её цель: автоматизация работ в отделе подписка. Программа поможет сократить время для поиска подписчиков, изданий, сократить сроки отчётности, а также денежные затраты. Так как программа распространяется в сети internet бесплатно, не нужно тратить деньги на покупку «1С» и другого платного программного обеспечения. Для создания данной программы было использовано только рабочее время отдела эксплуатации ЭВМ. Она используется также для повышения культурного и профессионального (в сфере пользования ЭВМ) уровня работников. Предположительно, внедрение базы данных принесёт экономический эффект предприятию за счет сокращения числа работников, обрабатывающих информацию, ускорение ввода данных. Эта программа дает возможность в дальнейшем усовершенствовать процесс управления данными, ускорить процесс передачи данных в Управления Федеральной Почтовой Связи г. ,,,,,,,,,,,,,,,,,, и Межрегиональное Агентство Подписки.

Список используемых источников

1 Т.В. Мосина, В.А.Тушенко «VfoxPro 9.0 учебный курс». изд. «Век +» г.Киев 2006г.

2 Л.Омельченко «СамоучительVFoxPro 8.0» изд. «БВХ-Петербург» г.Санкт-Петербург 2004г.

3 А.Д. Хомоненко «Базы данных», учебник для ВУЗов изд.«Корона принт» г.Санкт-Петербург 2003г.

4 В.П.Агальцов «Базы данных» изд. «Мир» г.Москва 2002г.

5 Т.Карпова «Базы данных. Модели, разработка, реализация»

г.Санкт-Петербург 2005г.

Приложение А схема связи

Схема с связи представлена на рисунке 4

Рисунок 4- Схема связи между таблицами

Приложение Б Текст программы

*Закрытие всех работающих программ и приложений

CLOSEALL

*Выход по нажатию клавиши Escape

SET ESCAPE ON

*Установкатипадаты

SET DATE GERMAN

*Установкатекущегокаталога

SET DEFAULT TO "c:\FOXPRO\VFP98\PODPISKA"

*Очистка экрана

CLEAR

*Создание горизонтального меню

DEFINE MENU Nat

DEFINE PAD ФОРМЫ OF NAT PROMPT 'ФОРМЫ'

DEFINE PAD ЗАПРОСЫ OF NAT PROMPT 'ЗАПРОСЫ'

DEFINE PAD ОТЧЁТЫ OF NAT PROMPT 'ОТЧЁТЫ'

DEFINE PAD ВЫХОД OF NAT PROMPT 'ВЫХОД'

ON SELECTION PAD ФОРМЫ OF NAT DO PRO2

ON SELECTION PAD ЗАПРОСЫ OF NAT DO PRO3

ON SELECTION PAD ОТЧЁТЫ OF NAT DO PRO4

ON SELECTION PAD ВЫХОД OF NAT DO PRO1

ACTIVATEMENUNAT

*Процедура выхода из программы

PROCEDURE PRO1

CLEAR

if messagebox('ВЫХОТИТЕВЫЙТИИЗПРОГРАММЫ?',4+32+256,'выход')=6

deactivate menus

_screen.release()

else

_screen.refresh()

RETURN

CANCEL

*Создание вертикального меню «Формы»

PROCEDURE PRO2

DEFINE POPUP NATA FROM 1,0

DEFINE BAR 1 OF NATA PROMPT 'КАТАЛОГГАЗЕТИЖУРНАЛОВ'

DEFINE BAR 2 OF NATA PROMPT 'БАЗАДАННЫХАБОНЕНТОВ'

DEFINE BAR 3 OF NATA PROMPT 'ПОДПИСЧИКИНАИЗДАНИЯ'

ON SELECTION BAR 1 OF NATA DO PRO5

ON SELECTION BAR 2 OF NATA DO PRO6

ON SELECTION BAR 3 OF NATA DO PRO7

ACTIVATEPOPUPNATA

*Создание вертикального меню «Запросы»

PROCEDURE PRO3

DEFINE POPUP NATA FROM 1,11

DEFINE BAR 1 OF NATA PROMPT 'ЗАПРОСПОГОРОДУ'

DEFINE BAR 2 OF NATA PROMPT 'ЗАПРОСПОУЛИЦЕ'

DEFINE BAR 3 OF NATA PROMPT 'ЗАПРОСПОКОДУИЗДАНИЯ'

DEFINE BAR 4 OF NATA PROMPT 'ЗАПРОСПОНАИМЕНОВАНИЮИЗДАНИЯ'

DEFINE BAR 5 OF NATA PROMPT 'ЗАПРОСПОВИДУИЗДАНИЯ'

DEFINE BAR 6 OF NATA PROMPT 'ЗАПРОСПОСРОКАМПОДПИСКИ'

ON SELECTION BAR 1 OF NATA DO PRO10

ON SELECTION BAR 2 OF NATA DO PRO11

ON SELECTION BAR 3 OF NATA DO PRO12

ON SELECTION BAR 4 OF NATA DO PRO13

ON SELECTION BAR 5 OF NATA DO PRO14

ON SELECTION BAR 6 OF NATA DO PRO16

ACTIVATEPOPUPNATA

*Создание вертикального меню «Отчёты»

PROCEDURE PRO4

DEFINE POPUP NATA FROM 1,23

DEFINE BAR 1 OF NATA PROMPT 'ОБЗОРКАТАЛОГАГАЗЕТИЖУРНАЛОВ'

DEFINE BAR 2 OF NATA PROMPT 'АБОНЕНТЫ(ГРУППИРОВКАПОГОРОДУ)'

DEFINE BAR 3 OF NATA PROMPT 'ОБЗОРПОДПИСЧИКОВНАИЗДАНИЯ'

ON SELECTION BAR 1 OF NATA DO PRO17

ON SELECTION BAR 2 OF NATA DO PRO18

ON SELECTION BAR 3 OF NATA DO PRO19

ACTIVATEPOPUPNATA

Вывод на экран формы «Каталог газет и журналов»

PROCEDURE PRO5

DO FORM "C:\FOXPRO\VFP98\PODPISKA\KAT.SCX"

CLOSEALL

*Вывод на экран формы «Абоненты»

PROCEDURE PRO6

DO FORM "C:\FOXPRO\VFP98\PODPISKA\АБОНЕНТЫ.SCX"

CLOSEALL

*Вывод на экран формы «Подписчики на издания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

*Запрос по коду издания

PROCEDUREPRO12

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

*Запрос по наименованию издания

PROCEDUREPRO13

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

*Запрос по виду издания

PROCEDUREPRO14

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

*Запрос по срокам подписки

PROCEDUREPRO16

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:&bsol;FOXPRO&bsol;VFP98&bsol;PODPISKA&bsol;K.frx" PREVIEW

RETURN

*Предварительный просмотр отчёта «Абоненты(группировка по городу)»

PROCEDURE PRO18

CLEAR

CLOSE ALL

REPORT FORM "C:&bsol;FOXPRO&bsol;VFP98&bsol;PODPISKA&bsol;АБОНЕНТЫ.frx" PREVIEW

RETURN

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

PROCEDURE PRO19

CLEAR

CLOSE ALL

REPORT FORM "C:&bsol;FOXPRO&bsol;VFP98&bsol;PODPISKA&bsol;KAT.frx" PREVIEW

RETURN

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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