简单实用的名片管理程序

青岛市39中学 初三 三班  翁晓毅
1994-02-25

        程序在能运行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
        
 
 