Информационная система кинообслуживания

_SCREEN.ACTIVEFORM.RELEASE()

ELSE

_SCREEN.ACTIVEFORM.REFRESH()

ENDIF

***Кнопка записать на форме VODANNW

IF MESSAGEBOX("ВСЕ ДАННЫЕ ВВЕДЕНЫ ?",4+32+256,"ВВОД ИНФОРМАЦИИ О ФИЛЬМЕ")=6

SELECT TANWFILM

APPEND BLANK

SET EXCLUSIVE ON

REPLACE npp with Cn,kod with Ck,naim with Cnam,god with Cgod,regiser WITH Creg,;

strana with Cstran,xar with Cx,tip with Ctp,gmr with Cm,ggr with Cg,;

anons with Can

_SCREEN.ACTIVEFORM.RELEASE()

ELSE

_SCREEN.ACTIVEFORM.REFRESH()

ENDIF

RETURN

***Кнопка выход на форме VODANNW

SET CENT OFF

IF MESSAGEBOX("ПОДТВЕРДИТЕ ЗАВЕРШЕНИЕ ВВОДА",4+48+256,"ВЫХОД БЕЗ ЗАПИСИ ")=6

_SCREEN.ACTIVEFORM.RELEASE()

ELSE

_SCREEN.ACTIVEFORM.REFRESH()

ENDIF

***Кнопка просмотр киносеансов на форме FZRITEL

DO FORM WZROSREP.SCX

***Кнопка просмотр аннотации на форме FZRITEL

DO FORM ANWZRREP.SCX

***Кнопка покупка взрослых кинобилетов на форме FZRITEL

DO FORM POKWBIL.SCX

***Кнопка покупка детских кинобилетов на форме FZRITEL

DO FORM POKDBIL.SCX

***Кнопка покупка кинобилетов на форме DETSREP

DO FORM POKDBIL.SCX

***Кнопка назад на форме DETSREP

DO FORM WZROSREP.SCX

***Кнопка детский репертуар на форме WZROSREP

DO FORM DETSREP.SCX

***Кнопка покупка кинобилетов на форме WZROSREP

DO FORM POKWBIL.SCX

***Кнопка выход на форме WZROSREP

DO FORM FZRITEL.SCX

***Кнопка выход на форме ANDETREP

DO FORM FZRITEL.SCX

***Кнопка анонс детского репертуара на форме ANWZRREP

DO FORM ANDETREP.SCX

***Кнопка выход на форме ANWZRREP

DO FORM FZRITEL.SCX

***Кнопка ok на форме POKDBIL

DATA=' . . '

DO FORM WIBMESTA.SCX

***Кнопка выход на форме POKDBIL

SET CENT OFF

IF MESSAGEBOX("ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ ? ",4+32+256," В Ы Х О Д ")=6

_SCREEN.ACTIVEFORM.RELEASE()

ELSE

_SCREEN.ACTIVEFORM.REFRESH()

ENDIF

***Кнопка ok на форме POKWBIL

DATA=' . . '

DO FORM WIBMESTA.SCX

***Кнопка выход на форме POKWBIL

SET CENT OFF

IF MESSAGEBOX("ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ ВЫЙТИ ? ",4+32+256," В Ы Х О Д ")=6

_SCREEN.ACTIVEFORM.RELEASE()

ELSE

_SCREEN.ACTIVEFORM.REFRESH()

ENDIF

***Кнопка ok на форме OPLATA

DO FORM FSPASIBO.SCX

***Кнопка ok на форме WIBMESTA

DO FORM OPLATA.SCX

***Кнопка выход на форме WIBMESTA

DO FORM FZRITEL.SCX

***Кнопка выход на форме FSPASIBO

DO FORM FZRITEL.SCX

***Кнопка взрослый репертуар на форме FKASSA

DO FORM FKASWREP.SCX

***Кнопка детский репертуар на форме FKASSA

DO FORM FKASDREP.SCX

***Кнопка продажа взрослых кинобилетов на форме FKASSA

DO FORM PRODBILW.SCX

***Кнопка продажа детских кинобилетов на форме FKASSA

DO FORM PRODBILD.SCX

***Кнопка отчёт на форме FKASSA

IF USED ('WMESTA')

SELECT WMESTA

USE

ENDIF

SELECT TMESTA

COPY TO WMESTA

wnpp=npp

XNPP=1

USE WMESTA IN 0

SELECT WMESTA

SCAN

REPLACE NPP WITH XNPP

XNPP=XNPP+1

ENDSCAN

GO TOP

MESSAGEBOX('РАЗРАБОТКА ОТЧЕТА ',;

0+64+256,'КОНТРОЛЬНОЕ СООБЩЕНИЕ')

REPORT FORM RWMESTA.frx NOEJECT NOCONSOLE TO PRINTER PROMPT

SELECT WMESTA

USE

SELECT TMESTA

LOCATE FOR wnpp=npp

RETURN

***Кнопка выход на форме FKASSA

DO FORM START.SCX

***Кнопка продажа кинобилетов на форме FKASDREP

DO FORM PRODBILD.SCX

***Кнопка выход на форме FKASDREP

DO FORM FKASSA.SCX

***Кнопка продажа кинобилетов на форме FKASWREP

DO FORM PRODBILW.SCX

***Кнопка выход на форме FKASWREP

DO FORM FKASSA.SCX

***Кнопка ok на форме PRODBILD

DATA=' . . '

DO FORM FKASMEST.SCX

***Кнопка выход на форме PRODBILD

DO FORM FKASSA.SCX

***Кнопка ok на форме PRODBILW

DATA=' . . '

DO FORM FKASMEST.SCX

***Кнопка выход на форме PRODBILW

DO FORM FKASSA.SCX

***Кнопка ok на форме FKASMEST

DO FORM FKASPROD.SCX

***Кнопка выход на форме FKASMEST

DO FORM FKASSA.SCX

***Кнопка ok на форме FKASPROD

DO FORM FKASSA.SCX

ПРИЛОЖЕНИЕ 2

Графический материал

Перечень графического материала:

лист 1: Постановка задачи;

лист 2: Модель предметной области;

лист 3: Диаграмма вариантов использования, Сценарии вариантов использования;

лист 4: Архитектура системы;

лист 5: Алгоритмы функционирования системы;

лист 6: Внешний вид интерфейса;

лист 7: Техническая реализация системы.

Размещено на Allbest.ru