home *** CD-ROM | disk | FTP | other *** search
/ The Ultimedia System / IBM_ACD_101.ISO / tbkeval / dbaserdr.tbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1991-09-16  |  43KB  |  1,241 lines
  1. System
  2. )aP|[
  3. fD|D|5
  4. Tms Rmn
  5. {\D|D|
  6. dBase Reader
  7. gD|D|=
  8.     -- svKey
  9. Currently sorting 
  10. Hindex file.
  11. Hrecord 
  12.  --default 
  13. --Set the navigation flag
  14. setDBNavigateToDeleted(0)
  15. openDBFile(TBKpath()&"courses.dbf")
  16. strCantOpendBase()
  17. openDBIndexFile(
  18. `COURS_NO")
  19. createDBIndexFile(
  20. ),0,0)
  21. getDBErrorString(
  22. openDbIndexFile(
  23. TITLE")
  24. ,"UPPER(
  25. )",0,0)
  26. firstDBrecord()
  27. updateDisplay
  28. "cours_no"
  29. writeRecord -- writes out current 
  30. 4leaving 
  31. closeAllDBFiles()
  32. packDatabase
  33. rebuildIndexFiles
  34. .NDX,"&
  35. getDBRecordNumber() 
  36. "currentRecord"
  37. getDbFieldValue("
  38. .INSTRUCTOR") 
  39. GSECTION") 
  40. ]STARTDATE") 
  41. uENDDATE") 
  42. TIME") 
  43. DAYSOFWEEK") 
  44. COST") 
  45. MAX_ENROLL") 
  46. setFieldValues
  47.     -- no error checking 
  48. done here because 
  49. leave
  50. handler 
  51. setDbFieldValue("
  52. clearFields
  53.     -- Clears 
  54.  fields 
  55. corresponding ToolBook 
  56. -- sets 
  57. toolbook 
  58. values
  59. writeDBrecord(0)
  60.     -- Since 
  61. only 
  62. database 
  63. hanlder 
  64. can be placed 
  65.     -- For another example 
  66. sample 
  67. -- "Datachk.tbk".
  68. It shows you 
  69. zmore specific 
  70. individual 
  71. setDBFieldValue(
  72. rebuildIndexFiles
  73. leavePage
  74. updateDisplay
  75. setFieldValues
  76. enterPage
  77. clearFields
  78. packDatabase
  79. writeRecord
  80. leaveField
  81. enterPage
  82. setDBNavigateToDeleted
  83. TBKpath
  84. courses.dbf
  85. openDBFile
  86. strCantOpendBase
  87. TBKpath
  88. COURS_NO
  89. openDBIndexFile
  90. TBKpath
  91. COURS_NO
  92. COURS_NO
  93. createDBIndexFile
  94. getDBErrorString
  95. TBKpath
  96. TITLE
  97. openDbIndexFile
  98. TBKpath
  99. TITLE
  100. UPPER(TITLE)
  101. createDBIndexFile
  102. getDBErrorString
  103. firstDBrecord
  104. buttonUp
  105. record number
  106. PupdateDisplay
  107. cours_no
  108. svKey
  109. leavePage
  110. writeRecord
  111. closeAllDBFiles
  112. packDatabase
  113. buttonUp
  114. record number
  115. PupdateDisplay
  116. rebuildIndexFiles
  117. rebuildIndexFiles
  118. TBKpath
  119. COURS_NO.NDX,
  120. TBKpath
  121. TITLE.NDX
  122. updateDisplay
  123. getDBRecordNumber
  124. currentRecord
  125. COURS_NO
  126. getDbFieldValue
  127. COURS_NO
  128. TITLE
  129. getDbFieldValue
  130. TITLE
  131. INSTRUCTOR
  132. getDbFieldValue
  133. INSTRUCTOR
  134. SECTION
  135. getDbFieldValue
  136. SECTION
  137. STARTDATE
  138. getDbFieldValue
  139. STARTDATE
  140. ENDDATE
  141. getDbFieldValue
  142. ENDDATE
  143. getDbFieldValue
  144. DAYSOFWEEK
  145. getDbFieldValue
  146. DAYSOFWEEK
  147. getDbFieldValue
  148. MAX_ENROLL
  149. getDbFieldValue
  150. MAX_ENROLL
  151. setFieldValues
  152. COURS_NO
  153. COURS_NO
  154. setDbFieldValue
  155. TITLE
  156. TITLE
  157. setDbFieldValue
  158. INSTRUCTOR
  159. INSTRUCTOR
  160. setDbFieldValue
  161. SECTION
  162. SECTION
  163. setDbFieldValue
  164. STARTDATE
  165. STARTDATE
  166. setDbFieldValue
  167. ENDDATE
  168. ENDDATE
  169. setDbFieldValue
  170. setDbFieldValue
  171. DAYSOFWEEK
  172. DAYSOFWEEK
  173. setDbFieldValue
  174. setDbFieldValue
  175. MAX_ENROLL
  176. MAX_ENROLL
  177. setDbFieldValue
  178. clearFields
  179. COURS_NO
  180. setDbFieldValue
  181. TITLE
  182. setDbFieldValue
  183. INSTRUCTOR
  184. setDbFieldValue
  185. SECTION
  186. setDbFieldValue
  187. STARTDATE
  188. setDbFieldValue
  189. ENDDATE
  190. setDbFieldValue
  191. setDbFieldValue
  192. DAYSOFWEEK
  193. setDbFieldValue
  194. setDbFieldValue
  195. MAX_ENROLL
  196. setDbFieldValue
  197. COURS_NO
  198. TITLE
  199. INSTRUCTOR
  200. SECTION
  201. STARTDATE
  202. ENDDATE
  203. DAYSOFWEEK
  204. MAX_ENROLL
  205. writeRecord
  206. ysetFieldValues
  207. writeDBrecord
  208. getDBErrorString
  209. leaveField
  210. setDBFieldValue
  211. getDBErrorString
  212. -- Script 
  213. dBase 
  214. Greg Pearson 12/90
  215. -- Copyright (c) 1990, Asymetrix Corp.
  216. -- This 
  217. 8provides a form 
  218. viewing 
  219. editing a database.
  220. -- Location 
  221. the scripts
  222. Book:
  223. cmanagement, tbkdb3.dll calls
  224. that are 
  225. xspecific 
  226. o "courses.dbf", 
  227. --             functions 
  228. constants 
  229. facilitate translation
  230. international releases.
  231. Page:
  232. chandlers 
  233. refer 
  234. fields
  235. corresponding ToolBook 
  236. #) specifically 
  237. If you use 
  238. a different 
  239. place 
  240. 2should have 
  241. modify 
  242. Graphic Objects:
  243. These 
  244.  contain 
  245. complete
  246. --            actions 
  247. xrequire knowledge 
  248. -- Error checking
  249.  has been kept 
  250. a minimum 
  251. simplify 
  252. easier 
  253. see how 
  254. being called.
  255. Handlers 
  256. dcommented 
  257. where 
  258. will want
  259. error 
  260. intend 
  261. a production
  262. 4sFromAppSampler
  263. saveFromAppSampler 
  264. setUpMenus
  265.     -- Link 
  266. linkDbase
  267. dlgLINK
  268. sysChangesDb 
  269. linkdBase
  270. X"TBKDB3.
  271. INT closeAllDBFiles()
  272. reateDBIndexFile(STRING, 
  273. WORD, 
  274. >deleteDBFile(
  275. SfindDBKey(
  276. efirstDBKey()
  277. vfirstDBRecord()
  278. _ getDBDateFormat()
  279. v getDBErrorString(
  280.  getDBFieldValue(
  281. getDBKeyType()
  282.  getDBKeyValue()
  283. getDBNavigateToDeleted()
  284. LONG getDBRecordCount()
  285. getDBRecordDeleted()
  286. 1Number()
  287. gotoDBRecord(DWORD)
  288. lastDBKey()
  289. lastDBRecord()
  290. nextDBKey()
  291. nextDBRecord()
  292. openDBFile(
  293. openDBIndexFile(
  294. packDBFile()
  295. previousDBKey()
  296. previousDBRecord()
  297. reindexDBFile(
  298. removeDBRecords(
  299. selectDBIndexFile(
  300. setDBFieldValue(
  301. setDBNavigateToDeleted(INT)
  302. setDBRecordDeleted(
  303. writeDBRecord(
  304. -- If 
  305. nnot be linked, 
  306. strNoTBKDB3File()
  307. packDatabase
  308.     -- keep 
  309.  routine generic 
  310.     -- created 
  311. databases.
  312. writeRecord 
  313. -- writes 
  314. [ current record 
  315. 4leaving 
  316. packdbfile()
  317. rebuildIndexFiles pIndexFiles
  318. Mforms
  319. added 
  320. rebuilding 
  321. reindexdbfile(
  322. -- Functions 
  323. internationalization 
  324. books.
  325. strCancel
  326. strOK
  327. strContinue
  328. strCantOpenDbase
  329. "Cannot 
  330.  ""Courses.
  331. Please 
  332.     directory 
  333. your path, 
  334. change 
  335. include 
  336. strMaintenance
  337. strMaintenancePack
  338. strMaintenanceRebuild
  339. strEnterKey pKeyType
  340. "&&pkeyType&&"
  341. strGotoRecord
  342. strCantFindRecord
  343. requested 
  344. strConfirmDelete
  345. "Are 
  346. sure 
  347. strFirstRecord 
  348. vType 
  349. "You 
  350. already on 
  351. strLastRecord 
  352. "key."
  353. TRUE 
  354. 8"appsamp.tbk"
  355. MenuLINK
  356.     linkDLL "user"
  357.  GetSystemMenu
  358.  GetMenu
  359.  GetSubMenu
  360.      EnableMenuItem (
  361. (     RemoveMenu
  362. Menuunlink
  363.     unlinkDLL "
  364. RemoveMenuItemsByPosition MenuPos,MenuItemPosList
  365. cdesired. -1 
  366. ubmenu 
  367. hMenu 
  368. (syswindowHandle,0)
  369. hMainMenu 
  370. (menuitemPosList)
  371. EnaRet 
  372. ,1024)
  373. RemRet 
  374. ,1024)
  375. MenuLink
  376. FALSE
  377. 0,"8,4,3"
  378. 2,"8,7"
  379. 4,"5,4,3,2,1,0"
  380. MenuUnLink
  381. ld() 
  382. e"Using 
  383. Reader..." 
  384. chelp 
  385. e"About 
  386. AboutdBaseReader
  387. 4Dialog" 
  388. UsingdBaseReader
  389. strGeneralInit
  390. BDone,b28,
  391. static Text,s40,
  392. a front-
  393.  catalog 
  394.  It can be used 
  395. browse 
  396. "&CRLF&
  397. two useful utilities. 
  398.      removes deleted 
  399. shorten 
  400. length 
  401.  rebuilds 
  402.  files 
  403.  better 
  404. performance."&
  405.         "To learn more about 
  406.  entry 
  407. , press 
  408. Fields 
  409.         "To 
  410. Browse 
  411. ,b41,
  412. ,b42,
  413. itle,s44,
  414. p,b45,
  415. strFieldsInit
  416. z"&TAB&"
  417.         "Title"&
  418.         "Instructor"&
  419.  instructor."&
  420.         "Section"&
  421. section 
  422.         "Start 
  423.         "End 
  424.         "Time"&
  425. meeting 
  426.         "Days 
  427. week"&
  428. -days 
  429.      fee"&
  430. enrolling 
  431.         "Max. class 
  432. maximum 
  433. allowed enrollments."&\
  434.         "Click 
  435. insertion point 
  436. strBrowseInit
  437.         "|<-"&
  438. Press 
  439.         "<-"&
  440.         "->"&
  441.         "->|"&
  442.         "New 
  443. q, blank 
  444.         "Sort Order"&
  445. Choose one 
  446. these options 
  447.  title."&\
  448. buttons.
  449. DlgLINK
  450. 4s_NoDlgDLL
  451.     tbkdlg.dll"
  452. dialog(
  453. setValue(
  454. getValue(
  455. load 
  456. default
  457. strNoDLL("
  458. DlgUNLINK
  459. strNODLL dllName
  460. rtStr 
  461. & "."
  462. -& ":" && 
  463. B & "."
  464. MyDialog strDlgBox,strDlgInit
  465. retValue 
  466. MyGetValue strDlgReturn,strDlgControl
  467. strTitle
  468.  1991 
  469. oration"&
  470. "All rights reserved."
  471. strCaption
  472. credits
  473. B"Credits 
  474. TBKPath
  475. X"kernel"
  476. ggetmodulehandle(
  477. getmodulefilename(
  478. moduleHandle
  479. F"toolbook.exe")
  480. filenameBuffer 
  481. "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678"
  482.     -- fileNameBuffer now 
  483.     -- we must 
  484.  TOOLBOOK.EXE
  485. fullCount 
  486. - 12) 
  487. exFiles
  488. enterbook
  489. linkdBase
  490. MenuLINK
  491. Menuunlink
  492. author
  493. RemoveMenuItemsByPosition
  494. leaveBook
  495. setUpMenus
  496. AboutdBaseReader
  497. packDatabase
  498. UsingdBaseReader
  499. DlgLINK
  500. rebuildIndexFiles
  501. DlgUNLINK
  502. credits
  503. trContinue
  504. strMaintenanceRebuild
  505. strEnterKey
  506. strCantOpenDbase
  507. strGotoRecord
  508. strCantFindRecord
  509. strOK
  510. strConfirmDelete
  511. strNoTBKDB3File
  512. strFirstRecord
  513. strLastRecord
  514. strGeneralInit
  515. strCancel
  516. strFieldsInit
  517. strBrowseInit
  518. strMaintenance
  519. strNODLL
  520. MyDialog
  521. strMaintenancePack
  522. MyGetValue
  523. strTitle
  524. strCaption
  525. strContinue
  526. TBKPath
  527. enterbook
  528. reader
  529. setUpMenus
  530. linkDbase
  531. 2dlgLINK
  532. saveFromAppSampler
  533. sFromAppSampler
  534. leaveBook
  535. linkdBase
  536. TBKDB3.DLL
  537. closeAllDBFiles
  538. createDBIndexFile
  539. deleteDBFile
  540. findDBKey
  541. firstDBKey
  542. firstDBRecord
  543. getDBDateFormat
  544. getDBErrorString
  545. getDBFieldValue
  546. getDBKeyType
  547. getDBKeyValue
  548. getDBNavigateToDeleted
  549. getDBRecordCount
  550. getDBRecordDeleted
  551. getDBRecordNumber
  552. gotoDBRecord
  553. lastDBKey
  554. lastDBRecord
  555. nextDBKey
  556. nextDBRecord
  557. openDBFile
  558. openDBIndexFile
  559. packDBFile
  560. previousDBKey
  561. previousDBRecord
  562. reindexDBFile
  563. removeDBRecords
  564. selectDBIndexFile
  565. setDBFieldValue
  566. setDBNavigateToDeleted
  567. setDBRecordDeleted
  568. writeDBRecord
  569. strNoTBKDB3File
  570. author
  571. packDatabase
  572. writeRecord
  573. packdbfile
  574. getDBErrorString
  575. rebuildIndexFiles
  576. writeRecord
  577. reindexdbfile
  578. getDBErrorString
  579. pIndexFiles
  580. strCancel
  581. Cancel
  582. strOK
  583. strContinue
  584. Continue
  585. strCantOpenDbase
  586. Cannot open dBase file "Courses.dbf".  Please copy this file to the directory this book is in, and open this book again.
  587. strNoTBKDB3File
  588. Can't find tbkdb3.dll.  Please copy this file to a directory that's in your path, or change your path to include tbkdb3.dll's directory, then open this book again.
  589. strMaintenance
  590. &Maintenance
  591. strMaintenancePack
  592. &Pack Database
  593. strMaintenanceRebuild
  594. &Rebuild Index Files
  595. strEnterKey
  596. Enter
  597. pkeyType
  598. to find.
  599. pKeyType
  600. strGotoRecord
  601. Enter the record number to go to.
  602. strCantFindRecord
  603. Cannot find the requested record.
  604. strConfirmDelete
  605. Are you sure you want to delete this record?
  606. strFirstRecord
  607. record.
  608. You are already on the first
  609. vType
  610. strLastRecord
  611. record.
  612. You are already on the last
  613. vType
  614. appsamp.tbk
  615. sFromAppSampler
  616. MenuLINK
  617. GetSystemMenu
  618. GetMenu
  619. GetSubMenu
  620. EnableMenuItem
  621. RemoveMenu
  622. Menuunlink
  623. RemoveMenuItemsByPosition
  624. GetSystemMenu
  625. GetMenu
  626. GetSubMenu
  627. menuitemPosList
  628. EnableMenuItem
  629. RemoveMenu
  630. RemRet
  631. EnaRet
  632. MenuItemPos
  633. hMainMenu
  634. hMenu
  635. MenuItemPosList
  636. MenuPos
  637. setUpMenus
  638. oMenuLink
  639. RemoveMenuItemsByPosition
  640. 8,4,3
  641. RemoveMenuItemsByPosition
  642. RemoveMenuItemsByPosition
  643. 5,4,3,2,1,0
  644. MenuUnLink
  645. strMaintenance
  646. strMaintenancePack
  647. strMaintenance
  648. strMaintenanceRebuild
  649. strMaintenance
  650. Using dBase Reader...
  651. About dBase Reader...
  652. AboutdBaseReader
  653. buttonUp
  654. About Dialog
  655. UsingdBaseReader
  656. buttonUp
  657. Using Dialog
  658. strGeneralInit
  659. button Done,b28,FALSE
  660. static Text,s40,The dBase Reader is a front-end to a dBase III format course catalog database. It can be used to browse and modify this dBase database.
  661. The Maintenance menu provides two useful utilities. Pack Database removes deleted records to shorten the length of the data file. Rebuild Index rebuilds the index files to provide better search performance.
  662. To learn more about the data entry fields, press the Fields button.
  663. To learn how to browse the course catalog with the dBase Reader, press the Browse button.
  664. button General,b41,TRUE
  665. button Browse,b42,TRUE
  666. static Title,s44,General
  667. button Fields,b45,TRUE
  668. strFieldsInit
  669. button Done,b28,FALSE
  670. static Text,s40,
  671. Course number
  672. Enter the number for the course.
  673. Title
  674. Enter the name of the course.
  675. Instructor
  676. Enter the name of the course instructor.
  677. Section
  678. Enter the number for this section of the course.
  679. Start date
  680. Enter the start date of this section.
  681. End date
  682. Enter the end date of this section.
  683. Enter the meeting time for this section.
  684. Days of week
  685. Enter the meeting days for this section.
  686. Course fee
  687. Enter the fee for enrolling in this course.
  688. Max. class size
  689. Enter the maximum number of allowed enrollments.
  690. button General,b41,TRUE
  691. button Browse,b42,TRUE
  692. static Title,s44,
  693. Click in a field to move the insertion point to that field.
  694. button Fields,b45,TRUE
  695. strBrowseInit
  696. button Done,b28,FALSE
  697. static Text,s40,
  698. Press to view the first record.
  699. Press to view the previous record.
  700. Press to view the next record.
  701. Press to view the last record.
  702. New Record
  703. Press to create a new, blank record.
  704. Delete Record
  705. Press to delete the current record.
  706. Sort Order
  707. Choose one of these options to select an index.
  708. Record Number
  709. Press to search for a record number.
  710. Course Number
  711. Press to search for a course number.
  712. Title
  713. Press to search for a course title.
  714. button General,b41,TRUE
  715. button Browse,b42,TRUE
  716. static Title,s44,Browse the records with these buttons.
  717. button Fields,b45,TRUE
  718. DlgLINK
  719. tbkdlg.dll
  720. dialog
  721. setValue
  722. getValue
  723. Cannot load DLL
  724. tbkdlg.dll
  725. strNoDLL
  726. default
  727. s_NoDlgDLL
  728. DlgUNLINK
  729. tbkdlg.dll
  730. s_NoDlgDLL
  731. strNODLL
  732. Cannot find DLL
  733. rtStr
  734. dllName
  735. MyDialog
  736. tbkdlg.dll
  737. strNoDLL
  738. dialog
  739. retValue
  740. s_NoDlgDLL
  741. strDlgInit
  742. strDlgBox
  743. MyGetValue
  744. tbkdlg.dll
  745. strNoDLL
  746. getValue
  747. retValue
  748. s_NoDlgDLL
  749. strDlgControl
  750. strDlgReturn
  751. strTitle
  752. dBase Reader
  753.  1991 Asymetrix Corporation
  754. All rights reserved.
  755. strCaption
  756. About dBase Reader
  757. credits
  758. buttonUp
  759. Credits Dialog
  760. TBKPath
  761. kernel
  762. getmodulehandle
  763. getmodulefilename
  764. toolbook.exe
  765. getmodulehandle
  766. 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678
  767. getmodulefilename
  768. kernel
  769. fileNameBuffer
  770. fileNameBuffer
  771. fullCount
  772. filenameBuffer
  773. moduleHandle
  774. atabase Maintenance
  775. Using Dialog
  776. init 
  777. strGeneralInit()
  778. retValue 
  779. MyDialog(
  780. odlgBox,
  781. MyGetValue(
  782. BFields")
  783. strFieldsInit()
  784. BBrowse")
  785. strBrowseInit()
  786. ZFALSE
  787. buttonUp
  788. buttonUp
  789. strGeneralInit
  790. dlgBox
  791. MyDialog
  792. button Fields
  793. MyGetValue
  794. strFieldsInit
  795. button Browse
  796. MyGetValue
  797. strBrowseInit
  798. button General
  799. MyGetValue
  800. strGeneralInit
  801. retValue
  802. dlgBOX
  803. 524480,6,-2,10,252,138,,,Using dBase Reader,8,Helv,Done,197.87,109.17,50.86,14.07,28,1342242817,128,Done,0,Text,3.73,16.70,244.53,88.45,40,1350565888,130,,0,General,3.73,109.17,50.86,14.07,41,1342242816,128,General...,0,Browse,112.00,109.17,50.86,14.07,42,1342242816,128,Browse...,0,Title,3.73,4.64,242.67,11.45,44,1342177280,130,General,0,Fields,57.87,109.17,50.86,14.07,45,1342242816,128,Fields...,0
  804. ctrlID
  805. dlgInit
  806. button Done,b28,FALSE
  807. static Text,s40,
  808. button General,b41,TRUE
  809. button Browse,b42,TRUE
  810. static Title,s44,General
  811. button Fields,b45,TRUE
  812. Using Dialog
  813. about Dialog
  814. dlgBox
  815. "524480,4,40,20,170,85,,,"&strCaption()&",8,Helv,,44.80,4.55,119.35,44.23,29,1350565889,130,,0,,13.07,18.63,18.29,19.69,36,1342177283,130,toolbook,0,,44.80,54.81,56.46,14.32,388,1342242817,128,OK,0,More,108.27,54.81,56.00,14.32,387,1342242816,128,
  816. ....,0"
  817. dlgInit 
  818. ",s29,
  819. ,h36,
  820. ,b388,FALSE
  821. ]b387,TRUE"    
  822. setValue(
  823. 6",strTitle())
  824. --DLL function
  825. MyDialog(
  826. Credits
  827. buttonUp
  828. buttonUp
  829. 524480,4,40,20,170,85,,,
  830. strCaption
  831. ,8,Helv,,44.80,4.55,119.35,44.23,29,1350565889,130,,0,,13.07,18.63,18.29,19.69,36,1342177283,130,toolbook,0,,44.80,54.81,56.46,14.32,388,1342242817,128,OK,0,More,108.27,54.81,56.00,14.32,387,1342242816,128,More...,0
  832. ,s29,
  833. ,h36,
  834. ,b388,FALSE
  835. button More,b387,TRUE
  836. strTitle
  837. setValue
  838. MyDialog
  839. @;Credits
  840. dlgInit
  841. dlgBox
  842.     ctrlID
  843.     dlgBox
  844. 524480,4,-2,10,170,85,,,About Software Catalog,8,Helv,,44.80,4.55,119.35,44.23,29,1350565889,130,,0,,13.07,18.63,18.29,19.69,36,1342177283,130,toolbook,0,,44.80,54.81,56.46,14.32,388,1342242817,128,OK,0,More,108.27,54.81,56.00,14.32,387,1342242816,128,More...,0
  845. dlgInit
  846. ,s29,
  847. ,h36,
  848. ,b388,TRUE
  849. button More,b387,TRUE
  850. about Dialog
  851. credits Dialog
  852. MyDialog(
  853. odlgBox,
  854. odlginit)
  855. buttonUp
  856. buttonUp
  857. dlgBox
  858. dlginit
  859. MyDialog
  860. ctrlID
  861. dlgBox
  862. 524480,2,30,20,189,119,,,Introducing...,8,Helv,,65.18,92.88,61.60,12.31,27,1342242817,128,OK,0,Team,3.70,4.43,180.95,84.43,29,1350565888,130,The Test Drive Team...
  863. Tom Arnold        Brad Gaub
  864. Carol Buchmiller        Chad Randcort
  865. Jeff Day        Craig Schwandt
  866. Michele DeWilliam    Nanette Wright
  867. Special thanks to... Melody Christensen,0
  868. dlgInit
  869. ,b27,TRUE
  870. static Team,s29,The Test Drive Team...
  871. Tom Arnold        Brad Gaub
  872. Carol Buchmiller        Chad Rancourt
  873. Jeff Day        Craig Schwandt
  874. Michele DeWilliam    Nanette Wright
  875. Special thanks to...
  876. Melody Christensen, Michelle Drewien, Jim Gallant, Bob Gallup, Shelly Julien, Mike Miller, Sharon Nelson, Greg Pearson, Kim Rush, and Mark Ursino.
  877. credits Dialog
  878. Course Catalog
  879. titlefield
  880. Course Catalog
  881. Sort Orderrrrrrrr
  882. CurrentRecord
  883. KeyIndicator
  884. Record Number:::Number:
  885. labelTitle
  886. Titlee
  887. Instructor
  888. Section
  889. Start Date
  890. End Date
  891. TimeE
  892. Days of Week
  893. Course Fee 
  894. Maximum Class Size
  895. labelCours_no
  896. Course Number
  897. COURS_NO
  898. TITLE
  899. INSTRUCTOR
  900. SECTION
  901. STARTDATE
  902. ENDDATE
  903. DAYSOFWEEK
  904. MAX_ENROLL
  905. 4svKey
  906. writeRecord -- writes out current record 
  907. 4leaving 
  908. firstDBKey()
  909. firstDBRecord()
  910. updateDisplay
  911. -- In Page Script
  912. buttonUp
  913. buttonUp
  914. writeRecord
  915. firstDBKey
  916. firstDBRecord
  917. PupdateDisplay
  918. svKey
  919. writeRecord -- writes out current record 
  920. 4leaving 
  921. -- svKey
  922. Currently sorting 
  923. Hindex file.
  924. previousDBKey()
  925. previousDBRecord()
  926. -- If 
  927. -10 we were already on the 
  928. a specific
  929. -- error message will be displayed.
  930. other 
  931. -- we 
  932. xknow why 
  933. failed 
  934. htbkdb3 
  935. -- be used.
  936. = -10
  937. --Check specifically 
  938. strFirstRecord(
  939. getDBErrorString(
  940. {.dll 
  941. updateDisplay
  942. -- In Page 
  943. buttonDown
  944. buttonStillDown
  945. buttonDown
  946. writeRecord
  947. buttonStillDown
  948. buttonStillDown
  949. previousDBKey
  950. previousDBRecord
  951. strFirstRecord
  952. getDBErrorString
  953. PupdateDisplay
  954. svKey
  955. writeRecord -- writes out current record 
  956. 4leaving 
  957.     -- svKey
  958. Currently sorting 
  959. Hindex file.
  960. nextDBKey()
  961. nextDBRecord()
  962. -- If 
  963. -10 than we were already on the 
  964. a specific
  965. -- error message will be displayed.
  966. other 
  967. -- we 
  968. xknow why 
  969. failed 
  970. htbkdb3 
  971. -- be used.
  972. = -10
  973. --Check specifically 
  974. strLastRecord(
  975. getDBErrorString(
  976. ) -- 
  977. {.dll 
  978. updateDisplay
  979. -- In Page 
  980. buttonDown
  981. buttonStillDown
  982. buttonDown
  983. writeRecord
  984. buttonStillDown
  985. buttonStillDown
  986. nextDBKey
  987. nextDBRecord
  988. strLastRecord
  989. getDBErrorString
  990. PupdateDisplay
  991. svKey
  992. 4svKey
  993. writeRecord -- writes out current record 
  994. 4leaving 
  995. lastDBKey()
  996. lastDBRecord()
  997. updateDisplay
  998. -- In Page 
  999. buttonUp
  1000. buttonUp
  1001. writeRecord
  1002. lastDBKey
  1003. lastDBRecord
  1004. PupdateDisplay
  1005. svKey
  1006. 4svKey
  1007. B-- have 
  1008. xclicked on a radio 
  1009. vCurrentRecord 
  1010. getDBRecordNumber()
  1011. ]buttons 
  1012. title
  1013.     Conditions
  1014.             Set 
  1015. B"find" 
  1016. \..."
  1017. "Course 
  1018. selectdbindexfile(TBKpath()&"COURS_NO.NDX")
  1019. "Title"
  1020. PTITLE.
  1021.     -- By going 
  1022. the currentRecord key value
  1023.  will be updated
  1024. goToDBRecord(
  1025. buttonUp
  1026. buttonUp
  1027. check
  1028. getDBRecordNumber
  1029. Record Number
  1030. Record Number...
  1031. Course Number
  1032. Course Number...
  1033. TBKpath
  1034. COURS_NO.NDX
  1035. selectdbindexfile
  1036. Title
  1037. Title...
  1038. TBKpath
  1039. TITLE.NDX
  1040. selectdbindexfile
  1041. goToDBRecord
  1042. vCurrentRecord
  1043. svKey
  1044. Course Number
  1045. Course Number
  1046. Title
  1047. Title
  1048. Record Number
  1049. Record Number
  1050. Record Number...
  1051. New Record
  1052. clearFields
  1053. -- In 
  1054.     -- write 
  1055. Jrecord 
  1056. database
  1057. writeDBrecord(getDBRecordCount()+1)
  1058. "CurrentRecord"
  1059. "cours_no"
  1060. buttonUp
  1061. buttonUp
  1062. clearFields
  1063. getDBRecordCount
  1064. writeDBrecord
  1065. getDBRecordCount
  1066. CurrentRecord
  1067. cours_no
  1068. New Record
  1069. Delete Record
  1070. Delete Record
  1071.     -- svKey
  1072. Currently sorting 
  1073. Hindex file.
  1074. Hrecord 
  1075. writeRecord -- writes out current 
  1076. 4leaving 
  1077. vChar 
  1078. vCurrentRecord 
  1079. getDBRecordNumber()
  1080.     -- strip ... 
  1081. find 
  1082. vString 
  1083. (strEnterKey(
  1084. x"Cancel" 
  1085. vFind 
  1086.             -- 
  1087. the key type 
  1088. Sthere will be some special
  1089.             -- handling.
  1090. was built 
  1091. KUPPER function so
  1092.             -- that 
  1093. fmatches would 
  1094. Msensitive.
  1095. Also partial
  1096.             -- 
  1097. allowed 
  1098. Sstrings.
  1099. getDBKeyType() 
  1100. -- 1 
  1101. -- convert toolbook 
  1102. used 
  1103. findDBKey(
  1104. (strGotoRecord()
  1105.             -- In 
  1106. MOpenScript error checking 
  1107. insure
  1108.             -- 
  1109. illegal data 
  1110. xpassed 
  1111. gotoDBRecord.
  1112. Illegal
  1113.             -- 
  1114. result 
  1115. execution suspend.
  1116.             -- 
  1117. incrementing 
  1118. does 
  1119. r, a 
  1120.             -- entered.
  1121. value 
  1122. >buttonUP
  1123.     -- Check 
  1124. found
  1125.     -- If 
  1126. , either a 1 
  1127. accepted, otherwise 
  1128. must be 
  1129. exact 
  1130.     -- If 
  1131. successful update fields
  1132. strCantFindRecord()
  1133. updateDisplay
  1134. buttonUp
  1135. buttonUp
  1136. writeRecord
  1137. getDBRecordNumber
  1138. strEnterKey
  1139. Cancel
  1140. getDBKeyType
  1141. findDBKey
  1142. strGotoRecord
  1143. Cancel
  1144. gotoDBRecord
  1145. strCantFindRecord
  1146. gotoDBRecord
  1147. PupdateDisplay
  1148. vFind
  1149. vString
  1150. vCurrentRecord
  1151. vChar
  1152. svKey
  1153. -- svKey
  1154. Currently sorting 
  1155. Hindex file.
  1156. Hrecord 
  1157. --Confirm that 
  1158. should be deleted.
  1159. strConfirmDelete() 
  1160. fstrOK() 
  1161. strCancel()
  1162. -- After deleting a 
  1163. , the 
  1164. will become 
  1165. current
  1166. unless 
  1167. only 
  1168. can be 
  1169.  later.
  1170. vDeleteRecord 
  1171. getDBRecordNumber()
  1172. -- try 
  1173. successful they are 
  1174. nextDBKey()
  1175. nextDBRecord()
  1176. -- If 
  1177. being 
  1178. previousDBKey()
  1179. previousDBrecord()
  1180.     -- If navigate 
  1181. has failed 
  1182. database 
  1183.     -- Create a 
  1184. B"New 
  1185. -- Regardless 
  1186. whether we ended up on 
  1187. -- created a 
  1188. , we 
  1189. now on 
  1190. we want 
  1191. -- up on.
  1192. We need 
  1193. vDestinationRecord 
  1194. going 
  1195. gotoDBRecord(
  1196. setDBrecordDeleted(1)
  1197. getDBErrorString(
  1198. updateDisplay
  1199. "cours_no"        
  1200. buttonUp
  1201. buttonUp
  1202. strConfirmDelete
  1203. strOK
  1204. strCancel
  1205. strOK
  1206. getDBRecordNumber
  1207. nextDBKey
  1208. nextDBRecord
  1209. previousDBKey
  1210. previousDBrecord
  1211. buttonUp
  1212. New Record
  1213. getDBRecordNumber
  1214. gotoDBRecord
  1215. setDBrecordDeleted
  1216. getDBErrorString
  1217. gotoDBRecord
  1218. PupdateDisplay
  1219. cours_no
  1220. vDestinationRecord
  1221. vDeleteRecord
  1222. svKey
  1223. Course Catalog
  1224. DBASERDR.ico
  1225. wwwwwp
  1226. ws333337wp
  1227. s33333337ww
  1228. 1wwwp
  1229. s3DDI
  1230. s34DC
  1231. 33D39
  1232. s3D33
  1233. sD339
  1234. Ds333wwww
  1235. wwwww
  1236. wwwwwwwp
  1237. 33333330
  1238. 3333333
  1239. 333330
  1240. 33333
  1241.