SET EXCLUSIVE OFF
USE (HOME(2)+"northwind\customers.dbf") SHARED
BROWSE NORMAL NOWAIT
USE (HOME(2)+"northwind\orders.dbf") SHARED IN 0
SELECT orders
BROWSE NORMAL NOWAIT
SET ORDER TO TAG customerid
GO TOP
MOVE WINDOW orders CENTER

*SET STEP ON 
CLEAR
LOCAL loConn AS ADODB.CONNECTION, ;
   loRs AS ADODB.Recordset,;
   loCommand AS ADODB.COMMAND, ;
   loException AS EXCEPTION, ;
   loCursor AS CURSORADAPTER, ;
   country, ;
   laErrors[1]
loConn = CREATEOBJECT('ADODB.Connection')
WITH loConn 
*!*        .ConnectionString = 'provider=SQLOLEDB.1;data source=localhost;' + ; 
*!*            'initial catalog=Northwind;trusted_connection=yes'
   .ConnectionString = 'provider=vfpoledb;data source=' + ;
       HOME(2)+'northwind\Northwind.dbc'
   TRY
      .OPEN()
   CATCH TO loException
      MESSAGEBOX(loException.MESSAGE)
      CANCEL
   ENDTRY
ENDWITH
loCommand = CREATEOBJECT('ADODB.Command')
loCommand.ActiveConnection = loConn
loRs = CREATEOBJECT('ADODB.Recordset') 
loRs.CursorLocation = 3    && adUseClient  
loRs.LockType = 3          && adLockOptimistic
loRs.CursorType = 1      && adOpenKeyset    
loCursor = CREATEOBJECT('CursorAdapter')
WITH loCursor    
   .ALIAS          = 'Custom'
   .DATASOURCETYPE = 'ADO'
*   'select * from customers where country=?lcCountry'
   .SELECTCMD      = ;
        "SELECT Customers.customerid, Customers.companyname, Orders.orderid, ";
        + "  Orders.shipname ";
        + " FROM ";
        + "   Customers ";
        + "   INNER JOIN Orders ";
        + "   ON  Customers.customerid = Orders.customerid ";
        + " WHERE  Orders.customerid = ?lcCustomerid"
   *.KeyFieldList = "customerid,orderid"
   *.UpdatableFieldList = "companyname,shipname"
   .DATASOURCE = loRs
   .DATASOURCE.ActiveConnection = loConn
   lcCustomerid = 'ALFKI'
   llReturn = .CURSORFILL(.F., .F., 0, loCommand)
   IF llReturn
         * Во время этого просмотра в другом приложении
         * измените customers.companyname для Customers.customerid = 'ALFKI'
         * и Orders.shipname для Orders.customerid = 'ALFKI'     
      BROWSE && <- (1) -------------------------------
      lnRefreshed = .RecordRefresh() && REFRESH()
      IF lnRefreshed >= 0
          * Здесь смотрим результат в первой записи
         BROWSE && <- (2) -------------------------------
      ELSE    
        AERROR(laErrors)
        MESSAGEBOX(laErrors[2])
      ENDIF
      lcCustomerid = 'ANATR'
      llReturn  = .CURSORREFRESH()
      IF llReturn
            * Во время этого просмотра в другом приложении
            * измените customers.companyname для Customers.customerid = 'ANATR'
            * и Orders.shipname для Orders.customerid = 'ANATR'     
         BROWSE && <- (3) -------------------------------
         lnRefreshed = .RecordRefresh() && REFRESH()
         IF lnRefreshed >= 0
              * Здесь смотрим результат в первой записи
             BROWSE && <- (4) -------------------------------
         ELSE    
            AERROR(laErrors)
            MESSAGEBOX(laErrors[2])
         ENDIF
      ENDIF llReturn
   ELSE
      AERROR(laErrors)
      MESSAGEBOX(laErrors[2])
   ENDIF llReturn
ENDWITH

DEFINE CLASS cad AS cursoradapter
SelectCmd = "select ORDERS.CUSTOMERID, ORDERS.ORDERID, CUSTOMERS.COMPANYNAME from ORDERS inner join CUSTOMERS on ORDERS.CUSTOMERID=CUSTOMERS.CUSTOMERID ORDER BY ORDERS.ORDERID"
CursorSchema = "CUSTOMERID C(5), ORDERID I, COMPANYNAME C(40)"
Alias = "csr"
DataSourceType = "Native"
KeyFieldList = "ORDERID"
Tables = "ORDERS, CUSTOMERS"
UpdatableFieldList = "CUSTOMERID"
UpdateNameList = "CUSTOMERID ORDERS.CUSTOMERID, ORDERID ORDERS.ORDERID"
RefreshCmd = "select ORDERS.CUSTOMERID,ORDERS.ORDERID, CUSTOMERS.COMPANYNAME from ORDERS inner join CUSTOMERS on ORDERS.CUSTOMERID=CUSTOMERS.CUSTOMERID WHERE ORDERS.ORDERID = csr.ORDERID"
RefreshCmdDataSourceType = "Native"
PROCEDURE Init
local lcDBC
lcDBC = HOME(2)+"NORTHWIND\NORTHWIND.DBC'
if dbused(lcDBC)
  set database to (m.lcDBC)
else
  open database (m.lcDBC)
endif
ENDPROC
ENDDEFINE

