Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2009-05-24 23:54:40 ЛС | профиль | цитата
Tad писал(а):
Убедительно прошу показать на пальцах, как это делать вот в такой схеме

Элементарно, Ватсон


Add(MainForm,13127573,217,175)
{
Width=970
Height=632
link(onCreate,16428629:doEvent1,[])
}
Add(SQLite_DB,7096009,350,189)
{
FileName="elementsdelphielements.db"
link(onOpen,16569659:doValue,[])
}
Add(GlobalVar,16569659,406,189)
{
Name="dbHandle"
}
Add(GlobalVar,9211588,399,266)
{
Name="dbHandle"
}
Add(SQLite_Query,6201095,399,294)
{
SQL="SELECT * FROM elements ;"
link(onQuery,3664807:doAddRow,[])
link(onColumns,3664807:doAddCols,[])
link(dbHandle,9211588:Var,[])
}
Add(Hub,8199579,350,238)
{
OutCount=4
link(onEvent2,5639258:doClear,[])
link(onEvent3,6201095:doQuery,[(377,258)(377,300)])
link(onEvent4,11095608:doFor,[(373,265)(373,363)])
}
Add(Hub,16428629,322,189)
{
link(onEvent1,7096009:doOpen,[])
link(onEvent2,8199579:doEvent1,[(340,202)(340,244)])
}
Add(MTStrTbl,4694401,490,189)
{
Left=670
Top=495
Align=5
Font=[Courier,8,0,0,204]
Name="tab"
ColDelimiter="$"
Grid=0
}
Add(MST_Clear,5639258,490,245)
{
ClearAll=0
MSTControl="tab"
}
Add(MST_DB,3664807,490,294)
{
MSTControl="tab"
}
Add(MST_ColAction,15735357,490,357)
{
Action=9
MSTControl="tab"
}
Add(For,11095608,399,357)
{
IncludeEnd=1
link(onEvent,15735357:doColAction,[])
link(End,15735357:CountCol,[(412,345)(454,345)(454,401)(496,401)])
}

карма: 22

1
Голосовали:Tad