CustTables[1].SearchByRef(AraRef)
if DBErr=0 then
 CustTables[1].GetTxtField("ADI", OAdi)
 SetTextVal("TestEdt", OAdi)
 .....

 QryStr = "SELECT LOGREF, ADI, TUTAR FROM SQLTABLOM WHERE ....."
 CreateQuery(oQry) 
 oQry.SetSQLText(QryStr) 
 Res=oQry.ExecuteDirect()
 if oQry.Ready=1 then
 Res=oQry.First()
 KGrid="OdemeGrid"
 GSatir = MGridLines(KGrid)
 i=0
 do while res=1 
 oQry.GetFieldValue(1, 1, MyLogRef)
 oQry.GetFieldValue(2, 4, MyAdi)
 oQry.GetFieldValue(3, 3, MyTutar)
 .....
 InsertGridRow(KGrid, i)
 SetMGridRow(KGrid, i)
 SetCellInt(KGrid, i, 10000, MyLogRef)
 SetCellText(KGrid, i, 10001, MyAdi)
 SetCellFloat(KGrid,i,10002, MyTutar)

		....
 InvalidateGrid(KGrid)
 RefreshControl(KGrid, 1)
 res= oQry.Next()
 i = i + 1
 loop
 end if