home *** CD-ROM | disk | FTP | other *** search
/ Total C++ 2 / TOTALCTWO.iso / vfp5.0 / vfp / samples / servers / gopher / srchdata.prg < prev    next >
Encoding:
Text File  |  1996-08-21  |  1.2 KB  |  39 lines
  1. * The idea behind this class being used in a a Custom OLE Server is that it
  2. * case provides a smart search buisness object which knows how and where to 
  3. * look across the network for a customer who may be located in 1 of 50
  4. * different databases (e.g., like a Gopher). 
  5. * 
  6. * This simple scenario here shows a similar search strategy, 
  7. * only the search paths being a local and a remote DBC. 
  8. * Local data = Testdata and Remote data = Tastrade.
  9. *
  10. * Note: make sure you change the Database path below to accommodate your VFP working directory.
  11. *
  12.  
  13. #DEFINE FOXHOME    "\VFP\"
  14.  
  15. DEFINE CLASS Gopher AS Custom OLEPUBLIC
  16.  
  17.     oDERef = ""
  18.  
  19.     PROCEDURE UpdateDE
  20.         PARAMETER oNewDE,lRemote
  21.         IF TYPE("oNewDE")#"O" OR ISNULL(m.oNewDE)
  22.             * Failed
  23.             RETURN .F.
  24.         ENDIF
  25.         THIS.oDERef = m.oNewDE
  26.         
  27.         IF !m.lRemote
  28.             * Use local data
  29.             THIS.oDERef.cursor1.database = FOXHOME + "SAMPLES\DATA\TESTDATA.DBC"
  30.             THIS.oDERef.cursor1.cursorsource = "Employee"
  31.         ELSE
  32.             * Use remote data (simiulated)
  33.             THIS.oDERef.cursor1.database = FOXHOME + "SAMPLES\TASTRADE\DATA\TASTRADE.DBC"
  34.             THIS.oDERef.cursor1.cursorsource = "Employee"
  35.         ENDIF
  36.         THIS.oDERef = ""
  37.     ENDPROC
  38.     
  39. ENDDEFINE