Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2019-01-09 18:40:23 ЛС | профиль | цитата
Ну и нахрена лишние телодвижения ?
Add(MainForm,16400211,168,266)
{
Width=342
Height=154
Position=1
link(onCreate,7935657:doOpen,[])
}
Add(DS_SQLite,7935657,217,280)
{
Name="rt"
FileName="C:\\Room_temperature.db"
link(onOpen,4537997:doWork2,[])
}
Add(FormatStr,10501672,322,336)
{
Mask="SELECT \r\ncast(round(max( t ),2) AS text)||" °C",\r\ncast(round(min( t ),2) AS text)||" °C",\r\ncast(round(avg( t ),2) AS text)||" °C"\r\n FROM data \r\n WHERE julianday(data-1721424.5) BETWEEN %1 AND %2;"
link(onFString,1775200:doQuery,[])
link(Str1,13886836:DateInt,[(328,324)(286,324)])
link(Str2,4791201:DateInt,[])
}
Add(DSC_Query,1775200,364,336)
{
DSManager="rt"
link(onQuery,8765599:doStr,[])
link(onColumns,7386169:doClear,[])
}
Add(DatePicker,13886836,280,280)
{
Left=20
Top=20
Width=140
Height=21
Point(DateInt)
link(onChange,13017189:doWork3,[(319,286)])
}
Add(DatePicker,4791201,329,280)
{
Left=175
Top=20
Width=140
Height=21
Point(DateInt)
link(onChange,13017189:doWork2,[(366,286)(366,277)])
}
Add(StringTable,7386169,462,336)
{
Left=20
Top=55
Width=295
Height=50
Columns=#15:Максимальная=90|14:Минимальная=90|10:Средняя=90|
Grid=0
}
Add(HubEx,4537997,258,280)
{
Angle=1
link(onEvent,10501672:doString,[(262,342)])
}
Add(HubEx,13017189,315,271)
{
Angle=2
link(onEvent,4537997:doWork1,[(262,277)])
}
Add(MT_String,8765599,413,336)
{
link(onResult,7386169:doAdd,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 3 раз(а), последний 2019-01-09 19:36:16