home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / VIEWGEN.ARC / DEMOTUTR.VGT < prev    next >
Encoding:
Text File  |  1985-09-04  |  12.4 KB  |  818 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( 30 )
  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( 60 )
  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( 40 )
  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( 40 )
  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. BoxText( 12,38 )
  96.  
  97.       Please press the F1 key.
  98. EndText
  99. GetKey( F1 )
  100. Delay( 30 )
  101. * In HELP table of contents.
  102. ClearBox( 9,20,15,60,112 )
  103. BoxText( 9,20 )
  104.  
  105.    We can view the Table of Contents
  106.    by pressing the F1 key a second
  107.    time.
  108. EndText
  109. Delay( 40 )
  110. ClearBox( 9,20,15,60,112 )
  111. BoxText( 9,20 )
  112.  
  113.  
  114.        Press the F1 key again.
  115. EndText
  116. GetKey( F1 )
  117. Delay( 30 )
  118. * Examples.
  119. ClearBox( 15,19,20,62,112 )
  120. BoxText( 15,20 )
  121.    We will look at one other HELP
  122.    screen by pressing the down arrow
  123.    twice and then the RETURN key.
  124. EndText
  125. Delay( 50 )
  126. PutDelay( 10 )
  127. Downarrow
  128. Downarrow
  129. Delay( 15 )
  130. Returnkey
  131. Delay( 50 )
  132. Esc
  133. * Exit to Forms View.
  134. ClearBox( 12,38,16,76,112 )
  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( 50 )
  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( 50 )
  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( 15 )
  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( 30 )
  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( 80 )
  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( 70 )
  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. ClearBox( 2,45,6,79,112 )
  247. BoxText( 2,45 )
  248.   Please press the SPACEBAR and
  249.   TYPE the word:
  250.            Current
  251. EndText
  252. GetChar( ' ' )
  253. GetChar( 'C' )
  254. GetChar( 'u' )
  255. GetChar( 'r' )
  256. GetChar( 'r' )
  257. GetChar( 'e' )
  258. GetChar( 'n' )
  259. GetChar( 't' )
  260. ' '
  261. Endkey
  262. Backspace
  263. Backspace
  264. Returnkey
  265. Downarrow
  266. * Startdate.
  267. ' '
  268. Rightarrow
  269. Rightarrow
  270. Rightarrow
  271. Rightarrow
  272. Rightarrow
  273. 'i'
  274. 'n'
  275. 'g'
  276. ' '
  277. Endkey
  278. ' '
  279. ' '
  280. Returnkey
  281. Downarrow
  282. * Address.
  283. ClearBox( 2,45,5,79,112 )
  284. BoxText( 2,45 )
  285.   Please press the SPACEBAR and
  286.   then press the END key.
  287. EndText
  288. GetChar( ' ' )
  289. GetKey( Endkey )
  290. ClearBox( 2,45,5,79,112 )
  291. BoxText( 2,45 )
  292.   Now, press the BACKSPACE key
  293.   twice, then the RETURN key.
  294. EndText
  295. GetKey( Backspace )
  296. GetKey( Backspace )
  297. GetKey( Returnkey )
  298. Downarrow
  299. * City
  300. ' '
  301. Endkey
  302. Backspace
  303. Backspace
  304. Returnkey
  305. Downarrow
  306. * State
  307. ' '
  308. Endkey
  309. Backspace
  310. Backspace
  311. Returnkey
  312. Downarrow
  313. * Zip
  314. ' '
  315. Endkey
  316. Backspace
  317. Backspace
  318. Returnkey
  319. Downarrow
  320. * Areacode
  321. ' '
  322. Rightarrow
  323. Rightarrow
  324. Rightarrow
  325. Rightarrow
  326. Del
  327. Del
  328. Del
  329. Del
  330. Del
  331. Returnkey
  332. Downarrow
  333. * Phone.
  334. ' '
  335. Endkey
  336. Backspace
  337. Backspace
  338. Backspace
  339. Backspace
  340. Returnkey
  341. Home
  342. * SELECT and DRAG the groups.
  343. Delay( 30 )
  344. ClearBox( 2,45,5,79,112 )
  345. BoxText( 2,45 )
  346.   Next, let us SELECT and DRAG
  347.   the fields.
  348. EndText
  349. Delay( 70 )
  350. CtrlPgUp
  351. PutDelay( 2 )
  352. * DRAG Area and Phone.
  353. Endkey
  354. Uparrow
  355. ClearBox( 2,45,5,79,112 )
  356. BoxText( 2,45 )
  357.    Press the F6 key to EXTEND
  358.    SELECT the next field.
  359. EndText
  360. GetKey( F6 )
  361. ClearBox( 2,45,6,79,112 )
  362. BoxText( 2,45 )
  363.   Now, press the down arrow
  364.   and the RETURN key to finish
  365.   (be sure NumLock is OFF).
  366. EndText
  367. GetKey( Downarrow )
  368. GetKey( Returnkey )
  369. ClearBox( 2,45,6,79,112 )
  370. BoxText( 2,45 )
  371.    To DRAG the selected fields
  372.    we use the F3 key.  Please
  373.    press the F3 key.
  374. EndText
  375. GetKey( F3 )
  376. CtrlPgUp
  377. ClearBox( 2,45,5,79,112 )
  378. BoxText( 2,45 )
  379.   Now, hold down the CTRL key and
  380.   press the right arrow 5 times.
  381. EndText
  382. GetKey( CtrlRightarrow )
  383. GetKey( CtrlRightarrow )
  384. GetKey( CtrlRightarrow )
  385. GetKey( CtrlRightarrow )
  386. GetKey( CtrlRightarrow )
  387. Rightarrow
  388. Uparrow
  389. Uparrow
  390. Uparrow
  391. Uparrow
  392. Uparrow
  393. Returnkey
  394. Downarrow
  395. F3
  396. CtrlRightarrow
  397. Uparrow
  398. Returnkey
  399. Delay( 10 )
  400. Endkey
  401. * DRAG Address...Phone
  402. Uparrow
  403. Uparrow
  404. Uparrow
  405. Uparrow
  406. Uparrow
  407. F6
  408. Endkey
  409. F3
  410. Downarrow
  411. Downarrow
  412. Downarrow
  413. Downarrow
  414. CtrlRightarrow
  415. Rightarrow
  416. Returnkey
  417. * DRAG Jobtitle...Startdate.
  418. Home
  419. Downarrow
  420. Downarrow
  421. F6
  422. Downarrow
  423. Downarrow
  424. Downarrow
  425. F3
  426. Downarrow
  427. Downarrow
  428. Rightarrow
  429. Rightarrow
  430. Rightarrow
  431. Rightarrow
  432. Returnkey
  433. * DRAG entire screen.
  434. Home
  435. F6
  436. Endkey
  437. F3
  438. Downarrow
  439. Downarrow
  440. Returnkey
  441. Home
  442. * Toggle Area and Phone.
  443. Delay( 50 )
  444. Color( 112 )
  445. ClearBox( 3,45,6,79,112 )
  446. BoxText( 3,45 )
  447.     Field GETs can be placed
  448.     below the field labels.
  449. EndText
  450. Delay( 70 )
  451. CtrlPgUp
  452. Delay( 10 )
  453. * Toggle Area and Phone.
  454. Endkey
  455. F6
  456. Uparrow
  457. Returnkey
  458. Delay( 15 )
  459. ClearBox( 3,45,6,79,112 )
  460. BoxText( 3,45 )
  461.     Hold down the ALT key and
  462.     press the letter 'T'.
  463. EndText
  464. GetKey( AltT )
  465. Delay( 20 )
  466. * DRAG Phone beside Area.
  467. Downarrow
  468. F3
  469. Leftarrow
  470. Leftarrow
  471. Leftarrow
  472. Returnkey
  473. Home
  474. * Inserting Text.
  475. Delay( 30 )
  476. Color( 112 )
  477. ClearBox( 3,45,5,79,112 )
  478. BoxText( 3,45 )
  479.     We can insert free TEXT.
  480. EndText
  481. Delay( 50 )
  482. ClearBox( 3,45,6,79,112 )
  483. BoxText( 3,45 )
  484.     Hold down the CTRL key and
  485.     press the letter 'N'.
  486. EndText
  487. GetKey( CtrlN )
  488. Uparrow
  489. Uparrow
  490. PutDelay( 1 )
  491. * Add text to text object.
  492. ClearBox( 3,45,6,79,112 )
  493. BoxText( 3,45 )
  494.     Please enter the word:
  495.         EMPLOYEE
  496. EndText
  497. GetChar( 'E' )
  498. ClearBox( 3,45,6,79,112 )
  499. BoxText( 3,45 )
  500.     Please enter the word:
  501.         EMPLOYEE
  502. EndText
  503. GetChar( 'M' )
  504. GetChar( 'P' )
  505. GetChar( 'L' )
  506. GetChar( 'O' )
  507. GetChar( 'Y' )
  508. GetChar( 'E' )
  509. GetChar( 'E' )
  510. ' '
  511. 'D'
  512. 'A'
  513. 'T'
  514. 'A'
  515. 'B'
  516. 'A'
  517. 'S'
  518. 'E'
  519. Returnkey
  520. * Centering text.
  521. Delay( 40 )
  522. CtrlPgUp
  523. ClearBox( 3,45,5,79,112 )
  524. BoxText( 3,45 )
  525.     We can CENTER the text.
  526. EndText
  527. Delay( 50 )
  528. ClearBox( 3,45,6,79,112 )
  529. BoxText( 3,45 )
  530.    Hold down the ALT key and
  531.    press the letter 'C'.
  532. EndText
  533. GetKey( AltC )
  534. * RESEQ.
  535. Delay( 30 )
  536. ClearBox( 3,45,5,79,112 )
  537. BoxText( 3,45 )
  538.   We can RESEQUENCE the labels.
  539. EndText
  540. Delay( 50 )
  541. ClearBox( 3,45,6,79,112 )
  542. BoxText( 3,45 )
  543.   This allows field selection
  544.   to progress by Row or Column.
  545. EndText
  546. Delay( 70 )
  547. CtrlPgUp
  548. ClearBox( 3,45,5,79,112 )
  549. BoxText( 3,45 )
  550.   Press the F5 key to RESEQUENCE.
  551. EndText
  552. GetKey( F5 )
  553. ClearBox( 3,45,5,79,112 )
  554. BoxText( 3,45 )
  555.    Now, press the letter 'R'.
  556. EndText
  557. GetChar( 'R' )
  558. * Move to Table View.
  559. Delay( 30 )
  560. ClearBox( 3,45,6,79,112 )
  561. BoxText( 3,45 )
  562.     Now, let us look at
  563.        the Table View screen.
  564. EndText
  565. Delay( 70 )
  566. CtrlPgUp
  567. ClearBox( 3,45,5,79,112 )
  568. BoxText( 3,45 )
  569.    Please press the F10 key.
  570. EndText
  571. GetKey( F10 )
  572. * Inside Table View.
  573. Delay( 20 )
  574. ClearBox( 7,23,9,58,112 )
  575. BoxText( 7,23 )
  576.   This is the Table View screen.
  577. EndText
  578. Delay( 30 )
  579. * Table introduction.
  580. ClearBox( 7,23,10,58,112 )
  581. BoxText( 7,23 )
  582.    In this view we can add
  583.    PICTURE and RANGE clauses.
  584. EndText
  585. Delay( 50 )
  586. * PICTURE.
  587. ClearBox( 7,23,10,58,112 )
  588. BoxText( 7,23 )
  589.   Let us first add the PICTURE
  590.   clauses.
  591. EndText
  592. Delay( 50 )
  593. CtrlHome
  594. PutDelay( 2 )
  595. Downarrow
  596. Downarrow
  597. Downarrow
  598. Downarrow
  599. Downarrow
  600. Rightarrow
  601. Rightarrow
  602. Rightarrow
  603. Rightarrow
  604. Rightarrow
  605. PutDelay( 2 )
  606. * Salary picture.
  607. ' '
  608. PutDelay( 2 )
  609. '9'
  610. '9'
  611. '9'
  612. ','
  613. '9'
  614. '9'
  615. '9'
  616. '.'
  617. '9'
  618. '9'
  619. PutDelay( 3 )
  620. Returnkey
  621. Downarrow
  622. Downarrow
  623. * Areacode picture.
  624. ' '
  625. '9'
  626. '9'
  627. '9'
  628. PutDelay( 3 )
  629. Returnkey
  630. Downarrow
  631. * Phone picture.
  632. PutDelay( 1 )
  633. ' '
  634. '9'
  635. '9'
  636. '9'
  637. '-'
  638. '9'
  639. '9'
  640. '9'
  641. '9'
  642. PutDelay( 3 )
  643. Returnkey
  644. Downarrow
  645. Downarrow
  646. Downarrow
  647. * State picture.
  648. ' '
  649. PutDelay( 1 )
  650. '@'
  651. '!'
  652. 'A'
  653. PutDelay( 3 )
  654. Returnkey
  655. Downarrow
  656. * Zip picture.
  657. ClearBox( 7,23,10,58,112 )
  658. BoxText( 7,23 )
  659.     Please press the SPACEBAR
  660.     and enter five '9's.
  661. EndText
  662. GetChar( ' ' )
  663. GetChar( '9' )
  664. GetChar( '9' )
  665. GetChar( '9' )
  666. GetChar( '9' )
  667. GetChar( '9' )
  668. ClearBox( 7,23,11,58,112 )
  669. BoxText( 7,23 )
  670.  
  671.     Now, press the RETURN key.
  672. EndText
  673. GetKey( Returnkey )
  674. ClearBox( 7,23,11,58,112 )
  675. * RANGE clause.
  676. BoxText( 7,23 )
  677.  
  678.    We can also add RANGE clauses.
  679. EndText
  680. Delay( 50 )
  681. CtrlPgUp
  682. Endkey
  683. Downarrow
  684. Downarrow
  685. Downarrow
  686. Downarrow
  687. Downarrow
  688. PutDelay( 1 )
  689. * Salary range.
  690. ' '
  691. '5'
  692. '0'
  693. '0'
  694. '0'
  695. ','
  696. '2'
  697. '5'
  698. '0'
  699. '0'
  700. '0'
  701. '0'
  702. Returnkey
  703. Downarrow
  704. * Startdate range.
  705. ' '
  706. 'C'
  707. 'T'
  708. 'O'
  709. 'D'
  710. '('
  711. '"'
  712. '0'
  713. '5'
  714. '/'
  715. '1'
  716. '5'
  717. '/'
  718. '8'
  719. '2'
  720. '"'
  721. ')'
  722. ','
  723. 'D'
  724. 'A'
  725. 'T'
  726. 'E'
  727. '('
  728. ')'
  729. Returnkey
  730. PutDelay( 0 )
  731. * CODE generation.
  732. Delay( 30 )
  733. ClearBox( 7,23,10,58,112 )
  734. BoxText( 7,23 )
  735.    We are now ready to generate
  736.    the dBASE III programs.
  737. EndText
  738. Delay( 60 )
  739. CtrlHome
  740. ClearBox( 7,23,10,58,112 )
  741. BoxText( 7,23 )
  742.     First, we will press the
  743.     ScrollLock key.
  744. EndText
  745. Delay( 60 )
  746. CtrlHome
  747. ScrollLock
  748. ClearBox( 8,41,12,75,112 )
  749. BoxText( 8,41 )
  750.   We select ViewGen Programs
  751.   (from the Gen pull-down menu)
  752.   and enter a filename.
  753. EndText
  754. Delay( 80 )
  755. Returnkey
  756. ClearBox( 8,41,12,75,112 )
  757. BoxText( 8,41 )
  758.    Please TYPE the following
  759.    filename:
  760.               DEMO
  761. EndText
  762. * Generate ViewGen Programs.
  763. GetChar( 'D' )
  764. GetChar( 'E' )
  765. GetChar( 'M' )
  766. GetChar( 'O' )
  767. Delay( 3 )
  768. ClearBox( 8,41,12,73,112 )
  769. BoxText( 8,41 )
  770.  
  771.    Now, press the RETURN key.
  772. EndText
  773. GetKey( Returnkey )
  774. Delay( 10 )
  775. ScrollLock
  776. ClearBox( 7,23,9,53,112 )
  777. BoxText( 7,23 )
  778.   We will now QUIT ViewGen.
  779. EndText
  780. Delay( 50 )
  781. CtrlHome
  782. ClearBox( 8,23,11,58,112 )
  783. BoxText( 8,23 )
  784.   First, we must
  785.     press the ScrollLock key.
  786. EndText
  787. Delay( 50 )
  788. CtrlHome
  789. ScrollLock
  790. PutDelay( 10 )
  791. ClearBox( 8,41,12,75,112 )
  792. BoxText( 8,41 )
  793.  
  794.    Please press the left arrow.
  795. EndText
  796. GetKey( Leftarrow )
  797. Delay( 10 )
  798. Endkey
  799. ClearBox( 7,32,9,66,112 )
  800. BoxText( 7,32 )
  801.    Now, press the letter 'Q'.
  802. EndText
  803. GetChar( 'Q' )
  804. PutDelay( 1 )
  805. 'N'
  806. PutDelay( 15 )
  807. ClearBox( 8,23,10,58,112 )
  808. BoxText( 8,23 )
  809.    Finally, press the letter 'Y'.
  810. EndText
  811. GetChar( 'Y' )
  812. *
  813. *
  814. *
  815. *
  816. *
  817. *
  818.