Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2009-05-25 00:36:04 ЛС | профиль | цитата
Короче, вот так


Add(MainForm,13127573,210,224)
{
Width=970
Height=632
link(onCreate,16428629:doEvent1,[])
}
Add(SQLite_DB,7096009,343,238)
{
FileName="elementsdelphielements.db"
link(onOpen,16569659:doValue,[])
}
Add(GlobalVar,16569659,399,238)
{
Name="dbHandle"
}
Add(GlobalVar,9211588,392,315)
{
Name="dbHandle"
}
Add(SQLite_Query,6201095,392,343)
{
SQL="SELECT * FROM elements ;"
link(onQuery,3664807:doAddRow,[])
link(onColumns,3664807:doAddCols,[])
link(dbHandle,9211588:Var,[])
}
Add(Hub,8199579,343,287)
{
OutCount=4
link(onEvent2,5639258:doClear,[])
link(onEvent3,6201095:doQuery,[(370,307)(370,349)])
link(onEvent4,15735357:doColAction,[(365,314)(365,398)])
}
Add(Hub,16428629,315,238)
{
link(onEvent1,7096009:doOpen,[])
link(onEvent2,8199579:doEvent1,[(333,251)(333,293)])
}
Add(MTStrTbl,4694401,483,238)
{
Left=670
Top=495
Align=5
Font=[Courier,8,0,0,204]
Name="tab"
ColDelimiter="$"
Grid=0
}
Add(MST_Clear,5639258,483,294)
{
ClearAll=0
MSTControl="tab"
}
Add(MST_DB,3664807,483,343)
{
MSTControl="tab"
}
Add(MST_ColAction,15735357,483,392)
{
Action=9
Index=-1
MSTControl="tab"
}
карма: 22

0