标题简单实用的名片管理程序

　　程序在能运行FOXBASE(DBASE_ Ⅲ)的机器上通过，附源程序如下：
　　Clear
　　set talk off
　　A=0
　　B=" "
　　C=" "
　　E=" "
　　DO WHILE A<6
　　CLEAR
　　@ 7，5 say'名片管理'
　　@ 9，6 say'1，建立'
　　@ 10，6 say'2，修改'
　　@ 11，6 say'3，删除'
　　@ 12，6 say'4，查询'
　　@ 13，6 say'5，打印'
　　@ 14，6 say'6，退出'
　　INPUT '请选择......' TO A
　　IF A=6
　　RETURN
　　ENDIF
　　accept "请输入名片库名：" to B
　　CLEA
　　DO CASE
　　case a=1
　　create &B
　　CASE A=2
　　use &b
　　accept "-----修改条件：" to c
　　if upper(c)="ALL"
　　BROW
　　LOOP
　　ENDIF
　　CHANGE FOR &C
　　CASE A=3
　　USE &B
　　H=" "
　　ACCEPT"-----删除条件：" TO H
　　DELE FOR &H
　　LIST FOR &H
　　WAIT "删除吗？"　TO E
　　IF UPPER(E)="Y"
　　PACK
　　ENDIF
　　RECALL FOR &H
　　CASE A=4
　　H=1
　　USE &B
　　DO WHILE H=1
　　ACCEPT"-----查询条件：" TO C
　　IF UPPER(C)<>"ALL"
　　DISPLAY FOR &C OFF
　　ENDIF
　　IF UPPER(C)="ALL"
　　DISP ALL
　　ENDIF
　　ACCEPT"再看一次？" TO E
　　IF UPPER(E)="Y"
　　GO TOP
　　LOOP
　　ENDIF
　　H=0
　　ENDDO
　　CASE A=5
　　ACCEPT "请输入打印条件：" TO C
　　USE &B
　　LOCA FOR &C
　　SET PRINT ON
　　SET DEVICE TO PRINT
　　@ 2，7 say 工作单位
　　@ 4，13 say 姓名
　　@ prow()+2，3 say "地址"
　　@ prow()，pcol()+4 say 地址
　　@ prow()，pcol()+6 say"电话"
　　@ prow()，pcol()+4 say 电话
　　@ prow()+1，30 say "传呼"
　　@ prow()，pcol()+4 say 传呼
　　@ prow()+1，30 say "传真"
　　@ prow()，pcol()+4 say 传真
　　@ prow()+1，pcol()+3 say "邮编"
　　@ prow()，pcol()+4 say 邮编
　　@ prow()，pcol()+12 say "电挂"
　　@ prow()，pcol()+4 say 电挂
　　set print off
　　set device to screen
　　endcase
　　loop
　　enddo
　　use
　　return