home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / VIEWGEN.ARC / DEMOQUIK.VGT < prev    next >
Encoding:
Text File  |  1985-08-22  |  6.4 KB  |  544 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. Returnkey
  21. Delay( 10 )
  22. * ---FORMS VIEW.
  23. Delay( 10 )
  24. ClearBox( 2,45,6,79,112 )
  25. Color( 112 )
  26. BoxText( 2,45 )
  27.  
  28.   This is the Forms View screen.
  29. EndText
  30. Delay( 30 )
  31. CtrlPgUp
  32. ClearBox( 2,50,12,79,112 )
  33. BoxText( 2,50 )
  34.   In Forms View you can:
  35.  
  36.         EDIT,
  37.         SELECT,
  38.         DRAG,
  39.         Toggle,
  40.         Insert TEXT,
  41.         Center, and
  42.         RESEQUENCE
  43. EndText
  44. Delay( 100 )
  45. CtrlPgUp
  46. ClearBox( 2,45,6,79,112 )
  47. BoxText( 2,45 )
  48.  
  49.   First, let us EDIT the fields.
  50. EndText
  51. Delay( 40 )
  52. PutDelay( 3 )
  53. CtrlPgUp
  54. * Firstname.
  55. ' '
  56. Rightarrow
  57. Rightarrow
  58. Rightarrow
  59. Rightarrow
  60. Rightarrow
  61. ' '
  62. Returnkey
  63. Downarrow
  64. PutDelay( 1 )
  65. * Lastname.
  66. ' '
  67. Rightarrow
  68. Rightarrow
  69. Rightarrow
  70. Rightarrow
  71. ' '
  72. Returnkey
  73. Downarrow
  74. * Jobtitle.
  75. ' '
  76. Rightarrow
  77. Rightarrow
  78. Rightarrow
  79. ' '
  80. Endkey
  81. ' '
  82. ' '
  83. ' '
  84. ' '
  85. ' '
  86. Returnkey
  87. Downarrow
  88. * Deptcode.
  89. ' '
  90. Rightarrow
  91. Rightarrow
  92. Rightarrow
  93. 'a'
  94. 'r'
  95. Rightarrow
  96. 'm'
  97. 'e'
  98. 'n'
  99. 't'
  100. ' '
  101. Endkey
  102. Backspace
  103. Returnkey
  104. Downarrow
  105. * Salary.
  106. ' '
  107. 'C'
  108. 'u'
  109. 'r'
  110. 'r'
  111. 'e'
  112. 'n'
  113. 't'
  114. ' '
  115. Endkey
  116. Backspace
  117. Backspace
  118. Returnkey
  119. Downarrow
  120. * Startdate.
  121. ' '
  122. Rightarrow
  123. Rightarrow
  124. Rightarrow
  125. Rightarrow
  126. Rightarrow
  127. 'i'
  128. 'n'
  129. 'g'
  130. ' '
  131. Endkey
  132. ' '
  133. ' '
  134. Returnkey
  135. Downarrow
  136. * Address.
  137. ' '
  138. Endkey
  139. Backspace
  140. Backspace
  141. Returnkey
  142. Downarrow
  143. * City
  144. ' '
  145. Endkey
  146. Backspace
  147. Backspace
  148. Returnkey
  149. Downarrow
  150. * State
  151. ' '
  152. Endkey
  153. Backspace
  154. Backspace
  155. Returnkey
  156. Downarrow
  157. * Zip
  158. ' '
  159. Endkey
  160. Backspace
  161. Backspace
  162. Returnkey
  163. Downarrow
  164. * Areacode
  165. ' '
  166. Rightarrow
  167. Rightarrow
  168. Rightarrow
  169. Rightarrow
  170. Del
  171. Del
  172. Del
  173. Del
  174. Del
  175. Returnkey
  176. Downarrow
  177. * Phone.
  178. ' '
  179. Endkey
  180. Backspace
  181. Backspace
  182. Backspace
  183. Backspace
  184. Returnkey
  185. Home
  186. * SELECT and DRAG the groups.
  187. Delay( 10 )
  188. ClearBox( 2,45,5,79,112 )
  189. BoxText( 2,45 )
  190.   Next, let us SELECT and DRAG
  191.   the fields.
  192. EndText
  193. Delay( 40 )
  194. CtrlPgUp
  195. PutDelay( 2 )
  196. * DRAG Area and Phone.
  197. Endkey
  198. F6
  199. Uparrow
  200. F3
  201. CtrlRightarrow
  202. CtrlRightarrow
  203. CtrlRightarrow
  204. CtrlRightarrow
  205. CtrlRightarrow
  206. Rightarrow
  207. Uparrow
  208. Uparrow
  209. Uparrow
  210. Uparrow
  211. Uparrow
  212. Returnkey
  213. Downarrow
  214. F3
  215. CtrlRightarrow
  216. Uparrow
  217. Returnkey
  218. Delay( 10 )
  219. Endkey
  220. * DRAG Address...Phone
  221. Uparrow
  222. Uparrow
  223. Uparrow
  224. Uparrow
  225. Uparrow
  226. F6
  227. Endkey
  228. F3
  229. Downarrow
  230. Downarrow
  231. Downarrow
  232. Downarrow
  233. CtrlRightarrow
  234. Rightarrow
  235. Returnkey
  236. * DRAG Jobtitle...Startdate.
  237. Home
  238. Downarrow
  239. Downarrow
  240. F6
  241. Downarrow
  242. Downarrow
  243. Downarrow
  244. F3
  245. Downarrow
  246. Downarrow
  247. Rightarrow
  248. Rightarrow
  249. Rightarrow
  250. Rightarrow
  251. Returnkey
  252. * DRAG entire screen.
  253. Home
  254. F6
  255. Endkey
  256. F3
  257. Downarrow
  258. Downarrow
  259. Returnkey
  260. Home
  261. * Toggle Area and Phone.
  262. Delay( 20 )
  263. ClearBox( 3,45,6,79,112 )
  264. BoxText( 3,45 )
  265.     Field GETs can be placed
  266.     below the field labels.
  267. EndText
  268. Delay( 40 )
  269. CtrlPgUp
  270. Delay( 10 )
  271. * Toggle Area and Phone.
  272. Endkey
  273. F6
  274. Uparrow
  275. Returnkey
  276. Delay( 15 )
  277. AltT
  278. Delay( 20 )
  279. * DRAG Phone beside Area.
  280. Downarrow
  281. F3
  282. Leftarrow
  283. Leftarrow
  284. Leftarrow
  285. Returnkey
  286. Home
  287. * Inserting Text.
  288. Delay( 15 )
  289. ClearBox( 3,45,5,79,112 )
  290. BoxText( 3,45 )
  291.     We can insert free TEXT.
  292. EndText
  293. Delay( 30 )
  294. CtrlN
  295. Uparrow
  296. Uparrow
  297. PutDelay( 1 )
  298. * Add text to text object.
  299. 'E'
  300. 'M'
  301. 'P'
  302. 'L'
  303. 'O'
  304. 'Y'
  305. 'E'
  306. 'E'
  307. ' '
  308. 'D'
  309. 'A'
  310. 'T'
  311. 'A'
  312. 'B'
  313. 'A'
  314. 'S'
  315. 'E'
  316. Returnkey
  317. * Centering text.
  318. Delay( 20 )
  319. CtrlPgUp
  320. ClearBox( 3,45,5,79,112 )
  321. BoxText( 3,45 )
  322.     We can CENTER the text.
  323. EndText
  324. Delay( 30 )
  325. AltC
  326. * RESEQUENCE.
  327. Delay( 20 )
  328. ClearBox( 3,45,5,79,112 )
  329. BoxText( 3,45 )
  330.   We can RESEQUENCE the labels.
  331. EndText
  332. Delay( 30 )
  333. ClearBox( 3,45,6,79,112 )
  334. BoxText( 3,45 )
  335.   This allows field selection
  336.   to progress by Row or Column.
  337. EndText
  338. Delay( 30 )
  339. CtrlPgUp
  340. F5
  341. Delay( 20 )
  342. 'R'
  343. * Move to Table View.
  344. Delay( 20 )
  345. ClearBox( 3,45,6,79,112 )
  346. BoxText( 3,45 )
  347.    Now, let us look at
  348.        the Table View screen.
  349. EndText
  350. Delay( 50 )
  351. F10
  352. Delay( 10 )
  353. * Inside Table View, introduction.
  354. ClearBox( 7,23,10,58,112 )
  355. BoxText( 7,23 )
  356.    In this view we can add
  357.    PICTURE and RANGE clauses.
  358. EndText
  359. Delay( 40 )
  360. * PICTURE.
  361. ClearBox( 7,23,10,58,112 )
  362. BoxText( 7,23 )
  363.   Let us first add the PICTURE
  364.   clauses.
  365. EndText
  366. Delay( 40 )
  367. CtrlHome
  368. PutDelay( 2 )
  369. Downarrow
  370. Downarrow
  371. Downarrow
  372. Downarrow
  373. Downarrow
  374. Rightarrow
  375. Rightarrow
  376. Rightarrow
  377. Rightarrow
  378. Rightarrow
  379. PutDelay( 2 )
  380. * Salary picture.
  381. ' '
  382. '9'
  383. '9'
  384. '9'
  385. ','
  386. '9'
  387. '9'
  388. '9'
  389. '.'
  390. '9'
  391. '9'
  392. PutDelay( 2 )
  393. Returnkey
  394. Downarrow
  395. Downarrow
  396. * Areacode picture.
  397. PutDelay( 1 )
  398. ' '
  399. '9'
  400. '9'
  401. '9'
  402. PutDelay( 2 )
  403. Returnkey
  404. Downarrow
  405. PutDelay( 1 )
  406. * Phone picture.
  407. ' '
  408. '9'
  409. '9'
  410. '9'
  411. '-'
  412. '9'
  413. '9'
  414. '9'
  415. '9'
  416. PutDelay( 2 )
  417. Returnkey
  418. Downarrow
  419. Downarrow
  420. Downarrow
  421. * State picture.
  422. ' '
  423. PutDelay( 1 )
  424. '@'
  425. '!'
  426. 'A'
  427. PutDelay( 2 )
  428. Returnkey
  429. Downarrow
  430. * Zip picture.
  431. ' '
  432. PutDelay( 1 )
  433. '9'
  434. '9'
  435. '9'
  436. '9'
  437. '9'
  438. PutDelay( 2 )
  439. Returnkey
  440. * RANGE.
  441. Delay( 30 )
  442. ClearBox( 7,23,11,58,112 )
  443. BoxText( 7,23 )
  444.  
  445.    We can also add RANGE clauses.
  446. EndText
  447. Delay( 40 )
  448. CtrlPgUp
  449. Endkey
  450. Downarrow
  451. Downarrow
  452. Downarrow
  453. Downarrow
  454. Downarrow
  455. PutDelay( 1 )
  456. * Salary range.
  457. ' '
  458. '5'
  459. '0'
  460. '0'
  461. '0'
  462. ','
  463. '2'
  464. '5'
  465. '0'
  466. '0'
  467. '0'
  468. '0'
  469. Returnkey
  470. Downarrow
  471. * Startdate range.
  472. ' '
  473. 'C'
  474. 'T'
  475. 'O'
  476. 'D'
  477. '('
  478. '"'
  479. '0'
  480. '5'
  481. '/'
  482. '1'
  483. '5'
  484. '/'
  485. '8'
  486. '2'
  487. '"'
  488. ')'
  489. ','
  490. 'D'
  491. 'A'
  492. 'T'
  493. 'E'
  494. '('
  495. ')'
  496. Returnkey
  497. PutDelay( 0 )
  498. * CODE generation.
  499. Delay( 20 )
  500. ClearBox( 7,23,10,58,112 )
  501. BoxText( 7,23 )
  502.    We are now ready to generate
  503.    the dBASE III programs.
  504. EndText
  505. Delay( 50 )
  506. CtrlHome
  507. ScrollLock
  508. Delay( 10 )
  509. PutDelay( 5 )
  510. Returnkey
  511. 'D'
  512. 'E'
  513. 'M'
  514. 'O'
  515. * Start generating.
  516. Delay( 10 )
  517. PutDelay( 0 )
  518. Returnkey
  519. Delay( 10 )
  520. ScrollLock
  521. Delay( 10 )
  522. ClearBox( 7,23,9,53,112 )
  523. BoxText( 7,23 )
  524.   We will now QUIT ViewGen.
  525. EndText
  526. Delay( 50 )
  527. CtrlHome
  528. ScrollLock
  529. PutDelay( 10 )
  530. Leftarrow
  531. Delay( 10 )
  532. Endkey
  533. 'Q'
  534. PutDelay( 1 )
  535. 'N'
  536. PutDelay( 10 )
  537. 'Y'
  538. *
  539. *
  540. *
  541. *
  542. *
  543. *
  544.