🚀 go-pugleaf

�� ��������ת���� Program ������ ��
�� ԭ���� pipishi.bbs@bbs.nju.edu.cn ��� ��
 ����ݿ�ϵͳ���������,ʹ��Browse�����ݷ��㡢ֱ��,����,��
��ݿ�ϴ�ʱ,��Ҫ��ͣ��PgUp(��PgDn)��,���ܲ��ĵ�ij����¼����
ǰ�����������İ취��,��һ��С����, ���û�����������,ָ��
�����ü�¼,Ȼ����Browse������ʾ��ݡ�����Ҫ����һ����¼ʱ,ֻ
�ܷ������¼�����(�������·�ҳ)������������Ȼ�Ƚ����¡�Ϊ��
���������,���߱�д��һ�γ���,�����¼���������On Key Label��
������,���û���Browse������������ֵʱ,����ݿ�ָ���Ƶ���Ӧ��
¼��,�Ӷ��ز��ĵ������������ݡ�
    ������ݿ�ֻ������,���߿ɸ����Ҫȷ����ݿ⡣����ֻ�ܲ�
�����,���߿��������Ƶ�˼�����ð�������,�ﵽ�ڴ������޸����
��Ŀ�ġ�
    ��ݿ�(sjk.dbf)�ṹ:
    �ֶ���      ����    ���
    number      C       6
    name        C       8
    ����Դ��(��Foxpro 2.5 For Dos������ͨ��)
    **Name:SeekBrow.prg
    SET TALK OFF
    CLEAR
    USE sjk INDEX sjk && ���� KEY:number
    m.number=""
    DO On_Off WITH"on" && �򿪰�������
    BROWSE NOEDIT
    DO On_Off WITH"off" && �رհ�������
    USE
    RETURN
    PROCEDURE On_Off
    PARAMETER x
    IF x="on"
    **����END��,��ռ���ļ�ֵ
    ON KEY LABEL END DO seek_key WITH"END"
    ON KEY LABEL 0 DO seek_key WITH"0"
    ON KEY LABEL 1 DO seek_key WITH"1"
    ON KEY LABEL 2 DO seek_key WITH"2"
    ON KEY LABEL 3 DO seek_key WITH"3"
    ON KEY LABEL 4 DO seek_key WITH"4"
    ON KEY LABEL 5 DO seek_key WITH"5"
    ON KEY LABEL 6 DO seek_key WITH"6"
    ON KEY LABEL 7 DO seek_key WITH"7"
    ON KEY LABEL 8 DO seek_key WITH"8"
    ON KEY LABEL 9 DO seek_key WITH"9"
    ENDIF
    IF x="off"
    ON KEY LABEL END
    ON KEY LABEL 0
    ON KEY LABEL 1
    ON KEY LABEL 2
    ON KEY LABEL 3
    ON KEY LABEL 4
    ON KEY LABEL 5
    ON KEY LABEL 6
    ON KEY LABEL 7
    ON KEY LABEL 8
    ON KEY LABEL 9
    ENDIF
    RETURN
    PROCEDURE seek_key
    PARAMETER seekkey
    m.mrecn=RECNO() && ���䵱ǰ��¼��
    IF seekkey="END" && ��END������ռ���ļ�ֵ
    m.number=""
    WAIT WINDOW "����ļ�:END" NOWAIT
    ELSE
    IF LEN(m.number)=6 &&���6λ,�ɸ����Ҫ�ı�
    m.number=""
    ENDIF
    m.number=m.number+seekkey
    SEEK m.number
    IF EOF() && ���޺���,����ԭ����¼
    GOTO m.mrecn
    ENDIF
    WAIT WINDOW "����ļ�:+"m.number NOWAIT
    ENDIF
    RETURN

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]
--
�� ת��:��Top Gun sun20.nuaa.edu.cn��[FROM: 202.119.71.141]