Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2017-12-01 11:29:53 ЛС | профиль | цитата
Пример (совет) от некоторых.

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
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2017-12-01 11:30:58