2.2.2 Разработка интерфейса пользователя
Программа запуска меню:
CLOSE ALL
CLEAR ALL
PUBLIC y
SET DATE TO GERMAN
SET TALK OFF
SET SAFETY OFF
SET BELL OFF
SET BELL OFF
SET POINT TO '.'
CAPSLOCK(.t.)
_SCREEN.Visible= .T.
_SCREEN.caption="УЧЕТ НАЧИСЛЕНИЯ СДЕЛЬНОЙ ЗАРАБОТНОЙ ПЛАТЫ"
_SCREEN.Picture="Фон.JPG"
_screen.Closable= .F.
_screen.WindowState= 2
_screen.MaxButton= .F.
DO MENU1.PRG
READ EVENTS
Программа меню:
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD d OF _MSYSMENU PROMPT "ВВОД ДАННЫХ" COLOR SCHEME 3;
KEY CTRL+B, "CTRL+B"
DEFINE PAD spr OF _MSYSMENU PROMPT "СПРАВОЧНИКИ" COLOR SCHEME 3 ;
KEY CTRL+S, "CTRL+S"
DEFINE PAD PRS OF _MSYSMENU PROMPT "ПРОСМОТР" COLOR SCHEME 3 ;
KEY CTRL+P, "CTRL+P"
DEFINE PAD R OF _MSYSMENU PROMPT "ОТЧЕТЫ" COLOR SCHEME 3;
KEY CTRL+O, "CTRL+O"
DEFINE PAD DOK OF _MSYSMENU PROMPT "ДОКУМЕНТЫ" COLOR SCHEME 3 ;
KEY CTRL+D, "CTRL+D"
DEFINE PAD ser OF _MSYSMENU PROMPT "СЕРВИС" COLOR SCHEME 3 ;
KEY CTRL+C, "CTRL+C"
DEFINE PAD v OF _MSYSMENU PROMPT "ВЫХОД" COLOR SCHEME 3 ;
KEY ALT+F4, "ALT+F4"
DEFINE PAD s OF _MSYSMENU PROMPT "СПРАВКА" COLOR SCHEME 3 ;
KEY CTRL+K, "CTRL+K"
ON PAD d OF _MSYSMENU ACTIVATE POPUP данные
ON PAD spr OF _MSYSMENU ACTIVATE POPUP справочник
ON PAD PRS OF _MSYSMENU ACTIVATE POPUP просмотр
ON PAD R OF _MSYSMENU ACTIVATE POPUP отчеты
ON PAD dok OF _MSYSMENU ACTIVATE POPUP документы
ON PAD ser OF _MSYSMENU ACTIVATE POPUP сервис
ON SELECTION PAD v OF _MSYSMENU DO exit.PRG
ON SELECTION PAD s OF _MSYSMENU do help.prg
DEFINE POPUP данные MARGIN RELATIVE SHADOW COLOR SCHEME 3
DEFINE BAR 1 OF данные PROMPT "МАРШРУТНЫЙ ЛИСТ";
KEY alt+m, "alt+m"
DEFINE BAR 2 OF данные PROMPT "НАРЯД";
KEY alt+n, "alt+n"
ON SELECTION BAR 1 OF данные DO FORM m_list
ON SELECTION BAR 2 OF данные DO FORM narad
DEFINE POPUP справочник
DEFINE BAR 1 OF справочник PROMPT "СВЕДЕНИЯ О ПРЕДПРИЯТИИ";
KEY alt+G, "alt+G"
DEFINE BAR 2 OF справочник PROMPT "СПРАВОЧНИК СОТРУДНИКОВ";
KEY alt+c, "alt+c"
ON SELECTION BAR 1 OF справочник do FORM sved_pred
ON SELECTION BAR 2 OF справочник do FORM sprav_sotr
DEFINE POPUP просмотр
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 p
ON SELECTION BAR 2 OF ПРОСМОТР do p1
ON SELECTION BAR 3 OF ПРОСМОТР do p3
ON SELECTION BAR 4 OF ПРОСМОТР do p2
ON SELECTION BAR 5 OF ПРОСМОТР do query6.qpr
DEFINE POPUP отчеты
DEFINE BAR 1 OF отчеты PROMPT "СВЕДЕНИЯ О ПРЕДПРИЯТИИ"
DEFINE BAR 2 OF отчеты PROMPT "СВЕДЕНИЯ О СОТРУДНИКАХ"
ON SELECTION BAR 1 OF отчеты report form Sved_pred preview
ON SELECTION BAR 2 OF отчеты report form Sved_sotr preview
DEFINE POPUP документы MARGIN RELATIVE SHADOW COLOR SCHEME 3
DEFINE BAR 1 OF документы PROMPT "Рапорт о выработке";
KEY alt+v, "alt+v"
DEFINE BAR 2 OF документы PROMPT "Ведомость начисления з\п по нарядам";
KEY alt+j, "alt+j"
DEFINE BAR 3 OF документы PROMPT "РАСЧЕТНО-ПЛАТЕЖНАЯ ВЕДОМОСТЬ";
KEY alt+p, "alt+p"
ON SELECTION BAR 1 OF документы do m_list
ON SELECTION BAR 2 OF документы do narad
ON SELECTION BAR 3 OF документы do form otchet
DEFINE POPUP сервис MARGIN RELATIVE SHADOW COLOR SCHEME 3
DEFINE BAR 1 OF сервис PROMPT "БАЗА СОТРУДНИКОВ";
KEY alt+1, "alt+1"
DEFINE BAR 2 OF сервис PROMPT "Сохранение баз";
KEY alt+2, "alt+2"
DEFINE BAR 3 OF сервис PROMPT "Очистка баз";
KEY alt+3, "alt+3"
DEFINE BAR 4 OF сервис PROMPT "Востановление баз";
KEY alt+4, "alt+4"
ON SELECTION BAR 1 OF сервис do form redsprav_sotr
ON SELECTION BAR 2 OF сервис do form sohranenie
ON SELECTION BAR 3 OF сервис do form ochistka
ON SELECTION BAR 4 OF сервис do form vostanovlenie
PROCEDURE P
USE table1.dbf
BROWSE NOEDIT
CLOSE DATABASES
PROCEDURE P1
USE таблица1.dbf
BROWSE NOEDIT
CLOSE DATABASES
PROCEDURE P2
USE table2.dbf
BROWSE NOEDIT
CLOSE DATABASES
PROCEDURE P3
USE table3.dbf
BROWSE NOEDIT
CLOSE DATABASES
Рис.2.10. Меню программы
Программа выхода из меню:
IF MESSAGEBOX('ВЫ ХОТИТЕ ВЫЙТИ?',4,'ВНИМАНИЕ!')=6
CLOSE ALL
QUIT
CLEAR EVENTS
ELSE
MESSAGEBOX('СПАСИБО ЧТО ВЫ НЕ ПОКИНУЛИ ПРОГРАММУ!',0,'БЛАГОДАРНОСТЬ!')
ENDIF