home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / fxpaint2.zip / FILE_IO.FXP (.txt) < prev    next >
MS Visual FoxPro App  |  1991-09-19  |  28KB  |  715 lines
  1. Demonstration Copy ..... Do you want to complete an order form (Y/N) ?
  2. Select a Screen:
  3. APPEND
  4. MODIFY
  5. DELETE
  6. RECALL
  7. INDEX
  8. SEARCH
  9. CUSTOM
  10. SEARCH
  11. NARRATIVE
  12. SEARCH
  13. SEARCH
  14. MSCRNNM
  15. MJUNK
  16. ORDER
  17. MPAGENO
  18. MNOPAGES
  19. EMBLANK
  20. 6MVALDATA
  21. MFLDNAM
  22. MOLDVAR
  23. VMDATACHGD
  24. MLNGROUP
  25. MLOCEXP
  26. GMEM_CNT
  27. NGMEXCAL
  28. MDOS_FILE
  29. MEM_FLD
  30. q'MALSNAME
  31. MDELREC
  32. MREADKEY
  33. MLASTKEY
  34. MFLDNO
  35. FMOKTOFILE
  36. MMATCRIT
  37. MRECALL
  38. MSCHBY
  39. +MGLB_NO
  40. SCH_DEF
  41. qNORMGET
  42. NORMSAY
  43. FMTIMEOUT
  44. FMTIMEUP
  45. MCURSELECTMTAGFLD
  46. MSCRTITLE
  47. MUPDREC
  48. MFLINE
  49. MKEYLABEL
  50. MSQL_NO
  51. MSQL_CNT
  52. M_MODE
  53. CLOCK_ON
  54. BORDCOL
  55. ]MF_KEY
  56. MF_GLB
  57. FSCR_NAME
  58. FREL_VARS
  59. FMAT_DOT
  60. WSETUP
  61. MBARROW
  62. MBARCOL
  63. MOLDPAGE
  64. DISP_IMG
  65. DISPLAY
  66. FMODE_CHC
  67. PB_MAIN
  68. UPDATE
  69. SEARCH
  70. MCURREC
  71. LIST_DBF
  72. APPEND
  73. &mfldnam = SPACE(mfldwid)
  74. &mfldnam = 0
  75. &mfldnam = {  /  /  }
  76. &mfldnam  = .F.
  77. &mfldnam = EVALUATE(ministr)
  78. &mfldnam = IIF(fldtyp = 'C',PADR(EVALUATE(mfldnam),fldwid),EVALUATE(mfldnam))
  79. MODIFY
  80. You Cannot Modify Records Tagged for Deletion !
  81. SEARCH
  82. &mfldnam = SPACE(mfldwid)
  83. &mfldnam = 0
  84. &mfldnam = {  /  /  }
  85. &mfldnam  = .F.
  86. mvar(mtagno) = &mfldnam
  87. Match Left-Justified
  88. Match Sub-Strings   
  89. Match Soundex Values
  90. DELETE
  91. RECALL
  92. Are You Sure (Y/N) ?
  93. APPEND SEARCH
  94. Changes Will be Lost ! ... Are You Sure (Y/N) ?
  95. SETUP
  96. TEMPLATE
  97. MEXCAL
  98. MDELREC
  99. MRECALL
  100. EMDATACHGD
  101. M_MODE
  102. M_SRCH
  103. MBLANK
  104. VMPAGENO
  105. MDOS_FILE
  106. MALSNAME
  107. GMLOCK
  108. GLOCK_FIL
  109. MUPDREC
  110. MTOPREC
  111. 'MFLDNAM
  112. FLDNAM
  113. MFLDTYP
  114. FLDTYP
  115. MFLDWID
  116. FFLDWID
  117. FLDINI
  118. MINISTR
  119. MINITSYM
  120. +MNOPAGES
  121. MJUNK
  122. qLOCK_REC
  123. MTEMP_CNT
  124. FMTAGNO
  125. MMATCRIT
  126. TMTAGFLD
  127. MMATTYP
  128. MEXECPS
  129. MKEYLABEL
  130. MCALC_SYM
  131. MREADKEY
  132. MLASTKEY
  133. MOLDPAGE
  134. DISP_IMG
  135. DISPLAY
  136. ]ONKEYS
  137. MTIMEOUT
  138. MTIMEUP
  139. MEXIT
  140. WRITE_REC
  141. BLD_SRCH
  142. [ SOFTKEYS ]
  143. DO fparse WITH &mparstr
  144. [Alt-N]: Narrative
  145. APPEND MODIFY
  146. [Ctl-W]: Save Record
  147. SEARCH
  148. CUSTOM
  149. [Ctl-W]: Begin Search
  150. DO fparse WITH &mparstr
  151. &mseek_var = EVALUATE(mf5lkp)
  152. &mseek_var = IIF(TYPE('&mseek_var') = 'C',PADR(EVALUATE(mseek_var),template->fldwid),&mseek_var)
  153. DO fparse WITH &mparstr
  154. DO (mfdo) WITH &mfpstr
  155. MFKEYNO
  156. MQUERY
  157. TEMPLATE
  158. MSEEK_VAR
  159. MTOPREC
  160. EMPAGENO
  161. FLDNAM
  162. MF_KEY
  163. SCH_DEF
  164. VFKEYS
  165. MFLINE
  166. FKEY_OPTS
  167. MPARSTR
  168. GMFOPT
  169. MF_GLB
  170. MEM_CNT
  171. 'M_MODE
  172. MSCHBY
  173. MFKEY
  174. MF5LKP
  175. MOTMPREC
  176. FMOLDFNM
  177. MFLDNAM
  178. MFPSTR
  179. +GKEYS
  180. ONKEYS
  181. DO (mprg) WITH &mpar
  182. MFKEYNO
  183. MF_GLB
  184. MFKEYMSG
  185. MFKEYPRG
  186. MFKEYPAR
  187. MF_KEY
  188. MFLINE
  189. NOWAIT
  190. Verifying Required Fields ... 
  191. IF (.NOT. mgetwhen) .AND. (EMPTY(&mfldnam))
  192. CLEAR
  193. Required Field Not Present
  194.  PICTURE "F
  195.  VALID(F
  196.  ERROR "F
  197.  COLOR 
  198. EMPTY(&mfldnam)
  199. @mrowpos,mcolpos GET &mfldnam &mgetstr
  200. IF EMPTY(&mfldnam)
  201. MSG_WIND
  202. NOWAIT
  203. Verifying Required Fields ... 
  204. TEMPLATEQ
  205. FELONY_NO
  206. MISDEM_NO
  207. LOOK_UP
  208. Updating Field 
  209. &mfldnam = EVALUATE(mcalexpr)
  210. Saving Record ...
  211. APPEND MEMO &mem_fld FROM (mdos_file)
  212. CLEAR
  213. Post-File
  214. MOKTOFILE
  215. MSG_DISP
  216. TEMPLATE
  217. ONKEYS
  218. FLDGET
  219. EREQUIRED
  220. MESSAGE
  221. MFLDNAM
  222. FLDNAM
  223. VMGETWHEN
  224. FLDWHN
  225. MREQCOND
  226. MREQFLD
  227. GMJUNK
  228. MPAGENO
  229. FLDPAG
  230. 'DISP_IMG
  231. DISPLAY
  232. MNOPAGES
  233. MUPDREC
  234. MROWPOS
  235. FFLDROW
  236. MCOLPOS
  237. FLDCOL
  238. MCOLOR
  239. +FLDATR
  240. NORMGET
  241. qMGETSTR
  242. FLDPIC
  243. FLDVAL
  244. FFLDMSG
  245. MVALCLAUSEMREADKEY
  246. MADDED
  247. MCHKCNT
  248. MCLRWDO
  249. MCHKCAL
  250. MEXCAL
  251. SYMBOLIC
  252. FLDCAL
  253. SMSGTEXT
  254. MCALEXPR
  255. ]MALSNAME
  256. MBLANK
  257. MEM_CNT
  258. MDOS_FILE
  259. SUB_PREP
  260. Field Help Not Available
  261. KEYBOARD CHR(0)
  262. [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
  263. [ FIELD HELP ]
  264. Field Help Not Available
  265. ON KEY LABEL F1 &m_f1
  266. MFLD_NAME
  267. TEMPLATE
  268. MTOPREC
  269. MPAGENO
  270. FLDNAM
  271. EMJUNK
  272. FLDHLP
  273. VHLP_FROW
  274. HLP_TROW
  275. HLP_FCOL
  276. HLP_TCOL
  277. GMHFROMROW
  278. MHFROMCOL
  279. MHLPTOROW
  280. MHLPTOCOL
  281. MFOOTER
  282. HLP_WIND
  283. [Ctrl-W]:Save [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
  284. [Ctrl-W]:Save [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
  285. [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
  286. KEYBOARD CHR(0)
  287. Import Data from Another Document File (Y/N) ?
  288. MODIFY MEMO &mem_fld NOEDIT RANGE mrange1, mrange2 WINDOW mem_wind
  289. MODIFY MEMO &mem_fld NOEDIT WINDOW mem_wind
  290. MODIFY MEMO &mem_fld RANGE mrange1, mrange2 WINDOW mem_wind
  291. MODIFY MEMO &mem_fld WINDOW mem_wind
  292. MNOEDIT
  293. MEDRANGE1
  294. MEDRANGE2
  295. MEM_CNT
  296. MEM_FLD
  297. EMNOPARS
  298. MRANGE1
  299. MRANGE2
  300. TEMPLATE
  301. MBLANK
  302. MFOOTER
  303. MEMWTITL
  304. MEM_WIND
  305. GMALSNAME
  306. MDOS_FILE
  307. MJUNK
  308. MEMO_IMPOR
  309. PROMPT
  310. Enter Record Number (1 to FFFQ^
  311. Record Number is Out of Range !
  312. CUSTOM
  313. SEARCH
  314. NARRATIVE
  315. PROMPT
  316. Search For:
  317. INDEX
  318. mvalf
  319. Index Not Properly Defined !
  320. PROMPT
  321. Search For: 
  322. SOUNDEX
  323. INDEX
  324. NOWAIT
  325. Searching ...
  326. CLEAR
  327. No Match ... End of File Encountered
  328. CUSTOM
  329. NOWAIT
  330. Searching ...
  331. CLEAR
  332. No Matching Records Found !
  333.  Records Selected
  334. No Search Expression Defined !
  335. NARRATIVE
  336. NOWAIT
  337. Searching ...
  338. CLEAR
  339. No Matching Records Found !
  340.  Records Selected
  341. CUSTOM NARRATIVE
  342. NARRATIVE
  343. INDEX GOTO
  344. End of Search Scope !
  345. INDEX GOTO
  346. CUSTOM NARRATIVE GOTO
  347. CUSTOM NARRATIVE
  348. CUSTOM NARRATIVE GOTO
  349. CUSTOM NARRATIVE
  350. SETUP
  351. MALSNAME
  352. MBLANK
  353. TEMPLATE
  354. MEXIT
  355. EMLOCEXP
  356. MMEMSTR
  357. MSCHBY
  358. RETKEY
  359. RETVAL
  360. MESSAGE
  361. MJUNK
  362. M_MODE
  363. GUPDATE
  364. MIDX_NO
  365. IDX_MENU
  366. SET_IDX
  367. RMEXP
  368. MVALUE
  369. M_TEMP
  370. MSQL_CNT
  371. +M_SQL
  372. MEM_FLD
  373. qMINITSYM
  374. MNOPAGES
  375. MTOPREC
  376. FMMATCRIT
  377. MSOUND
  378. USEMEMODISP
  379. MSEEKNO
  380. MSQL_NO
  381. MDELREC
  382. MUPDREC
  383. DISPLAY
  384. MPAGENO
  385. MEMATC
  386. EDIT_MEM
  387. MTIMEOUT
  388. ]MREADKEY
  389. MLASTKEY
  390. MOLDPAGE
  391. DISP_IMG
  392. M_LAST
  393. MEM_CNT
  394. NOWAIT
  395. Building Search Expression ...
  396.  .AND. ATC(
  397. ) > 0
  398. ATC(F
  399. ) > 0
  400.  .AND. SOUNDEX(
  401. ) = SOUNDEX(
  402. SOUNDEX(F
  403. ) = SOUNDEX(
  404.  .AND. 
  405.  .AND. 
  406.  .AND. 
  407.  .AND. 
  408.  .AND. 
  409.  >= {
  410.  .AND. 
  411.  <= {
  412.  >= {
  413.  .AND. 
  414.  <= {
  415.  .AND. 
  416. CLEAR
  417. MESSAGE
  418. MLOCEXP
  419. TEMPLATE
  420. SYMBOLIC
  421. MTAGNO
  422. EMTAGFLD
  423. FLDNAM
  424. MFLDNAM
  425. FLDTYP
  426. MMATCRIT
  427. MFLDDEC
  428. FLDDEC
  429. MFLDWID
  430. GFLDWID
  431. TEMPLATE
  432.  Could Not be Found !
  433. DO load_pgs WITH &mp_recs
  434. "","",""
  435. DO LOAD_GLB WITH &mglb_ln
  436. PUBLIC &mfldnam
  437. &mfldnam = SPACE(mfldwid)
  438. &mfldnam = {  /  /  }
  439. &mfldnam = 0
  440. &mfldnam = .F.
  441.  Could Not be Found !
  442. MCHKSCR
  443. SCR_NAME
  444. MJUNK
  445. TEMPLATE
  446. MALSNAME
  447. EFLDNAM
  448. MSCRTITLE
  449. FLDMSG
  450. MTIMEOUT
  451. FLDDEC
  452. MP_RECS
  453. FLDCAL
  454. MPRG_SET
  455. GFLDPIC
  456. MEM_CNT
  457. SYMBOLIC
  458. MEM_FLD
  459. FLDINI
  460. RCLOCK_ON
  461. REQUIRED
  462. BORDCOL
  463. FLDATR
  464. MNO_GLBS
  465. FLDHLP
  466. MGLB_NO
  467. +MGLB_LN
  468. MNO_OBJS
  469. qMFLDNAM
  470. MFLDTYP
  471. FLDTYP
  472. FMFLDWID
  473. FLDWID
  474. USEMCHKDBF
  475. MDOS_FILE
  476. MFKEYMSG
  477. MFKEYPRG
  478. MFKEYPAR
  479. MF_GLB
  480. MGLB_NO
  481. mpgFF
  482. EMPG6
  483. MPG10
  484. MNOPAGES
  485. MTOPREC
  486. MPGNO
  487. GMPGPAR
  488. SEARCH
  489. DO HELP WITH 'FILE_IO','SEARCH'
  490. DO fld_hlp WITH VARREAD()
  491. alt-o
  492. DO fkeys WITH 0
  493. alt-N
  494. DO edit_mem
  495. DO fkeys WITH 2
  496. DO fkeys WITH 3
  497. DO fkeys WITH 4
  498. DO fkeys WITH 5
  499. DO fkeys WITH 6
  500. DO fkeys WITH 7
  501. DO fkeys WITH 8
  502. DO fkeys WITH 9
  503. DO next_pg
  504. DO prev_pg
  505. M_MODE
  506. MEM_CNT
  507. EM_SRCH
  508. PAGES
  509. DO (mexecprg) WITH &mexecpar
  510. MPOSTPRG
  511. MPOSTPAR
  512. MNOPARS
  513. MEXECPRG
  514. MEXECPAR
  515. ETEMPLATE
  516. POST-FILE
  517. POST-FILE
  518. NOWAIT
  519. Executing Post-File Subroutines ... Please Wait
  520. DO exec_pfs WITH &mpstline
  521. POST-FILE
  522. CLEAR
  523. MPOSTTYPE
  524. TEMPLATE
  525. MGO_TEMPL
  526. FLDSUBS
  527. MESSAGE
  528. MPFSNO
  529. MPSTLINE
  530.  \<Append Record;
  531. \<Modify Record;
  532. \\Modify Record;8
  533. \\Delete Record;\\Recall Record;
  534. \\Delete Record;R\<ecall Record;
  535. \<Delete Record;\\Recall Record;8
  536. \<Indexed Search;
  537. \\Indexed Search;8
  538. \<Custom Search;
  539. \\Custom Search;8
  540. \<Narrative Search;
  541. \\Narrative Search;8
  542. \<Go to Record;
  543. \\Go to Record;8
  544. Quick \<List
  545. \\Quick List8
  546. @ 0, 3 GET mpb_no FUNCTION &mfunc_code SIZE 1,18,1
  547. DO HELP WITH 'FILE_IO','PB_MAIN'
  548. MCURSEL
  549. MCURWIN
  550. MCURALS
  551. MALSNAME
  552. MCURIDX
  553. PBUTTONS
  554. MFUNC_CODEMEM_CNT
  555. DEMPB_NO
  556. ODEF1
  557. MTIMEOUT
  558. This is a Required Field !
  559. Post-Field
  560.  PICTURE "
  561.  COLOR 
  562. &mcal_fld = IIF(mcal_typ = 'C',PADR(&mf_cal,mcal_wid),&mf_cal)
  563. @mcal_row,mcal_col SAY &mcal_fld &msaystr
  564. MF_REC
  565. MF_REQ
  566. MF_VAL
  567. MF_SUBS
  568. MF_IMPS
  569. MCURVAR
  570. MEXCAL
  571. ODEMJUNK
  572. DETEMPLATE
  573. ESUB_PREP
  574. MI_CNT
  575. IMPACTS
  576. MI_NO
  577. GMIMP_FLD
  578. FLDNAM
  579. MF_CAL
  580. FLDCAL
  581. MCAL_FLD
  582. RMCAL_TYP
  583. FLDTYP
  584. MCAL_WID
  585. FLDWID
  586. MCAL_CLR
  587. FLDATR
  588. NORMGET
  589. +MCAL_PIC
  590. FLDPIC
  591. qMCAL_ROW
  592. FLDROW
  593. MCAL_COL
  594. FFLDCOL
  595. MCAL_PG
  596. SEFLDPAG
  597. MSAYSTR
  598. MPAGENO
  599. MKEYLABEL
  600. &mcurvar = EVALUATE(mf_cal)
  601. &mcurvar = IIF(mf_type = 'C',PADR(EVALUATE(mf_cal),mf_wid),EVALUATE(mcurvar))
  602. SHOW GET &mcurvar
  603. SEARCH
  604. SEARCH
  605. MF_REC
  606. MF_GET
  607. MF_WHN
  608. MF_CAL
  609. MF_TYPE
  610. MF_WID
  611. MF_SYM
  612. ODEMCURVAR
  613. DEMEXCAL
  614. EM_WHN
  615. M_MODE
  616. [ SEARCH CRITERIA ]
  617. [ ENTER DATE RANGE ]
  618. From: 
  619. [ ENTER VALUE RANGE ]
  620. From: 
  621. MF_REC
  622. MF_TYPE
  623. MF_WID
  624. MFLDNAM
  625. MFLDNO
  626. MTAGFLD
  627. MMTCHC
  628. DEMMATTYP
  629. DEMMATCRIT
  630. ESCH_DEF
  631. RNG_WIND
  632. NORMGET
  633. MPAGENO
  634. MNOPAGES
  635. MKEYLABEL
  636. MPAGENO
  637. MKEYLABEL
  638. MDRAW_PG
  639. TEMPLATE
  640. MTOPREC
  641. IMAGE
  642. BIT_IMAGE
  643. SCH_DEF
  644. CLOCK_ON
  645. TEMPLATE
  646. RELEASE &mfld_nm
  647. MPAGENO
  648. MNOPAGES
  649. MBLANK
  650. MVALDATA
  651. MFLDNAM
  652. MOLDVAR
  653. MDATACHGD
  654. MLNGROUP
  655. MLOCEXP
  656. EMEM_CNT
  657. MEXCAL
  658. MDOS_FILE
  659. MEM_FLD
  660. GMALSNAME
  661. MDELREC
  662. MREADKEY
  663. MLASTKEY
  664. MFLDNO
  665. RMOKTOFILE
  666. MMATCRIT
  667. MRECALL
  668. MSCHBY
  669. MGLB_NO
  670. SCH_DEF
  671. NORMGET
  672. +MTIMEOUT
  673. MTIMEUP
  674. qMCURSELECTMTAGFLD
  675. MSCRTITLE
  676. MUPDREC
  677. MFLINE
  678. SEMKEYLABEL
  679. MSQL_NO
  680. MSQL_CNT
  681. M_MODE
  682. CLOCK_ON
  683. MF_KEY
  684. MTOPREC
  685. M_TEMP
  686. M_SQL
  687. ]TEMPLATE
  688. MFLD_NM
  689. FLDNAM
  690. UPDATE
  691. FKEYS
  692. GKEYS
  693. FPARSE
  694. WRITE_REC
  695. FLD_HLP
  696. EDIT_MEM
  697. SEARCH
  698. BLD_SRCH
  699. SETUP
  700. LOAD_GLB
  701. LOAD_PGS
  702. ONKEYS
  703. EXEC_PFS
  704. SUB_PREP
  705. PB_MAIN
  706. VAL_PROC
  707. WHN_PROC
  708. SCH_PROC
  709. NEXT_PG
  710. PREV_PG
  711. DISP_IMG
  712. REL_VARS
  713. C:\FOXPAINT\
  714. FILE_IO.FXP
  715.