Вверх ↑
Ответов: 497
Рейтинг: 16
#1: 2017-08-29 23:53:04 ЛС | профиль | цитата

Add(MainForm,3320495,105,147)
{
Width=419
Height=261
}
Add(LineBreakEx,12280247,294,287)
{
Caption="Имя "
Type=2
}
Add(ProgressBarRush,16035786,889,154)
{
Left=15
Top=111
Width=375
Height=25
DrawProgress=1
Caption=""
Point(doMax)
}
Add(LineBreakEx,12817326,763,154)
{
Caption="прогрес"
Type=1
link(OnEvent,6017396:Cable,[])
}
Add(LineBreakEx,12526161,931,392)
{
Caption="прогрес"
}
Add(Hub,14895446,238,308)
{
OutCount=4
link(onEvent1,2271599:In,[(264,314)(264,293)(198,293)(198,272)])
link(onEvent2,5926953:doStrCat,[])
link(onEvent3,8389943:doMessage,[(275,328)(275,398)])
}
Add(Message,8389943,301,392)
{
Message="Ок"
}
Add(CableWork,2369502,896,392)
{
link(Cable,12526161:doWork,[])
}
Add(Button,8513360,112,308)
{
Left=155
Top=45
Width=100
Height=30
Caption="старт"
link(onClick,15687256:doStart,[])
}
Add(Memory,6423116,518,161)
{
Default=String(compl_24.08.17.xls)
}
Add(LineBreakEx,8130615,518,203)
{
Caption="Имя "
Type=3
link(_Data,6423116:Value,[])
}
Add(DS_ODBC,9220204,462,406)
{
Name="odbc_driver"
Point(onError)
link(onCreate,4912858:doEvent1,[(534,412)(534,405)])
link(Driver,6939220:FString,[])
link(onError,2774394:doWork,[])
}
Add(Memory,4937846,469,308)
{
}
Add(Dir,154286,287,238)
{
}
Add(FilePart,5229429,399,315)
{
link(onPath,4937846:doValue,[(448,321)(448,314)])
link(onName,7579850:doEvent1,[])
}
Add(StrCat,5926953,287,315)
{
link(onStrCat,16714654:doEvent1,[])
link(Str1,154286:CurrentDir,[])
link(Str2,12280247:getVar,[])
}
Add(Hub,16714654,350,315)
{
OutCount=3
link(onEvent1,5229429:doPart,[])
link(onEvent2,6939220:doString,[(393,328)(393,363)])
link(onEvent3,9220204:doOpen,[(378,335)(378,412)])
}
Add(FormatStr,1359034,581,329)
{
Mask="SELECT * FROM `%1.xls`.`sheet1$`"
Point(FString)
}
Add(FormatStr,6939220,462,357)
{
Mask="DRIVER={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};\r\nFIL=Excel 12.0;\r\nDBQ=%1;\r\nDefaultDir=%2;\r\nFirstRowWhasNames=1;\r\nReadOnly=false;\r\nScanRows=0;"
Point(FString)
link(Str2,4937846:Value,[])
}
Add(LineBreakEx,2774394,511,413)
{
Caption="error"
}
Add(LineBreakEx,2469851,651,462)
{
Caption="error"
}
Add(FormatStr,9473098,630,315)
{
Mask="SELECT COUNT(*) FROM `%1.xls`.`sheet1$`"
Point(FString)
}
Add(LineBreakEx,122388,679,413)
{
Caption="error"
}
Add(Hub,7579850,518,322)
{
link(onEvent1,9473098:doString,[(558,328)(558,321)])
link(onEvent2,1359034:doString,[])
}
Add(DSC_Query,12487484,609,448)
{
DSManager="odbc_driver"
link(onQuery,4865845:doAdd,[(763,454)(763,433)])
link(onError,2469851:doWork,[])
link(SQL,1359034:FString,[(615,379)(587,379)])
}
Add(DSC_Query,10256676,630,399)
{
DSManager="odbc_driver"
link(onQuery,2369502:Wire2,[])
link(onError,122388:doWork,[])
link(SQL,9473098:FString,[])
}
Add(Hub,4912858,567,399)
{
link(onEvent1,10256676:doQuery,[])
link(onEvent2,12487484:doQuery,[(598,412)(598,454)])
}
Add(MT_MTArrayRW,4865845,798,413)
{
link(onRead,2369502:Wire1,[(863,419)(863,398)])
link(Array,13076694:Array,[])
}
Add(MT_MTArray,13076694,798,329)
{
}
Add(LineBreak,5748659,714,329)
{
Caption="clear_mt"
link(Out,13076694:doClear,[])
Primary=[2271599,-504,-63]
}
Add(Message,8158759,882,203)
{
Caption="Ошибка XLS"
}
Add(LineBreakEx,13650324,826,203)
{
Caption="error"
Type=1
link(OnEvent,8158759:doMessage,[])
}
Add(LineBreakEx,9027771,203,126)
{
Caption="Имя "
Type=2
}
Add(CableEvent,6017396,847,154)
{
link(Wire1,16035786:doPosition,[])
link(Wire2,16035786:doMax,[])
}
Add(Thread,15687256,175,308)
{
Delay=1
FastStop=0
link(onExec,14895446:doEvent1,[])
}

карма: 1
        ]  
0