home *** CD-ROM | disk | FTP | other *** search
/ Multimedia Toolbook (Evaluation Edition) / Multimedia_Toolbook_Asymetrix_1992.iso / dbaserdr.tbk / dbaserdr.tbk (.txt)
Asymetrix ToolBook File  |  1992-10-25  |  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. atabase Maintenance
  213. Using Dialog
  214. init 
  215. strGeneralInit()
  216. retValue 
  217. MyDialog(
  218. odlgBox,
  219. MyGetValue(
  220. BFields")
  221. strFieldsInit()
  222. BBrowse")
  223. strBrowseInit()
  224. ZFALSE
  225. buttonUp
  226. buttonUp
  227. strGeneralInit
  228. dlgBox
  229. MyDialog
  230. button Fields
  231. MyGetValue
  232. strFieldsInit
  233. button Browse
  234. MyGetValue
  235. strBrowseInit
  236. button General
  237. MyGetValue
  238. strGeneralInit
  239. retValue
  240. dlgBOX
  241. 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
  242. ctrlID
  243. dlgInit
  244. button Done,b28,FALSE
  245. static Text,s40,
  246. button General,b41,TRUE
  247. button Browse,b42,TRUE
  248. static Title,s44,General
  249. button Fields,b45,TRUE
  250. Using Dialog
  251. about Dialog
  252. dlgBox
  253. "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,
  254. ....,0"
  255. dlgInit 
  256. ",s29,
  257. ,h36,
  258. ,b388,FALSE
  259. ]b387,TRUE"    
  260. setValue(
  261. 6",strTitle())
  262. --DLL function
  263. MyDialog(
  264. Credits
  265. buttonUp
  266. buttonUp
  267. 524480,4,40,20,170,85,,,
  268. strCaption
  269. ,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
  270. ,s29,
  271. ,h36,
  272. ,b388,FALSE
  273. button More,b387,TRUE
  274. strTitle
  275. setValue
  276. MyDialog
  277. @;Credits
  278. dlgInit
  279. dlgBox
  280.     ctrlID
  281.     dlgBox
  282. 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
  283. dlgInit
  284. ,s29,
  285. ,h36,
  286. ,b388,TRUE
  287. button More,b387,TRUE
  288. about Dialog
  289. credits Dialog
  290. MyDialog(
  291. odlgBox,
  292. odlginit)
  293. buttonUp
  294. buttonUp
  295. dlgBox
  296. dlginit
  297. MyDialog
  298. ctrlID
  299. dlgBox
  300. 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...
  301. Tom Arnold        Brad Gaub
  302. Carol Buchmiller        Chad Randcort
  303. Jeff Day        Craig Schwandt
  304. Michele DeWilliam    Nanette Wright
  305. Special thanks to... Melody Christensen,0
  306. dlgInit
  307. ,b27,TRUE
  308. static Team,s29,The Test Drive Team...
  309. Tom Arnold        Brad Gaub
  310. Carol Buchmiller        Chad Rancourt
  311. Jeff Day        Craig Schwandt
  312. Michele DeWilliam    Nanette Wright
  313. Special thanks to...
  314. Melody Christensen, Michelle Drewien, Jim Gallant, Bob Gallup, Shelly Julien, Mike Miller, Sharon Nelson, Greg Pearson, Kim Rush, and Mark Ursino.
  315. credits Dialog
  316. Course Catalog
  317. titlefield
  318. Course Catalog
  319. Sort Orderrrrrrrr
  320. CurrentRecord
  321. KeyIndicator
  322. Record Number:::Number:
  323. labelTitle
  324. Titlee
  325. Instructor
  326. Section
  327. Start Date
  328. End Date
  329. TimeE
  330. Days of Week
  331. Course Fee 
  332. Maximum Class Size
  333. labelCours_no
  334. Course Number
  335. COURS_NO
  336. TITLE
  337. INSTRUCTOR
  338. SECTION
  339. STARTDATE
  340. ENDDATE
  341. DAYSOFWEEK
  342. MAX_ENROLL
  343. 4svKey
  344. writeRecord -- writes out current record 
  345. 4leaving 
  346. firstDBKey()
  347. firstDBRecord()
  348. updateDisplay
  349. -- In Page Script
  350. buttonUp
  351. buttonUp
  352. writeRecord
  353. firstDBKey
  354. firstDBRecord
  355. PupdateDisplay
  356. svKey
  357. writeRecord -- writes out current record 
  358. 4leaving 
  359. -- svKey
  360. Currently sorting 
  361. Hindex file.
  362. previousDBKey()
  363. previousDBRecord()
  364. -- If 
  365. -10 we were already on the 
  366. a specific
  367. -- error message will be displayed.
  368. other 
  369. -- we 
  370. xknow why 
  371. failed 
  372. htbkdb3 
  373. -- be used.
  374. = -10
  375. --Check specifically 
  376. strFirstRecord(
  377. getDBErrorString(
  378. {.dll 
  379. updateDisplay
  380. -- In Page 
  381. buttonDown
  382. buttonStillDown
  383. buttonDown
  384. writeRecord
  385. buttonStillDown
  386. buttonStillDown
  387. previousDBKey
  388. previousDBRecord
  389. strFirstRecord
  390. getDBErrorString
  391. PupdateDisplay
  392. svKey
  393. writeRecord -- writes out current record 
  394. 4leaving 
  395.     -- svKey
  396. Currently sorting 
  397. Hindex file.
  398. nextDBKey()
  399. nextDBRecord()
  400. -- If 
  401. -10 than we were already on the 
  402. a specific
  403. -- error message will be displayed.
  404. other 
  405. -- we 
  406. xknow why 
  407. failed 
  408. htbkdb3 
  409. -- be used.
  410. = -10
  411. --Check specifically 
  412. strLastRecord(
  413. getDBErrorString(
  414. ) -- 
  415. {.dll 
  416. updateDisplay
  417. -- In Page 
  418. buttonDown
  419. buttonStillDown
  420. buttonDown
  421. writeRecord
  422. buttonStillDown
  423. buttonStillDown
  424. nextDBKey
  425. nextDBRecord
  426. strLastRecord
  427. getDBErrorString
  428. PupdateDisplay
  429. svKey
  430. 4svKey
  431. writeRecord -- writes out current record 
  432. 4leaving 
  433. lastDBKey()
  434. lastDBRecord()
  435. updateDisplay
  436. -- In Page 
  437. buttonUp
  438. buttonUp
  439. writeRecord
  440. lastDBKey
  441. lastDBRecord
  442. PupdateDisplay
  443. svKey
  444. 4svKey
  445. B-- have 
  446. xclicked on a radio 
  447. vCurrentRecord 
  448. getDBRecordNumber()
  449. ]buttons 
  450. title
  451.     Conditions
  452.             Set 
  453. B"find" 
  454. \..."
  455. "Course 
  456. selectdbindexfile(TBKpath()&"COURS_NO.NDX")
  457. "Title"
  458. PTITLE.
  459.     -- By going 
  460. the currentRecord key value
  461.  will be updated
  462. goToDBRecord(
  463. buttonUp
  464. buttonUp
  465. check
  466. getDBRecordNumber
  467. Record Number
  468. Record Number...
  469. Course Number
  470. Course Number...
  471. TBKpath
  472. COURS_NO.NDX
  473. selectdbindexfile
  474. Title
  475. Title...
  476. TBKpath
  477. TITLE.NDX
  478. selectdbindexfile
  479. goToDBRecord
  480. vCurrentRecord
  481. svKey
  482. Course Number
  483. Course Number
  484. Title
  485. Title
  486. Record Number
  487. Record Number
  488. Record Number...
  489. New Record
  490. clearFields
  491. -- In 
  492.     -- write 
  493. Jrecord 
  494. database
  495. writeDBrecord(getDBRecordCount()+1)
  496. "CurrentRecord"
  497. "cours_no"
  498. buttonUp
  499. buttonUp
  500. clearFields
  501. getDBRecordCount
  502. writeDBrecord
  503. getDBRecordCount
  504. CurrentRecord
  505. cours_no
  506. New Record
  507. Delete Record
  508. Delete Record
  509. -- Script 
  510. dBase 
  511. Greg Pearson 12/90
  512. -- Copyright (c) 1990, Asymetrix Corp.
  513. -- This 
  514. 8provides a form 
  515. viewing 
  516. editing a database.
  517. -- Location 
  518. the scripts
  519. Book:
  520. cmanagement, tbkdb3.dll calls
  521. that are 
  522. xspecific 
  523. o "courses.dbf", 
  524. --             functions 
  525. constants 
  526. facilitate translation
  527. international releases.
  528. Page:
  529. chandlers 
  530. refer 
  531. fields
  532. corresponding ToolBook 
  533. #) specifically 
  534. If you use 
  535. a different 
  536. place 
  537. 2should have 
  538. modify 
  539. Graphic Objects:
  540. These 
  541.  contain 
  542. complete
  543. --            actions 
  544. xrequire knowledge 
  545. -- Error checking
  546.  has been kept 
  547. a minimum 
  548. simplify 
  549. easier 
  550. see how 
  551. being called.
  552. Handlers 
  553. dcommented 
  554. where 
  555. will want
  556. error 
  557. intend 
  558. a production
  559. 4sFromAppSampler
  560. saveFromAppSampler 
  561. setUpMenus
  562.     -- Link 
  563. linkDbase
  564. dlgLINK
  565. sysChangesDb 
  566. linkdBase
  567. X"TBKDB3.
  568. INT closeAllDBFiles()
  569. reateDBIndexFile(STRING, 
  570. WORD, 
  571. >deleteDBFile(
  572. SfindDBKey(
  573. efirstDBKey()
  574. vfirstDBRecord()
  575. _ getDBDateFormat()
  576. v getDBErrorString(
  577.  getDBFieldValue(
  578. getDBKeyType()
  579.  getDBKeyValue()
  580. getDBNavigateToDeleted()
  581. LONG getDBRecordCount()
  582. getDBRecordDeleted()
  583. 1Number()
  584. gotoDBRecord(DWORD)
  585. lastDBKey()
  586. lastDBRecord()
  587. nextDBKey()
  588. nextDBRecord()
  589. openDBFile(
  590. openDBIndexFile(
  591. packDBFile()
  592. previousDBKey()
  593. previousDBRecord()
  594. reindexDBFile(
  595. removeDBRecords(
  596. selectDBIndexFile(
  597. setDBFieldValue(
  598. setDBNavigateToDeleted(INT)
  599. setDBRecordDeleted(
  600. writeDBRecord(
  601. -- If 
  602. nnot be linked, 
  603. strNoTBKDB3File()
  604. packDatabase
  605.     -- keep 
  606.  routine generic 
  607.     -- created 
  608. databases.
  609. writeRecord 
  610. -- writes 
  611. [ current record 
  612. 4leaving 
  613. packdbfile()
  614. rebuildIndexFiles pIndexFiles
  615. Mforms
  616. added 
  617. rebuilding 
  618. reindexdbfile(
  619. -- Functions 
  620. internationalization 
  621. books.
  622. strCancel
  623. strOK
  624. strContinue
  625. strCantOpenDbase
  626. "Cannot 
  627.  ""Courses.
  628. Please 
  629.     directory 
  630. your path, 
  631. change 
  632. include 
  633. strMaintenance
  634. strMaintenancePack
  635. strMaintenanceRebuild
  636. strEnterKey pKeyType
  637. "&&pkeyType&&"
  638. strGotoRecord
  639. strCantFindRecord
  640. requested 
  641. strConfirmDelete
  642. "Are 
  643. sure 
  644. strFirstRecord 
  645. vType 
  646. "You 
  647. already on 
  648. strLastRecord 
  649. "key."
  650. TRUE 
  651. 8"appsamp.tbk"
  652. MenuLINK
  653.     linkDLL "user"
  654.  GetSystemMenu
  655.  GetMenu
  656.  GetSubMenu
  657.      EnableMenuItem (
  658. (     RemoveMenu
  659. Menuunlink
  660.     unlinkDLL "
  661. RemoveMenuItemsByPosition MenuPos,MenuItemPosList
  662. cdesired. -1 
  663. ubmenu 
  664. hMenu 
  665. (syswindowHandle,0)
  666. hMainMenu 
  667. (menuitemPosList)
  668. EnaRet 
  669. ,1024)
  670. RemRet 
  671. ,1024)
  672. MenuLink
  673. FALSE
  674. 0,"8,4,3"
  675. 2,"8,7"
  676. 4,"5,4,3,2,1,0"
  677. MenuUnLink
  678. ld() 
  679. e"Using 
  680. Reader..." 
  681. chelp 
  682. e"About 
  683. AboutdBaseReader
  684. 4Dialog" 
  685. UsingdBaseReader
  686. strGeneralInit
  687. BDone,b28,
  688. static Text,s40,
  689. a front-
  690.  catalog 
  691.  It can be used 
  692. browse 
  693. "&CRLF&
  694. two useful utilities. 
  695.      removes deleted 
  696. shorten 
  697. length 
  698.  rebuilds 
  699.  files 
  700.  better 
  701. performance."&
  702.         "To learn more about 
  703.  entry 
  704. , press 
  705. Fields 
  706.         "To 
  707. Browse 
  708. ,b41,
  709. ,b42,
  710. itle,s44,
  711. p,b45,
  712. strFieldsInit
  713. z"&TAB&"
  714.         "Title"&
  715.         "Instructor"&
  716.  instructor."&
  717.         "Section"&
  718. section 
  719.         "Start 
  720.         "End 
  721.         "Time"&
  722. meeting 
  723.         "Days 
  724. week"&
  725. -days 
  726.      fee"&
  727. enrolling 
  728.         "Max. class 
  729. maximum 
  730. allowed enrollments."&\
  731.         "Click 
  732. insertion point 
  733. strBrowseInit
  734.         "|<-"&
  735. Press 
  736.         "<-"&
  737.         "->"&
  738.         "->|"&
  739.         "New 
  740. q, blank 
  741.         "Sort Order"&
  742. Choose one 
  743. these options 
  744.  title."&\
  745. buttons.
  746. DlgLINK
  747. 4s_NoDlgDLL
  748.     tbkdlg.dll"
  749. dialog(
  750. setValue(
  751. getValue(
  752. load 
  753. default
  754. strNoDLL("
  755. DlgUNLINK
  756. strNODLL dllName
  757. rtStr 
  758. & "."
  759. -& ":" && 
  760. B & "."
  761. MyDialog strDlgBox,strDlgInit
  762. retValue 
  763. MyGetValue strDlgReturn,strDlgControl
  764. strTitle
  765.  1992 
  766. oration"&
  767. "All rights reserved."
  768. strCaption
  769. credits
  770. B"Credits 
  771. TBKPath
  772. X"kernel"
  773. ggetmodulehandle(
  774. getmodulefilename(
  775. moduleHandle
  776. F"toolbook.exe")
  777. filenameBuffer 
  778. "12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678"
  779.     -- fileNameBuffer now 
  780.     -- we must 
  781.  TOOLBOOK.EXE
  782. fullCount 
  783. - 12) 
  784. exFiles
  785. enterbook
  786. linkdBase
  787. MenuLINK
  788. Menuunlink
  789. author
  790. RemoveMenuItemsByPosition
  791. leaveBook
  792. setUpMenus
  793. AboutdBaseReader
  794. packDatabase
  795. UsingdBaseReader
  796. DlgLINK
  797. rebuildIndexFiles
  798. DlgUNLINK
  799. credits
  800. trContinue
  801. strMaintenanceRebuild
  802. strEnterKey
  803. strCantOpenDbase
  804. strGotoRecord
  805. strCantFindRecord
  806. strOK
  807. strConfirmDelete
  808. strNoTBKDB3File
  809. strFirstRecord
  810. strLastRecord
  811. strGeneralInit
  812. strCancel
  813. strFieldsInit
  814. strBrowseInit
  815. strMaintenance
  816. strNODLL
  817. MyDialog
  818. strMaintenancePack
  819. MyGetValue
  820. strTitle
  821. strCaption
  822. strContinue
  823. TBKPath
  824. enterbook
  825. reader
  826. setUpMenus
  827. linkDbase
  828. 2dlgLINK
  829. saveFromAppSampler
  830. sFromAppSampler
  831. leaveBook
  832. linkdBase
  833. TBKDB3.DLL
  834. closeAllDBFiles
  835. createDBIndexFile
  836. deleteDBFile
  837. findDBKey
  838. firstDBKey
  839. firstDBRecord
  840. getDBDateFormat
  841. getDBErrorString
  842. getDBFieldValue
  843. getDBKeyType
  844. getDBKeyValue
  845. getDBNavigateToDeleted
  846. getDBRecordCount
  847. getDBRecordDeleted
  848. getDBRecordNumber
  849. gotoDBRecord
  850. lastDBKey
  851. lastDBRecord
  852. nextDBKey
  853. nextDBRecord
  854. openDBFile
  855. openDBIndexFile
  856. packDBFile
  857. previousDBKey
  858. previousDBRecord
  859. reindexDBFile
  860. removeDBRecords
  861. selectDBIndexFile
  862. setDBFieldValue
  863. setDBNavigateToDeleted
  864. setDBRecordDeleted
  865. writeDBRecord
  866. strNoTBKDB3File
  867. author
  868. packDatabase
  869. writeRecord
  870. packdbfile
  871. getDBErrorString
  872. rebuildIndexFiles
  873. writeRecord
  874. reindexdbfile
  875. getDBErrorString
  876. pIndexFiles
  877. strCancel
  878. Cancel
  879. strOK
  880. strContinue
  881. Continue
  882. strCantOpenDbase
  883. Cannot open dBase file "Courses.dbf".  Please copy this file to the directory this book is in, and open this book again.
  884. strNoTBKDB3File
  885. 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.
  886. strMaintenance
  887. &Maintenance
  888. strMaintenancePack
  889. &Pack Database
  890. strMaintenanceRebuild
  891. &Rebuild Index Files
  892. strEnterKey
  893. Enter
  894. pkeyType
  895. to find.
  896. pKeyType
  897. strGotoRecord
  898. Enter the record number to go to.
  899. strCantFindRecord
  900. Cannot find the requested record.
  901. strConfirmDelete
  902. Are you sure you want to delete this record?
  903. strFirstRecord
  904. record.
  905. You are already on the first
  906. vType
  907. strLastRecord
  908. record.
  909. You are already on the last
  910. vType
  911. appsamp.tbk
  912. sFromAppSampler
  913. MenuLINK
  914. GetSystemMenu
  915. GetMenu
  916. GetSubMenu
  917. EnableMenuItem
  918. RemoveMenu
  919. Menuunlink
  920. RemoveMenuItemsByPosition
  921. GetSystemMenu
  922. GetMenu
  923. GetSubMenu
  924. menuitemPosList
  925. EnableMenuItem
  926. RemoveMenu
  927. RemRet
  928. EnaRet
  929. MenuItemPos
  930. hMainMenu
  931. hMenu
  932. MenuItemPosList
  933. MenuPos
  934. setUpMenus
  935. oMenuLink
  936. RemoveMenuItemsByPosition
  937. 8,4,3
  938. RemoveMenuItemsByPosition
  939. RemoveMenuItemsByPosition
  940. 5,4,3,2,1,0
  941. MenuUnLink
  942. strMaintenance
  943. strMaintenancePack
  944. strMaintenance
  945. strMaintenanceRebuild
  946. strMaintenance
  947. Using dBase Reader...
  948. About dBase Reader...
  949. AboutdBaseReader
  950. buttonUp
  951. About Dialog
  952. UsingdBaseReader
  953. buttonUp
  954. Using Dialog
  955. strGeneralInit
  956. button Done,b28,FALSE
  957. 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.
  958. 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.
  959. To learn more about the data entry fields, press the Fields button.
  960. To learn how to browse the course catalog with the dBase Reader, press the Browse button.
  961. button General,b41,TRUE
  962. button Browse,b42,TRUE
  963. static Title,s44,General
  964. button Fields,b45,TRUE
  965. strFieldsInit
  966. button Done,b28,FALSE
  967. static Text,s40,
  968. Course number
  969. Enter the number for the course.
  970. Title
  971. Enter the name of the course.
  972. Instructor
  973. Enter the name of the course instructor.
  974. Section
  975. Enter the number for this section of the course.
  976. Start date
  977. Enter the start date of this section.
  978. End date
  979. Enter the end date of this section.
  980. Enter the meeting time for this section.
  981. Days of week
  982. Enter the meeting days for this section.
  983. Course fee
  984. Enter the fee for enrolling in this course.
  985. Max. class size
  986. Enter the maximum number of allowed enrollments.
  987. button General,b41,TRUE
  988. button Browse,b42,TRUE
  989. static Title,s44,
  990. Click in a field to move the insertion point to that field.
  991. button Fields,b45,TRUE
  992. strBrowseInit
  993. button Done,b28,FALSE
  994. static Text,s40,
  995. Press to view the first record.
  996. Press to view the previous record.
  997. Press to view the next record.
  998. Press to view the last record.
  999. New Record
  1000. Press to create a new, blank record.
  1001. Delete Record
  1002. Press to delete the current record.
  1003. Sort Order
  1004. Choose one of these options to select an index.
  1005. Record Number
  1006. Press to search for a record number.
  1007. Course Number
  1008. Press to search for a course number.
  1009. Title
  1010. Press to search for a course title.
  1011. button General,b41,TRUE
  1012. button Browse,b42,TRUE
  1013. static Title,s44,Browse the records with these buttons.
  1014. button Fields,b45,TRUE
  1015. DlgLINK
  1016. tbkdlg.dll
  1017. dialog
  1018. setValue
  1019. getValue
  1020. Cannot load DLL
  1021. tbkdlg.dll
  1022. strNoDLL
  1023. default
  1024. s_NoDlgDLL
  1025. DlgUNLINK
  1026. tbkdlg.dll
  1027. s_NoDlgDLL
  1028. strNODLL
  1029. Cannot find DLL
  1030. rtStr
  1031. dllName
  1032. MyDialog
  1033. tbkdlg.dll
  1034. strNoDLL
  1035. dialog
  1036. retValue
  1037. s_NoDlgDLL
  1038. strDlgInit
  1039. strDlgBox
  1040. MyGetValue
  1041. tbkdlg.dll
  1042. strNoDLL
  1043. getValue
  1044. retValue
  1045. s_NoDlgDLL
  1046. strDlgControl
  1047. strDlgReturn
  1048. strTitle
  1049. dBase Reader
  1050.  1992 Asymetrix Corporation
  1051. All rights reserved.
  1052. strCaption
  1053. About dBase Reader
  1054. credits
  1055. buttonUp
  1056. Credits Dialog
  1057. TBKPath
  1058. kernel
  1059. getmodulehandle
  1060. getmodulefilename
  1061. toolbook.exe
  1062. getmodulehandle
  1063. 12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678
  1064. getmodulefilename
  1065. kernel
  1066. fileNameBuffer
  1067. fileNameBuffer
  1068. fullCount
  1069. filenameBuffer
  1070. moduleHandle
  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.