home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / VS_804.ZIP / MAINTSRC.EXE / _MNTDICT.PRG < prev    next >
Encoding:
Text File  |  1991-07-02  |  2.5 KB  |  126 lines
  1. * Filename......: _MntDict.Prg
  2. *
  3. * Author........: Vernon E. Six, Jr.
  4. *
  5. * Last Update...: Tue  07-02-1991  14:36:06
  6. *
  7. * Notice........: Copyright (c) 1991 by Vernon E. Six, Jr.
  8. *                 All Rights Reserved World Wide
  9.  
  10.  
  11. FUNCTION MNT_DICT
  12. *****
  13. * Database Dictionary Maintenance
  14. *****
  15. PRIVATE c_FldList
  16. PRIVATE c_Title
  17. PRIVATE c_FootNote
  18. PRIVATE l_Index
  19. PRIVATE c_Udf
  20. PRIVATE c_HdrLine
  21. PRIVATE l_Delete
  22. PRIVATE n_Bar
  23.  
  24. PRIVATE n_Key
  25.  
  26. PRIVATE ac_Msg[3]
  27.  
  28.  
  29.    BEGIN SEQUENCE
  30.  
  31.       *****
  32.       * Open all the necessary files
  33.       *****
  34.       SELECT B
  35.       IF .NOT. V_USE("DBF_DICT",.F.)
  36.          BREAK
  37.       ENDIF
  38.  
  39.       IF .NOT. FILE("DBF_DICT.NTX")
  40.          IF .NOT. SHOW_NTX("DBF_DICT","DBF_NAME+FIELD_NMBR","C")
  41.             BREAK
  42.          ENDIF
  43.       ENDIF
  44.  
  45.       IF .NOT. FILE("DBF_FLDS.NTX")
  46.          IF .NOT. SHOW_NTX("DBF_FLDS","DBF_NAME+FIELD_NAME","C")
  47.             BREAK
  48.          ENDIF
  49.       ENDIF
  50.  
  51.       SET INDEX TO DBF_DICT, DBF_FLDS
  52.  
  53.  
  54.       SELECT C
  55.       IF .NOT. V_USE("DBF_HDR",.F.)
  56.          BREAK
  57.       ENDIF
  58.  
  59.       IF .NOT. FILE("DBF_HDR.NTX")
  60.          IF .NOT. SHOW_NTX("DBF_HDR","DBF_NAME","C")
  61.             BREAK
  62.          ENDIF
  63.       ENDIF
  64.  
  65.       SET INDEX TO DBF_HDR
  66.  
  67.       *****
  68.       * Define the stuff for VPICK()
  69.       *****
  70.       c_FldList  = "DBF_NAME+[  ]+DESC"
  71.       c_Title    = " Which Database? "
  72.       c_FootNote = " [Esc] - exit, [Rtrn] - Edit, [Ins] - Add "
  73.       l_Index    = .T.
  74.       c_Udf      = ""
  75.       c_HdrLine  = "DataBase  Description"
  76.       l_Delete   = .T.
  77.       n_Bar      = 0
  78.  
  79.       GRABSCRN()
  80.  
  81.          PALETTE(5)
  82.  
  83.          DO WHILE .T.
  84.  
  85.             *****
  86.             * Allow for different help screens from within VPICK()
  87.             *****
  88.             gc_HelpPrg  = "MNT_DICT"
  89.             n_Key = VPICK(5,4,15,c_FldList,c_Title,c_FootNote,l_Index,c_Udf,c_HdrLine,l_Delete,@n_Bar)
  90.             gc_HelpPrg = ""
  91.  
  92.             DO CASE
  93.  
  94.                CASE n_Key = 27      && [Esc]
  95.                   EXIT
  96.  
  97.                CASE n_Key = 13      && [Rtrn]
  98.                   EDT_HDR("UPDATE")
  99.  
  100.                CASE n_Key = 22      && [Ins]
  101.                   EDT_HDR("ADD")
  102.  
  103.                CASE n_Key = -9      && [F10]
  104.                   MNT_DBF()
  105.  
  106.             ENDCASE
  107.  
  108.          ENDDO
  109.  
  110.       PUTSCRN()
  111.  
  112.    END SEQUENCE
  113.  
  114.    SELECT B
  115.    USE
  116.  
  117.    SELECT C
  118.    USE
  119.  
  120.    SELECT B
  121.  
  122. RETURN(.T.)
  123. *** EOF: MNT_DICT() *********************************************************
  124.  
  125.  
  126.