Scribd
Upload
4 views4 pages

FoxPro Menu System Configuration

The document outlines a program script that sets up a system menu with various options including conversion, card information, report viewing, and help. It defines multiple popups and their corresponding actions based on user selections. The program runs in a loop, allowing continuous interaction with the menu until terminated.

Uploaded by

lazaruspascalth
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
4 views4 pages

FoxPro Menu System Configuration

The document outlines a program script that sets up a system menu with various options including conversion, card information, report viewing, and help. It defines multiple popups and their corresponding actions based on user selections. The program runs in a loop, allowing continuous interaction with the menu until terminated.

Uploaded by

lazaruspascalth
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

DO SETSYS.

PRG
RESTORE FROM [Link]
SET PATH TO &XPATH
SET DISPLAY TO &XDISPLAY
=NUMLOCK(.T.)
*:=SYS(2017)
xsaylogo = xsaylogo + [ stretch]
&xsaylogo
DO [Link]
set clock on
@0,0 say date()
SET SYSMENU SAVE
SET SYSMENU TO
DEFINE MENU _MSYSMENU BAR AT LINE 1
DEFINE PAD CONVPAD OF _MSYSMENU PROMPT '\<����¹��ѡ' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD CARDPAD OF _MSYSMENU PROMPT '\<�Ѻ����˹��' COLOR SCHEME 3 ;
KEY ALT+I, ''
DEFINE PAD REPVIEW OF _MSYSMENU PROMPT '\<��§ҹ / ���Ҿ' COLOR SCHEME 3 ;
KEY ALT+A, ''
DEFINE PAD VHELP OF _MSYSMENU PROMPT '\<���������' COLOR SCHEME 3 ;
KEY ALT+E, ''
ON PAD CONVPAD OF _MSYSMENU ACTIVATE POPUP CONVERSION
ON PAD CARDPAD OF _MSYSMENU ACTIVATE POPUP CARDINFO
ON PAD REPVIEW OF _MSYSMENU ACTIVATE POPUP REPORTVIEW
ON PAD VHELP OF _MSYSMENU ACTIVATE POPUP USEHELP

DEFINE POPUP CONVERSION MARGIN RELATIVE SHADOW COLOR SCHEME 4


DEFINE BAR 1 OF CONVERSION PROMPT '\<����¹�١�/���١˹��'
DEFINE BAR 2 OF CONVERSION PROMPT '\<����¹��Ҥ��'
DEFINE BAR 3 OF CONVERSION PROMPT '\<����¹����ࢵ��â��'
DEFINE BAR 4 OF CONVERSION PROMPT '\<����¹��ѡ�ҹ���'
DEFINE BAR 5 OF CONVERSION PROMPT '\<����¹������Թ'
DEFINE BAR 6 OF CONVERSION PROMPT '\<����¹����Ѻ�Թ'
DEFINE BAR 7 OF CONVERSION PROMPT '\<����¹����Ǩ�ͺ'
DEFINE BAR 8 OF CONVERSION PROMPT '\-'
DEFINE BAR 9 OF CONVERSION PROMPT '\<����÷ӧҹ'
ON SELECTION POPUP CONVERSION DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DEFINE POPUP CARDINFO MARGIN RELATIVE SHADOW COLOR SCHEME 4


DEFINE BAR 1 OF CARDINFO PROMPT '\<�Ѵ��������Ѻ�Թ'
DEFINE BAR 2 OF CARDINFO PROMPT '\<�ѹ�֡����Ѻ����˹��'
DEFINE BAR 3 OF CARDINFO PROMPT '\-'
DEFINE BAR 4 OF CARDINFO PROMPT '\<��Ǩ��������
ͺ Ѻ����˹��'
DEFINE BAR 5 OF CARDINFO PROMPT '\<��������´�����'
DEFINE BAR 6 OF CARDINFO PROMPT '\-'
DEFINE BAR 7 OF CARDINFO PROMPT '\<��Ѻ��‫'��ا‬
ON SELECTION POPUP CARDINFO;
DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DEFINE POPUP REPORTVIEW MARGIN RELATIVE SHADOW COLOR SCHEME 4


