home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1995 September / Image.iso / visualob / install / samples / employee / sys.cl_ / sys.cl
Encoding:
Text File  |  1994-08-18  |  1.2 KB  |  43 lines
  1. // SYS.CH
  2. // Employee Information definitions
  3. // November, 1993
  4. //----------------------------------------------------------------------------
  5.  
  6. #include 'achoice.ch'
  7. #include 'box.ch'
  8. #include 'fileio.ch'
  9. #include 'inkey.ch'
  10. #include 'setcurs.ch'
  11.  
  12. //----------------------------------------------------------------------------
  13.  
  14. #define TRUE    .T.
  15. #define FALSE    .F.
  16.  
  17. #define SUBSET(x, y)            (x $ y)
  18.  
  19. #define ISCHARACTER(x)          (ValType(x) == 'C')
  20. #define ISNUMERIC(x)            (ValType(x) == 'N')
  21. #define ISLOGICAL(x)            (ValType(x) == 'L')
  22. #define ISBLOCK(x)              (ValType(x) == 'B')
  23. #define ISUNDEFINED(x)          ('U' $ ValType(x))
  24.  
  25. #define SCREENSAVE(a, b, c, d)  (Str(a, 2) + Str(b, 2) + Str(c, 2) + Str(d, 2) + SaveScreen(a, b, c, d))
  26. #define EMPTY_SS(x)             ((Empty(x)) .or. (x == '   -  -    '))
  27.  
  28. #define DISPLAY_MODE   0
  29. #define POSITION_MODE  1
  30. #define ENTRY_MODE     2
  31. #define UPDATE_MODE    3
  32.  
  33. #define QUIT_MODE      0
  34. #define ADD_MODE       1
  35. #define CHANGE_MODE    2
  36. #define DELETE_MODE    3
  37. #define EXIT_MODE      4
  38.  
  39.  
  40. //----------------------------------------------------------------------------
  41. //----------------------------------------------------------------------------
  42. 
  43.