home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / ZOEKEN.QBE (.txt) < prev   
Encoding:
dBase Query  |  1993-05-18  |  4.7 KB  |  78 lines
  1. * dBASE IV .QBE file 8
  2. CLOSE DATABASES
  3. SET EXACT ON
  4. SELECT 1
  5. USE PERSONEL.DBF
  6. SET FILTER TO (LIKE("Nie",PERSONEL->ACHTERNAAM) .OR. "J" $ VOORNAAM;
  7.  .OR. INVOEG="de")
  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 VOORNAAM/A,INVOEG/A
  16. USE &QBE___12 NOSAVE NOUPDATE
  17. ENDIF
  18. SET SAFETY &QBE___SAFE
  19. SET CATALOG &QBE___CATA
  20. GO TOP
  21. PERSONEL.DBF
  22. :Personel.dbf*$i
  23. :ACHTERNAAM*$i
  24. :VOORNAAM*$i
  25. :INVOEG*$i
  26. :AFDELING*$i
  27. :PERS_NR*$i
  28. :TELEFOON*$i
  29. :BRANCHE*$i
  30. :INFO*$i
  31. :BONUS*$i
  32. :IN_DIENST*$i
  33. :TITEL*$i
  34. :SPAARFONDS*$i
  35. :DEELTIJD*$i
  36. :SCHAAL*$i
  37. :TOESLAG*$i
  38. :SALARIS*$i
  39. :FUNCTIE*$i
  40. :DIENSTJR*$i
  41. :ADRES1*$i
  42. :ADRES2*$i
  43. :POSTCODE*$i
  44. :WOONPLAATS*$i
  45. :PROVINCIE*$i
  46. :achternaam+voornaam+invoeg*$i
  47. :STR(dienstjr,4,1)*$i
  48. :afdeling+achternaam+voornaam+invoeg*$i
  49. :afdeling+STR(salaris,8,2)*$i
  50. ,xx:LIKE "Nie"*$i
  51. ,xx:*$i
  52. ,xx:$"J",Asc1*$i
  53. ,xx:"de",Asc2*$i
  54. ,xx:*$i
  55. :ZOEKEN*$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. *$i    ,
  78.