home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / VIEWGEN.ARC / DEMOFULL.VGT < prev    next >
Encoding:
Text File  |  1985-10-01  |  10.8 KB  |  756 lines
  1. ClearBox( 19,10,21,72 )
  2. Color( 14 )
  3. Say( 20,24,'Press the SPACEBAR to continue.' )
  4. GetChar( ' ' )
  5. ClearBox( 5,10,20,72 );
  6. Text( 6,10 )
  7.  
  8.   PURPOSE:   ViewGen is a screen design tool and program
  9.              generator for dBASE III version 1.1, Clipper
  10.              (Summer, 1985), and the Developer's Release.
  11.  
  12.   FEATURES:  ViewGen produces a dBASE III DATA ENTRY
  13.              application complete with Append, Edit/View,
  14.              and Pack operations.  The Edit/View option
  15.              has Find, Goto, Locate, and several other
  16.              selections.  ViewGen can also produce Format
  17.              Files (.FMT).
  18. EndText
  19. GetChar( ' ' )
  20. ClearBox( 11,10,20,72 );
  21. Text( 11,10 )
  22.   FEATURES:  The data entry screens are designed by:
  23.              (1) Loading the fields of a dBASE III
  24.                  database file, and
  25.              (2) SELECTing and DRAGging these fields
  26.                  to achieve the desired format.
  27.              (3) Also, PICTURE and RANGE clauses can
  28.                  be entered.
  29. EndText
  30. GetChar( ' ' )
  31. Returnkey
  32. Delay( 10 )
  33. ClearBox( 12,38,16,76,112 )
  34. Color( 112 )
  35. BoxText( 12,38)
  36.   This is the
  37.       File Specifications view.
  38. EndText
  39. Delay( 40 )
  40. ClearBox( 12,38,16,76,112 )
  41. BoxText( 12,38 )
  42.   In this view we can EDIT the
  43.   Datafile, INDEX, Key Expression,
  44.   and SET RELATION TO command.
  45. EndText
  46. Delay( 70 )
  47. * INDEX file.
  48. ClearBox( 12,38,16,76,112 )
  49. BoxText( 12,38 )
  50.  
  51.    Let us enter an INDEX filename.
  52. EndText
  53. Delay( 50 )
  54. ClearBox( 12,38,16,76,112 )
  55. BoxText( 12,38 )
  56.   Please TYPE the following index
  57.   filename:
  58.               NAMES
  59. EndText
  60. ' '
  61. GetChar( 'N' )
  62. GetChar( 'A' )
  63. GetChar( 'M' )
  64. GetChar( 'E' )
  65. GetChar( 'S' )
  66. Delay( 3 )
  67. ClearBox( 12,38,16,76,112 )
  68. BoxText( 12,38 )
  69.  
  70.      Now, press the RETURN key.
  71. EndText
  72. GetKey( Returnkey )
  73. Delay( 8 )
  74. Rightarrow
  75. ClearBox( 12,38,16,76,112 )
  76. BoxText( 12,38 )
  77.    Notice, the Key Expression is
  78.    automatically loaded.
  79. EndText
  80. Delay( 50 )
  81. * HELP screens.
  82. ClearBox( 12,38,16,76,112 )
  83. BoxText( 12,38 )
  84.    ViewGen has context sensitive
  85.    HELP screens.
  86. EndText
  87. Delay( 50 )
  88. ClearBox( 12,38,16,76,112 )
  89. BoxText( 12,38 )
  90.     We can view these HELP screens
  91.     by pressing the F1 key.
  92. EndText
  93. Delay( 50 )
  94. ClearBox( 12,38,16,76,112 )
  95. F1
  96. Delay( 25 )
  97. * In HELP table of contents.
  98. ClearBox( 9,20,15,60,112 )
  99. BoxText( 9,20 )
  100.  
  101.    We can view the Table of Contents
  102.    by pressing the F1 key a second
  103.    time.
  104. EndText
  105. Delay( 50 )
  106. F1
  107. Delay( 30 )
  108. * Examples.
  109. ClearBox( 15,20,20,60,112 )
  110. BoxText( 15,20 )
  111.     Let us look at two other HELP
  112.     screens before we return to the
  113.     File Specifications view.
  114. EndText
  115. Delay( 60 )
  116. PutDelay( 10 )
  117. Downarrow
  118. Downarrow
  119. Delay( 20 )
  120. Returnkey
  121. Delay( 60 )
  122. F1
  123. Delay( 10 )
  124. PutDelay( 5 )
  125. Downarrow
  126. Downarrow
  127. Downarrow
  128. Downarrow
  129. Downarrow
  130. Delay( 10 )
  131. Returnkey
  132. Delay( 50 )
  133. Esc
  134. * Exit to Forms View.
  135. Delay( 5 )
  136. ClearBox( 12,38,16,76,112 )
  137. BoxText( 12,38 )
  138.    Remember,
  139.       these HELP screens are
  140.       CONTEXT SENSITIVE:
  141. EndText
  142. Delay( 60 )
  143. ClearBox( 12,38,16,76,112 )
  144. BoxText( 12,38 )
  145.    This means you can always get
  146.    HELP on what you are CURRENTLY
  147.    working on.
  148. EndText
  149. Delay( 60 )
  150. ClearBox( 12,38,16,76,112 )
  151. BoxText( 12,38 )
  152.     Now, let us look at
  153.        the Forms View screen.
  154. EndText
  155. Delay( 50 )
  156. ClearBox( 12,38,16,76,112 )
  157. BoxText( 12,38 )
  158.  
  159.      Please press the F10 key.
  160. EndText
  161. GetKey( F10 )
  162. * ---FORMS VIEW.
  163. Delay( 20 )
  164. ClearBox( 2,45,6,79,112 )
  165. Color( 112 )
  166. BoxText( 2,45 )
  167.  
  168.   This is the Forms View screen.
  169. EndText
  170. Delay( 40 )
  171. CtrlPgUp
  172. ClearBox( 2,50,12,79,112 )
  173. BoxText( 2,50 )
  174.   In Forms View you can:
  175.  
  176.         EDIT,
  177.         SELECT,
  178.         DRAG,
  179.         Toggle,
  180.         Insert TEXT,
  181.         Center, and
  182.         RESEQUENCE
  183. EndText
  184. Delay( 100 )
  185. CtrlPgUp
  186. ClearBox( 2,45,6,79,112 )
  187. BoxText( 2,45 )
  188.  
  189.   First, let us EDIT the fields.
  190. EndText
  191. Delay( 60 )
  192. PutDelay( 3 )
  193. CtrlPgUp
  194. * Firstname.
  195. ' '
  196. Rightarrow
  197. Rightarrow
  198. Rightarrow
  199. Rightarrow
  200. Rightarrow
  201. ' '
  202. Returnkey
  203. Downarrow
  204. PutDelay( 1 )
  205. * Lastname.
  206. ' '
  207. Rightarrow
  208. Rightarrow
  209. Rightarrow
  210. Rightarrow
  211. ' '
  212. Returnkey
  213. Downarrow
  214. * Jobtitle.
  215. ' '
  216. Rightarrow
  217. Rightarrow
  218. Rightarrow
  219. ' '
  220. Endkey
  221. ' '
  222. ' '
  223. ' '
  224. ' '
  225. ' '
  226. Returnkey
  227. Downarrow
  228. * Deptcode.
  229. ' '
  230. Rightarrow
  231. Rightarrow
  232. Rightarrow
  233. 'a'
  234. 'r'
  235. Rightarrow
  236. 'm'
  237. 'e'
  238. 'n'
  239. 't'
  240. ' '
  241. Endkey
  242. Backspace
  243. Returnkey
  244. Downarrow
  245. * Salary.
  246. ' '
  247. 'C'
  248. 'u'
  249. 'r'
  250. 'r'
  251. 'e'
  252. 'n'
  253. 't'
  254. ' '
  255. Endkey
  256. Backspace
  257. Backspace
  258. Returnkey
  259. Downarrow
  260. * Startdate.
  261. ' '
  262. Rightarrow
  263. Rightarrow
  264. Rightarrow
  265. Rightarrow
  266. Rightarrow
  267. 'i'
  268. 'n'
  269. 'g'
  270. ' '
  271. Endkey
  272. ' '
  273. ' '
  274. Returnkey
  275. Downarrow
  276. * Address.
  277. ' '
  278. Endkey
  279. Backspace
  280. Backspace
  281. Returnkey
  282. Downarrow
  283. * City
  284. ' '
  285. Endkey
  286. Backspace
  287. Backspace
  288. Returnkey
  289. Downarrow
  290. * State
  291. ' '
  292. Endkey
  293. Backspace
  294. Backspace
  295. Returnkey
  296. Downarrow
  297. * Zip
  298. ' '
  299. Endkey
  300. Backspace
  301. Backspace
  302. Returnkey
  303. Downarrow
  304. * Areacode
  305. ' '
  306. Rightarrow
  307. Rightarrow
  308. Rightarrow
  309. Rightarrow
  310. Del
  311. Del
  312. Del
  313. Del
  314. Del
  315. Returnkey
  316. Downarrow
  317. * Phone.
  318. ' '
  319. Endkey
  320. Backspace
  321. Backspace
  322. Backspace
  323. Backspace
  324. Returnkey
  325. Home
  326. * SELECT and DRAG the groups.
  327. Delay( 30 )
  328. ClearBox( 2,45,5,79,112 )
  329. BoxText( 2,45 )
  330.   Next, let us SELECT and DRAG
  331.   the fields.
  332. EndText
  333. Delay( 60 )
  334. CtrlPgUp
  335. PutDelay( 2 )
  336. * DRAG Area and Phone.
  337. Endkey
  338. F6
  339. Uparrow
  340. F3
  341. CtrlRightarrow
  342. CtrlRightarrow
  343. CtrlRightarrow
  344. CtrlRightarrow
  345. CtrlRightarrow
  346. Rightarrow
  347. Uparrow
  348. Uparrow
  349. Uparrow
  350. Uparrow
  351. Uparrow
  352. Returnkey
  353. Downarrow
  354. F3
  355. CtrlRightarrow
  356. Uparrow
  357. Returnkey
  358. Delay( 10 )
  359. Endkey
  360. * DRAG Address...Phone
  361. Uparrow
  362. Uparrow
  363. Uparrow
  364. Uparrow
  365. Uparrow
  366. F6
  367. Endkey
  368. F3
  369. Downarrow
  370. Downarrow
  371. Downarrow
  372. Downarrow
  373. CtrlRightarrow
  374. Rightarrow
  375. Returnkey
  376. * DRAG Jobtitle...Startdate.
  377. Home
  378. Downarrow
  379. Downarrow
  380. F6
  381. Downarrow
  382. Downarrow
  383. Downarrow
  384. F3
  385. Downarrow
  386. Downarrow
  387. Rightarrow
  388. Rightarrow
  389. Rightarrow
  390. Rightarrow
  391. Returnkey
  392. * DRAG entire screen.
  393. Home
  394. F6
  395. Endkey
  396. F3
  397. Downarrow
  398. Downarrow
  399. Returnkey
  400. Home
  401. * Toggle Area and Phone.
  402. Delay( 40 )
  403. Color( 112 )
  404. ClearBox( 3,45,6,79,112 )
  405. BoxText( 3,45 )
  406.     Field GETs can be placed
  407.     below the field labels.
  408. EndText
  409. Delay( 60 )
  410. CtrlPgUp
  411. Delay( 10 )
  412. * Toggle Area and Phone.
  413. Endkey
  414. F6
  415. Uparrow
  416. Returnkey
  417. Delay( 15 )
  418. AltT
  419. Delay( 20 )
  420. * DRAG Phone beside Area.
  421. Downarrow
  422. F3
  423. Leftarrow
  424. Leftarrow
  425. Leftarrow
  426. Returnkey
  427. Home
  428. * Inserting Text.
  429. Delay( 30 )
  430. Color( 112 )
  431. ClearBox( 3,45,5,79,112 )
  432. BoxText( 3,45 )
  433.     We can insert free TEXT.
  434. EndText
  435. Delay( 50 )
  436. CtrlN
  437. Uparrow
  438. Uparrow
  439. PutDelay( 1 )
  440. * Add text to text object.
  441. 'E'
  442. 'M'
  443. 'P'
  444. 'L'
  445. 'O'
  446. 'Y'
  447. 'E'
  448. 'E'
  449. ' '
  450. 'D'
  451. 'A'
  452. 'T'
  453. 'A'
  454. 'B'
  455. 'A'
  456. 'S'
  457. 'E'
  458. Returnkey
  459. * Centering text.
  460. Delay( 40 )
  461. CtrlPgUp
  462. ClearBox( 3,45,5,79,112 )
  463. BoxText( 3,45 )
  464.     We can CENTER the text.
  465. EndText
  466. Delay( 50 )
  467. ClearBox( 3,45,6,79,112 )
  468. BoxText( 3,45 )
  469.    Please hold down the ALT key
  470.    and press the letter 'C'.
  471. EndText
  472. GetKey( AltC )
  473. * RESEQ.
  474. Delay( 30 )
  475. ClearBox( 3,45,5,79,112 )
  476. BoxText( 3,45 )
  477.   We can RESEQUENCE the labels.
  478. EndText
  479. Delay( 50 )
  480. ClearBox( 3,45,6,79,112 )
  481. BoxText( 3,45 )
  482.   This allows field selection
  483.   to progress by Row or Column.
  484. EndText
  485. Delay( 60 )
  486. CtrlPgUp
  487. F5
  488. Delay( 40 )
  489. 'R'
  490. * Move to Table View.
  491. Delay( 30 )
  492. ClearBox( 3,45,6,79,112 )
  493. BoxText( 3,45 )
  494.     Now, let us look at
  495.        the Table View screen.
  496. EndText
  497. Delay( 60 )
  498. CtrlPgUp
  499. ClearBox( 3,45,5,79,112 )
  500. BoxText( 3,45 )
  501.    Please press the F10 key.
  502. EndText
  503. GetKey( F10 )
  504. * Inside Table View.
  505. Delay( 20 )
  506. ClearBox( 7,23,9,58,112 )
  507. BoxText( 7,23 )
  508.   This is the Table View screen.
  509. EndText
  510. Delay( 50 )
  511. * Table introduction.
  512. ClearBox( 7,23,10,58,112 )
  513. BoxText( 7,23 )
  514.    In this view we can add
  515.    PICTURE and RANGE clauses.
  516. EndText
  517. Delay( 50 )
  518. * PICTURE.
  519. ClearBox( 7,23,10,58,112 )
  520. BoxText( 7,23 )
  521.   Let us first add the PICTURE
  522.   clauses.
  523. EndText
  524. Delay( 50 )
  525. CtrlHome
  526. PutDelay( 2 )
  527. Downarrow
  528. Downarrow
  529. Downarrow
  530. Downarrow
  531. Downarrow
  532. Rightarrow
  533. Rightarrow
  534. Rightarrow
  535. Rightarrow
  536. Rightarrow
  537. * Salary picture.
  538. ' '
  539. F1
  540. ClearBox( 10,29,13,64,112 )
  541. BoxText( 10,29 )
  542.   HELP is available for Numeric
  543.   field PICTURE clauses.
  544. EndText
  545. Delay( 60 )
  546. F1
  547. Delay( 10 )
  548. PutDelay( 2 )
  549. '9'
  550. '9'
  551. '9'
  552. ','
  553. '9'
  554. '9'
  555. '9'
  556. '.'
  557. '9'
  558. '9'
  559. PutDelay( 3 )
  560. Returnkey
  561. Downarrow
  562. Downarrow
  563. * Areacode picture.
  564. PutDelay( 1 )
  565. ' '
  566. '9'
  567. '9'
  568. '9'
  569. PutDelay( 3 )
  570. Returnkey
  571. Downarrow
  572. * Phone picture.
  573. ' '
  574. F1
  575. ClearBox( 17,29,20,64,112 )
  576. BoxText( 17,29 )
  577.   This is the HELP available
  578.   for Character fields.
  579. EndText
  580. Delay( 80 )
  581. F1
  582. Delay( 10 )
  583. PutDelay( 1 )
  584. '9'
  585. '9'
  586. '9'
  587. '-'
  588. '9'
  589. '9'
  590. '9'
  591. '9'
  592. PutDelay( 3 )
  593. Returnkey
  594. Downarrow
  595. Downarrow
  596. Downarrow
  597. * State picture.
  598. ' '
  599. PutDelay( 1 )
  600. '@'
  601. '!'
  602. 'A'
  603. PutDelay( 3 )
  604. Returnkey
  605. Downarrow
  606. * Zip picture.
  607. ' '
  608. PutDelay( 1 )
  609. '9'
  610. '9'
  611. '9'
  612. '9'
  613. '9'
  614. PutDelay( 2 )
  615. Returnkey
  616. * RANGE.
  617. Delay( 50 )
  618. ClearBox( 7,23,11,58,112 )
  619. BoxText( 7,23 )
  620.  
  621.    We can also add RANGE clauses.
  622. EndText
  623. Delay( 60 )
  624. CtrlPgUp
  625. Endkey
  626. Downarrow
  627. Downarrow
  628. Downarrow
  629. Downarrow
  630. Downarrow
  631. PutDelay( 1 )
  632. * Salary range.
  633. ' '
  634. '5'
  635. '0'
  636. '0'
  637. '0'
  638. ','
  639. '2'
  640. '5'
  641. '0'
  642. '0'
  643. '0'
  644. '0'
  645. Returnkey
  646. Downarrow
  647. * Startdate range.
  648. ' '
  649. 'C'
  650. 'T'
  651. 'O'
  652. 'D'
  653. '('
  654. '"'
  655. '0'
  656. '5'
  657. '/'
  658. '1'
  659. '5'
  660. '/'
  661. '8'
  662. '2'
  663. '"'
  664. ')'
  665. ','
  666. 'D'
  667. 'A'
  668. 'T'
  669. 'E'
  670. '('
  671. ')'
  672. Returnkey
  673. PutDelay( 0 )
  674. * CODE generation.
  675. Delay( 30 )
  676. ClearBox( 7,23,10,58,112 )
  677. BoxText( 7,23 )
  678.    We are now ready to generate
  679.    the dBASE III programs.
  680. EndText
  681. Delay( 70 )
  682. CtrlHome
  683. ScrollLock
  684. ClearBox( 8,41,12,75,112 )
  685. BoxText( 8,41 )
  686.   We select ViewGen Programs
  687.   (from the Gen pull-down menu)
  688.   and enter a filename.
  689. EndText
  690. Delay( 80 )
  691. Returnkey
  692. ClearBox( 8,41,12,75,112 )
  693. BoxText( 8,41 )
  694.    Please TYPE the following
  695.    filename:
  696.               DEMO
  697. EndText
  698. * Generate ViewGen Programs.
  699. GetChar( 'D' )
  700. GetChar( 'E' )
  701. GetChar( 'M' )
  702. GetChar( 'O' )
  703. Delay( 3 )
  704. ClearBox( 8,41,12,73,112 )
  705. BoxText( 8,41 )
  706.  
  707.    Now, press the RETURN key.
  708. EndText
  709. GetKey( Returnkey )
  710. Delay( 10 )
  711. ScrollLock
  712. Delay( 8 )
  713. ClearBox( 6,10,16,70,112 )
  714. BoxText( 6,10 )
  715.     ViewGen has just created a DATA ENTRY application
  716.     complete with the screen we designed in Forms View
  717.     and the PICTURE and RANGE clauses we entered in
  718.     Table View.  The dBASE III programs generated are
  719.     Demo.PRG (main program) and several small programs
  720.     beginning with DEM_ followed by the function name
  721.     (PROC, MENU, APPE, EDIT, HELP, LABE, PACK, & REPO).
  722.  
  723.                Press RETURN to continue.
  724. EndText
  725. GetKey( Returnkey )
  726. CtrlHome
  727. ClearBox( 7,23,9,53,112 )
  728. BoxText( 7,23 )
  729.    We will now QUIT ViewGen.
  730. EndText
  731. Delay( 40 )
  732. CtrlHome
  733. ScrollLock
  734. PutDelay( 10 )
  735. Leftarrow
  736. Delay( 10 )
  737. Endkey
  738. ClearBox( 7,32,9,66,112 )
  739. BoxText( 7,32 )
  740.    Please TYPE the letter 'Q'.
  741. EndText
  742. GetChar( 'Q' )
  743. PutDelay( 0 )
  744. 'N'
  745. ClearBox( 7,23,9,58,112 )
  746. BoxText( 7,23 )
  747.    Finally, TYPE the letter 'Y'.
  748. EndText
  749. GetChar( 'Y' )
  750. *
  751. *
  752. *
  753. *
  754. *
  755. *
  756.