 Схема 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" }
|