Add(MainForm,3171043,210,161)
{
 Left=20
 Top=105
 Height=460
 Caption="OLEDBF"
 Position=1
}
Add(Label,4277617,203,112)
{
 Left=10
 Top=110
 Width=44
 Height=17
 Caption="Запрос:"
}
Add(OLEdb,2142462,266,238)
{
 Point(onError)
 link(onConnect,14252000:doCreate,[])
 link(Driver,16491277:Text,[])
}
Add(Button,941652,210,238)
{
 Left=305
 Top=90
 Width=75
 Caption="Подключить"
 link(onClick,2142462:doOpen,[])
}
Add(OLEdb_Query,11136757,378,238)
{
 Text="SELECT * FROM PHONE "
 link(onQuery,16321824:doStr,[(426,244)(426,209)])
 link(onColumns,5673081:doEnum,[])
 link(dbSession,1082019:Data1,[(384,226)(356,226)(356,331)(328,331)])
}
Add(OLEdb_Session,14252000,322,238)
{
 Point(onError)
 link(onCreate,9808021:doWork2,[])
 link(dbHandle,2142462:dbHandle,[(328,226)(300,226)(300,282)(272,282)])
}
Add(StringTable,6078793,504,210)
{
 Left=10
 Top=235
 Width=370
 Height=185
 Point(doAddColumn)
}
Add(MT_Enum,5673081,441,245)
{
 link(onItem,6078793:doAddColumn,[])
}
Add(MT_String,16321824,441,203)
{
 link(onResult,6078793:doAdd,[(489,209)(489,216)])
}
Add(Hub,1623322,266,427)
{
 OutCount=3
 link(onEvent1,10639747:doExec,[(310,433)(310,384)])
 link(onEvent2,6078793:doClear,[(401,440)(401,223)])
 link(onEvent3,9808021:doWork3,[(361,447)])
}
Add(Label,3324329,203,105)
{
 Left=10
 Top=10
 Width=76
 Height=17
 Caption="Подключение:"
}
Add(Memo,16491277,266,168)
{
 Left=10
 Top=30
 Width=370
 Height=55
 Strings=#43:Provider=MSDASQL.1;DSN=Файлы dBASE;DBQ=C:\;|
 ScrollBars=2
}
Add(HubEx,9808021,357,231)
{
 link(onEvent,11136757:doQuery,[])
}
Add(Button,1248675,210,427)
{
 Left=300
 Top=205
 Width=80
 Caption="Выполнить"
 link(onClick,1623322:doEvent1,[])
}
Add(OLEdb_Query,10639747,329,371)
{
 link(dbSession,1082019:Data2,[])
 link(Text,9497040:Text,[(342,359)(377,359)])
}
Add(GetData,1082019,322,287)
{
 link(Data,14252000:dbSession,[])
}
Add(Memo,9497040,371,301)
{
 Left=10
 Top=130
 Width=370
 Height=70
 Strings=#69:INSERT INTO PHONE(LASTNAME,NAME,PHONE,STREET,HOUSE,APP,NOTES) VALUES |54:('Петров','Петр','56789','Садовая','56','6','Редиска')|
}

#pas
initialization
  CoInitialize(nil);
finalization
  CoUninitialize;