Смекни!
smekni.com

Описание прикладной программы 17 6 Заключение 19 Список использованных источников 20 Приложение а древообразная структура запуска файлов, процедур и функций 21 (стр. 7 из 7)

@ 3.615,66.000 EDIT zayav.fio SIZE 1.000,23.600,15.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" SCROLL COLOR ,RGB(,,,255,255,255)

@ 5.231,20.000 EDIT zayav.town SIZE 1.000,17.000,0.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" SCROLL COLOR ,RGB(,,,255,255,255)

@ 5.154,43.000 EDIT zayav.street SIZE 1.000,17.800,20.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" SCROLL COLOR ,RGB(,,,255,255,255)

@ 5.154,67.400 EDIT zayav.house SIZE 1.000,7.600,3.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 5.154,80.400 EDIT zayav.flat SIZE 1.000,9.200,3.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 7.923,66.800 EDIT zayav.kind SIZE 1.000,22.800,12.000 ;

DEFAULT " " FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 9.308,66.800 EDIT zayav.discipline SIZE 1.000,22.800,15.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 10.692,66.800 EDIT zayav.time SIZE 1.000,22.800,25.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 12.077,66.800 EDIT zayav.uslov_rab SIZE 1.000,22.800,15.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 13.462,66.800 EDIT zayav.uslov_opl SIZE 1.000,22.800,10.000 DEFAULT " " ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 14.923,66.800 GET zayav.oklad SIZE 1.000,22.200 DEFAULT 0 ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 16.385,66.800 GET zayav.date SIZE 1.000,22.200 DEFAULT { / / } ;

FONT "Arial Cyr", 8 STYLE "I" COLOR ,RGB(,,,255,255,255)

@ 0.308,38.200 SAY "№" FONT "Times New Roman Cyr", 8 STYLE "T" COLOR RGB(,,,255,255,255)

@ 0.308,41.600 SAY zayav.number SIZE 1.000,11.000 FONT "MS Sans Serif", 8 COLOR RGB(,,,255,255,255)

@ 6.692,1.000 SAY "Контактный телефон...................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT" COLOR RGB(,,,255,255,255)

@ 6.538,66.600 EDIT zayav.phone SIZE 1.000,23.000,8.000 DEFAULT " " ;

FONT "Arial Cyr", 8 COLOR ,RGB(,,,255,255,255)

@ 18.923,1.200 EDIT zayav.dop_sved SIZE 2.000,88.200,0.000 DEFAULT " " ;

FONT "MS Sans Serif", 8 SCROLL COLOR ,RGB(,,,255,255,255)

@ 17.769,1.200 SAY "Дополнительные сведения:" FONT "Arial Cyr", 8 STYLE "IT"

@ 2.385,0.800 SAY "Номер текущей записи..................................................................." ;

FONT "Arial Cyr", 8 STYLE "IT"

@ 2.231,66.000 SAY STR(RECNO(),4)+" из "+STR(RECCOUNT(),4) SIZE 1.000,23.200 FONT "Arial Cyr", 8 ;

STYLE "I" PICTURE "@TJ" COLOR RGB(,,,255,255,255)

@ 21.462,0.600 TO 24.539,90.200 PATTERN 1 PEN 2, 8 STYLE "T" COLOR RGB(255,0,255,255,255,0)

@ 21.846,10.600 GET act3 PICTURE "@*HN Начало;Назад;Вперёд;Конец;Выход" SIZE 2.385,10.000,2.000 ;

DEFAULT 1 FONT "MS Sans Serif", 8 STYLE "B" VALID _rkg0nr9rc()

IF NOT WVISIBLE("zayav")

ACTIVATE WINDOW zayav

ENDIF

READ CYCLE ;

SHOW _rkg0nr9yl()

RELEASE WINDOW zayav

#REGION 0

SET readborder &rborder

IF m.talkstat = "ON"

SET TALK ON

ENDIF

IF m.compstat = "ON"

SET COMPATIBLE ON

ENDIF

* *********************************************************

* * _RKG0NR9RC ACT3 VALID

*!*****************************************************************************

*! Function: _RKG0NR9RC

*! Called by: SEEZAYAV.SPR

*!****************************************************************************

FUNCTION _rkg0nr9rc && ACT3 VALID

#REGION 1

SELECT 2

DO CASE

CASE act3 = 1

GO TOP

CASE act3 = 2

IF !BOF()

SKIP -1

ENDIF

IF BOF()

WAIT WINDOW "Достигнуто начало файла" NOWAIT

GOTO TOP

ENDIF

CASE act3 = 3

IF !EOF()

