Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#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