stify"> _ screen.MaxButton=.F.MENU1.PRGEVENTS
Програма меню: SYSMENU TOSYSMENU AUTOMATICPAD d OF _MSYSMENU PROMPT ВВЕДЕННЯ ДАНИХ COLOR SCHEME 3; CTRL + B, CTRL + B PAD spr OF _MSYSMENU PROMPT СПРАВОЧНИКИ COLOR SCHEME 3; CTRL + S, CTRL + S PAD PRS OF _MSYSMENU PROMPT ПЕРЕГЛЯД COLOR SCHEME 3; CTRL + P, CTRL + P PAD R OF _MSYSMENU PROMPT ЗВІТИ COLOR SCHEME 3; CTRL + O, CTRL + O PAD DOK OF _MSYSMENU PROMPT ДОКУМЕНТИ COLOR SCHEME 3; CTRL + D, CTRL + D PAD ser OF _MSYSMENU PROMPT СЕРВІС COLOR SCHEME 3; CTRL + C, CTRL + C PAD v OF _MSYSMENU PROMPT ВИХІД COLOR SCHEME 3; ALT + F4, ALT + F4 PAD s OF _MSYSMENU PROMPT ДОВІДКА COLOR SCHEME 3; CTRL + K, CTRL + K PAD d OF _MSYSMENU ACTIVATE POPUP данниеPAD spr OF _MSYSMENU ACTIVATE POPUP справочнікPAD PRS OF _MSYSMENU ACTIVATE POPUP просмотрPAD R OF _MSYSMENU ACTIVATE POPUP отчетиPAD dok OF _MSYSMENU ACTIVATE POPUP документиPAD ser OF _MSYSMENU ACTIVATE POPUP сервісSELECTION PAD v OF _MSYSMENU DO exit.PRGSELECTION PAD s OF _MSYSMENU do help.prgPOPUP дані MARGIN RELATIVE SHADOW COLOR SCHEME 3BAR 1 OF дані PROMPT маршрутний лист raquo ;; alt + m, alt + m BAR 2 OF дані PROMPT laquo ; НАРЯД raquo ;; alt + n, alt + n SELECTION BAR 1 OF дані DO FORM m_listSELECTION BAR 2 OF дані DO FORM narad
DEFINE POPUP справочнікBAR 1 OF довідник PROMPT ВІДОМОСТІ ПРО ПІДПРИЄМСТВО raquo ;;
KEY alt + G, alt + G
DEFINE BAR 2 OF довідник PROMPT ДОВІДНИК СПІВРОБІТНИКІВ raquo ;;
KEY alt + c, alt + c SELECTION BAR 1 OF довідник do FORM sved_predSELECTION BAR 2 OF довідник do FORM sprav_sotrPOPUP просмотрBAR 1 OF перегляд PROMPT ВІДОМОСТІ ПРО ПІДПРИЄМСТВО
DEFINE BAR 2 OF перегляд PROMPT ДОВІДНИК СПІВРОБІТНИКІВ
DEFINE BAR 3 OF перегляд PROMPT маршрутний лист BAR 4 OF перегляд PROMPT НАРЯД
DEFINE BAR 5 OF перегляд PROMPT відомості про співробітників
ON SELECTION BAR 1 OF ПЕРЕГЛЯД do pSELECTION BAR 2 OF ПЕРЕГЛЯД do p1SELECTION BAR 3 OF ПЕРЕГЛЯД do p3SELECTION BAR 4 OF ПЕРЕГЛЯД do p2SELECTION BAR 5 OF ПЕРЕГЛЯД do query6.qprPOPUP отчетиBAR 1 OF звіти PROMPT ВІДОМОСТІ ПРО ПІДПРИЄМСТВО BAR 2 OF звіти PROMPT відомості про співробітників SELECTION BAR 1 OF звіти report form Sved_pred previewSELECTION BAR 2 OF звіти report form Sved_sotr previewPOPUP документи MARGIN RELATIVE SHADOW COLOR SCHEME 3
DEFINE BAR 1 OF документи PROMPT Рапорт про вироблення raquo ;;
KEY alt + v, alt + v
DEFINE BAR 2 OF документи PROMPT Відомість нарахування з п за нарядами raquo ;;
KEY alt + j, alt + j
DEFINE BAR 3 OF документи PROMPT розрахунково-платіжні відомості raquo ;;
KEY alt + p, alt + p SELECTION BAR 1 OF документи do m_listSELECTION BAR 2 OF документи do naradSELECTION BAR 3 OF документи do form otchetPOPUP сервіс MARGIN RELATIVE SHADOW COLOR SCHEME 3BAR 1 OF сервіс PROMPT БАЗА СПІВРОБІТНИКІВ raquo ;; alt + 1, alt + 1 BAR 2 OF сервіс PROMPT Збереження баз raquo ;; alt + 2, alt + 2 BAR 3 OF сервіс PROMPT Очищення баз raquo ;; alt + 3, alt + 3 BAR 4 OF сервіс PROMPT Встановлено баз raquo ;; alt + 4, alt + 4 SELECTION BAR 1 OF сервіс do form redsprav_sotrSELECTION BAR 2 OF сервіс do form sohranenieSELECTION BAR 3 OF сервіс do form ochistkaSELECTION BAR 4 OF сервіс do form vostanovleniePtable1.dbfNOEDITDATABASESP1таблица1.dbfNOEDITDATABASESP2table2.dbfNOEDITDATABASESP3table3.dbfNOEDIT
CLOSE DATABASES
Рис. 2.10 - Меню програми
Програма виходу з меню: MESSAGEBOX ( ВИ ХОЧЕТЕ ВИЙТИ? , 4, УВАГА! )=6
CLOSE ALLEVENTS
MESSAGEBOX ( СПАСИБІ ЩО ВИ НЕ ЗАЛИШИЛИ ПРОГРАМУ! , 0, ПОДЯКА! )
2.2.3 Розробка форм введення
Рис. 2.11 - Форма: sved_pred.scx
Формa INIT:
PUBLIC put=SYS (5) + ALLTRIM (SYS (2003)) PATH TO amp; putTALK OFFDATABASE 1table1 EXCLUSIVE.Closable=.F.thisform
. grid1.RecordSource=.null.
. grid1.RecordSource= table1
. txtpr.value=
. txtad.value=
. txtt.value=0
. txtinn.value=0
. txtrs.value=0
. txtkr.value=0
. txtnr.value=0
. txtdt.value={}
. txtgn.value=
. txtgb.value=
. txtpr.readonly=.t.
. txtad.readonly=.t. <...