DEFINE BAR 1 OF REPORTVIEW PROMPT '\<��§ҹ����Ѻ����˹��'
DEFINE BAR 2 OF REPORTVIEW PROMPT '\<��§ҹ�礶֧��˹�(���§�ѹ�����,��Ҥ��)'
DEFINE BAR 3 OF REPORTVIEW PROMPT '\<��§ҹ�礶֧��˹�(���§�ѹ������Թ)'
DEFINE BAR 4 OF REPORTVIEW PROMPT '\<��§ҹ��û�Ѻ��‫'��ا‬
DEFINE BAR 5 OF REPORTVIEW PROMPT '\<��§ҹ���ѧ������Ѻ�Թ'
DEFINE BAR 6 OF REPORTVIEW PROMPT '\<��§ҹ��ҹ'
DEFINE BAR 7 OF REPORTVIEW PROMPT '\<��§ҹ�礤‫'׹‬
DEFINE BAR 8 OF REPORTVIEW PROMPT '\<��§ҹ���������'
DEFINE BAR 9 OF REPORTVIEW PROMPT '\<��§ҹ���š�Թʴ'
DEFINE BAR 10 OF REPORTVIEW PROMPT '\<��§ҹ���š��'
DEFINE BAR 11 OF REPORTVIEW PROMPT '\-'
DEFINE BAR 12 OF REPORTVIEW PROMPT '\<��Ǩ�����
ͺ Ѻ����˹��'
DEFINE BAR 13 OF REPORTVIEW PROMPT '\<��‫���ʹ�ػ‬/�Ѻ����'
DEFINE BAR 14 OF REPORTVIEW PROMPT '\<��§ҹ����Ѻ����˹��(�¡����١���)'
DEFINE BAR 15 OF REPORTVIEW PROMPT '\<��§ҹ������Ѻ�Թ'
DEFINE BAR 16 OF REPORTVIEW PROMPT '\<��§ҹ����Ѻ����˹��(���ҧ���)'
ON SELECTION POPUP REPORTVIEW;
DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DEFINE POPUP USEHELP MARGIN RELATIVE SHADOW COLOR SCHEME 4


DEFINE BAR 1 OF USEHELP PROMPT '\<��Ѻ��‫�������ا‬Ţͧ�к�'
ON SELECTION POPUP USEHELP;
DO CHOICE IN MAINMENU WITH PROMPT( ), POPUP( )

DO WHILE .T.
ACTIVATE MENU _MSYSMENU
ENDDO

PROCEDURE CHOICE
PARAMETERS MPROMPT, MPOPUP
DO PROCSUSPEN
DO CASE
CASE MPOPUP = 'CONVERSION'
DO CASE
CASE BAR() = 1
DO [Link]
CASE BAR() = 2
DO [Link]
CASE BAR() = 3
DO [Link]
CASE BAR() = 4
DO [Link]
CASE BAR() = 5
DO [Link]
CASE BAR() = 6
DO [Link]
CASE BAR() = 7
DO [Link]
CASE BAR() = 9
SET SYSMENU TO DEFAULT
SET CLOCK OFF
SET COLOR TO
CLEAR
CLOSE DATA
ON KEY
ON ERROR
IF ENDFLAG
*:QUIT
cancel
ELSE
CANCEL
ENDIF
ENDCASE
CASE MPOPUP = 'CARDINFO'
DO CASE
CASE BAR() = 1
DO [Link]
CASE BAR() = 2
DO [Link]
CASE BAR() = 3
*:DO [Link]
CASE BAR() = 4
*:DO [Link]
do [Link]
case bar() =5
do [Link]
case bar()= 7
do [Link]
ENDCASE
CASE MPOPUP = 'REPORTVIEW'
DO CASE
CASE BAR() = 1
do [Link]
CASE BAR() = 2
DO [Link]
case bar() = 3
do [Link]
CASE BAR() = 4
DO [Link]
CASE BAR() = 5
DO [Link]
CASE BAR() = 6
DO [Link]
CASE BAR() = 7
DO [Link]
CASE BAR() = 12
DO [Link]
CASE BAR() = 13
do [Link]
CASE BAR() = 14
do [Link]
CASE BAR() = 15
do [Link]
CASE BAR() = 16
do [Link]
ENDCASE
CASE MPOPUP = 'USEHELP'
DO CASE
CASE BAR() = 1
*:DO [Link]
ENDCASE
ENDCASE
DO PROCRESUM
RETURN

PROCEDURE PROCSUSPEN
DEFINE PAD CONVPAD OF _MSYSMENU PROMPT '\����¹��ѡ' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD CARDPAD OF _MSYSMENU PROMPT '\�Ѻ����˹��' COLOR SCHEME 3 ;
KEY ALT+I, ''
DEFINE PAD REPVIEW OF _MSYSMENU PROMPT '\��§ҹ / ���Ҿ' COLOR SCHEME 3 ;
KEY ALT+A, ''
DEFINE PAD VHELP OF _MSYSMENU PROMPT '\���������' COLOR SCHEME 3 ;
KEY ALT+E, ''
RETURN
PROCEDURE PROCRESUM
DEFINE PAD CONVPAD OF _MSYSMENU PROMPT '\<����¹��ѡ' COLOR SCHEME 3 ;
KEY ALT+C, ''
DEFINE PAD CARDPAD OF _MSYSMENU PROMPT '\<�Ѻ����˹��' COLOR SCHEME 3 ;
KEY ALT+I, ''
DEFINE PAD REPVIEW OF _MSYSMENU PROMPT '\<��§ҹ / ���Ҿ' COLOR SCHEME 3 ;
KEY ALT+A, ''
DEFINE PAD VHELP OF _MSYSMENU PROMPT '\<���������' COLOR SCHEME 3 ;
KEY ALT+E, ''
RETURN

You might also like