Список использованных источников
1 Диго С. М. Проектирование баз данных.- М.: Финансы и статистика,
1988.- 216 с.: ил.
2 Попов А. А. Программирование в среде СУБД FoxPro 2.0. Построение систем обработки данных.- М.: Радио и связь, К.:ТОО “ВЕК”, 1995.- 352 с.: ил.
3 Дейт Введение в системы баз данных. — М.: Наука, 1980.-350 с.: ил.
4 Куправа Т. А. Создание и программирование баз данных средствами
СУБД. — М.: Мир, 1980. — 230 с.: ил.
Приложение А
(справочное)
KURS.PRGPREDL.DBF (БД/dbf)
ZAYAV.DBF (БД/dbf)
MMM.MPR SEEZAYAV.SPR _RKG0NR9RC() (функция в SEEZAYAV.SPR) _RKG0NR9YL() (функция в SEEZAYAV.SPR) _RKN159U3J (процедура в MMM.MPR) FINZAYAV.SPR _RKN13YACZ() (функция в FINZAYAV.SPR) SEEZAYAV.SPR... _RKN159U40 (процедура в MMM.MPR) _RKN159U4G (процедура в MMM.MPR) FINZAYAV.SPR... _RKN159U4V (процедура в MMM.MPR) ZAYAV.SPR _RKG0MPASO() (функция в ZAYAV.SPR) SEEPREDL.SPR _RKG0M4464() (функция в SEEPREDL.SPR) _RKG0M44C6() (функция в SEEPREDL.SPR) _RKN159U6L (процедура в MMM.MPR) FINPREDL.SPR _RKN13Z2H5() (функция в FINPREDL.SPR) SEEPREDL.SPR... _RKN159U71 (процедура в MMM.MPR) _RKN159U7H (процедура в MMM.MPR) FINPREDL.SPR... _RKN159U7Y (процедура в MMM.MPR) PREDL.SPR _RKG0MO7XF() (функция в PREDL.SPR)Рисунок А.1 - Древообразная структура запуска файлов, процедур и функций
Приложение Б
(обязательное)
Листинг файла Kurs.PRG
*:*****************************************************************************
*:
*: Program: C:\FOXPROW\KURS.PRG
*: System: Система для кадрового агентства
*: Author: А. С. Москвин и А. С. Шеховцов
*: Last modified: 16/05/97 at 19:18:18
*:
*: Calls: MMM.MPR
*:
*: Uses: PREDL.DBF
*: : ZAYAV.DBF
*:
*: Documented 20:20:45 FoxDoc version 3.00a
*:*****************************************************************************
PUBLIC ed
PUBLIC ku
PUBLIC di
PUBLIC DO
PUBLIC ur
PUBLIC uo
PUBLIC ok
PUBLIC ag
SELECT 1
USE predl
SELECT 2
USE zayav
DO mmm.mpr
Приложение В
(обязательное)
Листинг файла Mmm.MPR
*********************************************************
* Menu Definition
*********************************************************
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _rkp12z3kz OF _MSYSMENU PROMPT "Заявки" COLOR SCHEME 3
DEFINE PAD _rkp12z3mj OF _MSYSMENU PROMPT "Предложения" COLOR SCHEME 3
DEFINE PAD _rkp12z3mn OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3
ON PAD _rkp12z3kz OF _MSYSMENU ACTIVATE POPUP заявки
ON PAD _rkp12z3mj OF _MSYSMENU ACTIVATE POPUP предложени
ON SELECTION PAD _rkp12z3mn OF _MSYSMENU set sysmenu to default
DEFINE POPUP заявки MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF заявки PROMPT "Просмотр заявок"
DEFINE BAR 2 OF заявки PROMPT "Поиск заявок"
DEFINE BAR 3 OF заявки PROMPT "Полный отчёт"
DEFINE BAR 4 OF заявки PROMPT "Отчёт по условию"
DEFINE BAR 5 OF заявки PROMPT "Ввод новых заявок"
ON SELECTION BAR 1 OF заявки do seezayav.spr
ON SELECTION BAR 2 OF заявки ;
DO _rkp12z3pz ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
ON SELECTION BAR 3 OF заявки ;
DO _rkp12z3tg ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
ON SELECTION BAR 4 OF заявки ;
DO _rkp12z3ty ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
ON SELECTION BAR 5 OF заявки ;
DO _rkp12z3ud ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
DEFINE POPUP предложени MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF предложени PROMPT "Просмотр предложений"
DEFINE BAR 2 OF предложени PROMPT "Поиск предложений"
DEFINE BAR 3 OF предложени PROMPT "Полный отчёт"
DEFINE BAR 4 OF предложени PROMPT "Отчёт по условию"
DEFINE BAR 5 OF предложени PROMPT "Ввод новых предложений"
ON SELECTION BAR 1 OF предложени do seepredl.spr
ON SELECTION BAR 2 OF предложени ;
DO _rkp12z3w4 ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
ON SELECTION BAR 3 OF предложени ;
DO _rkp12z3wk ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
ON SELECTION BAR 4 OF предложени ;
DO _rkp12z3x0 ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
ON SELECTION BAR 5 OF предложени ;
DO _rkp12z3xg ;
IN LOCFILE("\FOXPROW\MMM" ,"MPX;MPR|FXP;PRG" ,"Where is MMM?")
*********************************************************
* _RKP12Z3PZ ON SELECTION BAR 2 OF POPUP заявки
* Procedure Origin:
* From Menu: MMM.MPR, Record: 6
Called By: ON SELECTION BAR 2 OF POPUP заявки
* Prompt: Поиск заявок
* Snippet: 1
*********************************************************
PROCEDURE _rkp12z3pz
ku=""
ur=""
uo=""
ok=0
DO finzayav.spr
DO seezayav.spr
SET FILTER TO
GO TOP
*********************************************************
* _RKP12Z3TG ON SELECTION BAR 3 OF POPUP заявки
* Procedure Origin:
* From Menu: MMM.MPR, Record: 7
* Called By: ON SELECTION BAR 3 OF POPUP заявки
* Prompt: Полный отчёт
* Snippet: 2
*********************************************************
PROCEDURE _rkp12z3tg
SELECT 2
REPORT FORMAT zayav TO PRINTER
WAIT WINDOW "Вывод отчётной формы на принтер произведён."
CLEA
*********************************************************
* _RKP12Z3TY ON SELECTION BAR 4 OF POPUP заявки
* Procedure Origin:
* From Menu: MMM.MPR, Record: 8
* Called By: ON SELECTION BAR 4 OF POPUP заявки
* Prompt: Отчёт по условию
* Snippet: 3
*********************************************************
PROCEDURE _rkp12z3ty
SELECT 2
DO finzayav.spr
REPORT FORMAT zayav TO PRINTER
WAIT WINDOW "Вывод отчётной формы на принтер произведён."
CLEA
SET FILTER TO
GO TOP
*********************************************************
* _RKP12Z3UD ON SELECTION BAR 5 OF POPUP заявки
* Procedure Origin:
* From Menu: MMM.MPR, Record: 9
* Called By: ON SELECTION BAR 5 OF POPUP заявки
* Prompt: Ввод новых заявок
* Snippet: 4
*********************************************************
PROCEDURE _rkp12z3ud
SELECT 2
APPEND BLANK
GO BOTTOM
DO zayav.spr
*********************************************************
* _RKP12Z3W4 ON SELECTION BAR 2 OF POPUP предложени
* Procedure Origin:
* From Menu: MMM.MPR, Record: 13
* Called By: ON SELECTION BAR 2 OF POPUP предложени
* Prompt: Поиск предложений
* Snippet: 5
*********************************************************
PROCEDURE _rkp12z3w4
ed=""
ku=""
di=""
DO=""
ur=""
uo=""
ok=0
ag=0
DO finpredl.spr
DO seepredl.spr
SET FILTER TO
GO TOP
*********************************************************
* _RKP12Z3WK ON SELECTION BAR 3 OF POPUP предложени
* Procedure Origin:
* From Menu: MMM.MPR, Record: 14
* Called By: ON SELECTION BAR 3 OF POPUP предложени
* Prompt: Полный отчёт
* Snippet: 6
*********************************************************
PROCEDURE _rkp12z3wk
SELECT 1
REPORT FORMAT predl TO PRINTER
WAIT WINDOW "Вывод отчётной формы на принтер произведён."
CLEA
*********************************************************
* _RKP12Z3X0 ON SELECTION BAR 4 OF POPUP предложени
* Procedure Origin:
* From Menu: MMM.MPR, Record: 15
* Called By: ON SELECTION BAR 4 OF POPUP предложени
* Prompt: Отчёт по условию
* Snippet: 7
*********************************************************
PROCEDURE _rkp12z3x0
SELECT 1
DO finpredl.spr
REPORT FORMAT predl TO PRINTER
WAIT WINDOW "Вывод отчётной формы на принтер произведён."
CLEA
SET FILTER TO
GO TOP
*********************************************************
* _RKP12Z3XG ON SELECTION BAR 5 OF POPUP предложени
* Procedure Origin:
* From Menu: MMM.MPR, Record: 16
* Called By: ON SELECTION BAR 5 OF POPUP предложени