Add(MainForm,3171043,119,84)
{
 Left=20
 Top=105
 Width=390
 Height=415
 Caption="dBase_with_ODBCDataSource"
 Position=1
 link(onCreate,11947023:doStrCat,[])
}
Add(Button,941652,161,315)
{
 Left=305
 Top=5
 Width=75
 TabOrder=-1
 Caption="Подключить"
 link(onClick,12433424:doOpen,[])
}
Add(StringTable,6078793,518,287)
{
 Left=5
 Top=165
 Width=375
 Height=210
 Point(doAddColumn)
}
Add(MT_Enum,5673081,371,322)
{
 link(onItem,6078793:doAddColumn,[])
}
Add(MT_String,16321824,371,259)
{
 link(onResult,10028346:doString,[])
}
Add(Edit,11108326,217,98)
{
 Left=5
 Top=5
 Width=295
 Text=""
 link(onChange,6971676:doPart,[])
}
Add(Dir,5145339,168,49)
{
}
Add(StrCat,11947023,168,98)
{
 Str2="ric.dbf"
 link(onStrCat,11108326:doText,[])
 link(Str1,5145339:CurrentDir,[])
}
Add(FormatStr,5564056,322,98)
{
 DataCount=1
 Mask="Driver={Microsoft dBASE Driver (*.dbf)};
DriverId=533;
Description=dBase 5;
FIL=dBase 5;
DefaultDir=%1;
PageTimeout=600;
CollatingSequence=International;"
 Point(FString)
 link(onFString,14216946:doText,[])
}
Add(FormatStr,10216816,357,140)
{
 Mask="SELECT * FROM %1"
 Point(FString)
 link(onFString,90655:doText,[])
}
Add(FilePart,6971676,266,98)
{
 NameWOExt=1
 link(onPath,5564056:doString,[])
 link(onName,10216816:doString,[(312,111)(312,146)])
}
Add(Memo,14216946,413,77)
{
 Left=5
 Top=30
 Width=375
 Height=105
}
Add(DSC_Query,13233332,266,315)
{
 DSManager="odbc_driver_1"
 link(onQuery,16321824:doStr,[(311,321)(311,265)])
 link(onColumns,439322:doAdd,[])
 link(SQL,90655:Text,[(272,183)(419,183)])
}
Add(Edit,90655,413,140)
{
 Left=5
 Top=140
 Width=375
 Text=""
}
Add(DS_ODBC,12433424,217,315)
{
 Name="odbc_driver_1"
 link(onCreate,13233332:doQuery,[])
 link(Driver,5564056:FString,[(223,165)(328,165)])
}
Add(Charset,11068760,462,259)
{
 link(onCharset,6078793:doAdd,[(506,265)(506,293)])
}
Add(MT_Add,439322,322,322)
{
 InputMT=1
 link(onAdd,5673081:doEnum,[])
 link(Data,13681477:Value,[])
}
Add(Memory,13681477,322,273)
{
 Default=String(N)
}
Add(EventFromData,9210721,413,210)
{
 link(onEvent,16428882:doOperation,[])
}
Add(Math,16428882,462,210)
{
 Op2=1
 ResultType=0
 link(onResult,9210721:doData,[(506,216)(506,204)(401,204)(401,216)])
 link(Op1,6078793:Count,[(468,198)(496,198)(496,344)(524,344)])
}
Add(FormatStr,10028346,413,259)
{
 Mask="%1;%2"
 link(onFString,11068760:doCharset,[])
 link(Str1,9210721:GetData,[])
}