home *** CD-ROM | disk | FTP | other *** search
/ DOS Wares / doswares.zip / doswares / DATABASE / DBASE4NL / SAMPLES.ZIP / GASTEN.QBE (.txt) < prev    next >
Encoding:
dBase Query  |  1993-05-18  |  3.2 KB  |  41 lines
  1. * dBASE IV .QBE file 
  2. SET FIELDS TO
  3. SELECT 1
  4. USE NAMEN.DBF AGAIN
  5. SET EXACT ON
  6. SET FILTER TO 
  7. QBE___SAFE = SET("SAFETY")
  8. QBE___CATA = SET("CATALOG")
  9. SET SAFETY OFF
  10. SET CATALOG OFF
  11. GO TOP
  12. IF RECCOUNT() > 1
  13. QBE___12 = STR(RAND(-1)*100000000,8)
  14. SORT TO &QBE___12 ON PROVINCIE/A,WOONPLAATS/A
  15. USE &QBE___12 NOSAVE NOUPDATE
  16. ENDIF
  17. SET SAFETY &QBE___SAFE
  18. SET CATALOG &QBE___CATA
  19. GO TOP
  20. NAMEN.DBF
  21. :Namen.dbf*$i
  22. :VOORNAAM*$i
  23. :ACHTERNAAM*$i
  24. :ADRES*$i
  25. :WOONPLAATS*$i
  26. :PROVINCIE*$i
  27. :POSTCODE*$i
  28. :TELEFOON*$i
  29. :ZAKELIJK*$i
  30. ,xx:Asc2*$i
  31. ,xx:Asc1*$i
  32. ,xx:*$i
  33. :GASTEN*$i    ,
  34. *$i    ,
  35. *$i    ,
  36. *$i    ,
  37. *$i    ,
  38. *$i    ,
  39. *$i    ,
  40. *$i    ,
  41.