SKIP 1

ENDIF

IF EOF()

WAIT WINDOW "Достигнут конец файла" NOWAIT

GOTO BOTTOM

ENDIF

CASE act3 = 4

GO BOTTOM

CASE act3 = 5

bailout = .T.

CLEAR READ

ENDCASE

SHOW GETS

* *********************************************************

* * _RKG0NR9YL Read Level Show

* * Called By: READ Statement

* * Snippet Number: 2

* *********************************************************

*!*****************************************************************************

*! Function: _RKG0NR9YL

*! Called by: SEEZAYAV.SPR

*!*****************************************************************************

FUNCTION _rkg0nr9yl && Read Level Show

PRIVATE currwind

STORE WOUTPUT() TO currwind

* Show Code from screen: SEEZAYAV

#REGION 1

IF SYS(2016) = "ZAYAV" OR SYS(2016) = "*"

ACTIVATE WINDOW zayav SAME

@ 0.308,41.600 SAY zayav.number SIZE 1.000,11.000, 0.000 FONT "MS Sans Serif", 8 ;

COLOR RGB(,,,255,255,255)

@ 2.231,66.000 SAY STR(RECNO(),4)+" из "+STR(RECCOUNT(),4) ;

SIZE 1.000,23.200, 0.000 FONT "Arial Cyr", 8 STYLE "I" PICTURE "@TJ" COLOR RGB(,,,255,255,255)

ENDIF

IF NOT EMPTY(currwind)

ACTIVATE WINDOW (currwind) SAME

ENDIF

*: EOF: SEEZAYAV.SPR

Ввиду однотипности технологии разработки экранных форм, листинги остальных файлов экранных форм (файлы с расширением .spr не приводятся).

ВАРИАНТЫ ЗАДАНИЙ НА КУРСОВУЮ РАБОТУ

Номер варианта N выбирается по формуле:

N=(K*KB) div 100,

где:

K – две последние цифры пароля;

KB – общее количество вариантов;

div – целочисленное деление (полученный в результате вычисления формулы остаток отбрасывается без округления).

В случае если в результате расчета получается 0 – выполняется вариант №10

Вариант 1

Система «КАДРЫ»

В системе должны редактироваться атрибуты служащих и отделов, поиск служащих по фамилии, выбор служащих по величине зарплаты. В отделе могут работать несколько служащих.

Вариант 2

Системам «Библиография»

Система предназначена для хранения и выдачи информации о книгах: автор, название, выходные данные. Система должна обеспечивать: ввод и редактирование данных о книгах, выдачу списка книг по заданной тематике, поиск книг по одному из заданных реквизитов (автор, название).

Вариант 3

Система «Телефонный справочник»

Система предназначена для хранения информации о телефонах двух групп абонентов: организации и физические лица. Система должна обеспечивать:

выдачу списка абонентов любой группы на заданную начальную букву фамилии или названия организации, ввод и редактирование данных.

Вариант 4

Система «Справочная система аэропорта»

Система содержит информацию обо всех авиарейсах: номер рейса, пункт назначения, пункты посадки, стоимость билета и др. Система должна обеспечивать редактирование данных и выдачу информации по пункту назначения или списка рейсов в алфавитном порядке.

Вариант 5

Система «Турист»

Система содержит информацию о туристических маршрутах (страна, время пребывания, цена, условия проживания и др.). Система должна обеспечивать просмотр маршрутов, подбор по ряду условий.

Вариант 6

Система «Справочник предприятий города»

Система содержит информацию о предприятиях. Поиск можно осуществлять по специализации предприятия (торговые, производственные и др). Предусмотреть возможность выбора предприятия по признаку местоположения, времени работы и т.д.

Вариант 7

Система «Поликлиника»

Данные организовать в виде сведений о пациентах и медперсонале. У одного врача может быть несколько пациентов. В системе должна быть обеспечена фильтрация пациентов по видам заболеваний.

Вариант 8

Система «Подписка»

Данные организовать в виде сведений о подписчике и переодических изданиях. В системе реализовать поиск по фамилии, адресу подписчика, фильтрация подписчикав по конкретному переодическому изданию.

Вариант 9

Система «Агенство занятости населения»

Система должна содержать сведенгия о предприятиях и безработных. В системе обеспечить редактирование параметров безработного и предприятия. Поиск предприятия по условиям безработного.

Вариант 10

Система «Фильмотека»

Система предназначена для хранения и выдачи информации о видеофильмах: название, жанр, продолжительность, страна-производитель и др. Система должна обеспечить поиск фильма по заданному ключу, выдачу списка фильмов.