 Пример (совет) от некоторых. Add(MainForm,2953706,105,119) { Point(onClose) link(onCreate,1846982:doOpen,[]) link(onClose,1846982:doClose,[]) } Add(DS_SQLite,1846982,175,133) { Name="db1" FileName="kafe3j.db" Point(onError) link(onOpen,5929102:doWork1,[]) } Add(ChildForm,5929102,245,133) { } BEGIN_SDK Add(EditMulti,12178062,0,0) { WorkCount=1 Width=636 Height=333 VOffset=112 link(doWork1,14727689:doShowModal,[]) } Add(MainForm,14727689,77,84) { Left=100 Top=70 Width=980 Height=760 Visible=1 Ctl3D=0 WinStyle=1 Point(doShowModal) Point(onShow) } Add(Message,8412109,455,168) { Message="Такое блюдо уже есть в меню!" Caption="Корректировка меню" Icon=1 } Add(ListBox,11009138,280,266) { Left=592 Top=35 Width=340 Height=665 Font=[Times New Roman,14,1,0,204] Name="Меню дня" DataType=1 Sort=0 ItemHeight=30 BoxDrawManager="men1" link(onClick,4210432:doString,[]) } Add(ListBox,10409034,280,154) { Left=250 Top=35 Width=340 Height=665 Font=[Times New Roman,14,1,0,204] Name="База блюд" DataType=1 Sort=0 ItemHeight=30 BoxDrawManager="men1" Point(String) link(onClick,15895693:doString,[]) } Add(BoxDrawManager,6132037,77,42) { Name="men1" Gutter=1 StyleBack=1 BumpText=0 TextAlign=2 InversClrTxt=0 DepthBack=50 } Add(Button,13713962,14,147) { Left=35 Top=35 Width=140 Height=40 Font=[Times New Roman,12,1,0,204] Name="Отдел 0" Caption="Салаты" Data=Integer(0) link(onClick,10106947:doWork1,[]) } Add(Button,13506105,14,182) { Left=35 Top=90 Width=140 Height=40 Font=[Times New Roman,12,1,0,204] Name="Отдел 1" Caption="Супы" Data=Integer(1) link(onClick,10106947:doWork2,[(58,188)(58,160)]) } Add(Button,11866264,14,217) { Left=35 Top=145 Width=140 Height=40 Font=[Times New Roman,12,1,0,204] Name="Отдел 2" Caption="Вторые" Data=Integer(2) link(onClick,10106947:doWork3,[(58,223)(58,167)]) } Add(Button,2136408,14,252) { Left=35 Top=200 Width=140 Height=40 Font=[Times New Roman,12,1,0,204] Name="Отдел 3" Caption="Гарниры" Data=Integer(3) link(onClick,10106947:doWork4,[(58,258)(58,174)]) } Add(Button,1079686,21,77) { Left=30 Top=625 Width=200 Height=40 Font=[Times New Roman,12,1,0,204] Caption="Закрыть" link(onClick,14727689:doClose,[(67,83)(67,111)]) } Add(Label,14714966,280,112) { Left=370 Top=5 Width=105 Height=23 Font=[Times New Roman,10,1,16711680,204] Caption="БАЗА БЛЮД" } Add(Label,8243455,280,224) { Left=710 Top=5 Width=104 Height=23 Font=[Times New Roman,10,1,16711680,204] Caption="МЕНЮ ДНЯ" } Add(DSC_Query,9026971,224,154) { DSManager="parent.db1" link(onQuery,10409034:doAdd,[]) } Add(FormatStr,721192,182,154) { DataCount=1 Mask="SELECT name FROM dishes WHERE depart=%1 " Point(FString) link(onFString,9026971:doQuery,[]) link(Str1,1082089:Var3,[(188,134)]) } Add(DSC_Query,14098414,224,266) { DSManager="parent.db1" link(onQuery,11009138:doAdd,[]) } Add(FormatStr,445150,168,266) { DataCount=1 Mask="SELECT name FROM menutoday WHERE depart=%1 " Point(FString) link(onFString,14098414:doQuery,[]) link(Str1,1082089:Var2,[]) } Add(FormatStr,1213593,511,161) { DataCount=1 Mask="INSERT INTO menutoday SELECT depart,name,price,size from dishes WHERE name='%1';" Point(FString) link(onFString,3641727:doWork1,[(557,167)]) link(Str1,10409034:String,[(517,149)(498,149)(498,207)(307,207)]) } Add(DSC_Query,3057567,371,161) { DSManager="parent.db1" link(onQuery,2175421:doCompare,[]) } Add(FormatStr,15895693,329,161) { DataCount=1 Mask="SELECT count() FROM menutoday WHERE name='%1';" link(onFString,3057567:doQuery,[]) } Add(If_else,2175421,413,161) { link(onTrue,1213593:doString,[]) link(onFalse,8412109:doMessage,[]) } Add(ChanelToIndex,10106947,70,147) { Count=4 Point(Data) link(onIndex,12173182:doEvent1,[]) } Add(Hub,12173182,119,147) { OutCount=3 link(onEvent1,10409034:doClear,[(269,153)(269,167)]) link(onEvent2,721192:doString,[]) link(onEvent3,9944845:doEvent1,[(137,167)(137,265)]) } Add(GetDataEx,1082089,168,129) { Angle=3 link(Data,10106947:Data,[(113,134)(113,192)(76,192)]) } Add(Hub,9944845,140,259) { InCount=2 link(onEvent1,11009138:doClear,[(266,265)(266,279)]) link(onEvent2,445150:doString,[]) } Add(DSC_Exec,6997576,567,273) { DSManager="parent.db1" link(onExec,9944845:doEvent2,[(606,279)(606,314)(128,314)(128,272)]) } Add(FormatStr,4210432,329,273) { DataCount=1 Mask="DELETE FROM menutoday WHERE name='%1'; " Point(FString) link(onFString,3641727:doWork2,[]) } Add(HubEx,3641727,553,273) { link(onEvent,6997576:doExec,[]) } END_SDK Add(PointHint,10261334,196,112) { Info=#8:Меню дня| Height=18 }
|