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,[])
}