Схема
Add(MainForm,2953706,21,105)
{
}
Add(PageControl,13419372,77,105)
{
Childrens=#1:1|1:2|1:3|
Selected="2"
}
BEGIN_SDK
Add(EditPolyMulti,7441193,21,21)
{
}
Add(PagePanel,12198348,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,798162,21,21)
{
}
Add(PagePanel,16751909,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,516712,21,21)
{
}
Add(PagePanel,6899692,35,105)
{
Left=35
Top=105
}
Add(StringTable,7303198,84,49)
{
Left=80
Top=45
Align=5
Columns=#1:1|1:2|1:3|1:4|
Grid=0
Point(onDblClick)
link(onDblClick,610022:doCompare,[])
}
Add(If_else,610022,133,56)
{
Op2=Integer(1)
link(onTrue,12641469:doPopupHere,[])
}
Add(PopupMenu,12641469,203,56)
{
Menu=#8:Добавить|8:Изменить|7:Удалить|
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,13585284,21,21)
{
}
Add(PagePanel,9082253,35,105)
{
Left=35
Top=105
}
END_SDK
Схема 2 (не работают компоненты Data_Source)
Add(MainForm,2953706,63,105)
{
Point(onClose)
link(onCreate,13768333:doOpen,[])
link(onClose,13768333:doClose,[])
}
Add(PageControl,13419372,182,168)
{
Childrens=#1:1|1:2|1:3|
Selected="2"
}
BEGIN_SDK
Add(EditPolyMulti,7441193,21,21)
{
}
Add(PagePanel,12198348,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,798162,21,21)
{
}
Add(PagePanel,16751909,35,105)
{
Left=35
Top=105
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,516712,21,21)
{
Width=405
}
Add(PagePanel,6899692,35,105)
{
Left=35
Top=105
}
Add(StringTable,7303198,252,91)
{
Left=80
Top=45
Align=5
Columns=#1:1|1:2|
Grid=0
Point(onDblClick)
link(onDblClick,610022:doCompare,[])
}
Add(If_else,610022,301,98)
{
Op2=Integer(1)
link(onTrue,12641469:doPopupHere,[])
}
Add(DSC_Query,4782005,140,91)
{
SQL="SELECT * From test;"
DSManager="parent.my"
link(onQuery,3419646:doStr,[])
}
Add(MT_String,3419646,203,91)
{
link(onResult,7303198:doAdd,[])
}
Add(Button,12157886,91,91)
{
Left=275
Top=15
link(onClick,4782005:doQuery,[])
}
Add(PopupMenu,12641469,357,98)
{
Menu=#8:Добавить|8:Изменить|7:Удалить|
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,13585284,21,21)
{
}
Add(PagePanel,9082253,35,105)
{
Left=35
Top=105
}
END_SDK
Add(DS_SQLite,13768333,126,119)
{
Name="my"
FileName=":memory:"
link(onOpen,1966977:doExec,[])
}
Add(DSC_Exec,1966977,182,119)
{
SQL="CREATE TABLE test(id INTEGER PRIMARY KEY, name);\r\nINSERT INTO test values(NULL,'Иванов');\r\nINSERT INTO test values(NULL,'Петров');\r\nINSERT INTO test values(NULL,'Сидоров');\r\nINSERT INTO test values(NULL,'Козлов');"
DSManager="my"
}