Liren Large Software Subsidy 5

home *** CD-ROM | disk | FTP | other *** search

/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 2.ddi / FOXAPP.AP_ / FOXAPP.bin

(.txt)

Wrap

MS Visual FoxPro App | 1994-04-28 | 74.3 KB | 1,591 lines

WINDOWS TALKz SAFETYz DELETEDz forceregenf TALKz COMPATIBLEz READBORDERz appgen APPGEN APPGEN.PJX APPGEN APPGEN.SCX APPGEN APPGEN.MNX APPGEN APPGEN.PRG APPGEN APPGEN.FRX APPGEN APPGEN.QPR MS Sans Serif FoxPro Application Generator foxapp MS Sans Serif ERROR DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR() ESCAPE DO appescape WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR() APPMENU.MNX COMMAND FOXAPP2.0A FOXAPP GENERATE Error opening CONFIG.FP. FOXAPP MENUS\APPMENU.PRG2 MENUS\APPMENU.MPR2 MENUS\APPMENU.MPR COPY FILE MENUS\appmenu.prg TO &mpr_name appmenu.prg2 appmenu.mpr2 appmenu.mpr COPY FILE appmenu.prg TO &mpr_name FOXAPP\MENUS\APPMENU.PRG2 FOXAPP\MENUS\APPMENU.MPR2 FOXAPP\MENUS\APPMENU.MPR COPY FILE foxapp\MENUS\appmenu.prg TO &mpr_name MENUS\APPMENU.PRG2 MENUS\APPMENU.MPR2 MENUS\APPMENU.MPR DELETE FILE &mpr_name appmenu.prg2 appmenu.mpr2 appmenu.mpr DELETE FILE &mpr_name FOXAPP\MENUS\APPMENU.PRG2 FOXAPP\MENUS\APPMENU.MPR2 FOXAPP\MENUS\APPMENU.MPR DELETE FILE &mpr_name MENUS\APPMENU.PRG2 MENUS\APPMENU.MPX2 MENUS\APPMENU.MPX DELETE FILE &mpx_name appmenu.prg2 appmenu.MPX2 appmenu.MPX DELETE FILE &mpx_name FOXAPP\MENUS\APPMENU.PRG2 FOXAPP\MENUS\APPMENU.MPX2 FOXAPP\MENUS\APPMENU.MPX DELETE FILE &mpx_name appgen MS Sans Serif @*VN C\<reate Screen name: MS Sans Serif Table name: MS Sans Serif Step 2 -- Create or Modify a Screen MS Sans Serif Step 1 -- Create or Modify a Table MS Sans Serif MS Sans Serif 33333 MS Sans Serif @*VN \<Create MS Sans Serif @*VN \<Modify MS Sans Serif @*VN From \<File... MS Sans Serif @*HN Re\<lated... MS Sans Serif 33333 MS Sans Serif @*VN M\<odify MS Sans Serif @*VN From F\<ile... MS Sans Serif @*VN \!\<Generate MS Sans Serif @*HN Ad\<vanced... MS Sans Serif @*VN \?\<Cancel MS Sans Serif @*HN \<Arrange appgen SET READBORDER &rborder The screen file is missing. The database file is missing. Locate please MS Sans Serif appdoc ffffff FoxApp has created an application named F in the F directory. You can run your application now by pressing any key. To run it in the future, simply select "Application" from the RUN menu, or enter FoxPro and type: SET DEFAULT TO F DO F Press any key to start your application. RSCUSED _GFORCEREGENAPP_PLATFOAPP_TALK EAPP_DELE EAPP_SAFE CURRAREA NTALKSTAT yCOMPSTAT RBORDER APPGEN APPFILE MNUNAME DBFNAME SCXNAME TREPNAME TMFNAME SKIPDBFBUTDBFLIST NAFIRSTTIME ORIGNAME NAPP_ERROR APP_ESCAPEFOXAPP APESCRN_FONT SCRN_FSIZESCRN_FSTYLSCREEN GEAPPPATHLENGENERATE NCANCBUT ADDDBF ADDSCX MODSCX MODDBF COMMAND ENNUMCOLS NUMAREAS CSTEMNUM NRELSTRNUM PFLDNUM TLCFLDNUM CDBFNUM PDBFNUM RASROWNUM m.SCOLNUM erEROWNUM ECOLNUM RAARRANGED THEFONT CASCADENUMCTRLROW CTRLCOL NEXTDBF DEFAULTFONDEFAULTCASRSC_CHECK RSC_STOREDRETRIEVERSSTORERSC RSCTYPE REGEN EGENFP EGENBUFFER (c)FOXAPPDIR ADDBS rp. FINDSRC MPR_NAME MPX_NAME QUITTING s_QDL0OOZZO_QDL0OP0HZDBFVALID _QDL0OP103_QDL0OP18DLISTDBF nd_QDL0OP1FE_QDL0OP1IKOTHER _QDL0OP1Q5_QDL0OP1Y3_QDL0OP21X_QDL0OP29J_QDL0OP2D6LISTSCX _QDL0OP2JN_QDL0OP2QFADVANCED D_QDL0OP7BF_QDL0OP7GHARRANGE _QDL0OP7LU_QDL0OP90PSCRNUPD CLOSE_UP gINVSTEM tJUSTSTEM CDXNAME bFORCEEXT INVERT FNT_FACE FNT_SIZE FNT_STYLE TR2 STYLE STYLE STYLE PUTPANEL IN_WRAP IN_LMARGININ_RMARGINJUSTFNAME JUSTPATH APPDOC GININVNAME enBAILOUT APPSHELL ON ERROR &app_error ON ESCAPE &app_escape qprview.vue2 qprview.vue appview.vue2 appview.vue dbfselec.vue2 dbfselec.vue foxapp.vue2 foxapp foxapp.vue SCXNAME _GDBFNAME ENINVNAME FOCDXNAME EREPNAME ETMFNAME BAILOUT NSKIPDBFBUTORIGNAME DBFLIST MNUNAME APPFILE ORIGDBFLISSCRN_FONT SCRN_FSIZESCRN_FSTYLSCREEN APP_ERROR APP_ESCAPEQPRVIEW NAPPVIEW DBFSELEC EFOXAPP APEAPP_TALK APP_DELE EAPP_SAFE prgs\appproc.prg menus\appmenu.mnx menus\appmenu.mnt screens\getdest.scx screens\getdest.sct screens\getorder.scx screens\getorder.sct screens\appabout.scx screens\appabout.sct screens\appsrch.scx screens\appsrch.sct screens\prtsetup.scx screens\prtsetup.sct screens\prtopts.scx screens\prtopts.sct screens\appctrl.scx screens\appctrl.sct FXPATH _GADDBS ENFOXAPPDIR PROJDIR EJUSTPATH EAPPFILE PUTOUT COPY FILE &file1 TO &file2 PATHNAME GSOURCE ENTARGET FILNAME EFILE1 EFILE2 JUSTFNAME ADDBS FOXAPP\FOXAPP.SRC FOXAPPW\FOXAPP.SRC GOODIES\FOXAPP\FOXAPP.SRC FOXAPP.SRC FoxApp source files must be available to build projects. Please locate the FOXAPP.SRC file: FoxApp cannot build a full project without its source files. PATHz APPDIR GTARGFILE NADDBS ALERT ECLOSE_UP ENEWPATH JUSTPATH JANUARY FEBRUARY MARCH APRIL AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER GVDATESTR NVMONTHSTR VMONTH FILNAME NPNAME JUSTPATH JUSTFNAME ADDBS FILNAME NJUSTEXT FORCEEXT FILNAME FILNAME FILNAME GJUSTFNAME FILNAME PATHNAME GITEM NUMCOMMAS COMPATIBLEz SAFETYz Indexing on IF TYPE(m.fldname) = "C" AND LEN(&fldname) >= 99 INDEX ON SUBSTR(&fldname,1,99) TO (m.fldname) INDEX ON &fldname TAG (m.fldname) Indexing for is complete! FILNAME LNAME SAFE_STAT COMP_STAT IN_AREA FLDNAME FSTEM JUSTSTEM APPCTRL.SCX FOXAPP\SCREENS\APPCTRL.SCX SELECT &sname WINDOWSF FoxApp could not complete this application. SET DEFAULT TO &c_path PJXNAME GSCXNAME CTRL_Y CTRL_X IN_AREA SNAME CTRL_NAME REGEN TCTRL_SCX ADDBS JUSTPATH CTRLSCX ISVPOS JUSTSTEM EPJXFILE LTYPE HOMENAME HOMEDIR PEJUSTFNAME TRIMZERO NNAME FORCEEXT ESETNUM SETID ARRANGED SCRNORDER CTRL_ORDERUSER_SCX RTIMESTAMP EXCLUDE CLOSE_UP XNAME XNAME DBFLIST NUMAREAS NUMCOLS CSTEMNUM ARRANGED THEFONT TDEFAULTFONCASCADENUMDEFAULTCASSROWNUM SCOLNUM SEROWNUM ECOLNUM Please locate the database FNAME GSTEM JUSTSTEM Creating screen WINDOWS WINDOWS Screen has been created. Database could not be opened. GMAXV S_NAME SCXNAME OPENDBF DBFNAME ADDBS JUSTPATH TJUSTSTEM NFORCEEXT MADDSCX ASMODSCX FXSCXNAME WIDTH HEIGHT RELATEDDBFDBFLIST ARRANGED NEXTDBF PESTART_ROW START_COL T_COL T_COL OBJTYPE PLATFORM THISH FONTFACE FONTSIZE WHATSTYLE FONTSTYLE THISV CENTER STYLE BORDER XNAME SROWNUM BFSCOLNUM EROWNUM ECOLNUM ERRSHOW FILNAME GFILARRAY FILPOS JUSTFNAME NEXTDBF MEMOWIDTHz DBFLIST Retrieving stored relationships. dbflistf Where is FF could not be found! CSTEM GNEXTDBF IN_AREA J1_AT J2_AT MEMWIDTH NTYPE MRSCTYPE INITDBFLISCTRLLINE FCTRLROW CTRLCOL NUMAREAS ETHIS_DBF NUMCOLS DBFLIST CSTEMNUM CDBFNUM JUSTSTEM ALERT CLOSE_UP MAKECDX CFLDNUM Resource file is read-only. Not updated. DBFLIST Existing resource record is read-only. Not updated. dbflist[m.i,m.j]f DBFLIST CSTEM GIN_AREA _AREA REPL_STR FILATTR STORERSC TTYPE NRSCTYPE ASNAME READONLY CTRLROW CTRLCOL ISNUMAREAS FNUMCOLS DBFLIST ECKVAL UPDATED RSC_STOREDe FILNAME GTAGNAME CDXNAME JUSTTAG FORCEEXT OPENDBF INVERT HIGHT GWIDTH SCHEME FROMROW FROMCOL TOROW TOCOL STYLENUM unitsf fromstylef tostylef tosizef fromsizef UNITS GCODE FROMFONT FROMSIZE FROMSTYLE TOFONT TOSIZE TOSTYLE TSTRFLAG NRETVAL MMAPTOCHAR DBFLISTf Saving window positions. ARREXFLG GCTRLROW CTRLCOL DBFLIST CSTEMNUM SROWNUM SCOLNUM TEROWNUM NECOLNUM MARRANGED NUMAREAS RSC_STOREDSTORERSC SPUTDBFLISTAPPGEN VALUE GCODE RLCOL TRANFONT DBFLIST THEFONT GARREXFLG NUMAREAS DBFLIST CSTEMNUM APPGEN DBFNUM NUMAREAS DBFLIST PDBFNUM CSTEMNUM WIND_NAME ALERT MESSG LINENO DEFINEWINDALERT TALKz CONSOLEz IN_TALK IN_CONS NDNUMLINES ALERT_ARRYREMAIN MAXLEN TTOP_ROW RYBOT_ROW MTOP_COL BOT_COL ALERT KEYCODE Line No.: FF Program: Error: Source: E_PROGRAM E_MESSAGE E_SOURCE DE_LINENO E_ERROR RYALERT CLOSE_UP Escape pressed. FoxApp is terminating. E_PROGRAM E_MESSAGE E_SOURCE DE_LINENO E_ERROR RYM_QUITTINGCLOSE_UP STYLENUM Screen file name UNTITLED.SCX SCXNAME CREATESCX ORIGNAME DBFNAME APPPATHLENSKIPDBFBUT= Invalid database name. Invalid database name. A screen file name is not allowed here. A menu file name is not allowed here. DBFLISTf DBFNAME ORIGNAME RSC_CHECK JUSTSTEM TJUSTEXT RYJUSTFNAME FORCEEXT DBFALIAS TOPENDBF RYSCXNAME MSKIPDBFBUTDBFLIST CSTEMNUM Database name: DBFNAME MYWIN DNAME OPENDBF TADDDBF RYMODDBF DBFNAME OPENDBF MODDBF ORIGNAME DBFNAME Database name: DBFLISTf DBFNAME ORIGNAME RSC_CHECK OPENDBF TSCXNAME RYFORCEEXT DBFLIST CSTEMNUM TJUSTSTEM dbfselec.spr OPENDBF DBFNAME DBFSELEC TDBFALIAS YRELATEDDBFARRANGE SCXNAME APPPATHLENMODSCX ADDSCX Invalid screen name. SCXNAME JUSTFNAME FORCEEXT JUSTSTEM Creating screen file SCXNAME CREATESCX Creating screen SCXNAME CREATESCX ADDSCX Screen file name: ORIGNAME SCXNAME DEFAULTzF POINTz Name your application:F FOXAPP.APP I named my program FoxApp. You have to name yours something else. DBFLISTf Saving database relations and window positions. Generating application FF scaffold.prg * * * <<DATE()>> scaffold.prg <<TIME()>> * * * * Description: * This program was automatically generated by FoxApp. * * * To run this application, type DO <<UPPER(justfname(m.appfile))>> * Set up runtime environment CREATE VIEW appview SET TALK OFF PUSH MENU _msysmenu PUSH KEY CLEAR fxapp_error = ON('ERROR') fxapp_esc = ON('ESCAPE') SET SAFETY OFF SAVE MACROS TO foxapp SET SAFETY ON SET DELETED ON SET ESCAPE OFF SET STEP OFF SET ECHO OFF SET PROCEDURE TO appproc.prg SET CURSOR ON m.set_point = SET("POINT") CLOSE DATABASES ON ERROR DO apperror WITH PROGRAM(),MESSAGE(),MESSAGE(1),LINENO(),ERROR() IF _WINDOWS OR _MAC * Store current screen font and set it to MS Sans Serif. This ensures that * functions like SROWS() and SCOLS() return values we can use. m.scrn_font = WFONT(1,"") m.scrn_fsize = WFONT(2,"") m.scrn_fstyle = WFONT(3,"") MODIFY WINDOW SCREEN FONT "MS Sans Serif",8 STYLE "B" ENDIF IF TYPE("BAILOUT") <> "U" RELEASE bailout ENDIF IF TYPE("DBFNAME") <> "U" RELEASE dbfname ENDIF IF TYPE("WIN_NAME") <> "U" RELEASE win_name ENDIF IF TYPE("FILT_EXPR") <> "U" RELEASE filt_expr ENDIF IF TYPE("SRCHTERM") <> "U" RELEASE srchterm ENDIF regen = .T. && use SPR/MPR files instead of PRGs EXTERNAL SCREEN getdest, getorder, appabout, ; appsrch, prtopts, prtsetup regen = .F. EXTERNAL PROCEDURE getdest, getorder, appabout, ; appsrch, prtopts, prtsetup PUBLIC bailout, dbfname, win_name, filt_expr, srchterm m.bailout = .F. m.dbfname = "<<m.dbfname>>" && database name m.qprpath = justpath(m.dbfname) && query file path m.filt_expr = "" && filter expression, if any m.srchterm = SPACE(60) && search term * Define constants for addressing DBFLIST m.numareas = <<m.numareas>> m.numcols = <<m.numcols>> m.cstemnum = <<m.cstemnum>> m.relstrnum = <<m.relstrnum>> m.pfldnum = <<m.pfldnum>> m.cfldnum = <<m.cfldnum>> m.cdbfnum = <<m.cdbfnum>> m.pdbfnum = <<m.pdbfnum>> m.srownum = <<m.srownum>> m.scolnum = <<m.scolnum>> m.erownum = <<m.erownum>> m.ecolnum = <<m.ecolnum>> m.arranged = <<m.arranged>> m.thefont = <<m.thefont>> m.cascadenum = <<m.cascadenum>> m.ctrlrow = <<INT(m.ctrlrow)>> m.ctrlcol = <<INT(m.ctrlcol)>> m.nextdbf = <<m.nextdbf>> DO DefineDbf && define the DBFLIST array * Summon the main application menu DO <<_mname>> * Open the main database m.stem = juststem(m.dbfname) IF USED(m.stem) SELECT (m.stem) SELECT 0 IF !FILE(m.dbfname) m.dbfname = GETFILE('DBF','Please locate the '+JustStem(m.dbfname)+' database') ENDIF IF EMPTY(m.dbfname) OR !FILE(m.dbfname) DO alert WITH "The "+m.stem+" database could not be found." DO cleanup RETURN ELSE USE (m.dbfname) ENDIF ENDIF * Make sure the index exists and is hooked up IF EMPTY(CDX(1)) IF !FILE(forceext(m.dbfname,'CDX')) DO invert WITH m.dbfname ELSE SET INDEX TO (forceext(m.dbfname,'CDX')) ENDIF ENDIF SET ORDER TO 1 IF RECCOUNT() = 0 APPEND BLANK IF RECCOUNT() < 10 COUNT FOR !DELETED() TO notdel IF m.notdel = 0 APPEND BLANK && all records were deleted! ENDIF ENDIF ENDIF GOTO TOP CLEAR Putting F screen into window. MS Sans Serif SELECT j **FOXAPP** SELECT F THE FOLLOWING LINE WAS ADDED BY FOXAPP SELECT SELECT Added by **FOXAPP** m.win_name = "<<m.win_name>>" DO WHILE !bailout * Set up any related databases DO setrelat * Display the main screen file DO <<m.sc_file>> ENDDO DO cleanup RETURN ******************************************************************* PROCEDURE cleanup * Clean up after the application SET PROCEDURE TO CLOSE DATABASES CLEAR WINDOWS IF _WINDOWS OR _MAC MODIFY WINDOW SCREEN FONT m.scrn_font, m.scrn_fsize STYLE m.scrn_fstyle ENDIF IF SET('TALK') = 'ON' SET TALK OFF m.t_stat = 'ON' m.t_stat = 'OFF' ENDIF SET TALK OFF * Restore databases, indexes and environment IF FILE("appview.vue") SET VIEW TO appview SET TALK OFF DELETE FILE appview.vue ENDIF IF FILE("foxapp.fky") RESTORE MACROS FROM foxapp DELETE FILE foxapp.fky ENDIF IF m.t_stat = "ON" SET TALK ON ENDIF SET POINT TO "&set_point" POP KEY ALL POP MENU _msysmenu CLEAR PROGRAM *Restore original error and escape routines IF TYPE('fxapp_error') = 'C' ON ERROR &fxapp_error ENDIF IF TYPE('fxapp_esc') = 'C' ON ESCAPE &fxapp_esc ENDIF SET SAFETY ON RELEASE m.bailout, m.dbfname, m.win_name, m.filt_expr, m.srchterm, m.skipvar, m.act3 RELEASE dbflist RETURN ******************************************************************* PROCEDURE setrelat * This procedure opens subsidiary databases (if any) and establishes * the relations between the main database and the subsidiary * databases. It will be empty if there are no subsidiary databases. DBFLISTf SELECT <<m.i>> dname = "<<dbflist[m.i,m.cdbfnum]>>" IF !FILE(m.dname) m.dname = GETFILE('DBF','Please locate the '+Juststem(m.dname)+ ' database:') IF EMPTY(m.dname) OR !FILE(m.dname) DO alert WITH "The "+ALLTRIM(m.dname+" database could not be found.") DO cleanup CANCEL ELSE SET PATH TO (SET('PATH') + ';' + Justpath(m.dname)) dbflist[<<m.i>>,m.cdbfnum] = m.dname dbflist[<<m.i>>,m.cstemnum] = juststem(m.dname) ENDIF ENDIF USE (m.dname) ALIAS <<dbflist[m.i,m.cstemnum]>> ; ORDER TAG <<m.tagname>> DEFINE WINDOW <<"W_"+dbflist[m.i,m.cstemnum]>> ; AT <<CHRTRAN(dbflist[m.i,m.srownum],",",".")>>, ; <<CHRTRAN(dbflist[m.i,m.scolnum],",",".")>> ; SIZE <<CHRTRAN(dbflist[m.i,m.erownum],",",".")>>, ; <<CHRTRAN(dbflist[m.i,m.ecolnum],",",".")>> ; FLOAT GROW ZOOM NOCLOSE MINIMIZE ; FONT "MS Sans Serif",8 ; STYLE "B" ; HALF ; COLOR SCHEME 10 BROWSE LAST NOWAIT; WINDOW <<"W_"+dbflist[m.i,m.cstemnum]>> ; NOAPPEND ; <<IIF(m.nextdbf>1,"NODELETE","")>> ; COLOR SCHEME 10 SELECT <<Juststem(dbflist[m.i,m.pdbfnum])>> <<dbflist[m.i,m.relstrnum]>> ADDITIVE * Restore the following line if you only want to see records in the * parent file that have related records in the child file. *SET FILTER TO FOUND('<<dbflist[m.i,m.cstemnum]>>') SELECT <<Juststem(m.dbfname)>> RETURN ******************************************************************* PROCEDURE definedbf * Define the dbflist array PUBLIC dbflist[m.numareas,m.numcols] DBFLISTf dbflist[m.i,m.j]f DBFLIST[<<m.i>>,<<m.j>>] = <<'"'+dbflist[m.i,m.j]+'"'>> DBFLIST[<<m.i>>,<<m.j>>] = <<dbflist[m.i,m.j]>> DBFLIST[<<m.i>>,<<m.j>>] = '' ******************************************************************* SET POINT TO &mpoint SET DEFAULT TO &p_path APPMENU.MPR DELETE FILE &mpr_name APPMENU.MPX DELETE FILE &mpx_name Building project appproc.prg appmenu.mnx prtsetup.scx getdest.scx getorder.scx appabout.scx appsrch.scx PRGS\appproc.prg MENUS\appmenu.prg SCREENS\prtsetup.prg SCREENS\getdest.prg SCREENS\getorder.prg SCREENS\appabout.prg SCREENS\appsrch.prg Adding control panel Building application SET DEFAULT TO &c_path WIN_STRINGDNAME QUOTED SC_FILE XNAME LATEDDBFGENERATE DBFNAME TSCXNAME YFORCEEXT MCREATESCX MNUNAME C_PATH APPFILE YUSERAPP_DIJUSTPATH TMPOINT _DIVALID_NAMEJUSTFNAME ALERT RSC_STOREDSTORERSC DPUTDBFLISTDBFLIST JUSTSTEM GTMFNAME NGADDBS REGEN _MNAME VCOORD HCOORD SCRNFILE OBJTYPE PLATFORM APP_PLATFONAME WIN_MSG SCRN_FACE FONTFACE FSCRN_SIZE FONTSIZE SCRN_STYLEFONTSTYLE STYLE ABORDER .CENTER rVPOS AWIN_NAME RELATEDDBFCTRLROW CTRLCOL ARRANGED SROWNUM SCOLNUM NNUMAREAS SRNUM EROWNUM EDCNUM RSECOLNUM HEIGHT TRANFONT NFLOAT GENCLOSE (c)FOUND_LINENUMLINES ACTIVATE NEWACT THELINE CSTEMNUM EB_FONT OTHEFONT HZTAGNAME CFLDNUM 03NUMCOLS DAPPNAME ndPROJNAME ESC_NAME KP_PATH PJTNAME 5MPR_NAME 3MPX_NAME XCOPYPIECE APPPROC APPMENU JNMNX 0OP2QFPRTSETUP 0OP7BFGETDEST GHGETORDER APPABOUT UAPPSRCH 0PFOXAPPDIR MERGECTRL advance.spr ADVANCE NGSPR QUITTING treewind dbfselec treewind \<Save Arrangement! ALT+S \<Cancel! ALT+C DO arrsave DO arrexit screens\appctrl.scx WINDOWS MS Sans Serif Control panel WINDOWS FoxApp couldn't find any Windows records for this screen. MS Sans Serif MS Sans Serif treewind OPENDBF GDBFNAME ARREXFLG TREE_UP TAPPGEN YDBFSELEC FTREEWIND A_SAVE TA_CANCEL MARR_SCRN DNAME ADDBS FOXAPPDIR IN_AREA DICTRL TPLATFORM IOBJTYPE MECTRL_WIDTHWIDTH CTRL_HEIGHHEIGHT DCTRLROW GHCTRLCOL SCXNAME THDBFLIST NGCSTEMNUM MAXLEN MAXHEIGHT MAXCAPT SHEIGHT SWIDTH FXSCXNME DBF_FONTFAFONTFACE DBF_FONTSIFONTSIZE DBF_FONTSTFONTSTYLE ARRANGED NEXTDBF LESTART_ROW START_COL SROWNUM SCOLNUM NUMAREAS WIN_HEIGHTWS_ROW GHTWS_COL GHTWE_ROW WE_COL GHTFONTSTRG TTHEFONT EROWNUM NECOLNUM CURRWIND GDBFNAME SKIPDBFBUTGENERATE TOTHER YADDDBF FMODDBF SCXNAME TADDSCX YMODSCX MARRANGE RSC_CHECK RETRIEVERSNEXTDBF GETDBFLISTRELATEDDBFCLOSE_UP COPYPIECE PUTOUT FINDSRC VERSIONDAT TRIMZERO FORCEEXT DEFAULTEXT JUSTFNAME JUSTSTEM JUSTEXT JUSTPATH ADDBS INVERT MERGECTRL INITDBFLIS OPENDBF CREATESCX FILATTR RELATEDDBF GETDBFLIST PUTDBFLIST MAKECDX DEFINEWIND MAPTOCHAR TRANFONT ARRSAVE PUTFONTVAL ARREXIT HASCHILD ACTWIN ERRSHOW ALERT APPERROR APPESCAPE WHATSTYLE _QDL0OOZZO _QDL0OP0HZ DBFVALID _QDL0OP103 _QDL0OP18D _QDL0OP1FE _QDL0OP1IK _QDL0OP1Q5 _QDL0OP1Y3 _QDL0OP21X _QDL0OP29J _QDL0OP2D6 _QDL0OP2JN _QDL0OP2QF _QDL0OP7BF _QDL0OP7GH _QDL0OP7LU _QDL0OP90P SCRNUPD could not be located. FNAME TALKz COMPATIBLEz READBORDERz dbfselec DBFSELEC DBFSELEC.PJX DBFSELEC DBFSELEC.SCX DBFSELEC DBFSELEC.MNX DBFSELEC DBFSELEC.PRG DBFSELEC DBFSELEC.QPR MS Sans Serif Related Tables dbfselec.vue DBFLISTf Database to open: dbfselec @ 1.923,1.833 GET dbfselec PICTURE "@&N" FROM dbflist SIZE 12.692,20.167 DEFAULT 1 FONT "MS Sans Serif", 8 STYLE "B" WHEN _qbp0zbo5j() VALID _qbp0zboe2() MS Sans Serif @*VN \<Add;\<Delete MS Sans Serif @*VT \!\<OK;\?\<Cancel MS Sans Serif @*HN Show As \<Tree Related Tables: MS Sans Serif dbfselec SET READBORDER &rborder treewind CURRAREA TALKSTAT COMPSTAT RBORDER DBFSELEC NEXTDBF INITDBFLISDBFLIST CSTEMNUM CDBFNUM NEWDBF JUSTSTEM FSELEC NUMAREAS ORIGDBFLISNUMCOLS SORIGNEXTDBADDCLR _QBP0ZBOWFOKBUT _QBP0ZBQS0TREE1 _QBP0ZBR77_QBP0ZBRMN_QBP0ZBRMUTREEWIND ARREXFLG CTRLROW CTRLCOL FSELEC NUMAREAS DBFLIST CSTEMNUM SSROWNUM SCOLNUM EROWNUM ECOLNUM ARRANGED APPGEN DBFSELEC ARREXFLG RLCOL NUMAREAS DBFLIST CSTEMNUM APPGEN DBFSELEC DBFNUM NUMAREAS DBFLIST PDBFNUM CSTEMNUM treewind treewind treewind treewind DBFNUM INDENT TREESTR DBFLIST CSTEMNUM END_ROW NEXTDBF S_COL STREEWIND EESTR NUMAREAS PDBFNUM SHOWTREE DBFSELEC NEXTDBF ADDCLR HASCHILD Main database. relselec.spr DBFSELEC NEWDBF DBFLIST CSTEMNUM CHILDFLD CFLDNUM CHILDDBF CDBFNUM SPARENTFLD PFLDNUM IGNCASE RELSTR RELSTRNUM PARENTDBF PDBFNUM ADDMODE SRELSELEC NEXTDBJUSTSTEM There are no available work areas left. Database to open: Duplicate database names are not allowed. relselec.spr You cannot clear the main database. You cannot clear a database that has related databases. ADDCLR NEXTDBF NUMAREAS NEWDBF JUSTEXT JUSTSTEM DBFLIST SCSTEMNUM CHILDFLD CHILDDBF PARENTFLD IGNCASE RELSTR PARENTDBF RELSELEC SMAKECDX RELSTRNUM PFLDNUM CFLDNUM CDBFNUM 0PDBFNUM THEFONT DEFAULTFONCASCADENUMDEFAULTCASSROWNUM SCOLNUM EROWNUM ECOLNUM DBFSELEC ARRANGE HASCHILD NUMCOLS Saving database relations and window positions. dbfselec.vue2 dbfselec.vue dbfselec.vue2 dbfselec.vue OKBUT RELATEDDBFSTORERSC PUTDBFLISTDBFLIST CSTEMNUM ORIGDBFLISNEXTDBF SORIGNEXTDBDBFSELEC treewind \<Show tree No tree to show! Database tree \<Hide tree TREEWIND TREE1 DDBFNEXTDBF START_ROW END_ROW START_COL END_COL ISSHOWTREE NEXTDBF ARRANGE treewind CURRWIND NEXTDBF FTREE1 TREEWIND SHOWTREE ARRSAVE ARREXIT HASCHILD SHOWTREE _QBP0ZBO5J _QBP0ZBOE2 _QBP0ZBOWF _QBP0ZBQS0 _QBP0ZBR77 _QBP0ZBRMN _QBP0ZBRMU TALKz COMPATIBLEz READBORDERz relselec RELSELEC RELSELEC.PJX RELSELEC RELSELEC.SCX RELSELEC RELSELEC.MNX RELSELEC RELSELEC.PRG RELSELEC RELSELEC.QPR DEFINE WINDOW relselec AT 0.000, 0.000 SIZE 12.154,89.667 TITLE "Options for &thisdbf" FONT "MS Sans Serif", 8 STYLE "B" FLOAT NOCLOSE SHADOW NOMINIMIZE DOUBLE Please locate the F database relselec Courier Equals MS Sans Serif Courier MS Sans Serif @*HN \!\<OK;\?\<Cancel How is This Table Related to Another Table? MS Sans Serif Field in Other Table: MS Sans Serif Field in This Table: MS Sans Serif |?U2@ MS Sans Serif @*HN \<Advanced... relselec SET READBORDER &rborder CHILDSTEM CHILDDBF CHILDFLD PARENTFLD IGNCASE RELSTR PARENTDBF ADDMODE DMODE THISDBF JUSTFNAME CHILDLIST PARENTLISTCURRAREA TALKSTAT COMPSTAT RBORDER RELSELEC IN_AREA JUSTSTEM PARENTROW ILDSTEM ADDTYPE CHILDROW NEWCHILD NEWPARENT CDISLIST _QBP0MEESC_QBP0MEF0HOKCANCL _QBP0MEF8EADVBUT _QBP0MEFTZ_QBP0MEG39S FLDNAME FLDNAME RETVAL CURITEM SOURCETYPETARGTYPE RENTFLD GETTYPE PECHILDLIST PARENTLIST CDISLIST CHILDLIST CHILDFLD The child database could not be found. The parent database could not be found. SET RELATION TO F INTO Parent and child have different data types. PARENTFLD CHILDFLD OKCANCL DBFPART RELSTR TPARENTDBF ADDMODE CHILDSTEM CHILDDBF cascdlg.spr CASCDLG NTFLD DBFLIST NEXTDBF CSTEMNUM CURRWIND PARENTFLD GETTYPE CHILDFLD OKCANCL ADDTYPE GETTYPE CDISLIST _QBP0MEESC _QBP0MEF0H _QBP0MEF8E _QBP0MEFTZ _QBP0MEG39 TALKz COMPATIBLEz advance ADVANCE ADVANCE.PJX ADVANCE ADVANCE.SCX ADVANCE ADVANCE.MNX ADVANCE ADVANCE.PRG ADVANCE ADVANCE.QPR MS Sans Serif Advanced Options advance MS Sans Serif @*RVN \<Abbreviated;\<Full Project Generation MS Sans Serif MS Sans Serif @*C \<Store relations MS Sans Serif @*VN \!\<OK;\?\<Cancel MS Sans Serif @*C \<Retrieve relations Resource File Options MS Sans Serif MS Sans Serif |?U4@ @*HN \<Browse Resources advance CURRAREA TALKSTAT COMPSTAT ADVANCE REGEN FULLPROJ ORIGRETRIERETRIEVERSORIGSTORE STORERSC ADVOK _QBP0MFFDPRSCBROW RS_QBP0MFFS5o ADVOK REGEN FULLPROJ FINDSRC FOXAPPDIR RETRIEVERSORIGRETRIESTORERSC SORIGSTORE DELETEDz FoxFont FoxApp Resource File Entries SET DELETED &in_del IN_AREA IN_DEL APP_RSC RSC_BROW RSNAME IERSCTYPE S_QBP0MFFDP _QBP0MFFS5 TALKz COMPATIBLEz READBORDERz cascade CASCADE CASCADE.PJX CASCADE CASCADE.SCX CASCADE CASCADE.MNX CASCADE CASCADE.PRG CASCADE CASCADE.QPR MS Sans Serif Enhanced Deletion cascade MS Sans Serif @*HT \!\<OK;\?\<Cancel @ 1.538,2.800 GET cascdel PICTURE "@*C Automatically Delete &c_child Records" SIZE 1.308,41.000 DEFAULT 0 FONT "MS Sans Serif", 8 STYLE "BT" COLOR ,,,,,,,,RGB(0,0,0,255,255,255),RGB(0,0,0,255,255,255) @ 2.846,8.400 SAY "When a &c_parent Record is Deleted?" SIZE 1.000,36.500, 0.000 FONT "MS Sans Serif", 8 STYLE "BT" COLOR RGB(0,0,0,255,255,255) cascade SET READBORDER &rborder THISDBF PARENTFLD C_PARENT JUSTSTEM C_CHILD CHILDDBF CASCDEL DBFLIST DBFSELEC CASCADENUMCURRAREA TALKSTAT COMPSTAT RBORDER CASCADE OKCANCL _QBP0MFSQUo OKCANCL CASCDEL DBFLIST DBFSELEC CASCADENUM_QBP0MFSQU MS Sans Serif ffffff P_WIND CENTERED RBORD_WIDTCBORD_WIDTFNTNAME FNTSIZE FNTSTYLE PUTPANEL SCREENS\APPSCX.SPR c:\windtemp\ APPSCX.SPX PRGS\APPSHELL.PRG APPSHELL.FXP SCREENS\DBFSELEC.SPR DBFSELEC.SPX SCREENS\RELSELEC.SPR RELSELEC.SPX SCREENS\ADVANCE.SPR ADVANCE.SPX SCREENS\CASCDLG.SPR CASCDLG.SPX PRGS\PUTPANEL.PRG PUTPANEL.FXP