Разработка базы данных «Учет добычи и отгрузки угля на шахте» (Приложения к дипломному проекту. Текст программы)

ПРИЛОЖЕНИЕ В

Блок-схема программного продукта

Рисунок В – Блок – схема программы

ПРИЛОЖЕНИЕ Г

Текст  программы

* ОПЕР_УЧЕТ_APP.PRG (Главный модуль)

* This file is a generated, framework-enabling component

* created by APPBUILDER

* (c) Microsoft Corporation

* Framework-generated application startup program

* for C:\ 111_V7\ОПЕР_УЧЕТ Project

#INCLUDE [..\ОПЕР_УЧЕТ_APP.H]

IF TYPE([APP_GLOBAL.Class]) = "C" AND ;

UPPER(APP_GLOBAL.Class) == UPPER(APP_CLASSNAME)

MESSAGEBOX(APP_ALREADY_RUNNING_LOC,48, ;

APP_GLOBAL.cCaption )

IF VARTYPE(APP_GLOBAL.oFrame) = "O"

APP_GLOBAL.oFrame.Show()

ENDIF             

RETURN

ENDIF  

RELEASE APP_GLOBAL

PUBLIC  APP_GLOBAL

LOCAL lcLastSetTalk, llAppRan, lnSeconds, loSplash

LOCAL ARRAY laCheck[1]

lcLastSetTalk=SET("TALK")

loSplash = .NULL.

SET TALK OFF

#IFDEF APP_SPLASHCLASS

IF NOT EMPTY(APP_SPLASHCLASS)

loSplash = NEWOBJECT(APP_SPLASHCLASS, APP_SPLASHCLASSLIB)

IF VARTYPE(loSplash) = "O"  

lnSeconds = SECONDS()

loSplash.Show()

ENDIF

Продолжение приложения Г

ENDIF                               

#ENDIF

APP_GLOBAL = NEWOBJECT(APP_CLASSNAME, APP_CLASSLIB)

IF VARTYPE(APP_GLOBAL) = "O" ;

AND ACLASS(laCheck,APP_GLOBAL) > 0 AND ;

ASCAN(laCheck,UPPER(APP_SUPERCLASS)) > 0

APP_GLOBAL.cReference =[APP_GLOBAL]

APP_GLOBAL.cFormMediatorName = APP_MEDIATOR_NAME

#IFDEF APP_CD

***********  Главное меню  **************************************************************

SET SYSMENU TO

SET SYSMENU AUTOMATIC

DEFINE PAD _2c20zyif2 OF _MSYSMENU PROMPT "Добыча" COLOR SCHEME 3 ;

KEY ALT+L, "ALT+L"

DEFINE PAD _2c20zyif3 OF _MSYSMENU PROMPT "Отгрузка" COLOR SCHEME 3 ;

KEY ALT+J, "ALT+J"

DEFINE PAD _2c20zyif4 OF _MSYSMENU PROMPT "Справочники" COLOR SCHEME 3 ;

KEY ALT+C, "ALT+C"

DEFINE PAD _2c20zyif5 OF _MSYSMENU PROMPT "Отчеты" COLOR SCHEME 3 ;

KEY ALT+G, "ALT+G"

DEFINE PAD _2c20zyif6 OF _MSYSMENU PROMPT "Выход" COLOR SCHEME 3 ;

KEY ALT+Q, "ALT+Q"

ON PAD _2c20zyif2 OF _MSYSMENU ACTIVATE POPUP добыча

ON PAD _2c20zyif3 OF _MSYSMENU ACTIVATE POPUP отгрузка

ON PAD _2c20zyif4 OF _MSYSMENU ACTIVATE POPUP справочник

ON SELECTION PAD _2c20zyif6 OF _MSYSMENU Quit

DEFINE POPUP добыча MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF добыча PROMPT "Факт" ;

KEY ALT+A, "ALT+A"

Продолжение приложения Г

DEFINE BAR 2 OF добыча PROMPT "План" ;

KEY ALT+G, "ALT+G"

DEFINE BAR 3 OF добыча PROMPT "jОперативная сводка" ;

KEY ALT+T, "ALT+T"

ON SELECTION BAR 1 OF добыча do form dob_coal2

ON SELECTION BAR 2 OF добыча do form dob_coal2_plan

DEFINE POPUP отгрузка MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF отгрузка PROMPT "Факт" ;

KEY ALT+R, "ALT+R"

DEFINE BAR 2 OF отгрузка PROMPT "План" ;

KEY ALT+Y, "ALT+Y"

DEFINE BAR 3 OF отгрузка PROMPT "Оперативная сводка" ;

KEY ALT+H, "ALT+H"

DEFINE POPUP справочник MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF справочник PROMPT "Потребители" ;

KEY ALT+T, "ALT+T"

******  Glav.prg – загрузочный модуль  ********************************