home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / RVXPCW09.DXR / 00012_RVXSearchNOW.ls < prev    next >
Encoding:
Text File  |  1997-06-25  |  6.1 KB  |  138 lines
  1. on RVXSearchNOW
  2.   global RVXSearchButtonSprite, RVXSelectedWord, RVXDatafield, RVXOperatorList, RVXfieldnamesList, RVXSub, RVXOptionSprite, RVXTitle, RVXNothingfound
  3.   if rollOver(RVXSearchButtonSprite) then
  4.     set the member of sprite RVXSearchButtonSprite to member "RVXSearchButtOutRed"
  5.     updateStage()
  6.     repeat while rollOver(RVXSearchButtonSprite)
  7.       if the mouseDown then
  8.         set the member of sprite RVXSearchButtonSprite to member "RVXSearchButtInRed"
  9.         updateStage()
  10.         set the member of sprite RVXTitle to member "RVXWait"
  11.         set the locH of sprite 32 to 2000
  12.         cursor(4)
  13.         set RVXSub to 3
  14.         set RVXNoOfRows to 0
  15.         if (the locH of sprite 21 = 2000) or (the locH of sprite 22 = 2000) or (the locH of sprite 23 = 2000) or (field "selectedthree" = EMPTY) then
  16.           set the member of sprite 32 to member "RVXNotcomplete"
  17.           set the loc of sprite 32 to point(299, 355)
  18.           set the member of sprite RVXTitle to member "RVXSelect"
  19.           set RVXNothingfound to 1
  20.           updateStage()
  21.         else
  22.           set RVXNoOfRows to 1
  23.           if (the locH of sprite 25 = 2000) or (the locH of sprite 26 = 2000) or (the locH of sprite 27 = 2000) or (field "selectedSeven" = EMPTY) then
  24.           else
  25.             set RVXNoOfRows to 2
  26.             if (the locH of sprite 29 = 2000) or (the locH of sprite 30 = 2000) or (the locH of sprite 31 = 2000) or (field "selectedTwelve" = EMPTY) then
  27.             else
  28.               set RVXNoOfRows to 3
  29.             end if
  30.           end if
  31.         end if
  32.         case RVXNoOfRows of
  33.           1:
  34.             set the member of sprite 7 to member "RVXANDOR"
  35.             set the member of sprite 8 to member "RVXInputOneGrey"
  36.             set the member of sprite 9 to member "RVXInputTwoGrey"
  37.             set the member of sprite 10 to member "RVXInputthreeGrey"
  38.             repeat with t = 24 to 31
  39.               set the locH of sprite t to 2000
  40.             end repeat
  41.             set the locH of sprite RVXOptionSprite to 2000
  42.           2:
  43.             set the member of sprite 11 to member "RVXANDOR"
  44.             set the member of sprite 12 to member "RVXInputOneGrey"
  45.             set the member of sprite 13 to member "RVXInputTwoGrey"
  46.             set the member of sprite 14 to member "RVXInputthreeGrey"
  47.             repeat with t = 28 to 31
  48.               set the locH of sprite t to 2000
  49.             end repeat
  50.             set the locH of sprite RVXOptionSprite to 2000
  51.         end case
  52.         updateStage()
  53.         repeat while the mouseDown
  54.         end repeat
  55.         set the member of sprite RVXSearchButtonSprite to member "RVXSearchButtInBlack"
  56.         updateStage()
  57.         case RVXNoOfRows of
  58.           1:
  59.             RVXFindSelection("SelectedOne")
  60.             RVXWhichDatafield(RVXfieldnamesList)
  61.             set TopRowOne to RVXDatafield
  62.             RVXFindSelection("SelectedTwo")
  63.             RVXWhichDatafield(RVXOperatorList)
  64.             set TopRowTwo to RVXDatafield
  65.             RVXFindSelection("SelectedThree")
  66.             set TopRowThree to RVXSelectedWord
  67.             RVXSetCriteria(1, TopRowOne, TopRowTwo, TopRowThree)
  68.           2:
  69.             RVXFindSelection("SelectedOne")
  70.             RVXWhichDatafield(RVXfieldnamesList)
  71.             set TopRowOne to RVXDatafield
  72.             RVXFindSelection("SelectedTwo")
  73.             RVXWhichDatafield(RVXOperatorList)
  74.             set TopRowTwo to RVXDatafield
  75.             RVXFindSelection("SelectedThree")
  76.             set TopRowThree to RVXSelectedWord
  77.             RVXFindSelection("SelectedFour")
  78.             set FirstAndOr to RVXSelectedWord
  79.             RVXFindSelection("SelectedFive")
  80.             RVXWhichDatafield(RVXfieldnamesList)
  81.             set SecondRowOne to RVXDatafield
  82.             RVXFindSelection("SelectedSix")
  83.             RVXWhichDatafield(RVXOperatorList)
  84.             set SecondRowTwo to RVXDatafield
  85.             RVXFindSelection("SelectedSeven")
  86.             set SecondRowThree to RVXSelectedWord
  87.             RVXSetCriteria(2, TopRowOne, TopRowTwo, TopRowThree, FirstAndOr, SecondRowOne, SecondRowTwo, SecondRowThree)
  88.           3:
  89.             RVXFindSelection("SelectedOne")
  90.             RVXWhichDatafield(RVXfieldnamesList)
  91.             set TopRowOne to RVXDatafield
  92.             RVXFindSelection("SelectedTwo")
  93.             RVXWhichDatafield(RVXOperatorList)
  94.             set TopRowTwo to RVXDatafield
  95.             RVXFindSelection("SelectedThree")
  96.             set TopRowThree to RVXSelectedWord
  97.             RVXFindSelection("SelectedFour")
  98.             set FirstAndOr to RVXSelectedWord
  99.             RVXFindSelection("SelectedFive")
  100.             RVXWhichDatafield(RVXfieldnamesList)
  101.             set SecondRowOne to RVXDatafield
  102.             RVXFindSelection("SelectedSix")
  103.             RVXWhichDatafield(RVXOperatorList)
  104.             set SecondRowTwo to RVXDatafield
  105.             RVXFindSelection("SelectedSeven")
  106.             set SecondRowThree to RVXSelectedWord
  107.             RVXFindSelection("SelectedEight")
  108.             set SecondAndOr to RVXSelectedWord
  109.             RVXFindSelection("Selectednine")
  110.             RVXWhichDatafield(RVXfieldnamesList)
  111.             set ThirdRowOne to RVXDatafield
  112.             RVXFindSelection("SelectedEleven")
  113.             RVXWhichDatafield(RVXOperatorList)
  114.             set ThirdRowTwo to RVXDatafield
  115.             RVXFindSelection("SelectedTwelve")
  116.             set ThirdRowThree to RVXSelectedWord
  117.             RVXSetCriteria(3, TopRowOne, TopRowTwo, TopRowThree, FirstAndOr, SecondRowOne, SecondRowTwo, SecondRowThree, SecondAndOr, ThirdRowOne, ThirdRowTwo, ThirdRowThree)
  118.         end case
  119.         exit repeat
  120.       end if
  121.     end repeat
  122.     if the member of sprite RVXSearchButtonSprite = member "RVXSearchButtOutRed" then
  123.       set the member of sprite RVXSearchButtonSprite to member "RVXSearchButtOut"
  124.     else
  125.       case RVXNothingfound of
  126.         0:
  127.           set the member of sprite RVXSearchButtonSprite to member "RVXNewButtOut"
  128.         1:
  129.           set the member of sprite RVXSearchButtonSprite to member "RVXSearchButtOut"
  130.           set the member of sprite RVXTitle to member "RVXSelect"
  131.           set RVXSub to 2
  132.       end case
  133.     end if
  134.     cursor(-1)
  135.     updateStage()
  136.   end if
  137. end
  138.