PUBLIC goCad
goCad = CREATEOBJECT("cad")
? m.goCad.CursorFill()
BROWSE
* Смотрим данные - скажем возьмём первый заказ # 10248 - там заказчик был VINET
* Т. е. станем на эту строчку и запомним значения полей CUSTOMERID и COMPANYNAME
* В первой копии VFP (где напрямую открыты исходные таблицы)
* поменяем в ORDERS в этой записи код заказчика на скажем HANAR
* (для чего стоит заранее сменить индекс на ORDERID - чтоб не искать долго запись)
? m.goCad.RecordRefresh()
* Смотрим снова на данную запись - всё обновилось как и должно
* Далее - меняем уже исключительно из второй сессии - пользуясь нашим CAD-ом
REPLACE CustomerID WITH "CHOPS"
? TABLEUPDATE(0)
? m.goCad.RecordRefresh()
* Наблюдаем новое значение
REPLACE CustomerID WITH "VINET"
? TABLEUPDATE(0)
? m.goCad.RecordRefresh()
* Вернули старое значение

  loRs.Properties("Unique Table").Value="Orders"
  loRs.Properties("Resync Command").Value="SELECT Customers.customerid, Customers.companyname, Orders.orderid, ";  
          + "  Orders.shipname ";  
          + " FROM ";  
          + "   Orders  ";  
          + "   INNER JOIN Customers ";  
          + "   ON  Orders.orderid=? AND Customers.customerid = Orders.customerid "
  loCursor.SELECTCMD      = ;  
          "SELECT Customers.customerid, Customers.companyname, Orders.orderid, ";  
          + "  Orders.shipname ";  
          + " FROM ";  
          + "   Orders ";  
          + "   INNER JOIN Customers ";  
          + "   ON  Customers.customerid = Orders.customerid ";  
          + " WHERE  Orders.customerid = ?lcCustomerid"  

    loCursor.KeyFieldList = "customerid,orderid"  
    loCursor.UpdateNameList = "customerid Customers.customerid, companyname Customers.companyname,orderid Orders.orderid, shipname Orders.shipname"
    loCursor.Tables = "Customers, Orders"
    loCursor.RefreshCmdDataSource=loCommand
    loCursor.RefreshCmdDataSourceType="ADO" 

DEFINE CLASS caADO AS CursorAdapter
  oConn     = NULL
  oRS       = NULL
  lFilled   = .F.
  Dimension aErrorInfo(1)
  Dimension aUpdateInfo(1)
  nError    = 0
  lSaved    = .F.
  Alias     = ""
  DataSourceType = "ADO"
  lUseCursorSchema = .F.
  
  FUNCTION Init()    
    THIS.ADDPROPERTY('oCommand', NEWOBJECT('ADODB.Command'))
    This.DataSource = This.oRS
    This.DataSource.ActiveConnection = This.oConn
    This.oCommand.ActiveConnection   = This.oConn
  ENDFUNC
  
  FUNCTION GetConnectToServer
    Local cConString     As String ,;
        cFileXml         As String ,;
        cFileAndPath     As String ,;
        CurrentProcedure As String ,;
        gcCurrentDir     As String
        
    Local nPathStart     As Number , nLenOfPath As Number
    gnHandle      = 0
    cConString    = ""
    cFileXml      = "conn.xml"
    cCurrentProcedure = Sys(16,1)
    nPathStart   = At(":",cCurrentProcedure)- 1
    nLenOfPath   = Rat("\", cCurrentProcedure,2) - (nPathStart)
    gcCurrentDir = Substr(cCurrentProcedure, nPathStart, nLenOfPath)
    gcCurrentDir = Addbs(gcCurrentDir)
    cFileAndPath = Alltrim(gcCurrentDir) + cFileXml
    = Xmltocursor(cFileAndPath,"conn",512)
    cConString     = conn.SqlDatabaseADO
    Use In "conn"
    RETURN (cConString)
  ENDFUNC 
  Procedure GetSQLData
    This.ResetError()
    This.lFilled = This.CursorFill(This.lUseCursorSchema, .F., 0, This.oCommand)
    If Not This.lFilled
        This.nError = Aerror(This.aErrorInfo)
    Endif
  Endproc
  Procedure SaveData
    Local laInfo(1), lnRecord
    This.ResetError()
    This.lSaved = .T.
    This.lSaved = Tableupdate(2, .F., This.Alias , This.aUpdateInfo)
    If Not This.lSaved
        This.nError = Aerror(This.aErrorInfo)
    Endif
  Endproc
  Procedure NewData
      This.lFilled = This.CursorRefresh()
      If Not This.lFilled
        This.nError = Aerror(This.aErrorInfo)
      Endif
  Endproc
  PROTECTED Procedure ResetError
        This.nError = 0
        This.aErrorInfo = []
  Endproc
  Protected Procedure Destroy
        This.oRS      = .Null.
        This.oCommand = .Null.
  Endproc
    FUNCTION oConn_Access() as ADODB.Connection 
      LOCAL loConn as ADODB.Connection 
      IF VARTYPE(this.oConn)<>"O" THEN 
        this.oConn = NULL
        loConn = NEWOBJECT("ADODB.Connection")
        IF VARTYPE(loConn)="O" THEN 
          loConn.CursorLocation   = 3
          loConn.ConnectionString = THIS.GetConnectToServer()
          loConn.OPEN()
          This.oConn = loConn
        ENDIF 
      ENDIF 
      RETURN this.oConn
    ENDFUNC 
      
    FUNCTION oRS_Access() as ADODB.RecordSet
      LOCAL loRS as ADODB.RecordSet
      IF VARTYPE(this.oRS)<>"O" THEN 
        this.oRS = NULL
        loRS = NEWOBJECT("ADODB.Recordset")
        IF VARTYPE(loRS)="O" THEN 
          loRS.MaxRecords = 0
          this.oRS = loRS
        ENDIF 
      ENDIF 
      RETURN this.oRS
    ENDFUNC
ENDDEFINE