cl11.prg

用foxbase制作的用于城镇地籍面积计算程序

* 录入程序
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