home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / samples.exe / LOCATOR.QBE (.txt) < prev    next >
Encoding:
dBase Query  |  1992-03-10  |  4.7 KB  |  77 lines
  1. * dBASE IV .QBE file 8
  2. CLOSE DATABASES
  3. SET EXACT ON
  4. SELECT 1
  5. USE EMPLOYEE.DBF
  6. SET FILTER TO (LIKE("Kee*",EMPLOYEE->LASTNAME) .OR. "J" $ FIRSTNAME;
  7.  .OR. INITIAL="G")
  8. QBE___SAFE = SET("SAFETY")
  9. QBE___CATA = SET("CATALOG")
  10. SET SAFETY OFF
  11. SET CATALOG OFF
  12. GO TOP
  13. IF RECCOUNT() > 1
  14. QBE___12 = '.\'+LTRIM(STR(RAND(-1)*100000000,8))
  15. SORT TO &QBE___12 ON FIRSTNAME/A,INITIAL/A
  16. USE &QBE___12 NOSAVE NOUPDATE
  17. ENDIF
  18. SET SAFETY &QBE___SAFE
  19. SET CATALOG &QBE___CATA
  20. GO TOP
  21. EMPLOYEE.DBF
  22. :Employee.dbf*$i
  23. :LASTNAME*$i
  24. :FIRSTNAME*$i
  25. :INITIAL*$i
  26. :DEPARTMENT*$i
  27. :EMP_ID*$i
  28. :PHONE*$i
  29. :SPECIALTY*$i
  30. :COMMENTS*$i
  31. :AWARDS*$i
  32. :DATE_HIRED*$i
  33. :DEGREE*$i
  34. :EXEMPT*$i
  35. :FULL_TIME*$i
  36. :LABORGRADE*$i
  37. :RATE*$i
  38. :SALARY*$i
  39. :TITLE*$i
  40. :YRS_EXPER*$i
  41. :ADDRESS1*$i
  42. :ADDRESS2*$i
  43. :CITY*$i
  44. :STATE*$i
  45. :ZIP*$i
  46. :department+lastname+firstname+initial*$i
  47. :department+STR(salary,8,2)*$i
  48. :STR(yrs_exper,4,1)*$i
  49. :lastname+firstname+initial*$i
  50. ,xx:LIKE "Kee*"*$i
  51. ,xx:$"J",Asc1*$i
  52. ,xx:"G",Asc2*$i
  53. ,xx:*$i
  54. :locator*$i    ,
  55. *$i    ,
  56. *$i    ,
  57. *$i    ,
  58. *$i    ,
  59. *$i    ,
  60. *$i    ,
  61. *$i    ,
  62.     *$i    ,
  63. *$i    ,
  64. *$i    ,
  65. *$i    ,
  66. *$i    ,
  67. *$i    ,
  68. *$i    ,
  69. *$i    ,
  70. *$i    ,
  71. *$i    ,
  72. *$i    ,
  73. *$i    ,
  74. *$i    ,
  75. *$i    ,
  76. *$i    ,
  77.