Вверх ↑
Ответов: 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