c.prg

车辆管理系统 车辆管理系统

ENDIF
ENDDO
SET TALK OFF
CLEA
*DO WHIL .T.
@ 9,28 SAY"|----------------|"
@ 10,28 SAY"|                |"
@ 11,28 SAY"|                |"
@ 12,28 SAY"|                |"
@ 13,28 SAY"|                |"
@ 14,28 SAY"|----------------|"
@ 10,32 PROMP"1--输入数据"
@ 11,32 PROMP"2--修改数据"
@ 12,32 PROMP"3--删除数据"
@ 13,32 PROMP"0--返    回"
MENU TO M
DO CASE
   CASE M=4
        QUIT
   CASE M=1
        DO M1
   CASE M=2
        DO M2
   CASE M=3
        DO M3
  END CASE
ENDDO
RETURN
REOCEDURE M1
CLEA 
DO WHILE .T.
@ 9,30 SAY "|----------------"
@ 10,30 SAY "|               |"
@ 11,30 SAY "|               |"
@ 12,30 SAY "|               |"
@ 13,30 SAY "|               |"
@ 14,30 SAY "|---------------|"
@ 10,33 PROMP"1--录入A库数据"
@ 11,33 PROMp"2--录入B库数据"
@ 12,33 PROMP"3--录入C库数据"
@ 13,33 PROMP"0--返       回"
MENU TO M1
DO CASE 
   CASE M1=4
      EXIT
   CASE M1=1
      DO 追加.prg
   CASE M1=2
      DO PROG12
   CASE M1=3
      DO PROG13
  END CASE
ENDDO
CLEA 
RETURN
PROCEDURE M2
CLEA
DO WHILE .T.
@ 9,30 SAY "|----------------|"
@ 10,30 SAY "|                |"
@ 11,30 SAY "|                |"
@ 12,30 SAY "|                |"
@ 13,30 SAY "|                |"
@ 14,30 SAY "|----------------|"
@ 10,33 PROMP"1--修改A库数据"
@ 11,33 PROMP"2--修改B库数据"
@ 12,33 PROMP"3--修改C库数据"
@ 13,33 PROMP"0--返       回"
MENU TO M2
DO CASE 
   CASE M2=4
       EXIT
   CASE M2=1
       DO PROG11
   CASE M2=2
       DO PROG12
   CASE M2=3
       DO PROG13
  ENDCASE
ENDDO
CLEA
RETURN
PROCEDURE M3
CLEA
DO WHILE .T.
@ 9,30 SAY "|----------------|"
@ 10,30 SAY "|                |"
@ 11,30 SAY "|                |"
@ 12,30 SAY "|                |"
@ 13,30 SAY "|                |"
@ 14,30 SAY "|----------------|"
@ 10,33 PROMP"1--删除A库数据"
@ 11,33 PROMP"2--删除B库数据"
@ 12,33 PROMP"3--删除C库数据"
@ 13,33 PROMP"0--返       回"
MENU TO M3
DO CASE
   CASE M3=4
       EXIT
   CASE M3=1
       DO PROG11
   CASE M3=2
       DO PROG12
   CASE M3=3
       DO PROG13
ENDDO
CLEA
RETURN