txgl.prg 
clear 
use txlgl
text 
   ************************************************************
   * 1 記錄輸入   2 記錄修改   3 插入記錄   4  刪除記錄
   * 5 按姓名升序顯示記錄  6 按郵編升序顯示記錄               *
   * 7 按姓名查詢記錄      8 退出                             *
   ************************************************************
endtext 
do while .t.
   @7,8 clear 
   @7,8 say "請輸入1~4:" get xz defa space(1)
   read 
   do case 
      case  xz="1"
           do t1 with jlh
           ?" 顯示記錄" 
           list 
           
       case  xz="2"
           do t2 with jlh 
           ?"顯示記錄" 
           list 
          
        case xz="3"
          append blank
        case  xz="4"
           do t4 with jlh 
           list 
         case  xz="5"
            do t5 with xm
            list 
          case xz="6"
            do t6 with yb
            list 
           case xz ="7"
             do t7 with  xm 
             list 
           case xz="8"
              wait "系統將關閉！" window timeout 3
              exit 
      endcase 
   enddo 
   use