home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / TABLES / TBLSRC / TABLES.PRG < prev    next >
Text File  |  1992-11-12  |  2KB  |  70 lines
  1. * Program   :TblField.prg
  2. * Author    :Mark D. Miller
  3. * Date      :12-Nov-1992
  4. * Notice    : Copyright (c) 12-Nov-1992 by Mark D. Miller
  5. *             All Rights Reserved.
  6. * Notes     :This is the get filter for the Field table routines
  7. *
  8. * Example of use:
  9. *   @ 3, 1 SAY "table value   : " ;
  10. *          GET SEX PICTURE "!!"    ;
  11. *          FILTER Table( "SEXCODES", 3, 21, 6, SEX ) ;
  12. *          VALID VerifyTable( "SEXCODES", 3, 21, 6, SEX )
  13. *
  14. * NOTE: The "tabled" field MUST be a global variable!
  15. *
  16. #INCLUDE TABLE.HDR
  17. #INCLUDE IO.HDR
  18. #INCLUDE KEYS.HDR
  19. #INCLUDE STRING.HDR
  20. *
  21. * Global Table Memory
  22. *
  23. VARDEF  EXTERN
  24.     CHAR( 12 )  OpenTableName
  25.     FILE        OpenTableHandle
  26.     UINT        TableCnt, TableCnt2, TableKy
  27.     LONG        DataList, KeyList
  28.     INT         TableType
  29.     INT         TableIdx
  30. ENDDEF
  31. **********************************************************************
  32. *                   T H E    R O U T I N E S                         *
  33. **********************************************************************
  34. * Function  :Table
  35. * Date      :03-Aug-1992
  36. * Parameters:name           Name of table
  37. *           :TableRow       Row field is on
  38. *           :TableCol       Col field is on
  39. *           :length         Max Length of table strings
  40. *           :pkey           Key into PickList
  41. *           :
  42. * Return Val:TableKy        Key pressed
  43. *           :
  44. * Notes     :This routine opens the correct table file and calls VerifyTable
  45. *
  46. FUNCTION UINT Table
  47.     PARAMETERS  CONST   CHAR( 8 )   name,;
  48.                 const   UINT        TableRow,;
  49.                 const   UINT        TableCol,;
  50.                 const   INT         length,;
  51.                         CHAR( 4 )   pkey
  52.  
  53.     TableKy = LASTKEY()
  54.     IF TableKy <> &K_TAB
  55.         RETURN TableKy
  56.     ENDIF
  57.     *
  58.     * Init the table if not already
  59.     *
  60.     IF AT( Name, OpenTableName ) = 0
  61.         IF .NOT. InitTable( Name )
  62.             RETURN 0
  63.         ENDIF
  64.     ENDIF
  65.     VerifyTable( Name, TableRow, TableCol, length, pkey )
  66.     RETURN &K_HOME
  67. ENDPRO
  68.  
  69. *  EOF : TblField.prg
  70.