home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 September / Personal_Computer_World_Sep_97.iso / DXRS / SLIPCW09.DXR / 00010_fillslidatabaselist.ls < prev    next >
Encoding:
Text File  |  1997-06-27  |  6.0 KB  |  89 lines
  1. on fillslidatabaselist
  2.   global DriveLtr, SLIdatabaselist, SLIchosenprogramdetails, SLImainmenuhilitenumber, SLImainmenutextnumber, SLIsunmenuhilitenumber, SLImainmenubacknumber, SLIsubmenubacknumber, SLIsubmenuhilitenumber, SLIsubmenutextnumber, SLIactiveprogramlist, SLIBackArrowNumber, SLIForwardArrowNumber, SLIsubmenubackshadownumber, SLIActionButton, SLICopyButton, SLItextboxframe, SLIInfoTabRect, SLIProcTabRect, SLIExtraTabRect, SLIpicturebox, SLITextBoxContents, SLITextFilesLoaded, SLIplatformcheckbox, SLIRunButtonList, SLIInstallButtonList, SLIActionList, SLIFullTextOptionBox, SLITextLoadOptionRect, SLIFullTextTick, SLIPictureBoxNumber, SLIAddressBoxNumber, SLIProductBoxNumber, SLIPlatformCheck01, SLIPlatformCheck02, SLIPlatformCheck03, SLIPlatformCheck04, SLIInstallButtonTextBox, SLIRunButtonTextBox, SLICopyWIthInstallTextBox, SLICopyWIthRunTextBox, SLIExecuteTextBox
  3.   set SLIdatabaselist to [:]
  4.   set dbobject to new(script "databasehandlers")
  5.   dbopensession(dbobject)
  6.   dbuse(dbobject, "pcw0997b.v12", "gossard", "pcw0997b.v12")
  7.   set numberrecs to dbcount(dbobject)
  8.   set fieldnames to dblistfields(dbobject)
  9.   set x to 0
  10.   repeat with i = 1 to numberrecs
  11.     set x to x + 1
  12.     dbgo(dbobject, x)
  13.     set thissection to word 1 of dbgetfield(dbobject, "section")
  14.     set lowthissection to makelowercase(thissection)
  15.     set propname to "#" & thissection
  16.     if getaProp(SLIdatabaselist, thissection) = 0 then
  17.       set text1 to "addprop SLIdatabaselist,#" & thissection & ",[:]"
  18.       do(text1)
  19.       set text2 to "addprop the " & thissection & " of SLIdatabaselist," & QUOTE & "prog1" & QUOTE & ",[:]"
  20.       do(text2)
  21.       set proglist to [:]
  22.       addProp(proglist, #realname, dbgetfield(dbobject, "realname"))
  23.       addProp(proglist, #version, dbgetfield(dbobject, "version"))
  24.       addProp(proglist, #briefdescription, dbgetfield(dbobject, "briefdescription"))
  25.       addProp(proglist, #section, dbgetfield(dbobject, "section"))
  26.       addProp(proglist, #category, dbgetfield(dbobject, "category"))
  27.       addProp(proglist, #platform, dbgetfield(dbobject, "platform"))
  28.       addProp(proglist, #processreqs, dbgetfield(dbobject, "processreqs"))
  29.       addProp(proglist, #extrareqs, dbgetfield(dbobject, "extrareqs"))
  30.       addProp(proglist, #installationsize, dbgetfield(dbobject, "installationsize"))
  31.       addProp(proglist, #storedsize, dbgetfield(dbobject, "storedsize"))
  32.       addProp(proglist, #playinstcopy, dbgetfield(dbobject, "playinstcopy"))
  33.       addProp(proglist, #RunFilePathname, dbgetfield(dbobject, "runfilepathname"))
  34.       addProp(proglist, #TextFile, dbgetfield(dbobject, "textfile"))
  35.       addProp(proglist, #ImageFile, dbgetfield(dbobject, "imagefile"))
  36.       addProp(proglist, #Issue, dbgetfield(dbobject, "issue"))
  37.       addProp(proglist, #supplier, dbgetfield(dbobject, "supplier"))
  38.       addProp(proglist, #contactname, dbgetfield(dbobject, "contactname"))
  39.       addProp(proglist, #contactstreet, dbgetfield(dbobject, "contactstreet"))
  40.       addProp(proglist, #contacttown, dbgetfield(dbobject, "contacttown"))
  41.       addProp(proglist, #contactcounty, dbgetfield(dbobject, "contactcounty"))
  42.       addProp(proglist, #contactcountry, dbgetfield(dbobject, "contactcountry"))
  43.       addProp(proglist, #contactpostcode, dbgetfield(dbobject, "contactpostcode"))
  44.       addProp(proglist, #contacttelephone, dbgetfield(dbobject, "contacttelephone"))
  45.       addProp(proglist, #contactemail, dbgetfield(dbobject, "contactemail"))
  46.       addProp(proglist, #webaddress, dbgetfield(dbobject, "webaddress"))
  47.       addProp(proglist, #dateentered, dbgetfield(dbobject, "dateentered"))
  48.       set text3 to "setaprop the " & thissection & " of SLIdatabaselist,#prog1,proglist"
  49.       do(text3)
  50.       next repeat
  51.     end if
  52.     set numberprogs to 0
  53.     set text4 to "set numberprogs = count(the " & thissection & " of SLIdatabaselist)"
  54.     do(text4)
  55.     set text5 to "addprop the " & thissection & " of SLIdatabaselist," & QUOTE & "prog" & numberprogs + 1 & QUOTE & ",[:]"
  56.     do(text5)
  57.     set proglist to [:]
  58.     addProp(proglist, #realname, dbgetfield(dbobject, "realname"))
  59.     addProp(proglist, #version, dbgetfield(dbobject, "version"))
  60.     addProp(proglist, #briefdescription, dbgetfield(dbobject, "briefdescription"))
  61.     addProp(proglist, #section, dbgetfield(dbobject, "section"))
  62.     addProp(proglist, #category, dbgetfield(dbobject, "category"))
  63.     addProp(proglist, #platform, dbgetfield(dbobject, "platform"))
  64.     addProp(proglist, #processreqs, dbgetfield(dbobject, "processreqs"))
  65.     addProp(proglist, #extrareqs, dbgetfield(dbobject, "extrareqs"))
  66.     addProp(proglist, #installationsize, dbgetfield(dbobject, "installationsize"))
  67.     addProp(proglist, #storedsize, dbgetfield(dbobject, "storedsize"))
  68.     addProp(proglist, #playinstcopy, dbgetfield(dbobject, "playinstcopy"))
  69.     addProp(proglist, #RunFilePathname, dbgetfield(dbobject, "runfilepathname"))
  70.     addProp(proglist, #TextFile, dbgetfield(dbobject, "textfile"))
  71.     addProp(proglist, #ImageFile, dbgetfield(dbobject, "imagefile"))
  72.     addProp(proglist, #Issue, dbgetfield(dbobject, "issue"))
  73.     addProp(proglist, #supplier, dbgetfield(dbobject, "supplier"))
  74.     addProp(proglist, #contactname, dbgetfield(dbobject, "contactname"))
  75.     addProp(proglist, #contactstreet, dbgetfield(dbobject, "contactstreet"))
  76.     addProp(proglist, #contacttown, dbgetfield(dbobject, "contacttown"))
  77.     addProp(proglist, #contactcounty, dbgetfield(dbobject, "contactcounty"))
  78.     addProp(proglist, #contactcountry, dbgetfield(dbobject, "contactcountry"))
  79.     addProp(proglist, #contactpostcode, dbgetfield(dbobject, "contactpostcode"))
  80.     addProp(proglist, #contacttelephone, dbgetfield(dbobject, "contacttelephone"))
  81.     addProp(proglist, #contactemail, dbgetfield(dbobject, "contactemail"))
  82.     addProp(proglist, #webaddress, dbgetfield(dbobject, "webaddress"))
  83.     addProp(proglist, #dateentered, dbgetfield(dbobject, "dateentered"))
  84.     set text6 to "setaprop the " & thissection & " of SLIdatabaselist,#prog" & numberprogs + 1 & ",proglist"
  85.     do(text6)
  86.   end repeat
  87.   dbclosesession(dbobject)
  88. end
  89.