* 錄入程序
t=.t.
do whil t
clear
text 
                      修改數據
        ____________________________________
             1 控制點 
             2 宗地               內,中,外  
             3 代換    點位  墻   qn,qz,qw  
                             圍墻 wn,wz,ww
                             地面 d,河邊 h 
                             溝邊 g
                    ======================         
                       界標 d 噴漆
                            k 界樁, m 埋石 
        ___________________________________
endtext
 wait "請選擇  " TO k
if k="3"
   do cl131
GO TOP
   else
   t=.n.
endif
enddo
t=.t.
do whil t
clear
text 
             數據錄入
      ======================
         1  個別數據
         2          全部數據
         3  刪除數據
         4          錄入新數據
         5  插入某點之前
      ======================
              6 退出


 endtext
 wait "請選擇  " TO A
 DO CASE
         a1=space(10)
         a2=space(10)
    CASE A="1"
         acce "輸入點號 :" TO A1
         LOCA FOR DH=A1
         IF EOF()
         WAIT "無此點記錄! 重試 "
         ELSE
              if k="1"                 
                EDIT NEXT 1 FIEL DH,DJ,JB,XX,YY,HH,Lj
              else
                EDIT NEXT 1 FIEL DH,Dw,JB,XX,YY,HH
              endif
         ENDIF
      CASE A="2"
              if k="1"                 
                brow FIEL DH,DJ,JB,XX,YY,HH,lj
              else
                brow FIEL DH,Dw,JB,XX,YY,HH
              endif
     CASE A="3"
          clea
          wait "請將要刪除的點號置成   * " to sc
          brow fiel dh,xx,yy,hh
          dele all for dh="*"
          pack
      CASE A="4"
           a21=0
          input "請輸入錄入個數:  " to a21
          a22=0
      do whil a22<(a21)
         APPE BLANK
         a22=a22+1
      enddo
         go top
         brow fiel dh,dW,jb,XX,YY,HH 
     CASE A="5"
          acce "輸入點號 " to a3
          loca for dh=a3
          inser before blank
          edit next 1 fiel dh,dj,jb,xx,yy,hh 
      case a="6"
     RETU
endcase
enddo
retu