Add(MainForm,2953706,63,133)
{
Width=680
Height=321
link(onCreate,6714608:doBrowse,[])
}
Add(OLEdb,660592,273,154)
{
link(onConnect,1186713:doCreate,[])
link(Driver,8447662:Text,[])
}
Add(ListBox,8447662,273,77)
{
Left=5
Top=5
Width=210
Height=275
}
Add(OLEdb_Session,1186713,336,154)
{
link(onCreate,15510662:doQuery,[])
}
Add(OLEdb_Query,15510662,399,154)
{
link(onQuery,16321824:doStr,[(453,160)(453,132)])
link(onColumns,5673081:doEnum,[])
link(Text,13145448:Text,[])
}
Add(StringTable,10503118,546,126)
{
Left=220
Top=5
Width=445
Height=275
Point(doAddColumn)
}
Add(StrList,13145448,406,77)
{
Strings=#19:SELECT * FROM Phone|
}
Add(MT_Enum,5673081,476,161)
{
link(onItem,10503118:doAddColumn,[])
}
Add(MT_String,16321824,476,126)
{
link(onResult,10503118:doAdd,[])
}
Add(Browse,6714608,119,147)
{
link(onBrowse,7631174:doString,[])
}
Add(FormatStr,7631174,175,147)
{
DataCount=1
Mask="Driver={Microsoft dBASE Driver (*.dbf)};
DriverId=533;
Description=dBase 5;
FIL=dBase 5;
DefaultDir=%1;
PageTimeout=600;
CollatingSequence=International;"
link(onFString,3107273:doEvent1,[])
}
Add(Hub,3107273,224,147)
{
link(onEvent1,8447662:doText,[(256,153)(256,104)])
link(onEvent2,660592:doOpen,[])
}
Для проверки можешь выбрать папку ElementsDelphiExampleDateBase там есть файл dBase -- Phone.dbf эта таблица и откроется, тк запрос настроен именно на нее.