home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
fox
/
foxpaint
/
file_io.fxp
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1991-09-19
|
28KB
|
715 lines
Demonstration Copy ..... Do you want to complete an order form (Y/N) ?
Select a Screen:
APPEND
MODIFY
DELETE
RECALL
INDEX
SEARCH
CUSTOM
SEARCH
NARRATIVE
SEARCH
SEARCH
MSCRNNM
MJUNK
ORDER
MPAGENO
MNOPAGES
EMBLANK
6MVALDATA
MFLDNAM
MOLDVAR
VMDATACHGD
MLNGROUP
MLOCEXP
GMEM_CNT
NGMEXCAL
MDOS_FILE
MEM_FLD
q'MALSNAME
MDELREC
MREADKEY
MLASTKEY
MFLDNO
FMOKTOFILE
MMATCRIT
MRECALL
MSCHBY
+MGLB_NO
SCH_DEF
qNORMGET
NORMSAY
FMTIMEOUT
FMTIMEUP
MCURSELECTMTAGFLD
MSCRTITLE
MUPDREC
MFLINE
MKEYLABEL
MSQL_NO
MSQL_CNT
M_MODE
CLOCK_ON
BORDCOL
]MF_KEY
MF_GLB
FSCR_NAME
FREL_VARS
FMAT_DOT
WSETUP
MBARROW
MBARCOL
MOLDPAGE
DISP_IMG
DISPLAY
FMODE_CHC
PB_MAIN
UPDATE
SEARCH
MCURREC
LIST_DBF
APPEND
&mfldnam = SPACE(mfldwid)
&mfldnam = 0
&mfldnam = { / / }
&mfldnam = .F.
&mfldnam = EVALUATE(ministr)
&mfldnam = IIF(fldtyp = 'C',PADR(EVALUATE(mfldnam),fldwid),EVALUATE(mfldnam))
MODIFY
You Cannot Modify Records Tagged for Deletion !
SEARCH
&mfldnam = SPACE(mfldwid)
&mfldnam = 0
&mfldnam = { / / }
&mfldnam = .F.
mvar(mtagno) = &mfldnam
Match Left-Justified
Match Sub-Strings
Match Soundex Values
DELETE
RECALL
Are You Sure (Y/N) ?
APPEND SEARCH
Changes Will be Lost ! ... Are You Sure (Y/N) ?
SETUP
TEMPLATE
MEXCAL
MDELREC
MRECALL
EMDATACHGD
M_MODE
M_SRCH
MBLANK
VMPAGENO
MDOS_FILE
MALSNAME
GMLOCK
GLOCK_FIL
MUPDREC
MTOPREC
'MFLDNAM
FLDNAM
MFLDTYP
FLDTYP
MFLDWID
FFLDWID
FLDINI
MINISTR
MINITSYM
+MNOPAGES
MJUNK
qLOCK_REC
MTEMP_CNT
FMTAGNO
MMATCRIT
TMTAGFLD
MMATTYP
MEXECPS
MKEYLABEL
MCALC_SYM
MREADKEY
MLASTKEY
MOLDPAGE
DISP_IMG
DISPLAY
]ONKEYS
MTIMEOUT
MTIMEUP
MEXIT
WRITE_REC
BLD_SRCH
[ SOFTKEYS ]
DO fparse WITH &mparstr
[Alt-N]: Narrative
APPEND MODIFY
[Ctl-W]: Save Record
SEARCH
CUSTOM
[Ctl-W]: Begin Search
DO fparse WITH &mparstr
&mseek_var = EVALUATE(mf5lkp)
&mseek_var = IIF(TYPE('&mseek_var') = 'C',PADR(EVALUATE(mseek_var),template->fldwid),&mseek_var)
DO fparse WITH &mparstr
DO (mfdo) WITH &mfpstr
MFKEYNO
MQUERY
TEMPLATE
MSEEK_VAR
MTOPREC
EMPAGENO
FLDNAM
MF_KEY
SCH_DEF
VFKEYS
MFLINE
FKEY_OPTS
MPARSTR
GMFOPT
MF_GLB
MEM_CNT
'M_MODE
MSCHBY
MFKEY
MF5LKP
MOTMPREC
FMOLDFNM
MFLDNAM
MFPSTR
+GKEYS
ONKEYS
DO (mprg) WITH &mpar
MFKEYNO
MF_GLB
MFKEYMSG
MFKEYPRG
MFKEYPAR
MF_KEY
MFLINE
NOWAIT
Verifying Required Fields ...
IF (.NOT. mgetwhen) .AND. (EMPTY(&mfldnam))
CLEAR
Required Field Not Present
PICTURE "F
VALID(F
ERROR "F
COLOR
EMPTY(&mfldnam)
@mrowpos,mcolpos GET &mfldnam &mgetstr
IF EMPTY(&mfldnam)
MSG_WIND
NOWAIT
Verifying Required Fields ...
TEMPLATEQ
FELONY_NO
MISDEM_NO
LOOK_UP
Updating Field
&mfldnam = EVALUATE(mcalexpr)
Saving Record ...
APPEND MEMO &mem_fld FROM (mdos_file)
CLEAR
Post-File
MOKTOFILE
MSG_DISP
TEMPLATE
ONKEYS
FLDGET
EREQUIRED
MESSAGE
MFLDNAM
FLDNAM
VMGETWHEN
FLDWHN
MREQCOND
MREQFLD
GMJUNK
MPAGENO
FLDPAG
'DISP_IMG
DISPLAY
MNOPAGES
MUPDREC
MROWPOS
FFLDROW
MCOLPOS
FLDCOL
MCOLOR
+FLDATR
NORMGET
qMGETSTR
FLDPIC
FLDVAL
FFLDMSG
MVALCLAUSEMREADKEY
MADDED
MCHKCNT
MCLRWDO
MCHKCAL
MEXCAL
SYMBOLIC
FLDCAL
SMSGTEXT
MCALEXPR
]MALSNAME
MBLANK
MEM_CNT
MDOS_FILE
SUB_PREP
Field Help Not Available
KEYBOARD CHR(0)
[Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
[ FIELD HELP ]
Field Help Not Available
ON KEY LABEL F1 &m_f1
MFLD_NAME
TEMPLATE
MTOPREC
MPAGENO
FLDNAM
EMJUNK
FLDHLP
VHLP_FROW
HLP_TROW
HLP_FCOL
HLP_TCOL
GMHFROMROW
MHFROMCOL
MHLPTOROW
MHLPTOCOL
MFOOTER
HLP_WIND
[Ctrl-W]:Save [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
[Ctrl-W]:Save [Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
[Ctrl-F7/F8/F10]:Move/Size/Zoom [Esc]:Exit
KEYBOARD CHR(0)
Import Data from Another Document File (Y/N) ?
MODIFY MEMO &mem_fld NOEDIT RANGE mrange1, mrange2 WINDOW mem_wind
MODIFY MEMO &mem_fld NOEDIT WINDOW mem_wind
MODIFY MEMO &mem_fld RANGE mrange1, mrange2 WINDOW mem_wind
MODIFY MEMO &mem_fld WINDOW mem_wind
MNOEDIT
MEDRANGE1
MEDRANGE2
MEM_CNT
MEM_FLD
EMNOPARS
MRANGE1
MRANGE2
TEMPLATE
MBLANK
MFOOTER
MEMWTITL
MEM_WIND
GMALSNAME
MDOS_FILE
MJUNK
MEMO_IMPOR
PROMPT
Enter Record Number (1 to FFFQ^
Record Number is Out of Range !
CUSTOM
SEARCH
NARRATIVE
PROMPT
Search For:
INDEX
mvalf
Index Not Properly Defined !
PROMPT
Search For:
SOUNDEX
INDEX
NOWAIT
Searching ...
CLEAR
No Match ... End of File Encountered
CUSTOM
NOWAIT
Searching ...
CLEAR
No Matching Records Found !
Records Selected
No Search Expression Defined !
NARRATIVE
NOWAIT
Searching ...
CLEAR
No Matching Records Found !
Records Selected
CUSTOM NARRATIVE
NARRATIVE
INDEX GOTO
End of Search Scope !
INDEX GOTO
CUSTOM NARRATIVE GOTO
CUSTOM NARRATIVE
CUSTOM NARRATIVE GOTO
CUSTOM NARRATIVE
SETUP
MALSNAME
MBLANK
TEMPLATE
MEXIT
EMLOCEXP
MMEMSTR
MSCHBY
RETKEY
RETVAL
MESSAGE
MJUNK
M_MODE
GUPDATE
MIDX_NO
IDX_MENU
SET_IDX
RMEXP
MVALUE
M_TEMP
MSQL_CNT
+M_SQL
MEM_FLD
qMINITSYM
MNOPAGES
MTOPREC
FMMATCRIT
MSOUND
USEMEMODISP
MSEEKNO
MSQL_NO
MDELREC
MUPDREC
DISPLAY
MPAGENO
MEMATC
EDIT_MEM
MTIMEOUT
]MREADKEY
MLASTKEY
MOLDPAGE
DISP_IMG
M_LAST
MEM_CNT
NOWAIT
Building Search Expression ...
.AND. ATC(
) > 0
ATC(F
) > 0
.AND. SOUNDEX(
) = SOUNDEX(
SOUNDEX(F
) = SOUNDEX(
.AND.
.AND.
.AND.
.AND.
.AND.
>= {
.AND.
<= {
>= {
.AND.
<= {
.AND.
CLEAR
MESSAGE
MLOCEXP
TEMPLATE
SYMBOLIC
MTAGNO
EMTAGFLD
FLDNAM
MFLDNAM
FLDTYP
MMATCRIT
MFLDDEC
FLDDEC
MFLDWID
GFLDWID
TEMPLATE
Could Not be Found !
DO load_pgs WITH &mp_recs
"","",""
DO LOAD_GLB WITH &mglb_ln
PUBLIC &mfldnam
&mfldnam = SPACE(mfldwid)
&mfldnam = { / / }
&mfldnam = 0
&mfldnam = .F.
Could Not be Found !
MCHKSCR
SCR_NAME
MJUNK
TEMPLATE
MALSNAME
EFLDNAM
MSCRTITLE
FLDMSG
MTIMEOUT
FLDDEC
MP_RECS
FLDCAL
MPRG_SET
GFLDPIC
MEM_CNT
SYMBOLIC
MEM_FLD
FLDINI
RCLOCK_ON
REQUIRED
BORDCOL
FLDATR
MNO_GLBS
FLDHLP
MGLB_NO
+MGLB_LN
MNO_OBJS
qMFLDNAM
MFLDTYP
FLDTYP
FMFLDWID
FLDWID
USEMCHKDBF
MDOS_FILE
MFKEYMSG
MFKEYPRG
MFKEYPAR
MF_GLB
MGLB_NO
mpgFF
EMPG6
MPG10
MNOPAGES
MTOPREC
MPGNO
GMPGPAR
SEARCH
DO HELP WITH 'FILE_IO','SEARCH'
DO fld_hlp WITH VARREAD()
alt-o
DO fkeys WITH 0
alt-N
DO edit_mem
DO fkeys WITH 2
DO fkeys WITH 3
DO fkeys WITH 4
DO fkeys WITH 5
DO fkeys WITH 6
DO fkeys WITH 7
DO fkeys WITH 8
DO fkeys WITH 9
DO next_pg
DO prev_pg
M_MODE
MEM_CNT
EM_SRCH
PAGES
DO (mexecprg) WITH &mexecpar
MPOSTPRG
MPOSTPAR
MNOPARS
MEXECPRG
MEXECPAR
ETEMPLATE
POST-FILE
POST-FILE
NOWAIT
Executing Post-File Subroutines ... Please Wait
DO exec_pfs WITH &mpstline
POST-FILE
CLEAR
MPOSTTYPE
TEMPLATE
MGO_TEMPL
FLDSUBS
MESSAGE
MPFSNO
MPSTLINE
\<Append Record;
\<Modify Record;
\\Modify Record;8
\\Delete Record;\\Recall Record;
\\Delete Record;R\<ecall Record;
\<Delete Record;\\Recall Record;8
\<Indexed Search;
\\Indexed Search;8
\<Custom Search;
\\Custom Search;8
\<Narrative Search;
\\Narrative Search;8
\<Go to Record;
\\Go to Record;8
Quick \<List
\\Quick List8
@ 0, 3 GET mpb_no FUNCTION &mfunc_code SIZE 1,18,1
DO HELP WITH 'FILE_IO','PB_MAIN'
MCURSEL
MCURWIN
MCURALS
MALSNAME
MCURIDX
PBUTTONS
MFUNC_CODEMEM_CNT
DEMPB_NO
ODEF1
MTIMEOUT
This is a Required Field !
Post-Field
PICTURE "
COLOR
&mcal_fld = IIF(mcal_typ = 'C',PADR(&mf_cal,mcal_wid),&mf_cal)
@mcal_row,mcal_col SAY &mcal_fld &msaystr
MF_REC
MF_REQ
MF_VAL
MF_SUBS
MF_IMPS
MCURVAR
MEXCAL
ODEMJUNK
DETEMPLATE
ESUB_PREP
MI_CNT
IMPACTS
MI_NO
GMIMP_FLD
FLDNAM
MF_CAL
FLDCAL
MCAL_FLD
RMCAL_TYP
FLDTYP
MCAL_WID
FLDWID
MCAL_CLR
FLDATR
NORMGET
+MCAL_PIC
FLDPIC
qMCAL_ROW
FLDROW
MCAL_COL
FFLDCOL
MCAL_PG
SEFLDPAG
MSAYSTR
MPAGENO
MKEYLABEL
&mcurvar = EVALUATE(mf_cal)
&mcurvar = IIF(mf_type = 'C',PADR(EVALUATE(mf_cal),mf_wid),EVALUATE(mcurvar))
SHOW GET &mcurvar
SEARCH
SEARCH
MF_REC
MF_GET
MF_WHN
MF_CAL
MF_TYPE
MF_WID
MF_SYM
ODEMCURVAR
DEMEXCAL
EM_WHN
M_MODE
[ SEARCH CRITERIA ]
[ ENTER DATE RANGE ]
From:
[ ENTER VALUE RANGE ]
From:
MF_REC
MF_TYPE
MF_WID
MFLDNAM
MFLDNO
MTAGFLD
MMTCHC
DEMMATTYP
DEMMATCRIT
ESCH_DEF
RNG_WIND
NORMGET
MPAGENO
MNOPAGES
MKEYLABEL
MPAGENO
MKEYLABEL
MDRAW_PG
TEMPLATE
MTOPREC
IMAGE
BIT_IMAGE
SCH_DEF
CLOCK_ON
TEMPLATE
RELEASE &mfld_nm
MPAGENO
MNOPAGES
MBLANK
MVALDATA
MFLDNAM
MOLDVAR
MDATACHGD
MLNGROUP
MLOCEXP
EMEM_CNT
MEXCAL
MDOS_FILE
MEM_FLD
GMALSNAME
MDELREC
MREADKEY
MLASTKEY
MFLDNO
RMOKTOFILE
MMATCRIT
MRECALL
MSCHBY
MGLB_NO
SCH_DEF
NORMGET
+MTIMEOUT
MTIMEUP
qMCURSELECTMTAGFLD
MSCRTITLE
MUPDREC
MFLINE
SEMKEYLABEL
MSQL_NO
MSQL_CNT
M_MODE
CLOCK_ON
MF_KEY
MTOPREC
M_TEMP
M_SQL
]TEMPLATE
MFLD_NM
FLDNAM
UPDATE
FKEYS
GKEYS
FPARSE
WRITE_REC
FLD_HLP
EDIT_MEM
SEARCH
BLD_SRCH
SETUP
LOAD_GLB
LOAD_PGS
ONKEYS
EXEC_PFS
SUB_PREP
PB_MAIN
VAL_PROC
WHN_PROC
SCH_PROC
NEXT_PG
PREV_PG
DISP_IMG
REL_VARS
C:\FOXPAINT\
FILE_IO.FXP