按F5键后又能切换为第一屏。

泤程序如下：

USE person
@0,26 SAY "人员基本情况浏览"
DEFINE WINDOW CONTENT FROM 2,0 TO 22,79 FOOTER " Esc--退出,F5--左翻,F6--右翻 "
ACTIVATE WINDOW content

ON KEY LABEL F5 DO pan WITH "F5"
ON KEY LABEL F6 DO pan WITH "F6"

con_var=1
DO WHILE .T.
DO CASE
CASE con_var=0
EXIT
CASE con_var=1
DO right
CASE con_var=2
DO left
ENDCASE
ENDDO

NOTE 定义一个控制变量con_var，con_var为1时为预设状态，显示第一屏；
NOTE 按F6键时con_var为2，显示第二屏；
NOTE 按ESC键时con_var为0，退出。

ON KEY LABEL F5
ON KEY LABEL F6
USE
RELEASE WINDOW content
RETURN


PROC pan
PARA con
KEYBOARD CHR(23)
DO CASE
CASE con="F5"
con_var=1
CASE con="F6"
con_var=2
ENDCASE
RETURN

PROC left
BROW FIELDS name:H="姓名",sex:H="性别",birth:H="出生日期",leader:H="职务",;
profess:H="职称",party:H="党派",native:h="籍贯",dept:h="所属部门";
IN WINDOW content NODELETE NOAPPEND NOEDIT COLOR SCHEME 10
IF LASTKEY()=27
con_var=0
ENDIF
RETURN

PROC right
BROW FIELDS name:H="姓名",address:H="家庭地址",zip:H="邮编",telephone:H="电话";
note:H="备注";
IN WINDOW content NODELETE NOEDIT NOAPPEND COLOR SCHEME 10
IF LASTKEY()=27
con_var=0
ENDIF
RETURN

上一页12下一页