Personal Computer World 1997 August/Personal_Computer_World_Aug_97.iso/dxrs/refpcw08.dxr/00058_REFFeatureDatabase.ls

Text File | 1997-05-16 | 5.2 KB | 170 lines

on REFFeatureDatabase
  global searchdata, wordlist, resultlist, fieldnames, fieldlengths, category, supplier, product, platform, depth, issue, page, contact, recordsfound, originalrefsprite, selectiveoptions, REFDatabaseSpriteInfo, REFMGXNAme, DriveLtr
  put " " into field "searchdata"
  set the boxType of member "searchdata" to #fixed
  set the textFont of member "searchdata" to "Arial"
  set the textSize of member "searchdata" to 12
  set the wordWrap of member "searchdata" to 0
  put EMPTY into field "searchdata"
  updateStage()
  put " " into field "category"
  set the textFont of member "category" to "Arial"
  set the textSize of member "category" to 11
  put " " into field "supplier"
  set the textFont of member "supplier" to "Arial"
  set the textSize of member "supplier" to 11
  put " " into field "product"
  set the textFont of member "product" to "Arial"
  set the textSize of member "product" to 11
  put " " into field "platform"
  set the textFont of member "platform" to "Arial"
  set the textSize of member "platform" to 11
  put " " into field "depth"
  set the textFont of member "depth" to "Arial"
  set the textSize of member "depth" to 11
  put "abcd " into field "issue"
  set the textFont of member "issue" to "Arial"
  set the textSize of member "issue" to 11
  put " " into field "page"
  set the textFont of member "page" to "Arial"
  set the textSize of member "page" to 11
  put " " into field "contact"
  set the textFont of member "contact" to "Arial"
  set the textSize of member "contact" to 11
  updateStage()
  put EMPTY into field "category"
  put EMPTY into field "supplier"
  put EMPTY into field "product"
  put EMPTY into field "platform"
  put EMPTY into field "depth"
  put EMPTY into field "issue"
  put EMPTY into field "page"
  put EMPTY into field "contact"
  set REFDatabaseSpriteInfo to list([182, 35, 53, 0], [183, 30, 90, 36], [184, 160, 90, 36], [185, 250, 90, 36], [186, 350, 90, 36], [187, 380, 90, 36], [188, 450, 90, 36], [189, 480, 90, 36], [190, 515, 90, 36], [191, 270, 60, 0], [192, 2000, 318, 0], [193, 2000, 318, 0], [221, 520, 51, 0], [11, 0, 0, 0], [11, 0, 0, 0], [195, 92, 326, 36], [197, 205, 326, 36], [199, 287, 326, 36])
  set selectiveoptions to list(1, 1, 1)
  set the castNum of sprite 39 to 64
  repeat with g = 26 to 37
    set the castNum of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g - 25), 1)
    set the locH of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g - 25), 2)
    set the locV of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g - 25), 3)
    set the ink of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g - 25), 4)
  end repeat
  repeat with g = 10 to 15
    set the castNum of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g + 3), 1)
    set the locH of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g + 3), 2)
    set the locV of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g + 3), 3)
    set the ink of sprite g to getAt(getAt(REFDatabaseSpriteInfo, g + 3), 4)
  end repeat
  updateStage()
  set fieldnames to list("SOFTWARE/H", "PRODUCT_CA", "MANUFACTUR", "PRODUCT", "PLATFORM", "DEPTH", "ISSUE", "PAGE", "CONTACT/PH")
  set fieldlengths to list(8, 12, 15, 20, 8, 12, 6, 3, 15)
  set wordlist to list()
  set resultlist to list([0, 0, 0, 0, 0, 0, 0])
  set searchdata to EMPTY
  put "Page 0 of 0" into field "pagexofy"
  updateStage()
  dbopensession()
  if the machineType > 200 then
    dbuse(DriveLtr & "DBFs\" & REFMGXNAme)
    updateStage()
  else
    dbuse(DriveLtr & "DBFs:" & REFMGXNAme)
  end if
end

on DBGo recnum
  DBCheckActive()
  return FileFlex("10", string(recnum))
end

on DBCurrRecNum
  DBCheckActive()
  return FileFlex("21")
end

on DBClose dbID
  DBCheckActive()
  return FileFlex("4", string(dbID))
end

on DBSkip num
  DBCheckActive()
  return FileFlex("14", string(num))
end

on DBGetFieldByName fieldName, decryptFlag, key
  DBCheckActive()
  if the paramCount = 1 then
    return FileFlex("26", fieldName)
  else
    return FileFlex("26", fieldName, decryptFlag, key)
  end if
end

on DBQuery expr
  DBCheckActive()
  return FileFlex("35", expr)
end

on DBCheckActive
  global gdbactive1030
  if gdbactive1030 <> "true" then
    set dummy to dbopensession()
  end if
end

on DBListFields
  DBCheckActive()
  return FileFlex("29")
end

on dbopensession
  global gdbactive1030
  if gdbactive1030 <> "true" then
    set gdbactive1030 to "true"
    return FileFlex("1")
  else
    return "0"
  end if
end

on DBCloseSession
  global gdbactive1030
  if gdbactive1030 = "true" then
    set gdbactive1030 to EMPTY
    return FileFlex("2")
  else
    return "0"
  end if
end

on dbuse dbName, pathspec
  DBCheckActive()
  if the paramCount = 1 then
    return FileFlex("3", dbName)
  else
    return FileFlex("3", dbName, pathspec)
  end if
end

on DBCount
  DBCheckActive()
  return FileFlex("19")
end

on searchdata
  global searchdata, wordlist
  if the key = RETURN then
    dontPassEvent()
    set countwords to the number of words in field "searchdata"
    set searchdata to word 1 to countwords of field "searchdata"
    add(wordlist, searchdata)
    PerformSearch()
    set searchdata to EMPTY
    set the editableText of sprite 26 to 0
    set the keyDownScript to EMPTY
  else
    set searchdata to field "searchdata"
  end if
end