home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 21 / CTROM21A.mdf / mmm / trucs.dxr / 00017_zoek1_3.ls < prev    next >
Encoding:
Text File  |  1999-09-27  |  2.4 KB  |  87 lines
  1. global hulp, searchmode, zoekveld, zoekwaarde, FirstRecNr, zoeklijst, zoekrecnr, leeg
  2.  
  3. on mouseUp
  4.   searchmode = 0
  5.   leeg = 0
  6.   set the visible of sprite 35 to 0
  7.   set the visible of sprite 38 to 0
  8.   set the visible of sprite 39 to 0
  9.   set the visible of sprite 40 to 0
  10.   set the visible of sprite 101 to 0
  11.   member("filter").text = "[ZOEKMODUS]"
  12.   sendAllSprites(#MasterRollActivate)
  13.   sendAllSprites(#MasterRollDisable)
  14.   if linePosToLocV(member("tekstdummy"), locVToLinePos(member("tekstdummy"), the height of sprite 5)) > 0 then
  15.     sendAllSprites(#Enable)
  16.   else
  17.     sendAllSprites(#disable)
  18.   end if
  19.   sendSprite(36, #MasterRollDeActivate)
  20.   sendSprite(37, #MasterRollDeActivate)
  21.   sendSprite(36, #MasterRollHide)
  22.   sendSprite(37, #MasterRollHide)
  23.   if hulp then
  24.     sendAllSprites(#mtogglehelp)
  25.   end if
  26.   updateStage()
  27.   DBQuery(EMPTY)
  28.   FirstRecNr = 1
  29.   zoekwaarde = the text of field "zoektext"
  30.   if (zoekveld = "TIPNR") and (zoekwaarde <> EMPTY) then
  31.     zoekwaarde = ForceUppercase(the text of field "zoektext")
  32.     if DBGo(integer(zoekwaarde)) = 0 then
  33.       GetRecord()
  34.     else
  35.       EmptyRecord()
  36.     end if
  37.   else
  38.     if (zoekveld = "TITEL") and (zoekwaarde <> EMPTY) then
  39.       zoekwaarde = ForceUppercase(the text of field "zoektext")
  40.       DBTop()
  41.       querystring = "'" & zoekwaarde & "'$UPPER(TITEL)"
  42.       if DBQuery(querystring) = 0 then
  43.         FirstRecNr = DBCurrRecNum()
  44.         GetRecord()
  45.       else
  46.         EmptyRecord()
  47.         DBQuery(EMPTY)
  48.         FirstRecNr = 1
  49.       end if
  50.     else
  51.       if (zoekveld = "TEKST") and (zoekwaarde <> EMPTY) then
  52.         searchmode = 1
  53.         zoekrecnr = 1
  54.         DBTop()
  55.         zoeklijst = []
  56.         if DBFindMemo("TEKST", zoekwaarde) = 0 then
  57.           append(zoeklijst, DBCurrRecNum())
  58.         end if
  59.         repeat while DBSkip(1) = 0
  60.           if DBFindMemo("TEKST", zoekwaarde) = 0 then
  61.             append(zoeklijst, DBCurrRecNum())
  62.           end if
  63.         end repeat
  64.         if count(zoeklijst) = 0 then
  65.           searchmode = 0
  66.           EmptyRecord()
  67.           DBTop()
  68.         else
  69.           zoekrecnr = 1
  70.           DBGo(getAt(zoeklijst, 1))
  71.           GetRecord()
  72.         end if
  73.       else
  74.         searchmode = 0
  75.         if the number of member the text of member "TIPNR" = -1 then
  76.           sendSprite(6, #MasterRollDeActivate)
  77.         else
  78.           sendSprite(6, #MasterRollActivate)
  79.         end if
  80.         DBTop()
  81.         member("filter").text = " "
  82.         GetRecord()
  83.       end if
  84.     end if
  85.   end if
  86. end
  87.