txgl.txt

本次上载的是和通录有关的在VF环境下的一个有用的源程序

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