home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Demos / Component Software / FileFlex 2.0.3.sit / FileFlex 2.0.3 / Unsupported & Undocumented / RESTGUID / RESTGUID.DIR / 00024.ls < prev    next >
Encoding:
Text File  |  1996-07-23  |  886 b   |  27 lines
  1. on mouseUp
  2.   go("list")
  3.   set theList to EMPTY
  4.   set DBResult to DBQuery(EMPTY)
  5.   checkFail(DBResult, "Error performing find-all query.")
  6.   set DBResult to DBTop()
  7.   checkFail(DBResult, "Error moving to top of database.")
  8.   if the hilite of member "find all" <> 1 then
  9.     buildQueryExpr()
  10.     set DBResult to DBQuery(field "Query Expression")
  11.     checkFail(DBResult, "Error performing find-all query.")
  12.   end if
  13.   repeat while DBResult <> 3
  14.     if theList <> EMPTY then
  15.       put RETURN after theList
  16.     end if
  17.     put DBGetFieldByName("RESTAURANT") after theList
  18.     put " (" & DBGetFieldByName("STATE") & ")" after theList
  19.     set DBResult to DBSkip(1)
  20.   end repeat
  21.   put theList into field "matchList"
  22.   set DBResult to DBQuery(EMPTY)
  23.   checkFail(DBResult, "Error performing find-all query.")
  24.   set DBResult to DBTop()
  25.   checkFail(DBResult, "Error moving to top of database.")
  26. end
  27.