Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2018-10-27 15:46:31 ЛС | профиль | цитата
Ну нет в "старой" sqlite3.dll цикла.
Из-за этого переделывать программу и БД ?
Используй компонент For.

Add(MainForm,2953706,231,140)
{
Width=438
Height=115
Caption="Пример SQLite. Добавление дней."
BorderStyle=1
Position=1
Point(onClose)
link(onCreate,11559345:doOpen,[])
link(onClose,11559345:doClose,[])
}
Add(SQLite_DB,11559345,343,154)
{
FileName=":memory:"
link(onOpen,15879926:doExec,[])
}
Add(DatePicker,9089186,273,182)
{
Left=5
Top=30
Width=140
Height=21
Point(DateInt)
}
Add(DatePicker,7057358,413,357)
{
Left=275
Top=30
Width=145
Height=21
}
Add(Edit,3626187,154,182)
{
Left=155
Top=30
Width=40
Text="20"
Alignment=2
}
Add(SQLite_Query,1127893,357,357)
{
link(onQuery,7057358:doSetDate,[])
link(dbHandle,5834138:Var3,[(363,208)])
}
Add(FormatStr,13025280,273,287)
{
Mask="INSERT INTO tmp SELECT strftime("%w",julianday(%1 + 1721424.5 + %2)), julianday(%1 + 1721424.5 + %2);\r\n"
link(onFString,4481150:doWork3,[(312,293)])
link(Str1,9089186:DateInt,[])
}
Add(Button,16145868,49,280)
{
Left=205
Top=30
link(onClick,10410574:doEvent1,[])
}
Add(Math,799357,154,287)
{
OpType=2
Op2=2
ResultType=0
link(onResult,12118137:doFor,[])
link(Op1,7591406:Var2,[])
}
Add(For,12118137,203,287)
{
link(onEvent,13025280:doString,[])
link(onStop,10194925:doString,[(243,300)(243,363)])
link(End,799357:Result,[(216,275)(188,275)(188,331)(160,331)])
}
Add(SQLite_Exec,15879926,406,154)
{
SQL="CREATE TEMP table IF NOT EXISTS tmp(i Integer, data Real);"
}
Add(Hub,10410574,91,280)
{
link(onEvent1,15412997:doString,[(109,286)(109,230)])
link(onEvent2,799357:doOperation,[])
}
Add(SQLite_Exec,8313210,322,224)
{
link(dbHandle,5834138:Var1,[(328,208)])
}
Add(GetDataEx,5834138,343,203)
{
link(Data,11559345:dbHandle,[])
}
Add(FormatStr,10194925,252,357)
{
Mask="end;\r\nDELETE FROM tmp WHERE i=0 OR i=6;\r\nSELECT data-1721424.5 FROM tmp LIMIT 1 OFFSET %2;"
link(onFString,1127893:doQuery,[])
link(Str2,7591406:Var3,[(265,271)])
}
Add(FormatStr,15412997,210,224)
{
Mask="DELETE from tmp WHERE 1;\r\nbegin;"
link(onFString,4481150:doWork2,[])
}
Add(HubEx,4481150,308,224)
{
link(onEvent,8313210:doExec,[])
}
Add(GetDataEx,7591406,154,266)
{
link(Data,3626187:Text,[])
}

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Редактировалось 1 раз(а), последний 2018-10-27 15:50:04