home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / dbase / bbdo23.zip / CUSTOM.PRG < prev    next >
Text File  |  1993-05-02  |  3KB  |  60 lines

  1. *****************************************************************************
  2. **-- Copyright 1993 B&B Systems DOALL                                       *
  3. **-- You can modify this file anyway you want                               *
  4. **-- After making ANY changes here, this file needs to be                   *
  5. **-- compiled with FoxPro to make an .FXP file.                             *
  6. *****************************************************************************
  7.  
  8. **-- SAMPLE #1
  9. **-- The line below will search for a data base file called
  10. **-- Product.dbf, after entering <CTRL-F2>.  If found it will be displayed
  11. **-- on the screen.  
  12. ON KEY LABEL CTRL+F2 DO filelook WITH 'PRODUCT',.t.,.t.
  13.  
  14.  
  15.  
  16. **-- SAMPLE #2
  17. **-- This sample shows you how to 1) activate a key (F5) to 2) call a 
  18. **-- separate program called backup.prg which in turn "RUNS" a BATCH file
  19. **-- in DOS called Backup.bat (see below).
  20. ON KEY LABEL F5 DO backup
  21.  
  22.  
  23. **-- Sample #3
  24. **-- Use this to move data with one keystroke while in the browse screen.
  25. **-- the sample below will move data from a FIELD Called ACTIVITY1 (used 
  26. **-- to insert activity codes) to another field called ACTIVITY2, and
  27. **-- move whatever information that was in ACTIVITY 2 to ACTIVITY3. 
  28. **-- This assumes that your data base has threee fields called ACTIVITY1,
  29. **-- ACTIVITY2, and ACTIVITY3.
  30. **-- Note: if you insert the key word ALL after REPLACE, all records
  31. **-- in the data file would be changed.
  32. **-- ON KEY LABEL CTRL+F3 REPLACE ALL ACTIVITY3 WITH ACTIVITY2, ACTIVITY2 WITH ACTIVITY1  
  33.  
  34.  
  35. **-- Sample #4
  36. **-- Take the asterisk off the line below if you have a 1) REP (Sales 
  37. **-- Representative) file, 2) a field called REP for a sales rep code
  38. **-- in your main data file, and 3) you want to access the proper REP Name/
  39. **-- Phone number, etc. in Reports, Labels, Letters with this 
  40. **-- variable name:<<REP->repname>>, <<REP->repphone>>
  41. IF file00='SAMPLE'               &&name of your master file - You only want to call this when your using a file containing REP
  42.    IF FILE('REP.DBF')
  43.    =g_opnfl('REP','REP',.f.,.f.)  &&.f.=open exclusively, .f.=open again (if already open)
  44.    SET ORDER TO TAG rep
  45.    SELECT &file00
  46.    SET RELATION TO rep INTO REP
  47.    ENDIF
  48. ENDIF
  49.  
  50. **-- Sample #5 (Same as #4, but uses state.dbf file)
  51. **-- Allows use of Illinois instead of IL, or Wisconsin instead of WI <<STATE->desc>>.
  52. **-- or access to county names with <<STATE->county>>
  53. *IF file00='SAMPLE'               &&name of your master file - You only want to call this when your using a file containing STATE
  54.    *IF FILE('STATE.DBF')
  55.    *=g_opnfl('STATE','STATE',.f.,.f.)
  56.    *SET ORDER TO TAG state
  57.    *SELECT &file00
  58.    *SET RELATION TO state INTO STATE
  59.    *ENDIF
  60. *ENDIF