Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#31: 2017-08-17 14:55:41 ЛС | профиль | цитата
Пример по работе с датой без
zhorik5 писал(а):
формирует компонет Time с настройками Y/M/D

Add(MainForm,16767891,168,119)
{
Width=411
Height=215
Position=1
Point(onClose)
link(onCreate,7201955:doOpen,[])
link(onClose,7201955:doClose,[])
}
Add(DS_SQLite,7201955,224,133)
{
Name="пример"
FileName=":memory:"
link(onOpen,876903:doExec,[])
}
Add(DSC_Exec,876903,287,133)
{
SQL="CREATE TABLE IF NOT EXISTS tab(\r\nid INTEGER PRIMARY KEY,\r\nrabdata REAL Default (julianday('now','localtime')),\r\nname TEXT); "
DSManager="пример"
}
Add(DSC_Exec,4547214,518,140)
{
DSManager="пример"
link(onExec,7255903:doQuery,[])
}
Add(DSC_Query,7255903,567,140)
{
SQL="SELECT id AS "Номер", date(rabdata) AS " Дата", time(rabdata) AS " Время", name AS "Сотрудник" FROM tab; "
DSManager="пример"
link(onQuery,11165288:doStr,[])
link(onColumns,14128844:doEnum,[(607,153)(607,181)])
}
Add(StringTable,1661809,665,140)
{
Left=10
Top=35
Width=375
Height=130
ClearAll=0
Point(doAddColumn)
}
Add(MT_Enum,14128844,616,175)
{
link(onItem,1661809:doAddColumn,[])
}
Add(MT_String,11165288,616,140)
{
link(onResult,1661809:doAdd,[])
}
Add(ComboBox,10147328,399,126)
{
Left=160
Top=10
Width=100
Height=21
Strings=#4:Олег|4:Вася|4:Коля|5:Игорь|
DataType=1
Sort=0
link(onClick,4503989:doEvent1,[])
}
Add(Hub,4503989,448,133)
{
link(onEvent1,1661809:doClear,[(697,139)(697,153)])
link(onEvent2,5325715:doString,[])
}
Add(FormatStr,5325715,476,140)
{
Mask="INSERT INTO tab(name) values("%1");"
link(onFString,4547214:doExec,[])
}
Add(Label,11562660,357,126)
{
Left=30
Top=10
Width=125
Height=17
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Выбор сотрудника :"
AutoSize=1
}


Редактировалось 3 раз(а), последний 2017-08-19 11:54:18
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
31
Сообщение
...
Прикрепленные файлы
(файлы не залиты)