Add(MainForm,2953706,42,182)
{
 Width=791
 Height=430
 Point(onClose)
 link(onCreate,6803554:doConnectDSN,[])
 link(onClose,6803554:doDisconnect,[(100,209)(100,223)])
}
Add(StringTableMT,646954,406,217)
{
 Left=150
 Top=5
 Width=455
 Height=380
 Columns=#5:1=150|5:2=100|
 IconsCheck=[]
 MiscIcons=[]
 Icons=[]
 Point(doMT_Add)
}
Add(MT_String,14662179,357,252)
{
 link(onResult,646954:doMT_Add,[])
}
Add(Message,15852608,245,294)
{
}
Add(ODBC,6803554,189,196)
{
 DSN_Name="TDT_firebird"
 Driver=""
 Point(onError)
 Point(ColumnsCount)
 link(onStreamString,3175540:doConvert,[])
 link(onError,15852608:doMessage,[(234,223)(234,300)])
}
Add(Button,8681642,63,280)
{
 Left=10
 Top=10
 link(onClick,1459395:doString,[])
}
Add(FormatStr,1459395,126,280)
{
 Mask="SELECT "name", "barcode"  FROM "modelgoods", "vollink"  WHERE "cognate" = "modelid""
 link(onFString,6803554:doQuery,[(177,286)(177,209)])
}
Add(Convertor,3175540,245,196)
{
 Mode=11
 link(onResult,11414078:doString,[(285,202)(285,272)])
}
Add(InlineCode,11414078,294,266)
{
 @Hint=#45:Формирует строку для добавления в StringTable|
 WorkPoints=#53:doString=Формирование строки для вывода в StringTable|
 EventPoints=#74:onEvent=Происходит когда все поля строки заполнены и выдаёт строку в поток|
 DataPoints=#45:Fields=Количество полей для заполнения строки|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|23:uses kol, Share, Debug;|0:|4:type|30: THiAsmClass = class( TDebug )|10:   private|9:   public|26:    _data_Data: THI_Event;|22:    Fields: THI_Event;|23:    onEvent: THI_Event;|16:    Count: Word;|19:    StrOut: String;|53:   procedure doString( var _Data:TData; Index:word );|5: end;|0:|14:implementation|0:|62:procedure THiAsmClass.doString( var _Data:TData; Index:word );|5:  var|17:    Data : TData;|15:    i: Integer;|20:    strTemp: String;|7:  begin|31:    Data.Data_type := data_str;|21:    Data.sdata := '';|51:    strTemp := ReadString( _data, _data_Data, '' );|31:    Data.Data_type := data_int;|20:    Data.idata := 0;|41:    i := ReadInteger( _data, Fields, 0 );|38:    strOut := strOut + strTemp + ';' ;|17:    Inc( Count );|27:    if Count = i then begin|36:     _hi_onEvent( onEvent, strOut );|16:     Count := 0;|18:     strOut := '';|15:    end; { If }|6:  end;|0:|4:end.|
 link(onEvent,14662179:doMTString,[])
 link(Fields,6803554:ColumnsCount,[(300,247)(195,247)])
}

DRIVER = Firebird/InterBase(r) driver;