Add(MainForm,2953706,49,166)
{
 Left=100
 Top=100
 Width=1010
 Height=735
 Caption="Домашний калькулятор"
 Point(onClose)
 link(onCreate,1846982:doOpen,[])
 link(onClose,1846982:doClose,[])
}
Add(DatePicker,12687873,378,175)
{
 Left=25
 Top=30
 Width=240
 Height=24
 Font=[MS Sans Serif,10,1,0,1]
 Style=1
 TitleBkColor=8421376
 Point(DateTime)
 Point(DateInt)
 Point(CurrentDateTime)
 link(onChange,10989412:doWork1,[(420,181)(420,168)(242,168)])
}
Add(DS_SQLite,1846982,98,180)
{
 Name="db1"
 FileName="expenses.db"
 Point(onError)
 link(onOpen,5253710:doExec,[])
}
Add(GlobalVar,13694103,308,189)
{
 Name="mont"
}
Add(DateConvertor,9447187,259,189)
{
 Mode=9
 Format="Myy"
 Point(Data)
 link(onResult,13694103:doValue,[])
 link(Data,12687873:CurrentDateTime,[(265,173)(209,173)(209,101)(441,101)(441,219)(398,219)])
}
Add(HubEx,10989412,238,189)
{
 link(onEvent,9447187:doConvert,[])
}
Add(GetDataEx,6108526,378,224)
{
 link(Data,12687873:DateTime,[])
}
Add(Label,6834147,315,124)
{
 Left=330
 Top=20
 Width=46
 Height=23
 Font=[Times New Roman,10,1,32768,204]
}
Add(Hub,6059206,210,180)
{
 OutCount=3
 link(onEvent1,8093148:doQuery,[(234,186)(234,130)])
 link(onEvent2,10989412:doWork2,[(232,193)(232,195)])
}
Add(DSC_Exec,5253710,147,180)
{
 SQL="CREATE TABLE IF NOT EXISTS domcalc(\r\ndatr REAL, \r\nnameex TEXT, \r\nprice INTEGER, \r\narticle INTEGER, \r\ndatint INTEGER, \r\nmont INTEGER);"
 DSManager="db1"
 link(onExec,6059206:doEvent1,[])
}
Add(DSC_Query,8093148,259,124)
{
 SQL="SELECT 'Сегодня '|| \r\n case W\r\n WHEN '0' THEN 'воскресенье,'\r\n WHEN '1' THEN 'понедельник,'\r\n WHEN '2' THEN 'Вторник,'\r\n WHEN '3' THEN 'среда,'\r\n WHEN '4' THEN 'четверг,'\r\n WHEN '5' THEN 'пятница,'\r\n WHEN '6' THEN 'суббота,' \r\n end\r\n || strftime(' %d ', "now")||\r\n case M\r\n WHEN "01" THEN "января"\r\n WHEN "02" THEN "февраля"\r\n WHEN "03" THEN "марта"\r\n WHEN "04" THEN "апреля"\r\n WHEN "05" THEN "мая"\r\n WHEN "06" THEN "июня"\r\n WHEN "07" THEN "июля"\r\n WHEN "08" THEN "августа"\r\n WHEN "09" THEN "сентября"\r\n WHEN "10" THEN "октября"\r\n WHEN "11" THEN "ноября"\r\n WHEN "12" THEN "декабря"\r\n end\r\n ||strftime(" %Y года.","now") \r\n From\r\n (SELECT strftime('%w',"now") AS W),\r\n (SELECT strftime('%m',"now") AS M)\r\n "
 DSManager="db1"
 link(onQuery,6834147:doText,[])
}