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

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

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

«VfoxPro 9.0 учебный курс». изд. «Век +» г.Киев 2006г. 2 Л.Омельченко «СамоучительVFoxPro 8.0» изд. «БВХ-Петербург» г.Санкт-Петербург 2004г. 3 А.Д. Хомоненко «Базы данных», учебник для ВУЗов изд.«Корона принт» г.Санкт-Петербург 2003г. В.П.Агальцов «Базы данных» изд. «Мир» г.Москва 2002г. Т.Карпова «Базы данных. Модели, разработка, реализация» г.Санкт-Петербург 2005г. Приложение А схема связи Схема с связи представлена на рисунке 4 Рисунок 4- Схема связи

между таблицами Приложение Б Текст программы *Закрытие всех работающих программ и приложений CLOSE ALL *Выход по нажатию клавиши 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 ACTIVATE MENU NAT *Процедура выхода из программы 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 ACTIVATE POPUP NATA *Создание вертикального меню «Запросы» 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 ACTIVATE POPUP NATA *Создание вертикального меню «Отчёты» 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 ACTIVATE POPUP NATA Вывод на экран формы «Каталог газет и журналов» PROCEDURE PRO5 DO FORM "C:\FOXPRO\VFP98\PODPISKA\KAT.SCX" CLOSE ALL *Вывод на экран формы «Абоненты» PROCEDURE PRO6 DO