Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2020-09-20 18:04:28 ЛС | профиль | цитата

Add(MainForm,2953706,21,105)
{
Height=194
Point(onClose)
link(onCreate,7709426:doOpen,[])
link(onClose,7709426:doClose,[])
}
Add(DS_SQLite,7709426,70,119)
{
Name="mdb"
FileName=":memory:"
link(onOpen,12391517:doEvent1,[])
}
Add(DSC_Exec,331918,154,119)
{
SQL="CREATE TABLE pribori(\r\n id integer primary key,\r\n name TEXT,\r\n pov TEXT,\r\n period INTEGER);\r\n\r\nINSERT INTO pribori values(NULL,'вольтметр','2019-05-01',12);\r\nINSERT INTO pribori values(NULL,'амперметр','2019-05-01',24);\r\nINSERT INTO pribori values(NULL,'ваттметр','2019-05-01',12);\r\n "
DSManager="mdb"
}
Add(Hub,12391517,112,119)
{
link(onEvent1,331918:doExec,[])
link(onEvent2,7116349:doQuery,[(140,132)(140,167)])
}
Add(DSC_Query,7116349,154,161)
{
SQL="SELECT name, pov, period, strftime('%d.%m.%Y', POV,'+'||period||' month' ) FROM PRIBORI;"
DSManager="mdb"
link(onQuery,16103161:doRowAction,[])
link(onColumns,8470873:doClear,[])
}
Add(MTStrTbl,4079769,154,77)
{
Top=10
Width=370
Name="tab"
Columns=#6:Прибор|7:Поверка|6:Период|9:Следующая|
}
Add(MST_Clear,8470873,224,168)
{
MSTControl="tab"
}
Add(MST_RowAction,16103161,273,161)
{
MSTControl="tab"
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:vovs